[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);
$APISetWindowPos = new Win32::API("user32","SetWindowPos",[N,N,N,N,N,N,N],N);

$Ret = $CreateEllipticRgn->Call(70,70,150,150);
$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);
  }
---
okabek ＠ beige.ocn.ne.jp