init III

Perl syslog server/test.pl

@@ -0,0 +1,52 @@
+#! /usr/bin/perl
+
+ use warnings;
+ use strict;
+ use Tk;
+ use Tk::Table;
+
+ my $mw = new MainWindow;
+ my $top = $mw->Table(-rows => 2, -columns => 2);
+ foreach my $r (0..1) {
+     foreach my $c (0..1) {
+         $top->put($r,$c,"$r,$c");
+     }
+ }
+ my $button = $mw->Button(-text => 'Resize', -command => [\&resize_, $top]);
+
+$button->grid (-row=>1, -column=>1);
+$top->grid (-row=>2, -column=>1);
+
+ MainLoop;
+
+ sub resize {
+     my ($table) = @_;
+
+     print "old table dimensions: ",
+           $table->totalRows, " rows and ",
+           $table->totalColumns, " columns\n";
+     $table->configure(-rows => 5, -columns => 5);
+     print "new table dimensions: ",
+           $table->totalRows, " rows and ",
+           $table->totalColumns, " columns\n";
+ }
+
+# Try filling the new area in:
+
+ sub resize_ {
+     my ($table) = @_;
+
+     print "old table dimensions: ",
+           $table->totalRows, " rows and ",
+           $table->totalColumns, " columns\n";
+           $table->configure(-rows => 5, -columns => 5);
+ foreach my $r (2..4) {
+     foreach my $c (2..4) {
+         $table->put($r,$c,"$r,$c");
+     }
+ }
+ $table->put(1,1,"KUCK");
+     print "new table dimensions: ",
+           $table->totalRows, " rows and ",
+           $table->totalColumns, " columns\n";
+ }