daily pastebin goal
9%
SHARE
TWEET

Untitled

a guest Jan 21st, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top