2009/09/27(日) [n年前の日記]
#1 [perl] Perl/Tkスクリプトのウインドウのアイコンを設定
多数のウインドウを開いてると、タスク切り替え時にどれがどれやら判らず。なので、特定のスクリプトには特定のアイコンを設定したい。
指定方法については検索で判ったものの、アイコンサイズが判らない。16x16では小さく表示される。64x64では一部分しか表示されない。となると、32x32ならいいのだろうか。…32x32っぽい。
アイコン画像をxpm形式で保存して読みこませていたのだけど。スクリプトを呼び出す際に、スクリプトの起き場所とは異なるディレクトリから呼び出すと、アイコン画像ファイルが見つからなくて、エラーを出して終了してしまう。うーむ。
アイコン画像をgifで保存して、base64形式に変換して、スクリプト中に文字列として持たせることにしてみた。xpm形式の時には Pixmap を使ったけど、gifの時には Photo を使った。
base64形式への変換は、
_HTMLファイルそのものの中に画像を埋め込む - ［ホームページ作成］All About
経由で、
_M-BASE64 を使わせてもらったり。
指定方法については検索で判ったものの、アイコンサイズが判らない。16x16では小さく表示される。64x64では一部分しか表示されない。となると、32x32ならいいのだろうか。…32x32っぽい。
アイコン画像をxpm形式で保存して読みこませていたのだけど。スクリプトを呼び出す際に、スクリプトの起き場所とは異なるディレクトリから呼び出すと、アイコン画像ファイルが見つからなくて、エラーを出して終了してしまう。うーむ。
アイコン画像をgifで保存して、base64形式に変換して、スクリプト中に文字列として持たせることにしてみた。xpm形式の時には Pixmap を使ったけど、gifの時には Photo を使った。
base64形式への変換は、
_HTMLファイルそのものの中に画像を埋め込む - ［ホームページ作成］All About
経由で、
_M-BASE64 を使わせてもらったり。
◎ _CGIに依存しないPerlの話題一般 :
734 名前： nobodyさん 投稿日： 02/04/22 07:01 ID:LmMZGpbzありがたや。
>>731
ウインドウの左上に表示されるTkのアイコン（？）がダサいよね。
あれ他のアイコンに変えられないかな？
-------------
|TK
-------------
|
|
|
|
735 名前： _gunzip 投稿日： 02/04/22 21:19 ID:???
>>734
my $image = $mw->Pixmap(-file => "title.xpm");
$mw->Icon(-image => $image);
# ないし、$mw->iconimage($image);
736 名前： _gunzip 投稿日： 02/04/22 21:21 ID:???
my $iconImage = $mw->Photo(-file => "icon.gif");
でもよろし
[ ツッコむ ]
以上です。