68user's page 掲示板

Prev< No. 2117〜2118> Next  [最新発言に戻る] [過去ログ一覧]
No. 2117 # CCIE [E-mail] 2001/08/29 (水) 12:52:25
すみません↓　tabで形をそろえようとしたら送信のところにいっちゃってenterおしちゃいました(^^;; ヒヤアセ
で、リストは
use Tk;

$mw = MainWindow->new;
$mw->title("gifgraph");

$can = $mw->Canvas(-width=>400,
                                      -height=>300)
        -pack();

for(;;){
$gif = $mw->Photo(-format=>'gif',
                                    -file=>"graph.gif");

$can->createImage(200,150,-image=>$gif);

$mw->after(4000);
}

画像が更新されるのでfor文で何度も画像を読みこませたいんですが、ウィジェットすら開かないんです。for文をはずせば今ある画像が表示されるんですが、なぜなんでしょうか？
No. 2118 # 68user 2001/08/29 (水) 16:35:02
>>2117 CCIE
Perl/Tk は久しくやってないので忘れてしまいましたが、
    $can->createImage(200,150,-image=>$gif);
    $mw->after(4000, \&change_image);
    MailLoop;
    exit;

    sub change_image {
          $gif が変わっていたら $can をいじる
    }
じゃないですかね。
Prev< No. 2117〜2118> Next  [最新発言に戻る] [過去ログ一覧]