Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!usr/bin/perl -w
- use strict;
- use warnings;
- use Tk;
- use Cwd;
- # GUI
- # GUI
- # GUI
- #make a main window
- my $mw = MainWindow->new;
- $mw->title("Diruse Plot");
- $mw->configure('-width', 100, '-height', 100);
- #create a label
- $mw->Label( -text => getcwd() . "" )
- ->grid(
- -row => 1,
- -column => 1,
- -columnspan => 1);
- my $txt_plot = $mw->Scrolled(
- "Text",
- -scrollbars => "e",
- -height => 25,
- -width => 25);
- $txt_plot->grid(
- -row => 2,
- -column => 1 );
- # GUI
- # GUI
- # GUI
- #make a main window
- MainLoop;
Add Comment
Please, Sign In to add comment