Verhindern von resizen - #45292 (Graphische Oberflächen)

renee

2006-03-10 14:13

User since
2003-08-04
14371 Artikel
ModeratorIn

Am einfachsten ist es mit resizable:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

$mw->resizable(0,0);

MainLoop;

Du könntest mit minsize und maxsize arbeiten:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

$mw->minsize(300,400);
$mw->maxsize(300,400);

MainLoop;

Für die Icon-Sache gibt es $mw->iconbitmap(bitmap)... und Crian stellt auf seiner Homepage auch Möglichkeiten dar: http://duehl.de/christian/perl/perlmain.html#tksnip