diff options
| author | lecoanet | 2004-05-14 09:06:20 +0000 |
|---|---|---|
| committer | lecoanet | 2004-05-14 09:06:20 +0000 |
| commit | 4d75919edfa5b05aa9915f33ddef7994b52d9ee9 (patch) | |
| tree | b1dfa9cc7ee7d86fe0cd0f08dc953f620650fb19 /Perl/demos | |
| parent | f4aa84cb4726fa028b032fc818a52f6cbc3e4bdf (diff) | |
| download | tkzinc-4d75919edfa5b05aa9915f33ddef7994b52d9ee9.zip tkzinc-4d75919edfa5b05aa9915f33ddef7994b52d9ee9.tar.gz tkzinc-4d75919edfa5b05aa9915f33ddef7994b52d9ee9.tar.bz2 tkzinc-4d75919edfa5b05aa9915f33ddef7994b52d9ee9.tar.xz | |
*** empty log message ***
Diffstat (limited to 'Perl/demos')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/all_options.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl index ac60e9f..25140f2 100644 --- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl +++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl @@ -85,13 +85,13 @@ sub showAllOptions { -fill => 'both'); my $bgcolor = 'ivory'; $fm->Label(-text => 'Option', -background => $bgcolor, -relief => 'ridge') - ->grid(-row => 1, -col => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => 1, -column => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); $fm->Label(-text => ($type eq 'zinc') ? 'optionClass' : 'Type', -background => $bgcolor, -relief => 'ridge') - ->grid(-row => 1, -col => 2, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => 1, -column => 2, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); $fm->Label(-text => ($type eq 'zinc') ? 'defaultValue' : 'ReadOnly', -background => $bgcolor, -relief => 'ridge') - ->grid(-row => 1, -col => 3, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => 1, -column => 3, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); my $i = 2; my %options; #we used this hastable to sort the options by their names @@ -111,16 +111,16 @@ sub showAllOptions { for my $optionName (sort keys %options) { my ($optionType, $readOnly, $empty, $optionValue) = @{$options{$optionName}}; $fm->Label(-text => $optionName, -relief => 'ridge') - ->grid(-row => $i, -col => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => $i, -column => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); $fm->Label(-text => $optionType, -relief => 'ridge') - ->grid(-row => $i, -col => 2, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => $i, -column => 2, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); # $empty is for provision by Zinc if ($type ne 'zinc') { if ($readOnly) {$readOnly = "read only"} else { $readOnly = "" } } $fm->Label(-text => $readOnly, -relief => 'ridge') - ->grid(-row => $i, -col => 3, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); + ->grid(-row => $i, -column => 3, -ipady => 10, -ipadx => 5, -sticky => 'nswe'); # we do not display $optionValue for these fake items $i++; } |