[Tokyo.pm] Re:おもしろそうなもの見っけ

[OKABE, Keiichi]

岡部です

----- Original Message ----- 
From: "Ito Shinichi" <shinichi ＠ astec.co.jp>
To: <tokyo-pm-list ＠ happyfunball.pm.org>
Sent: Friday, June 02, 2000 10:24 AM
Subject: Re: [Tokyo.pm] Re:おもしろそうなもの見っけ


> swing.jar を使っているということは、Tk のかわりに
> Swing が使えるということなのかな ?

そのようです。READMEに入っていたサンプルスクリプトが以下のように
なっています。Tkと違ってutf8使えるし、Interfaceとして使いよいかも。

      use Java;
      $java = new Java;
      $frame = $java->create_object("java.awt.Frame","Frame's Title");
      $frame->setSize(400,400);
      $frame->show();
      $java->do_event($frame,"addWindowListener",\&event_handler);
  
      $array = $java->create_array("java.lang.String",5);
      // Set array element 3 to "Java is lame"
      $array->set_field(3,"Java is lame");
      $element = $array->get_field(3)->get_value();

      $button = $java->create_object("java.awt.Button","Push Me");
      // Listen for 'Action' events from $button object
      $java->do_event($button,"addActionListener",\&event_handler);

      // Loop & wait mode
      while(1)
      {
           my $continue = $java->go;
           last if (!defined $continue);
      }

      // Got an event!
      sub event_handler
      {
            my($object_that_caused_event,$event_object) = @_;
            if ($object_that_caused_event->same($button))
            {
                    // From $button!
                    print "You pushed my button!!\n";
            }
      }
 
う〜ん、まだ作ってないんですがJavaServerというのを動かしてSocket
で通信するようです。SecurityHoleにならんんかしらん。
---
use Tk;$c=tkinit->Canvas(-height=>50,-width=>100)->pack;$a="15115155,223342,
2343,3335,24254544,6163,5292918185,53939484,7273,6465757464";$a=~s/\s//g;
map{s/(\d)/sprintf("%s,",$1*10)/eg;$c->createLine(split /,/,$_)}(split /,/,$a);
MainLoop; #okabek ＠ beige.ocn.ne.jp