-- ss_at_aao.gov.au #!/usr/bin/perl -w use strict; use Tk; my $x = 100; my $y = 100; my $main = new MainWindow(); my $topFrame = $main->Frame(); $topFrame->pack(-expand => 1, -fill => 'both', -anchor => 'nw'); my $bFrame = $topFrame->Frame(); $bFrame->pack(-side => 'top', -expand => 0, -fill => 'x'); $bFrame->Button(-text => 'Grow', -command => [\&resize, 10] )->pack(-side => 'left', -expand => 0); $bFrame->Button(-text => 'Shrink', -command => [\&resize, -10] )->pack(-side => 'left', -expand => 0); my $f = $topFrame->Frame(-bg => 'blue', -width => $x, -height => $y); $f->pack(-expand => 1, -fill => 'both', -side => 'top'); sub resize ($) { my ($a) = _at__; $x += $a; $y += $a; $f->configure(-width => $x, -height => $y); } MainLoop; -- Visit the official FVWM web page at <URL: http://www.fvwm.org/>. To unsubscribe from the list, send "unsubscribe fvwm" in the body of a message to majordomo_at_fvwm.org. To report problems, send mail to fvwm-owner_at_fvwm.org.Received on Mon Jan 13 2003 - 23:48:39 GMT
This archive was generated by hypermail 2.3.0 : Mon Aug 29 2016 - 19:37:54 BST