From goichi @ mb.kcom.ne.jp Tue Aug 3 09:52:10 1999 From: goichi @ mb.kcom.ne.jp (harada goichi) Date: Thu Aug 5 00:23:15 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCRy03P0FrGyhC?= References: <379F20B5.728F1229@om.jalinfotec.co.jp> Message-ID: <37A7021A.DC570403@mb.kcom.ne.jp> お久しぶりです。 原田です。 Perlマスコット計画はちょっと技術的になってきたので、 「Perl-Win32-J Users」メーリングリストの方で討議されておられたようです。 松本さんと岡部さんのお力により、 「走り回り系マスコット」と、「お座り系マスコット」は、 > > 後は、 > > 1. 画像データをマスクする形のリージョンを作って、 > > 2. マウスの動きに合わせて、ウィンドウが動くようにして、 > > 3. 他のウィンドウのタイトルバーの位置を見つける > > ってところでしょうか。 まで来たそうです。 で、松本さんの「Perl-Win32-J Users」のメールへのリプライをこっちに書きま す。 > 誰か作ってくれてませんか〜〜 (^^; > 2000年問題で死にそうです。 一応、僕はコツコツと挑戦しています。 「兎とカメ作戦」で行こうと思っていますので、 松本さんと岡部さんは2、3ヶ月寝ていてください。(^^; > 例の「PerlからWindowsアプリは作れるのでしょうか?」 > の回答になるかと思いますが、VB+Win32 > を使ったアプリケーションと同等のことは、 > Perlでも可能でないでしょうか。 そう、問題はPerl/Tkの部分ではないんですよねー。 Perl/Tkで作った窓に対して、Win32::APIで黒魔法をかけてい るんですよねー。 その部分の理解が遅れています。 > >でけたらCPANに載せますか? > > Larryさんにあげたら喜んでくれるかもしれないですね。 > > CPANに載せる完成度を上げる体力が〜〜〜〜。 > Larry さんに、ラムちゃんを寄贈すると、世の中に貢献 > することになりそうですね。 え!?そ、そうなんですか? ラムちゃん・・・???世界に貢献???謎??? > #こういった話題は、Tokyo.pm ですべきかな。 僕も、いつもどっちにするべきなのか迷います。 でも、僕のメールには基本的に技術情報がないのでこっちにしています。(笑) <余談> Perl/Tkのメーリングリスト(英語)のアーカイブを検索できる所があり ました。 http://www.lehigh.edu/~sol0/ptk/ptk.html それを色々と見ていたら、 おそらく、Subscribeの失敗だと思うのですが join と一行だけ書かれていたメールがありました。 それに対して、Replyが付いていたので、 「気を付けろ!!」とでも注意しているのかなー、と思って見てみたら、 >join split ツボにハマッテしまってしばらく笑い転げました。 確かに!! 問答無用で「join」されてしまったら、とりあえず「split」で元に戻しておき たくなりますね。 いやぁー、Perlって面白いですねー。 --------------------------------------- Goichi Harada E-mail goichi@mb.kcom.ne.jp From maeda @ src.ricoh.co.jp Sun Aug 8 21:45:36 1999 From: maeda @ src.ricoh.co.jp (maeda@src.ricoh.co.jp) Date: Thu Aug 5 00:23:15 2004 Subject: [Tokyo.pm] Invitation: Open Source Convention Message-ID: <199908090245.LAA05271@luna.src.ricoh.co.jp> $BA0ED(B@$B%j%3!<$G$9!#(B $B%*%i%$%j!<%8%c%Q%s$+$i!"(BOpen Source Convention$B;22CHq3d0z$N0FFb$,(B $BMh$F$$$^$9!#4|F|$,$;$^$C$F$*$j$^$9$N$G!"$4MxMQ$NJ}$O$*Aa$a$K!#(B $B$A$J$_$K;d$b;22C$7$^$9!#%A%e!<%H%j%"%k$K=P$k$+$I$&$+$OL$Dj!#=5Kv(B $B$O?eB24[$G$b9T$C$F$k$+$b$7$l$^$;$s(B($B>P(B)$B!#(B $B$J$*!"?=9~$OD>@\(Bjapan@oreilly.com$B$X$*4j$$$7$^$9!#%+%s%U%!%l%s%9(B $B?=9~%Z!<%8$+$iEPO?$9$k$H3d0z$OE,MQ$5$l$^$;$s$N$G$4Cm0U$/$@$5$$!#(B $B$"$H!"$9$G$K?=$79~$s$8$c$C$?$H$$$&?M$K$O;DG0$G$9$,$4$a$s$J$5$$$H(B $B$N$3$H$G$9(B(^^;$B!#(B --cut----cut----cut----cut----cut----cut----cut----cut----cut----cut-- 8$B7n(B21$BF|!A(B24$BF|$N(B4$BF|4V!"%"%a%j%+@>3$4_$N(BMonterey$B$G(B $BJF9q(BO'Reilly&Associates,inc.$B$Nl!*(B $B$=$NB>!"(BEric Raymond$B;a!"(BLarry Wall$B;a!"(BErric Allman$B;a$J$I(B $B3'$5$s$K$H$C$F$b$*Fk@w$_$NLL!9$,EP>l$7$^$9!#(B $B$J$*!"(B21$BF|!&(B22$BF|$N(B2$BF|4V$O%A%e!<%H%j%"%k!"(B23$BF|!&(B24$BF|$O%+%s%U%!(B $B%l%s%9%W%m%0%i%`$H$J$C$F$*$j!"$=$l$>$l;22CNA6b$,@_Dj$5$l$F$$$^$9!#(B $B%9%1%8%e!<%k$d%3%s%Y%s%7%g%s$N>\:Y$O(B http://conferences.oreilly.com/ $B$G$4MwD:$1$^$9!#(B $B$5$F!"$3$3$G$*CN$i$;$G$9!#(B $B:#2s$O!"F|K\$N3'$5$s$K$b$<$R$3$N2ACM$"$k%3%s%Y%s%7%g%s$K(B $B;22C$7$F$b$i$$$?$$$H$$$&$3$H$G!"(BO'Reilly$BK\D$7$^$7$?!#$=$N7k2L!"(B23$BF|$+$i$N(B $B%+%s%U%!%l%s%9$N;22CNA6b$r!"DL>o$N;22CNA6b$N(B895$B%I%k$+$i(B $BF|K\$+$i$N;22C$,(B10$B?M0J>e!'(B25$B!s%*%U(B=671.25$B%I%k(B $BF|K\$+$i$N;22C$,(B20$B?M0J>e!'(B45$B!s%*%U(B=492.25$B%I%k(B $B$G$4Ds6!$G$-$k$3$H$K$J$j$^$7$?!#(B $B$D$-$^$7$F$O!"$3$N%$%Y%s%H$X$N;22C$NJ}$O!"(B japan@oreilly.com $B08$F$K(B subject: OSC $B$H$7$F(B $B!&;aL>!J%m!<%^;z$G$*4j$$$7$^$9!K(B $B!&6[5^O"Mm@h!JEEOCHV9f!K(B $B$rL@5-$N$&$(!"(B8$B7n(B12$BF|!JLZ!K$^$G$K$41~Jg$/$@$5$$!#(B $B$=$N8e$N%9%1%8%e!<%k$O0J2<$NDL$j$G$9!#(B 1. 12$BF|(B($BLZ(B)$B!'1~JgDy$a$-$j(B 2. 13$BF|(B($B6b(B)$B!'$41~JgD:$$$?J}$K1~Jg?M?t$NDLCN5Z$S;22C3NG'$N%a!<%k$rAwIU(B 3. 14$BF|(B($BEZ(B)$B!':G=*1~Jg$r2>EPO?(B 5. 17$BF|(B($B2P(B)$B!A!'2>EPO?=*N;$NJs9p$H:G=*1~JgAw$7$F$"$2$F$/$@$5$$!#(B $B$J$*Cm0U;v9`$G$9$,!"(B 1.$B2>EPO?=*N;$N$40FFb$rAwIU$9$kA0$K!"D>@\(BUS$B$N%3%s%Y%s%7%g%s(B $B!!EPO?%5%$%H$GEPO?$5$l$F$b!"$3$N%G%#%9%+%&%s%H$OE,MQ$5$l$^$;$s!#(B 2.$B9R6u7t!"%[%F%k!"%l%s%?%+!<$J$I$O3F<+$G$*$NJ}$+$i$41~Jg$rD:$$$F$$$^$9!#(B 4.$B:G=*E*$J;22CNA$O!":G=*1~JgEPO?8e$K;22C$r<-B`$5$l$k$H!"(B13$BF|$KJs9p$9$k1~Jg?M?t$r8+$3$7$F(B $B!!;22C$5$l$kJ}$KBP$7$F$4LBOG$r$*$+$1$9$k$3$H$K$J$j$^$9!#(B $B!!$/$l$0$l$b!"Nd$d$+$7$K$h$k$41~Jg$O$41sN8$/$@$5$$!#(B 5.$B@5<0EPO?$5$l$??M?t$,%G%#%9%+%&%s%HBP>]?M?t$KK~$?$J$+$C$?>l9g$K$O!"DL>o$N(B $B!!;22CNA6b$rD:$/$3$H$K$J$j$^$9!#$"$i$+$8$a$4N;>5$/$@$5$$!#(B 6.$B:#2s$NJg=8$K4X$9$k$*Ld$$9g$o$;$O$9$Y$F!"%a!<%k$G$*4j$$$7$^$9!#(B $B!!EEOC$G$N$*Ld$$9g$o$;$K$O1~$8$+$M$^$9$N$G$4N;>5$/$@$5$$!#(B $B$^$?!"$*Ld$$9g$o$;D:$/:]$b!"(Bsubject;OSC$B$G$*4j$$CW$7$^$9!#(B $B!!(B $B$^$@2F5Y$_$N7W2h$,L$Dj$NJ}!"%*!<%W%s%=!<%9$NB)?a$r(B $B@8$G46$8$?$$J}$J$I!"B??t$N$41~Jg$r$*BT$A$7$F$$$^$9!#(B Monterey$B$G3'$5$s$K$*2q$$$G$-$k$N$r3Z$7$_$K$7$F$$$^$9!#(B --cut----cut----cut----cut----cut----cut----cut----cut----cut----cut-- ------------------------------- Vulture LRM20 .$B""(B||$B""(B. LRM20 $BA0ED(B $B70(B maeda@src.ricoh.co.jp 75t 175km/h Md+ o'$B""(B||$B""(B`o Md+ ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B HeatSink 18 LG Sm+ .=X~~X=. Sm+ LG ------------------------------- Armor 2195 _|_ _|_ From matsumotoya @ om.jalinfotec.co.jp Mon Aug 9 00:31:03 1999 From: matsumotoya @ om.jalinfotec.co.jp (matsumotoya) Date: Thu Aug 5 00:23:15 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCJT8lJCVIJWslUCE8JHI+QyQ5Sn1LIRsoQg==?= References: 37A7021A.DC570403@mb.kcom.ne.jp Message-ID: <37AE6797.520D0B53@om.jalinfotec.co.jp> 松本です。 一応うまくいったので、よた話モードです。 Tkのディフォルトの Window Style は 16cf0008 というふうに でました。タイトルバーを消すには、WS_CAPTION のオプションを はずせばよいわけです。 以下ソースです。あとは根気よく見栄えを良くしていけば。 use Tk; use Win32::GUI; use Win32::API; $SetWindowLong = new Win32::API("user32","SetWindowLongA",[N,N,N],N); $GetWindowLong = new Win32::API("user32","GetWindowLongA",[N,N],N); # # Main # $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); } print sprintf("%lx\n",$GetWindowLong->Call($window,-16)); $SetWindowLong->Call($window,-16,hex("160f0008")); print sprintf("%lx\n",$GetWindowLong->Call($window,-16)); } From maeda @ src.ricoh.co.jp Mon Aug 9 03:11:29 1999 From: maeda @ src.ricoh.co.jp (maeda@src.ricoh.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi Message-ID: <199908090811.RAA10501@luna.src.ricoh.co.jp> $BA0ED(B@$B%j%3!<$G$9!#(B $B:#=)!"(Bjus($BF|K\(BUNIX$B%f!<%62q(B)$B$H$W$i$C$H%[!<%`R2p$7$^$9!#(B $B$5$F!"$V$C$A$c$1$?OC!"!V%V!<%9$rL5NA$G=P$;$^$9$1$I!"2?$+=PE8$7$^(B $B$9(B? $B$?$@$7!"(B2$BF|4V$:$C$H?M$rD%$j$D$1$F$*$1$k$3$H$,>r7o$G$9!W$H$J(B $B$j$^$9!#(BTokyo.pm$B$H$$$&4GHD$G%V!<%9$r=P$7$^$9$+(B? $B;d$H$7$F$O(BTokyo.pm$B$O:#$N$H$3$mE8<($9$Y$-$b$N$b;}$C$F$$$J$$$N$G!"(B $BL5M}$K=P$5$J$/$F$h$$$+$J!A$H;W$C$F$$$^$9!#(B $B$_$J$5$s$$$+$,$G$7$g$&!#(B --cut----cut----cut----cut----cut----cut----cut----cut----cut----cut-- Perl Mogers $BA0ED(B $B70MM(B $B%*!<%W%s%=!<%9$^$D$j;22C$K4X$9$k%"%s%1!<%H(B $BF|K\(BUNIX$B%f!<%62q(B(jus) $B$W$i$C$H%[!<%`(B jus$B$H$W$i$C$H%[!<%`$O!"!V%*!<%W%s%=!<%9$^$D$j!W$H$$$&%$%Y%s%H$r8=:_(B $B6&F1$G4k2hCf$G$9!#$3$l$OF|K\$N3FR2p$9$k$N$rl$rDs6!$9$k$b$N(B $B$G$9!#FbMF$O>.5,LO$JE8<(>l$H!"M-NA(B/$BL5NA$N%;%_%J!<(B,BOF$B$J$I$r9M$($F$$$^(B $B$9!#4pK\E*$K!"E8<(%V!<%9$OHs>&MQ$N%3%_%e%K%F%#$rCf?4$KE8<($r9T$$!"$=$l(B $B$i$N%9%Z!<%9$K4X$7$F$OL5=~Ds6!$7$?$$$H9M$($F$$$^$9!#$=$3$G!"$3$N%$%Y%s(B $B%H$K6=L#$r;}$D$G$"$m$&3'MM$KBP$7$F;22C$K4X$9$k%"%s%1!<%H$rAw$i$;$F$$$?(B $B$@$-$^$9!#$*l$,$"$^$j9-$/$J$$$?$a!";22C4uK>$N%3%_%e%K%F%#$NJ}A4$F$r$*8F(B $B$S$9$k;v$O$G$-$J$$2DG=@-$b$"$j$^$9!#$"$i$+$8$a8fN;>52<$5$$!#(B $B!}%*!<%W%s%=!<%9$^$D$j3+:E35MW(B $BF|;~!'(B 11$B7n(B12$BF|(B($B6b(B)$B!"(B13$BF|(B($BEZ(B) (11$B7n(B11$BF|(B($BLZ(B)$B$O=`HwF|(B) $B>l=j!'(B $B%R%m%;%$%Y%s%H%9%Z!<%9(B ($B=)MU86%R%m%;L5@~@WCO(B(B1,1F,5F) JR$B=)MU861XEE5$398}ELJb(B3$BJ,(B ====================================================================== $B%"%s%1!<%H(B $B$J$k$Y$/(B8/16$B$^$G$K(B matsuri@jus.or.jp $B$^$G8f2sEz$r$*4s$;2<$5$$(B ====================================================================== 1.$B%3%_%e%K%F%#$K$D$$$F(B $B!{Ld(B1-1. $B;22CL>>N$H$J$k%3%_%e%K%F%#!<$N@5<0L>$r$*Ez$(2<$5$$!#(B($B<+M35-=R(B) $B!{Ld(B1-2. $BBeI=A0$r$*Ez$(2<$5$$!#(B($B<+M35-=R(B) $B!{Ld(B1-3. $BBeI=$5$l$^$9$+!)(B($B<+M35-=R(B) 3.$B%V!<%9=PE8$K4X$7$F(B $B!{Ld(B3-1. $B2q>lFb$K4v$D$+$N%V!<%9$r3NJ]$7$F$$$^$9!#E8<(%9%Z!<%9$H$7$F2q(B $B>lFb$N%V!<%9$X$N=PE8$r$44uK>$5$l$^$9$+!)(B ($B$?$@$7%V!<%9$r=PE8$7$FD:$/>l9g!"3+:E4|4VCf$O@bL@0w$rDs6!$7$F(B $BD:$-$^$9!#@bL@0w$NJ}$N8rDLHq(B/$B=IGqHq(B/$B?)HqEy$O;Y5k$5$l$^$;$s(B) $B!&(Ba. $B$O$$(B $B!&(Bb. $B$$$$$((B $B!{Ld(B3-2. $B%V!<%9=PE8$KBP$7$FJdB-$7$F$*$-$?$$$40U8+$d$4MWK>$O$"$j$^$9$+!)(B ($B<+M35-=R(B) $B!{Ld(B3-3. $BLd(B 3-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl$K(BInternet$B@\B3$r9T$&M=Dj$G$$$^$9!#%V!<%9$r=PE8$9$k$KEv$C$F!"(B $B%M%C%H%o!<%/@\B3$r$44uK>$5$l$^$9$+!)(B $B!&(Ba. $B$O$$(B $B!&(Bb. $B$$$$$((B $B!{Ld(B3-4. $BLd(B3-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl%9%F!<%8$K4X$7$F(B $B!{Ld(B4-1. $BE8<(>lFb$K4J0W%9%F!<%8$r@_$1$F!";~4V$r3d$jEv$F$F%3%_%e%K%F%#(B $B$NJ}!9$NH/I=(B,$B%G%b$r9T$$$?$$$H9M$($F$$$^$9!#$3$N%9%F!<%8$NMxMQ(B $B$r4uK>$5$l$^$9$+(B? $B!&(Ba. $B$O$$(B $B!&(Bb. $B$$$$$((B $B!{Ld(B4-2. $BLd(B4-1 $B$G!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl9g!"8=:_J,$+$kHO0O$G$=(B $B$NFbMF$r$*=q$-2<$5$$!#(B($B<+M35-=R(B) 5. $B%;%_%J!<(B,BOF$B$K4X$7$F(B $B!{Ld(B5-1. $B2q>lFb$K4v$D$+$N%;%_%J!<%9%Z!<%9$r3NJ]$7$F$*$j$^$9!#$3$N%9%Z!<(B $B%9$rMQ$$$F%;%_%J!<$d(BBOF$BEy$r9T$&;v$r$44uK>$5$l$^$9$+!)(B $B!&(Ba. $B$O$$(B $B!&(Bb. $B$$$$$((B $B!{Ld(B5-2. $B%;%_%J!<(B,BOF$B$K4X$7$FJdB-$7$F$*$-$?$$$40U8+$d$4MWK>$O$"$j$^$9(B $B$+!)(B($B<+M35-=R(B) $B!{Ld(B5-3. $BLd(B5-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$K(B $B!{Ld(B6-1. $B%*!<%W%s%=!<%9$^$D$jA4HL$KBP$9$k$40U8+$d$44uK>$r$*=q$-2<$5$$!#(B ($B<+M35-=R(B) ====================================================================== --cut----cut----cut----cut----cut----cut----cut----cut----cut----cut-- From yoshino @ mrisys.co.jp Mon Aug 9 03:51:42 1999 From: yoshino @ mrisys.co.jp (=?ISO-2022-JP?B?GyRCNUhMbhsoSg==?=) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: Your message of "Mon, 9 Aug 1999 17:11:29 +0900" <199908090811.RAA10501@luna.src.ricoh.co.jp> References: <199908090811.RAA10501@luna.src.ricoh.co.jp> Message-ID: <199908090850.RAA10618@fermat.mrisys.co.jp> maeda@src.ricoh.co.jp さん、こんにちは。吉野 です。 Mon, 9 Aug 1999 17:11:29 +0900 の [Tokyo.pm] open source maturi に関するメールにお答えします。 maeda> 無理に出さなくてよいかな〜と思っています。 maeda> maeda> みなさんいかがでしょう。 いつもROMさせて頂いてます。 (^^; 前田さんのおっしゃる通りだと思います。 こっそり、見には、行こうと思います。(笑) +------------------------------------+ |三菱総合研究所 MRIシステムズ(株) | |情報技術部 C/S課長代理 吉野 正夫 | +------------------------------------+ From cond @ context.co.jp Mon Aug 9 05:32:30 1999 From: cond @ context.co.jp (cond@context.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: <199908090811.RAA10501@luna.src.ricoh.co.jp> References: <199908090811.RAA10501@luna.src.ricoh.co.jp> Message-ID: <19990809103230.13234.qmail@swindon.context.co.jp> $B6aF#$G$9!#(B maeda@src.ricoh.co.jp writes [at 9 August 1999 17:11 +0900]: > $B$5$F!"$V$C$A$c$1$?OC!"!V%V!<%9$rL5NA$G=P$;$^$9$1$I!"2?$+=PE8$7$^(B > $B$9(B? $B$?$@$7!"(B2$BF|4V$:$C$H?M$rD%$j$D$1$F$*$1$k$3$H$,>r7o$G$9!W$H$J(B > $B$j$^$9!#(BTokyo.pm$B$H$$$&4GHD$G%V!<%9$r=P$7$^$9$+(B? 1$BF|$/$i$$$J$i!"%V!<%9$KD%$j$D$1$^$9$h!#(B $B$G$b!""-$N$h$&$K!"E8<($9$k$b$N$,$J$1$l$P=P$F$b$7$g$&$,$J$$$G$9$+$M(B:-) > $B;d$H$7$F$O(BTokyo.pm$B$O:#$N$H$3$mE8<($9$Y$-$b$N$b;}$C$F$$$J$$$N$G!"(B > $BL5M}$K=P$5$J$/$F$h$$$+$J!A$H;W$C$F$$$^$9!#(B -- $B6aF#(B $B2E@c(B (Yoshiyuki Kondo) Email: cond@context.co.jp Web: http://www.context.co.jp/~cond/ From ryuchi @ ryuchi.org Mon Aug 9 05:32:39 1999 From: ryuchi @ ryuchi.org (Tetsuya Ryuchi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: <199908090850.RAA10618@fermat.mrisys.co.jp> References: <199908090811.RAA10501@luna.src.ricoh.co.jp> <199908090850.RAA10618@fermat.mrisys.co.jp> Message-ID: <19990809193239I.ryuchi@ryuchi.org> りゅうちです。 > maeda> 無理に出さなくてよいかな〜と思っています。 > maeda> > maeda> みなさんいかがでしょう。 > > いつもROMさせて頂いてます。 (^^; > 前田さんのおっしゃる通りだと思います。 私は 別のところで 準備しようと思っていますので… こちらには あまり お手伝いできそうにないです。 どなたか やられるなら 少しはお手伝い できるかも… という訳で とりまとめ役やってくれる方がいないなら、 出さなくても いいかも… # でも 11月の pm 定例を ここで BOFの形式でやるのも 面白いかも? # 誰か やりません? (龍) -- # From Tetsuya Ryuchi or # Powered By FreeBSD 2.2.8-RELEASE with PAO-19981225 on IBM ThinkPad 535 From okabe @ isl.ntt.co.jp Mon Aug 9 05:42:04 1999 From: okabe @ isl.ntt.co.jp (OKABE, Keiichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] Re: open source maturi References: <199908090811.RAA10501@luna.src.ricoh.co.jp> Message-ID: <004801bee253$d1cc9080$bf6e3c81@isl.ntt.co.jp> > 私としてはTokyo.pmは今のところ展示すべきものも持っていないので、 > 無理に出さなくてよいかな〜と思っています。 おすわりxxx --- 匿名希望 (^^; From goichi @ mb.kcom.ne.jp Mon Aug 9 09:38:18 1999 From: goichi @ mb.kcom.ne.jp (harada goichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi References: <199908090811.RAA10501@luna.src.ricoh.co.jp> Message-ID: <37AEE7DA.4FC8AEE2@mb.kcom.ne.jp> 吾一(原田)です。 土曜日でしたら、何かお手伝いできるかと思います。 ノートパソコンでお座り○○○の展示するならば、隣りで一緒に座っています。 (笑) でも、展示って普通はどんな物を展示するんでしょうね。 --------------------------------------- Goichi Harada E-mail goichi@mb.kcom.ne.jp From ryuchi @ ryuchi.org Mon Aug 9 10:29:27 1999 From: ryuchi @ ryuchi.org (Tetsuya Ryuchi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: <19990809193239I.ryuchi@ryuchi.org> References: <199908090811.RAA10501@luna.src.ricoh.co.jp> <199908090850.RAA10618@fermat.mrisys.co.jp> <19990809193239I.ryuchi@ryuchi.org> Message-ID: <19990810002927S.ryuchi@ryuchi.org> りゅうちです。 > > maeda> 無理に出さなくてよいかな〜と思っています。 > > maeda> > > maeda> みなさんいかがでしょう。 > > > > いつもROMさせて頂いてます。 (^^; > > 前田さんのおっしゃる通りだと思います。 (snip) > # でも 11月の pm 定例を ここで BOFの形式でやるのも 面白いかも? > # 誰か やりません? ふと 思ったけど ruby な人達と 共同で sprict言語としてやると面白い かも知れない。 sh, bash, csh, tcsh とか で ユーザグループがあるなら、 一緒になってもいいかも…… でも お手伝いできる時間がないのは 変わらない… (^^; (龍) -- # From Tetsuya Ryuchi or # Powered By FreeBSD 2.2.8-RELEASE with PAO-19981225 on IBM ThinkPad 535 From ryuchi @ ryuchi.org Mon Aug 9 10:59:32 1999 From: ryuchi @ ryuchi.org (Tetsuya Ryuchi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: <19990810002927S.ryuchi@ryuchi.org> References: <199908090850.RAA10618@fermat.mrisys.co.jp> <19990809193239I.ryuchi@ryuchi.org> <19990810002927S.ryuchi@ryuchi.org> Message-ID: <19990810005932I.ryuchi@ryuchi.org> > ふと 思ったけど ruby な人達と 共同で sprict言語としてやると面白い ↑ script 言語 (龍) -- # From Tetsuya Ryuchi or # Powered By FreeBSD 2.2.8-RELEASE with PAO-19981225 on IBM ThinkPad 535 From matsumotoya @ om.jalinfotec.co.jp Tue Aug 10 01:18:52 1999 From: matsumotoya @ om.jalinfotec.co.jp (matsumotoya) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi References: 199908090811.RAA10501@luna.src.ricoh.co.jp Message-ID: <37AFC44C.D23EAB8@om.jalinfotec.co.jp> どうも松本です。 > > さて、ぶっちゃけた話、「ブースを無料で出せますけど、何か出展しま > す? ただし、2日間ずっと人を張りつけておけることが条件です」とな > ります。Tokyo.pmという看板でブースを出しますか? > > 私としてはTokyo.pmは今のところ展示すべきものも持っていないので、 > 無理に出さなくてよいかな〜と思っています。 > > みなさんいかがでしょう。 > 下島@JITと話したところ、人(本人?)は出せるとのことです。 出展も オープンソース(Perlも含む)を組み合わせたものを、 11月までには何とかみせられるものができるのでは.... ということで、参加したいとのことです。 #お座りXXXは間に合わないかも。 From maeda @ src.ricoh.co.jp Wed Aug 11 15:12:43 1999 From: maeda @ src.ricoh.co.jp (maeda@src.ricoh.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] open source maturi In-Reply-To: <37AFC44C.D23EAB8@om.jalinfotec.co.jp> (message from matsumotoya on Tue, 10 Aug 1999 15:18:52 +0900) Message-ID: <199908112012.FAA27697@luna.src.ricoh.co.jp> $BA0ED$G$9!#(B $BE8<($J$7$G%;%_%J!<$@$1$d$k$H$$$&?M(B($B6aF#$5$s$H$+(B)$B$,$$$k$@$1$G$b==J,LLGr$$$N$G$9$h!#(B ------------------------------- Avatar Md+ d/=$B""(B=\. Md+ $BA0ED(B $B70(B maeda@src.ricoh.co.jp 75t 170km/h AFC50 O \*oo*/ " LG+ LG+ ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B HeatSink 15 LRM10 .=X$B!1(BX=. LRM10 ------------------------------- Armor 2164 Md+ _|_ _|_ Md+ From matsumotoya @ om.jalinfotec.co.jp Wed Aug 18 10:13:26 1999 From: matsumotoya @ om.jalinfotec.co.jp (matsumotoya) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCOkIka0VJJGpKSRsoQg==?= References: 199908112012.FAA27697@luna.src.ricoh.co.jp Message-ID: <37BACD96.1ED1C456@om.jalinfotec.co.jp> 松本です。 お座りXXXも、タスクバーに座る塗り壁程度には漕ぎつけました。 余計なタイトルバーも消しているし、マウスでドラッグしたら 移動して、またタスクバーに座りなおします。 (Win32に依存しているのは多少不満ですが) あと大きな技術的な問題は、かわいい絵がかけないということだけです。 縦128ドット×横64ドット、足の部分が高さ32ドットの GIFファイルかなんかを寄付していただくとうれしいのですが。 From maeda @ src.ricoh.co.jp Wed Aug 18 22:58:49 1999 From: maeda @ src.ricoh.co.jp (maeda@src.ricoh.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] matsuri Message-ID: <199908190358.MAA08291@luna.src.ricoh.co.jp> $BA0ED$G$9!#(B $B%*!<%W%s%=!<%9$^$D$j$KBP$7$F!"0J2<$N%"%s%1!<%H2sEz$rAw$j$^$7$?!#(B |Date: Tue, 17 Aug 1999 13:16:00 +0900 |Message-Id: <199908170416.NAA28463@luna.src.ricoh.co.jp> |To: matsuri@jus.or.jp |Subject: questionnaire answer Tokyo.pm |From: maeda@src.ricoh.co.jp | |$BA0ED(B@$B%j%3!<$G$9!#(B | |Tokyo.pm$BBeI=l=j$,$"$l$P8+$;$?$$$b$N$O$"$k!W$H$$$&@<$,>/?t$"$j(B |$B$^$7$?!#(B | |--- |1.$B%3%_%e%K%F%#$K$D$$$F(B | |$B!{Ld(B1-1. $B;22CL>>N$H$J$k%3%_%e%K%F%#!<$N@5<0L>$r$*Ez$(2<$5$$!#(B($B<+M35-=R(B) | |$B@5<0L>(B:$B!V(BTokyo Perl Mongers$B!W(B |$B@bL@(B: $BEl5~CO6h$N(BPerl$B%f!<%6!<%:%0%k!<%W$G$9!#(B | |$B!{Ld(B1-2. $BBeI=A0$r$*Ez$(2<$5$$!#(B($B<+M35-=R(B) | |$BA0ED70(B | |$B!{Ld(B1-3. $BBeI=$5$l$^$9$+!)(B($B<+M35-=R(B) | |o $B%V!<%9=PE8(B(Perl$B$G(BWindows GUI$B$r;H$C$?NcBj$r9M$($F$$$^$9(B) |o $B%;%_%J!<$G(BPerl$B$K4X$9$k9V5A(B | |3.$B%V!<%9=PE8$K4X$7$F(B | |$B!{Ld(B3-1. $B2q>lFb$K4v$D$+$N%V!<%9$r3NJ]$7$F$$$^$9!#E8<(%9%Z!<%9$H$7$F2q(B | $B>lFb$N%V!<%9$X$N=PE8$r$44uK>$5$l$^$9$+!)(B | ($B$?$@$7%V!<%9$r=PE8$7$FD:$/>l9g!"3+:E4|4VCf$O@bL@0w$rDs6!$7$F(B | $BD:$-$^$9!#@bL@0w$NJ}$N8rDLHq(B/$B=IGqHq(B/$B?)HqEy$O;Y5k$5$l$^$;$s(B) | |$B!&(Ba. $B$O$$(B | |$B!{Ld(B3-2. $B%V!<%9=PE8$KBP$7$FJdB-$7$F$*$-$?$$$40U8+$d$4MWK>$O$"$j$^$9$+!)(B | ($B<+M35-=R(B) | |$B!{Ld(B3-3. $BLd(B 3-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl$K(BInternet$B@\B3$r9T$&M=Dj$G$$$^$9!#%V!<%9$r=PE8$9$k$KEv$C$F!"(B | $B%M%C%H%o!<%/@\B3$r$44uK>$5$l$^$9$+!)(B | |$B!&(Bb. $B$$$$$((B | |$BFC$KI,MW$J$$$H;W$$$^$9!#(B | |$B!{Ld(B3-4. $BLd(B3-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl%9%F!<%8$K4X$7$F(B | |$B!{Ld(B4-1. $BE8<(>lFb$K4J0W%9%F!<%8$r@_$1$F!";~4V$r3d$jEv$F$F%3%_%e%K%F%#(B | $B$NJ}!9$NH/I=(B,$B%G%b$r9T$$$?$$$H9M$($F$$$^$9!#$3$N%9%F!<%8$NMxMQ(B | $B$r4uK>$5$l$^$9$+(B? | |$B!&(Ba. $B$O$$(B | |$B!{Ld(B4-2. $BLd(B4-1 $B$G!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$Kl9g!"8=:_J,$+$kHO0O$G$=(B | $B$NFbMF$r$*=q$-2<$5$$!#(B($B<+M35-=R(B) | |8$B7n(B21$B!A(B24$BF|$K%b%s%H%l!<$G3+:E$5$l$k%*!<%W%s%=!<%9%3%s%Y%s%7%g%s(B |(http://conferences.oreilly.com/)$B$r8+$F$-$^$9$N$G!"$=$l$K4X$9$k(B |$BJs9p$,$G$-$k$+$H;W$$$^$9!#(B | |5. $B%;%_%J!<(B,BOF$B$K4X$7$F(B | |$B!{Ld(B5-1. $B2q>lFb$K4v$D$+$N%;%_%J!<%9%Z!<%9$r3NJ]$7$F$*$j$^$9!#$3$N%9%Z!<(B | $B%9$rMQ$$$F%;%_%J!<$d(BBOF$BEy$r9T$&;v$r$44uK>$5$l$^$9$+!)(B | |$B!&(Ba. $B$O$$(B | |jus$B$GJY6/2qEy$r$7$F$$$^$9!#$=$l$i$N7P83$r@8$+$7$F!"(BPerl$B$K4X$9$k(B |$B9V5A$,$G$-$k$H;W$$$^$9!#FC$K$3$A$i$+$iH/I=$7$?$$$b$N$,$"$k$o$1$G(B |$B$O$"$j$^$;$s$,!"$b$7D09V$7$?$$J}$,$$$i$C$7$c$l$P(B&&$B%;%_%J!(B |$B$k$h$&$J$i$P3+:E$r9M$($^$9!#(B | |$B!{Ld(B5-2. $B%;%_%J!<(B,BOF$B$K4X$7$FJdB-$7$F$*$-$?$$$40U8+$d$4MWK>$O$"$j$^$9(B | $B$+!)(B($B<+M35-=R(B) | |$B!{Ld(B5-3. $BLd(B5-1.$B$K$*$$$F!V(Ba. $B$O$$!W$H$42sEzD:$$$?J}$K=%W%m%8%'%/%?!<$,;H$($l$PLdBj$"$j$^$;$s!#(B | |6. $B$=$NB>(B | |$B!{Ld(B6-1. $B%*!<%W%s%=!<%9$^$D$jA4HL$KBP$9$k$40U8+$d$44uK>$r$*=q$-2<$5$$!#(B | ($B<+M35-=R(B) | | |------------------------------- Vulture LRM20 .$B""(B||$B""(B. LRM20 | $BA0ED(B $B70(B maeda@src.ricoh.co.jp 75t 175km/h Md+ o'$B""(B||$B""(B`o Md+ | ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B HeatSink 18 LG Sm+ .=X~~X=. Sm+ LG |------------------------------- Armor 2195 _|_ _|_ ------------------------------- Vulture LRM20 .$B""(B||$B""(B. LRM20 $BA0ED(B $B70(B maeda@src.ricoh.co.jp 75t 175km/h Md+ o'$B""(B||$B""(B`o Md+ ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B HeatSink 18 LG Sm+ .=X~~X=. Sm+ LG ------------------------------- Armor 2195 _|_ _|_ From maeda @ src.ricoh.co.jp Wed Aug 18 23:02:11 1999 From: maeda @ src.ricoh.co.jp (maeda@src.ricoh.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] jus benkyoukai Message-ID: <199908190402.NAA08337@luna.src.ricoh.co.jp> $BA0ED$G$9!#(B jus$B$N(B9$B7nJY6/2q$NF|Dx$,7h$^$j$^$7$?!#(B 9/25($BEZ(B)$B!"(B12:30$B!A(B17:30 $BA0H>$O;d$,Cf!&>e5i%W%m%0%i%_%s%0!"(B $B8eH>$O2,It$5$s$,(BPerl$B$K$h$k(BXML$B=hM}$K$D$$$F(B $B$G$9!#(B jus$B2q0w$O(B1000$B1_!"Hs2q0w$O(B3000$B1_$NM=Dj$G$9!#(B $B@5<0$J0FFb$O$^$?=P$k$H;W$$$^$9!#(B $B$G!"(B9$B7n$NNc2q$O;MC+;0CzL\$N$N$_20$G$d$j$^$7$g$&!#(B $B;d$OL@F|$+$i%b%s%H%l!<$N%*!<%W%s%=!<%9(BConvention($B$NCf$K$"$k(BPerl $B%+%s%U%!%l%s%9(B)$B$K9T$C$F$-$^$9!#5"9q$O(B8/31$B$J$N$G!"(B8$B7nNc2q$O=P@J$G(B $B$-$^$;$s!#(B Tokyo.pm$B$N(Bweb$B$b99?7$7$F$J$/$F$9$_$^$;$s!#(B ------------------------------- Vulture LRM20 .$B""(B||$B""(B. LRM20 $BA0ED(B $B70(B maeda@src.ricoh.co.jp 75t 175km/h Md+ o'$B""(B||$B""(B`o Md+ ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B HeatSink 18 LG Sm+ .=X~~X=. Sm+ LG ------------------------------- Armor 2195 _|_ _|_ From shinichi @ astec.co.jp Fri Aug 20 00:41:30 1999 From: shinichi @ astec.co.jp (Ito Shinichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCOkIka0VJJGpKSRsoQg==?= In-Reply-To: Your message of "Thu, 19 Aug 1999 00:13:26 +0900" <37BACD96.1ED1C456@om.jalinfotec.co.jp> References: <37BACD96.1ED1C456@om.jalinfotec.co.jp> Message-ID: <19990820144130I.shinichi@astec.co.jp> 伊藤@アステック / インターネットソリューションズです。 From: matsumotoya Subject: [Tokyo.pm] 座る塗り壁 Date: Thu, 19 Aug 1999 00:13:26 +0900 ... > 松本です。 (snip) > あと大きな技術的な問題は、かわいい絵がかけないということだけです。 > 縦128ドット×横64ドット、足の部分が高さ32ドットの > GIFファイルかなんかを寄付していただくとうれしいのですが。 XMulti を使うってのは? 作者は「どうぞお使いください」っていってます。 ---- 伊藤真一 / shinichi@astec.co.jp / shinichi@internetsolutions.co.jp (株)アステック / インターネットソリューションズ(株) ASTEC, Inc. / Internet Solutions, Inc. 〒112-0002 東京都文京区小石川 1-3-11 イトーピア小石川梅津ビル Tel:03-5804-1895 / Fax:03-5804-1896 From goichi @ mb.kcom.ne.jp Fri Aug 20 10:56:09 1999 From: goichi @ mb.kcom.ne.jp (harada goichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCOkIka0VJJGpKSRsoQg==?= References: 199908112012.FAA27697@luna.src.ricoh.co.jp <37BACD96.1ED1C456@om.jalinfotec.co.jp> Message-ID: <37BD7A99.8265B85B@mb.kcom.ne.jp> 吾一(原田)です。 今の所の僕の状況はこんな感じです。 ========================== use Tk; $mw = new MainWindow; $mw->overrideredirect(1); $mw->bind("", \&neru); $mw->bind("",\&okiru); $mw->bind("", sub {exit;}); $after_id = $mw->after(200, \&okiru); MainLoop; sub okiru{ $mw->geometry("+" . $mw->pointerx . "+" . $mw->pointery); $mw->focusForce; $after_id = $mw->after(200, \&okiru); } sub neru{ if ($after_id){ $mw->afterCancel($after_id); undef $after_id; } } ========================== rootwindow上のイベントを取得する方法がわからずに苦し紛れです。 > あと大きな技術的な問題は、かわいい絵がかけないということだけです。 > 縦128ドット×横64ドット、足の部分が高さ32ドットの > GIFファイルかなんかを寄付していただくとうれしいのですが。 技術的に非常に困難な問題ですね。(笑) 伊藤さんがおっしゃられておられるように、 最終手段として、XMultiを使わせて頂くのも良いかと思います。 でも、プリチーな絵を描いている方をWEB上で探して 「いきなりメールを出してお友達になって描いてもらう作戦」 で行けば良いかと思います。(笑) きっと、詳しく事情を話したら描いてくれる人は何処かにいると思います。 もうちょっと具体的な仕様が決まってきたら、僕もお友達を探して見ようと思い ます。 PS 絵の入れ替えが簡単に出来るようにして、色々なマスコットが簡単に作れるよう に出来たら Perlの普及にも一役買うかもしれませんね。:-) --------------------------------------- Goichi Harada E-mail goichi@mb.kcom.ne.jp From goichi @ mb.kcom.ne.jp Fri Aug 20 11:05:58 1999 From: goichi @ mb.kcom.ne.jp (harada goichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] jus benkyoukai References: <199908190402.NAA08337@luna.src.ricoh.co.jp> Message-ID: <37BD7CE6.F52987CF@mb.kcom.ne.jp> 吾一です。 maeda@src.ricoh.co.jp wrote: > 前田です。 > > jusの9月勉強会の日程が決まりました。 > > 9/25(土)、12:30〜17:30 > 前半は私が中・上級プログラミング、 > 後半は岡部さんがPerlによるXML処理についてです。 > jus会員は1000円、非会員は3000円の予定です。 > 正式な案内はまた出ると思います。 時間があったら是非参加したいと思うのですが、 正式案内の時に、なるべく具体的な内容を教えて頂けると助かります。 予習しておく事など、例えば、XMLの方はどの程度の予備知識が必要なのでし ょうか? > で、9月の例会は四谷三丁目ののみ屋でやりましょう。 9月でなくても良いと思うのですが、一度、アルコールが苦手な方と、 オープンソース祭りetcのまぢめな話をするために、 アルコール抜きの例会をやるのはどうでしょうか? --------------------------------------- Goichi Harada E-mail goichi@mb.kcom.ne.jp From okabek @ beige.ocn.ne.jp Sat Aug 21 01:09:21 1999 From: okabek @ beige.ocn.ne.jp (OKABE, Keiichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] jus benkyoukai References: <199908190402.NAA08337@luna.src.ricoh.co.jp> <37BD7CE6.F52987CF@mb.kcom.ne.jp> Message-ID: <003801beeb9b$d158f980$cb6e3c81@isl.ntt.co.jp> 岡部です。 ----- Original Message ----- From: harada goichi To: perl monger Sent: Saturday, August 21, 1999 1:05 AM Subject: Re: [Tokyo.pm] jus benkyoukai > 吾一です。 > 予習しておく事など、例えば、XMLの方はどの程度の予備知識が必要なのでし > ょうか? XMLとPerlでの話ってのは今まであまりないのではないかと思っているので、 基礎から話すつもりです。予習よりも復習していただくと便利な教材(?)に しようと思っています。内容はこんな感じです。 * XMLってなに? * XML::DOM (XML文書用インタフェース)ってなに? * 簡単なアプリケーションの作り方 * 注意しないといけないこと ちょうど今アプリケーション作りをしているところです。持ち時間が2時間とけっこう長いので どうすれば皆さんの関心を引きつけられるか構成を悩んでます。 # というわけでお座り***スクリプトは今ちと手が出ていません。 --- okabek@beige.ocn.ne.jp From matsumotoya @ om.jalinfotec.co.jp Sun Aug 22 20:39:57 1999 From: matsumotoya @ om.jalinfotec.co.jp (matsumotoya@om.jalinfotec.co.jp) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] $B:B$kEI$jJI(J In-Reply-To: <37BD7A99.8265B85B@mb.kcom.ne.jp> Message-ID: > 吾一(原田)です。 > 今の所の僕の状況はこんな感じです。 > ========================== > use Tk; > $mw = new MainWindow; > $mw->overrideredirect(1); > $mw->bind("", \&neru); > $mw->bind("",\&okiru); > $mw->bind("", sub {exit;}); > $after_id = $mw->after(200, \&okiru); > MainLoop; > sub okiru{ > $mw->geometry("+" . $mw->pointerx . "+" . $mw->pointery); > $mw->focusForce; > $after_id = $mw->after(200, \&okiru); > } > sub neru{ > if ($after_id){ > $mw->afterCancel($after_id); > undef $after_id; > } > } > ========================== > rootwindow上のイベントを取得する方法がわからずに苦し紛れです > 。 $mw->overrideredirect(1); に気づきませんでした。 あと吹き出しの窓をつくらないと、ということで以下ソース。 ----- ここから ------------------ use Tk; use Win32::GUI; use Win32::API; # # ($DOShwnd, $DOShinstance) = GUI::GetPerlWindow(); # GUI::Hide($DOShwnd); # $SetWindowRgn = new Win32::API("user32","SetWindowRgn",[N,N,I],N); $SetWindowPos = new Win32::API("user32","SetWindowPos",[N,N,N,N,N,N,N],N); $SendMessage = new Win32::API("user32","SendMessageA" ,[N,N,N,N],N); # # Main # $mw = new MainWindow; $mw->title("neko"); $mw->overrideredirect(1); $mw->after(200,\&start); MainLoop; sub start { $desktop = GUI::GetDesktopWindow(); $TrayWnd = GUI::FindWindow("Shell_TrayWnd",""); $top2 = 0; $topw2 = 0; # $window = GUI::GetWindow($desktop,GW_CHILD); while($window){ $title = GUI::Text($window); last if ($title eq "neko"); $window = GUI::GetWindow($window,GW_HWNDNEXT); } #$tmp = GUI::SetWindowLong($window,-16,hex("160B0008")); $tmp = GUI::Resize($window,64,128); $tmp = $SetWindowPos->Call($window,-1,0,0,0,0,3); $mw->Tk::bind("", [\&button_down, Ev('x'), Ev('y')]); $mw->after(200,\&swaru); } sub swaru { ($left,$top,$right,$bottom) = GUI::GetWindowRect($TrayWnd); $topw = GUI::GetTopWindow($desktop); if ($top2 != $top || $topw2 != $topw){ update(); } $top2 = $top; $topw2 = $topw; $mw->after(500,\&swaru); } sub button_down { $tmp = GUI::ReleaseCapture($window); $tmp = GUI::SendMessage($window,161,2,0); update(); } sub update { $tmp = GUI::Top($window,$top-128+30); $tmp = GUI::Resize($window,64,128); $tmp = $SetWindowPos->Call($window,-1,0,0,0,0,3); } From matsumotoya @ om.jalinfotec.co.jp Sun Aug 29 22:47:47 1999 From: matsumotoya @ om.jalinfotec.co.jp (matsumotoya) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCOkIkaxsoQg==?= CC: =?iso-2022-jp?B?GyRCJDUkLxsoQg==?= =?iso-2022-jp?B?GyRCJGkbKEI=?= References: 37C401E0.92A98C1C@mb.kcom.ne.jp Message-ID: <37C9FEE3.93445348@om.jalinfotec.co.jp> $B>>K\$G$9!#(B goichi@mb.kcom.ne.jp wrote: > > $B$H$j$"$($:!"%P%k!<%s$G Toplevel $B$rMxMQ$7$F!"0J2<$N$h$&$Je$KI=<($9$k$H$3$,$^$:$$$i$7$/!"(B $BH=CG$r#Z%*!<%@!<$r$_$k$3$H$KJQ$($kI,MW$,$"$j$^$9!#(B $B$=$m$=$m@Z$j$L$/;;CJ$r$7$J$/$A$c$$$1$^$;$s$,!"(B hWnd $B$5$($o$+$l$P$$$$$N$G!"#V#B$+$i@Z$jH4$/$N$r(B $B$^$:$d$C$F$_$h$&$+$H;W$$$^$9!#(B $B$"$H(B TODO $B$G$9$,!"(B $B-!(B Drag&Drop $B$r$$$l$F$_$k!#(B $B-"(B $B%?%9%/%P!<$K%"%$%3%s$r$$$l$F$_$k!#(B $B-#(B $B@_DjItJ,$r$D$/$k!#(B $B-$(B $B$*OC$G$-$k$h$&$K$9$k!#(B $B-%(B $B$A$c$s$H(BPerl$B$G@Z$jH4$1$k$h$&$K$9$k!#(B $B$J$I$J$I!"$^$@$^$@BgJQ$G$9$%!#(B $B!t$A$J$_$K(B sakura.gif $B$O(B WMascot $B$+$i$H$j$"$($:GRC5n(B #($DOShwnd, $DOShinstance) = GUI::GetPerlWindow(); #GUI::Hide($DOShwnd); $SetWindowRgn = new Win32::API("user32","SetWindowRgn",[N,N,I],N); $SetWindowPos = new Win32::API("user32","SetWindowPos",[N,N,N,N,N,N,N],N); $SendMessage = new Win32::API("user32","SendMessageA" ,[N,N,N,N],N); # # Main # $mw_title = "sakura"; $mw = new MainWindow; $mw->title($mw_title); $tw = $mw->Toplevel(); $tw->title("sakura_say"); $tw->overrideredirect(1); $tw->Text(-font => "{MS $B%4%7%C%/(B} 9", -width => 16, -height => 7,-borderwidth => 0,)->pack; $mw->Photo('imggif',-file => "sakura.gif"); my $c = $mw->Label('-image' => 'imggif')->pack; $mw->after(200,\&start); $mw->bind('',sub { exit; }); MainLoop; sub start { $top2 = 0; $topw2 = 0; $desktop = GUI::GetDesktopWindow(); $TrayWnd = GUI::FindWindow("Shell_TrayWnd",""); $window = GUI::FindWindow("TkToplevel","sakura"); $saywin = GUI::FindWindow("TkToplevel","sakura_say"); $tmp = GUI::SetWindowLong($window,-16,hex("160B0008")); $tmp = GUI::Resize($window,103,157); $tmp = $SetWindowPos->Call($window,-1,0,0,0,0,3); # print sprintf "%lx\n",GUI::GetWindowLong($saywin,-16); $tmp = GUI::SetWindowLong($saywin,-16,hex("96000008")); $tmp = $SetWindowPos->Call($saywin,-1,0,0,0,0,3); # print sprintf "%lx\n",GUI::GetWindowLong($saywin,-16); $mw->Tk::bind("", [\&button_down, Ev('x'), Ev('y')]); $mw->after(200,\&swaru); } sub swaru { ($left,$top,$right,$bottom) = GUI::GetWindowRect($TrayWnd); if ($top2 != $top ){ update(); } $topw = GUI::GetTopWindow($desktop); if ($topw2 != $topw){ print $topw; print "\n" #$tmp = $SetWindowPos->Call($window,-1,0,0,0,0,3); } $top2 = $top; $topw2 = $topw; $mw->after(500,\&swaru); } sub button_down { $tmp = GUI::ReleaseCapture($window); $tmp = GUI::SendMessage($window,161,2,0); update(); } sub update { my ($xpos,$t,$r,$b) = GUI::GetWindowRect($window); my $ypos = $top-157+50; $tmp = GUI::Move($window,$xpos,$ypos); if ($xpos > 120){ $xpos -= 105; } else{ $xpos += 110; } $tmp = GUI::Move($saywin,$xpos,$ypos); } From goichi @ mb.kcom.ne.jp Mon Aug 30 11:04:31 1999 From: goichi @ mb.kcom.ne.jp (harada goichi) Date: Thu Aug 5 00:23:16 2004 Subject: [Tokyo.pm] =?iso-2022-jp?B?GyRCOkIkaxsoQg==?= GCC: =?iso-2022-jp?B?GyRCJDUkLyRpGyhC?= References: 37C401E0.92A98C1C@mb.kcom.ne.jp <37C9FEE3.93445348@om.jalinfotec.co.jp> Message-ID: <37CAAB8F.A9070611@mb.kcom.ne.jp> $B$3$s$P$s$O!"8c0l$G$9!#(B $B#C#C$C$F8@$&$H#M#a#k#e#f#i#l#e$G$9!#(B $B#C#C!a#G#C#C$G$9!#(B $B#X#M#u#l#t#i$N%3%s%Q%$%k$K6l@o$7$F$$$^$9!#(B $B!V(Bxmkmf -a$B!W(B $B$@$=$&$G$9!#(B $B!V(Bperl Makefile.pl$B!W(B $B$8$c$J$+$C$?$N$G$A$g$C$H%7%g%C%/$G$9!#(B matsumotoya wrote: > > $B>>K\$G$9!#(B > $B$"$H(B TODO $B$G$9$,!"(B > $B-!(B Drag&Drop $B$r$$$l$F$_$k!#(B $B!)!)!)(B $B$I$N$h$&$J>lLL$G;H$&$N$+$A$g$C$H$o$+$j$^$;$s!#(B $B6qBNE*$K$I$s$J46$8$NJ*$r%$%a!<%8$7$F$i$C$7$c$k$N$G$7$g$&$+!)(B > $B-"(B $B%?%9%/%P!<$K%"%$%3%s$r$$$l$F$_$k!#(B $B$3$l$O$A$g$C$H#T#k$@$1$G$OL5M}$=$&$G$9$M!#(B > $B-#(B $B@_DjItJ,$r$D$/$k!#(B $B#3$K!VGSB>%m%C%/!W$r$+$1$^$9!#(B $B1&%/%j%C%/$G%a%K%e!<$r=P$7$F#V#e#r>pJs#e#t#c$N%@%$%"%m%0$r=P$9$N$O#T#k$@(B $B$1$G$G$-$=$&$G$9!#(B $BKM$d$j$^$9!#(B > $B-$(B $B$*OC$G$-$k$h$&$K$9$k!#(B $BHyL/$G$9$M!#$3$l$b$I$s$J46$8$NJ*$r%$%a!<%8$7$F$i$C$7$c$k$N$G$7$g$&$+!)(B $B0l1~!"#T#k$@$1$G$G$-$=$&$J$N$G!V6&M-%m%C%/!W$r$+$1$^$9$,!"$A$g$C$H$o$+$j(B $B$^$;$s!#(B > $B-%(B $B$A$c$s$H(BPerl$B$G@Z$jH4$1$k$h$&$K$9$k!#(B $B$3$l$,=PMh$k$h$&$K$J$k$H$$$$46$8$G$9$M!#(B $B#T#o#d#o%j%9%H$r8+$k$H!"L\;X$7$F$$$kJ*$O!VK\2H$*:B$j!W0J>e$NJ*$K;W$($^$9(B $B$,!"(B $B6qBNE*$K$O$I$N$h$&$JJ*$r9M$($F$$$i$C$7$c$k$N$G$7$g$&$+!)(B > $B$J$I$J$I!"$^$@$^$@BgJQ$G$9$%!#(B $B$O$$!"N;2r$G$9!V$%!W!#(B -- --------------------------------------- Goichi Harada E-mail goichi@mb.kcom.ne.jp