エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Perl Tkでタイマーイベントは発生できる?
# strict を使ってなくて雑ですが・・こんなんどうでしょう。 # after というのでインターバルを設定で... # strict を使ってなくて雑ですが・・こんなんどうでしょう。 # after というのでインターバルを設定できるようです(下から5行目)。 # あとは、表示するのを oval から画像に変えればいいと思います。 use Tk; $top = MainWindow->new(); $canvas = $top->Canvas( width => 300, height => 300 ); $canvas->pack(); $oval = $canvas->create( 'oval', 10, 10, 50, 50 ); $canvas->itemconfigure( $oval, -fill => 'blue', -outline => 'blue' ); $btn = $top->Button( -text => 'Start', -width=>10, -command => \
2006/03/29 リンク