404 Not Found

Heray-Was-Here

Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory : /proc/self/root/proc/self/root/usr/share/doc/perl-Tk/demos/widget_lib/

Upload File :

Current File : //proc/self/root/proc/self/root/usr/share/doc/perl-Tk/demos/widget_lib/form_mgr.pl

# Form, window management by Tix->form.

use Tk;

my $Main = MainWindow->new();

my $box4 = $Main->Label(-text => 'box4', -borderwidth => 1, -relief => "raised");
my $box1 = $Main->Label(-text => 'box1',-borderwidth => 1, -relief => "raised");
my $box2 = $Main->Label(-text => 'box2',-borderwidth => 1, -relief => "raised");
my $box3 = $Main->Label(-text => 'box3',-borderwidth => 1, -relief => "raised");

$box1->form(-top => '%0', -left => '%0', -right => '%100');
$box2->form(-top => $box1, -left => '%0', -right => '%50', -bottom =>
$box4);
$box3->form(-top => $box1, -left => $box2, -right => '%100', -bottom =>
$box4);
$box4->form(-left => '%0', -right => '%100', -bottom => '%100');

MainLoop;
__END__

Hry