Go Back   The UNIX and Linux Forums > Top Forums > Shell Programming and Scripting
.
google site




Thread: GUI window
View Single Post in the UNIX and Linux Forums - Click on the Thread or Permalink to View Entire Thread -->
  #2 (permalink)  
Old 01-13-2003
WIntellect's Avatar
WIntellect WIntellect is offline
Registered User
 

Join Date: Sep 2002
Location: United Kingdom
Posts: 170
Perleo,

Again I pulled out my "Mastering Perl/Tk - O'Reilly" and found the quickest solution - place the image in a button:

Code:
$image = $mw->Photo(-file => "bigredbutton.gif");
$mw->Button(-text => 'Exit', -command => sub { exit },
                   -image => $image)->pack;

Obviously you need to change the "bigredbutton.gif" to the image file you wish to use; not to mention that I haven't included the usual "MainLoop" bits, etc.

Hope this helps - and I still recommend the book mentioned above!