programming-examples/perl/GUI/Set Label relief (border) to sunken.pl
2019-11-15 12:59:38 +01:00

10 lines
123 B
Perl

use Tk;
my $main = MainWindow->new;
$main->Label(-text => 'Hello!',
-relief => 'sunken'
)->pack;
MainLoop;