mieki256's diary

xyzzyで現在開いてるファイルのパスを渡すと、そこから上位階層に辿っていって画像定義ファイルを読んで画像一覧を表示するPerl/Tkスクリプトを書いた。こんな時期にこんなスクリプトを書いていていいのか、と悩みながらの作成だったけど、出来上がってみたら作業効率がかなり向上。これで、プログラマーの三大美徳を多少は身につけられたのだろうか。

ActivePerl 8.10.0 を使用しているので、Tk は別途 ppm でインストールする必要があった。以前インストールしていたので、そこはなんとか。それと、Perl/Tk の Photo でgifが読みこめたのも助かった。

Tk::Table を使用したのだけど、サイズが大きい画像は表示がスキップされてしまう。どうも Table Widget は、簡単に使えることを優先して、実装や仕様にはちと難がある予感。