Guest User

Untitled

a guest
Jan 21st, 2019
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.54 KB | None | 0 0
  1. #!usr/bin/perl -w
  2. use strict;
  3. use warnings;
  4. use Tk;
  5. use Cwd;
  6.  
  7. # GUI
  8. # GUI
  9. # GUI
  10. #make a main window
  11. my $mw = MainWindow->new;
  12.  
  13. $mw->title("Diruse Plot");
  14. $mw->configure('-width', 100, '-height', 100);
  15.  
  16. #create a label
  17. $mw->Label( -text => getcwd() . "" )
  18.     ->grid(
  19.         -row => 1,
  20.         -column => 1,
  21.         -columnspan => 1);
  22.        
  23. my $txt_plot = $mw->Scrolled(
  24.         "Text",
  25.         -scrollbars => "e",
  26.         -height => 25,
  27.         -width => 25);
  28.    
  29. $txt_plot->grid(
  30.             -row => 2,
  31.             -column => 1 );
  32. # GUI
  33. # GUI
  34. # GUI
  35. #make a main window
  36.  
  37. MainLoop;
Add Comment
Please, Sign In to add comment