PlaggerにインチキGUIをつけてみる（Perl/Tk）

なーした日記: PlaggerにインチキGUIをつけてみる（Windows）のブクマコメントに

2006年10月15日 seamlessbias Windows, Plagger htaでGUI。どうせなら誰かPerl/Tkで書いてよ。そしたら（多分）どこでも動くような気がする。

http://b.hatena.ne.jp/seamlessbias/20061015#bookmark-2997902

なんつーのがあったので三分クッキング。yamlがあるところにこんな感じのスクリプトを置けばOK。libの中身は各自の環境にあわせて適当に調整。フォントの大きさとか並べ方とかも各自でなんとかしてくださいな、ということで。

#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';

use Tk;
use Plagger;

my $mw = MainWindow->new;

foreach my $yaml ( glob('*.yaml') ) {
   $mw->Button(
     -text    => $yaml,
     -command => sub { Plagger->bootstrap( config => $yaml ) },
     -font    => [
       -family => 'helvetica',
       -size   => 12,
       -weight => 'normal',
     ],
   )->pack(-side => 'left');
}

$mw->Button(
  -text    => 'exit',
  -command => sub { exit },
  -font    => [
    -family => 'helvetica',
    -size   => 12,
    -weight => 'normal',
  ],
)->pack(-side => 'left');

MainLoop;