DouKaku?beta

Comment detail

ウィンドウの表示 (Nested Flatten)
Perl/Tkで。 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
use encoding 'cp932'; # windows
use Tk;
use constant {
    MW_WIDTH    => 400,
    MW_HEIGHT   => 300
};

my $mw = new Tk::MainWindow(
            -title => 'こんにちは、GUI！',
            -width => MW_WIDTH,
            -height => MW_HEIGHT);
my $x = int(($mw->screenwidth - MW_WIDTH) / 2);
my $y = int(($mw->screenheight - MW_HEIGHT) / 2);

$mw->geometry("+$x+$y");

Tk::MainLoop();

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]