[Tokyo.pm] Re: マスコット

[OKABE, Keiichi]

岡部です。

----- Original Message ----- 
From: matsumotoya <matsumotoya ＠ om.jalinfotec.co.jp>
To: <tokyo-pm-list ＠ happyfunball.pm.org>
Sent: Wednesday, July 07, 1999 11:47 AM
Subject: Re: [Tokyo.pm] マスコット


> Perlは ActivePerl(インストールが楽だから) でやろうと思っていますので、
> 当然 use TK; でgui といった戦略です。あと
> VBで PetaPeta というので不定形リージョンがソース付きでありますので、
> Win32::API を使えばなんとかなるのではという読みです。ではでは。


ウィンドウの中でネコが走り回るバージョンはできました。
win32,Perl/Tkです。そのうちどっかのサイトに載せます。ルートウィンドウ
（ってWin32の世界でも言うのかな？）はそのうち考えます。

メインの部分はこんな感じになります。

$cv = $mw->Canvas()->pack();
$cv->Tk::bind("<Motion>",[\&print_xy,Ev('x'),Ev('y')]);
$neko = $cv->createImage($cx,$cy, -image => $p32);
$mw->after(200,\&move);
MainLoop;

Perl/Tkのframeを消す方法を調べないと…
---
okabe ＠ isl.ntt.co.jp   岡部 恵一  NTT ＰＦ研
成功出於衆者、先知也、先知者、必取於人、知敵之情者也
          孫子 用間篇 第十三