Menu

Perl Console & GUI Create Project Files / Blog: Recent posts

Add new templates file (11/10/2017)


~~~
use Tk;
$mw = MainWindow->new;

Create necessary widgets

$f = $mw->Frame->pack(-side => 'top', -fill => 'x');
$f->Label(-text => "Filename:")->pack(-side => 'left', -anchor => 'w');
$f->Entry(-textvariable => \$filename)->pack(-side => 'left',
-anchor => 'w', -fill => 'x', -expand => 1);
$f->Button(-text => "Exit", -command => sub { exit; } )->
pack(-side => 'right');
$f->Button(-text => "Save", -command => \&save_file)->
pack(-side => 'right', -anchor => 'e');
$f->Button(-text => "Load", -command => \&load_file)->
pack(-side => 'right', -anchor => 'e');
$mw->Label(-textvariable => \$info, -relief => 'ridge')->
pack(-side => 'bottom', -fill => 'x');
$t = $mw->Scrolled("Text")->pack(-side => 'bottom',
-fill => 'both', -expand => 1);... read more

Posted by Mihai Cornel 2017-10-11
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.