Click around and you will see what this does (drop down menus that give a snarky comment that this doesn't work!)
This is an incredibly short amount of code for a GUI!!!!
Many GUI "builders" spew out hundreds if not thousands of lines of code. Tk can be just "hand coded", like I did below. You will have to learn about the various "geometry managers", most important of which is pack() and what a "frame" is. These placement (geometry) gizmos are basic to all GUI things, you just need to know the rules to use this. There are a number of good books on Perl Tk to get you started.
BUT YES! Perl can do some very sophisticated GUI stuff!!!
#!/usr/bin/perl -w use strict; use Tk; #file tkdemo.pl 11 aug 2009 # $mw is normally the variable name for "MainWindow" my $mw = MainWindow->new; $mw->configure(-title=> "Hacking..."); $mw->geometry("400x100+0+0"); my $menu_f = $mw->Frame()->pack(-side=>'top',-fill=>'x'); my $menu_file = $menu_f->Menubutton (-text=>'File',-tearoff=>'false') ->pack(-side=>'left'); my $menu_help = $menu_f->Menubutton (-text=>'Help', -tearoff=>'false', )->pack(-side=>'left'); $menu_file->command(-label=>'Open', -command=> \&you_wish); $menu_help->command(-label=>'Help??!!!', -command=> \&you_wish); sub you_wish { $mw->messageBox ( -title => "Hacking...", -message => "You wished that this option worked!!!", -type => 'Ok' ); } #This starts the GUI "waiting for event loop" MainLoop();
In reply to Re: GUI FEATURE
by Marshall
in thread GUI FEATURE
by pavunkumar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |