68user's page 掲示板

Prev< No. 2118> Next  [最新発言に戻る] [過去ログ一覧]
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. 2118> Next  [最新発言に戻る] [過去ログ一覧]