From 4d75919edfa5b05aa9915f33ddef7994b52d9ee9 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 14 May 2004 09:06:20 +0000
Subject: *** empty log message ***

---
 Perl/demos/Tk/demos/zinc_lib/all_options.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Perl/demos/Tk')

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++;
     }
-- 
cgit v1.1