Click here to Skip to main content
15,867,568 members
Articles / Programming Languages / Perl

Simple Front End Using Perl/Tk

Rate me:
Please Sign up or sign in to vote.
2.89/5 (9 votes)
4 Feb 20041 min read 39.7K   460   5   3
Simple front end using Perl/Tk

Introduction

This article shows how to use Perl to write a simple graphical user interface.

Installation

Install the latest version of Perl and Tk from the ActiveState download page.

Using the Code

We begin by declaring the MainWindow object and configuring the object properties.

PERL
# Create the main window
my $x_win = MainWindow->new();
$x_win->configure(-title=>'Test');
$x_win->geometry('+200+100');

The application is divided into four frames: one on the top (personInfo), one in the middle (midFrame), and two at the bottom for "Load and Save Data" buttons. personInfo is divided into a left frame for labels and right frame for fields.

PERL
my $personInfo = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
                   -fill=>'x');
my $personLeft = $personInfo->Frame(-background=>'cyan')->pack(-side=>'left',
                   -fill=>'x');
my $personRight = $personInfo->Frame(-background=>'cyan')->pack(-side=>'left',
                   -fill=>'x',-padx=>20,-pady=>20);
PERL
# Labels
$personLeft->Label(-text=>'Personal Information',-background=>'cyan')->pack();
$personLeft->Label(-text=>'',-background=>'cyan')->pack();
$personLeft->Label(-text=>'Name',-background=>'cyan')->pack();
$personLeft->Label(-text=>'Age',-background=>'cyan')->pack();
$personLeft->Label(-text=>'Address',-background=>'cyan')->pack();
$personLeft->Label(-text=>'Occupation',-background=>'cyan')->pack();

Variables are bound to the labels in the midFrame frame. This implies that when the state of the label control changes, the variable is updated to reflect the new state and vice-versa.

PERL
# Fields
$personRight->Label(-text=>'',-background=>'cyan')->pack();
$personRight->Label(-text=>'',-background=>'cyan')->pack();
$personRight->Entry(-background=>'green',-width=>20,-borderwidth=>2,
    -relief=>'sunken',-textvariable=>\$perInfo->{NAME})->pack();
$personRight->Entry(-background=>'green',-width=>20,-borderwidth=>2,
    -relief=>'sunken',-textvariable=>\$perInfo->{AGE})->pack();
$personRight->Entry(-background=>'green',-width=>20,-borderwidth=>2,
    -relief=>'sunken',-textvariable=>\$perInfo->{ADDR})->pack();
$personRight->Entry(-background=>'green',-width=>20,-borderwidth=>2,
    -relief=>'sunken',-textvariable=>\$perInfo->{OCCUPATION})->pack();

midFrame is used to put some sort of separator between the "Personal Information" and the "Load and Save Data" buttons.

PERL
# Separator Bar
my $midFrame = $x_win->Frame(-borderwidth=>3,-relief=>'groove',
                             -background=>'purple',
)->pack(-side=>'top');
$midFrame->Label(width=>100,height=>0,-foreground=>'white',
-background=>'purple')->pack();

# Process frame
my $saveFrame = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
                              -fill=>'x');
$saveFrame->Button(-text => 'Save Data',-command => \&saveinfo,
              )->grid(qw/-row 2 -column 0 -sticky nesw/);

# Process frame
my $loadFrame = $x_win->Frame(-background=>'cyan')->pack(-side=>'top',
                              -fill=>'x');
$loadFrame->Button(-text => 'Load Data',-command => \&loadinfo,
              )->grid(qw/-row 2 -column 0 -sticky nesw/);

MainLoop() signals the end of TK widgets building, and the code that follows will be subroutines. saveInfo dumps the state of perInfo hash, loadInfo does the opposite. Note that perInfo is bound to the controls in the personRight frame.

PERL
MainLoop();

sub saveinfo
{
    open(OUT,">test.txt");
    print OUT "Name" . "=" . $perInfo->{NAME} . "<br>\n";
    print OUT "Age" .  "=" . $perInfo->{AGE} . "<br>\n";
    print OUT "Address" .  "=" . $perInfo->{ADDR} . "<br>\n";
    print OUT "Occupation:" . "=" . $perInfo->{OCCUPATION} . "<br>\n";
    close(OUT);

    $file = $x_win->getSaveFile(-filetypes => \@types);
    open(OUT,">$file");
    #print OUT "Content-type:text/html\n\n";
    print OUT $perInfo->{NAME} . "\n";
    print OUT $perInfo->{AGE} . "\n";
    print OUT $perInfo->{ADDR} . "\n";
    print OUT $perInfo->{OCCUPATION} . "\n";
    close(OUT);
}

sub loadinfo
{
    my $file;
    
    # Types are listed in the dialog widget
    my @types = (["Config Files", '.txt', 'TEXT'],
               ["All Files", "*"] );

    $file = $x_win->getOpenFile(-filetypes => \@types);

    open IN,$file;
    my @tfile = <IN>;
    chop @tfile;
    close (IN);

    $perInfo->{NAME} = $tfile[0];
    $perInfo->{AGE} = $tfile[1];
    $perInfo->{ADDR} = $tfile[2];
    $perInfo->{OCCUPATION} = $tfile[3];
}

This article introduced the basics of installing the Perl interpreter and writing a visual application using the Tk. I encourage you to explore further on the web as well as try out simple programs.

License

This article has no explicit license attached to it, but may contain usage terms in the article text or the download files themselves. If in doubt, please contact the author via the discussion board below.

A list of licenses authors might use can be found here.


Written By
Web Developer
India India
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

 
AnswerMissing save button Pin
Uilleam17-Sep-09 15:13
Uilleam17-Sep-09 15:13 
GeneralErrors in the code Pin
mattrix00726-Apr-06 4:43
mattrix00726-Apr-06 4:43 
GeneralWhere's the source Pin
Gisle Vanem4-Feb-04 21:40
Gisle Vanem4-Feb-04 21:40 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.