[Tokyo.pm] 丸いウィンドウ

[OKABE, Keiichi]

岡部です。
丸いウィンドウを作るところまでできました。でもタイトルバーも込みで
丸くなっているのがちょっと変です。なんとかできないでしょうかね。

use Tk;
use Win32::GUI;
use Win32::API;

$CreateEllipticRgn = new Win32::API("gdi32","CreateEllipticRgn",[I,I,I,I],N);
$SetWindowRgn = new Win32::API("user32","SetWindowRgn",[N,N,I],N);
$Ret = $CreateEllipticRgn->Call(10,10,80,80);
$mw = new MainWindow;
$mw->title("neko");
$mw->after(200,\&start);
MainLoop;

sub start
{
  $desktop = GUI::GetDesktopWindow();
  $window = GUI::GetWindow($desktop,GW_CHILD);
  while($window){
    $title = GUI::Text($window);
    last if ($title eq "neko");
    $window = GUI::GetWindow($window,GW_HWNDNEXT);
  }
  $SetWindowRgn->Call($window,$Ret,1);
}
---
okabek ＠ beige.ocn.ne.jp