Advanced Hello World program using two MainWindows : MainWindow « GUI « Perl






  1. Perl
  2. GUI
  3. MainWindow

Advanced Hello World program using two MainWindows

 

#!/usr/local/bin/perl -w

use Tk;
use subs qw/beep/;
use strict;

my $mw1 = MainWindow->new;
my $mw2 = MainWindow->new(-screen => $ARGV[0] ||= $ENV{DISPLAY});

$mw1->Button(-text => 'Bell', -command => [\&beep, $mw1])->pack;
$mw1->Button(-text => 'Bell', -command => [\&beep, $mw2])->pack;
$mw1->Button(qw/-text Quit -command/ => \&exit)->pack;

MainLoop;

sub beep {shift->bell}








Related examples in the same category

1.Create empty window
2.Destroy a window in button action
3.tkphone - Phone another X Display and have a line-mode conversation
4.Tk Configuration Options
5.Create two windows
6.Setting Border Width for Frame
7.Adding components to the Client Area of a Window with Menu Bar