1 files changed, 36 insertions, 36 deletions

diff --git a/ivybanner b/ivybanner
index 05d695c..af6a72f 100644
--- a/ivybanner
+++ b/ivybanner
@@ -213,16 +213,16 @@ my @buttonattr = (-width => 8*$coef, -height => 3,
 		  
 
         $fm1->Label(-image => $logo_bg)->place(-x => $SIZES{$opt{size}}->{logo_x}, 
-                                               -y => $SIZES{$opt{size}}->{logo_y});
+                                               '-y' => $SIZES{$opt{size}}->{logo_y});
 	$fm1->Button(-text => 'demos',
 		     -command => [\&demosframe, 'demos', $demosdir],
-		     @buttonattr)->place(-x => 800*$coef, -y => 100*$coef);
+		     @buttonattr)->place(-x => 800*$coef, '-y' => 100*$coef);
 	$fm1->Button(-text => 'tests',
 		     -command => [\&demosframe, 'tests', $testsdir],
-		     @buttonattr)->place(-x => 800*$coef, -y => 330*$coef);
+		     @buttonattr)->place(-x => 800*$coef, '-y' => 330*$coef);
 	$fm1->Button(-text => 'quit',
 		     @buttonattr,
-		     -command => [sub {exit(0)}])->place(-x => 800*$coef, -y => 560*$coef);
+		     -command => [sub {exit(0)}])->place(-x => 800*$coef, '-y' => 560*$coef);
 
 print "--- Environment variables\n";
 print "\$IVYCONFIGSDIR=",$ENV{'IVYCONFIGSDIR'},"\n";
@@ -283,11 +283,11 @@ sub demosframe {
 
     $fm2->Frame(-background => $darkbg, -relief => 'groove', -borderwidth => 5,
 	    -width => $SIZES{$opt{size}}->{width}+20*$coef, -height => 160*$coef)
-            ->place(-x => -10*$coef, -y => -10*$coef);
+            ->place(-x => -10*$coef, '-y' => -10*$coef);
 
     $lb_logo = $fm2->Label(-image => $logo_small,
 			   -borderwidth => 0)->place(-x => $SIZES{$opt{size}}->{logo_small_x}, 
-                                                     -y => $SIZES{$opt{size}}->{logo_small_y});
+                                                     '-y' => $SIZES{$opt{size}}->{logo_small_y});
 
     # Note that we use a decorative frame for each widget because frame size can be
     # set in pixel unit whereas buttons family manages size in characters number
@@ -301,8 +301,8 @@ sub demosframe {
     my $w = 130*$coef;
     my $dx = 15*$coef;
     my $dy = 10*$coef;
-    my @placeattr = (-x => 2*$coef, -y => 2*$coef);
-    my @lab_placeattr = (-x => $w - 8*$coef, -y => 10*$coef );
+    my @placeattr = (-x => 2*$coef, '-y' => 2*$coef);
+    my @lab_placeattr = (-x => $w - 8*$coef, '-y' => 10*$coef );
     my @frameattr = (-relief => 'flat',
 		     -highlightthickness => 3*$coef*$coef,
 		     -highlightbackground => $hlbg,
@@ -325,11 +325,11 @@ sub demosframe {
 		     -state => 'disable',
 		     -font => $SIZES{$opt{size}}->{fontspec_medium},
 		     -background => $bg);
-    my $fm_localhost = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y);
-    my $fm_default = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, -y => $y);
+    my $fm_localhost = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y);
+    my $fm_default = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, '-y' => $y);
     my ($dom_default, $dom_local, $dom_own);
     my $fm_ownnet = $fm2->Frame(@frameattr,
-				-width => 2*$w+$dx)->place(-x => $x, -y => $y+$h+$dy);
+				-width => 2*$w+$dx)->place(-x => $x, '-y' => $y+$h+$dy);
      my $cb_local = $fm_localhost->Checkbutton(@cbuttonattr,
 					       -variable => \$dom_local,
 					       -text => 'localhost')->place(@placeattr);
@@ -364,13 +364,13 @@ sub demosframe {
     my @ports = (@ivyports);
     my $port = $default_port;
     my @fm_port;
-    $fm_port[0] = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y);
-    $fm_port[1] = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, -y => $y);
-    $fm_port[2] = $fm2->Frame(@frameattr)->place(-x => $x+2*$w+2*$dx, -y => $y);
-    $fm_port[3] = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y+$dy+$h);
+    $fm_port[0] = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y);
+    $fm_port[1] = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, '-y' => $y);
+    $fm_port[2] = $fm2->Frame(@frameattr)->place(-x => $x+2*$w+2*$dx, '-y' => $y);
+    $fm_port[3] = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y+$dy+$h);
     my $fm_ownport = $fm2->Frame(@frameattr,
 				 -width => 2*$w+$dx)->place(-x => $x+$w+$dx,
-							   -y => $y+$h+$dy);
+							   '-y' => $y+$h+$dy);
      my $en_ownport =
 	 $fm_ownport->Entry(@entryattr)->place(@lab_placeattr);
     for (my $i=0; $i < @fm_port; $i++) {
@@ -416,7 +416,7 @@ sub demosframe {
     $fm2->Frame(-background => $darkbg, -relief => 'groove',
 		-borderwidth => 5*$coef,
 		-width => $SIZES{$opt{size}}->{width}+20*$coef,
-		-height => $SIZES{$opt{size}}->{height})->place(-x => -10*$coef, -y => $y - 30*$coef);
+		-height => $SIZES{$opt{size}}->{height})->place(-x => -10*$coef, '-y' => $y - 30*$coef);
     $fm2->Button(@buttonattr,
 		 -text => "top",
 		 -command => sub {
@@ -424,20 +424,20 @@ sub demosframe {
 		     &off();
 		     $fm2->destroy;
 		     $fm1->pack(@packinfo);
-		 })->place(-x => 70*$coef, -y => $y);
+		 })->place(-x => 70*$coef, '-y' => $y);
 #      $fm2->Button(@buttonattr,
 #  		 -command => sub {},
-#  		 -text => "kill")->place(-x => 290, -y => $y);
+#  		 -text => "kill")->place(-x => 290, '-y' => $y);
     $fm2->Label(@labelattr,
-		-text => $title)->place(-x => 290*$coef, -y => $y);
+		-text => $title)->place(-x => 290*$coef, '-y' => $y);
     $fm2->Button(@buttonattr,
 		 -command => \&viewLog,
-		 -text => "view\nlog")->place(-x => 510*$coef, -y => $y);
+		 -text => "view\nlog")->place(-x => 510*$coef, '-y' => $y);
     $view_button =
 	$fm2->Button(@buttonattr,
 		     -state => 'disabled',
 		     -command => sub {&viewConfig($selected_demo)},
-		     -text => "view\nconfig")->place(-x => 670*$coef, -y => $y);
+		     -text => "view\nconfig")->place(-x => 670*$coef, '-y' => $y);
     $launch_button =
 	$fm2->Button(@buttonattr,
 		     -state => 'disabled',
@@ -455,7 +455,7 @@ sub demosframe {
 			 #print "port=$p domain=$d\n";
 			 &execute($selected_demo, $p, $d);
 		     },
-		     -text => "launch")->place(-x => 830*$coef, -y => $y);
+		     -text => "launch")->place(-x => 830*$coef, '-y' => $y);
     
 } # end demosframe
 
@@ -483,7 +483,7 @@ sub subdirframe {
     my $max_columns = int(($bbox[2]-$bbox[0])/$fmw);
     my $max_rows = int(($bbox[3]-$bbox[1])/$fmh);
     my $maxnb = $max_columns*$max_rows;
-    my @placeattr = (-x => 10*$coef, -y => 5*$coef);
+    my @placeattr = (-x => 10*$coef, '-y' => 5*$coef);
     my @frameattr = (-relief => 'flat',
 		  -highlightthickness => 3*$coef*$coef,
 		  -highlightbackground => $hlbg,
@@ -578,7 +578,7 @@ sub subdirframe {
 	    $extinfo = substr($extinfo, 0, $butw)."\n".substr($extinfo, $butw);
 	}
 	($xi, $yi) = ($x + ($c-1)*($dx+$fmw), $y + ($r-1)*($dy+$fmh));
-  	my $b = $fm2->Button(@buttonattr)->place(-x => $xi, -y => $yi);
+  	my $b = $fm2->Button(@buttonattr)->place(-x => $xi, '-y' => $yi);
 	if ($type eq 'f') {
 	    $b->configure(-text => "$category\n$extinfo",
 			  -command => sub {
@@ -614,7 +614,7 @@ sub subdirframe {
 	my $disa = $fm2->Button(@buttonattr,
 				-state => "disabled",
 				-text => "and $many\nmore...",
-				)->place(-x => $xi, -y => $yi);
+				)->place(-x => $xi, '-y' => $yi);
 	push(@subdirbtn, $disa);
 	
     }
@@ -654,7 +654,7 @@ sub viewConfig {
 					   -activebackground => $hlbg,
 					   -background => $bg);
     
-    $t->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+    $t->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
     $t->tagConfigure('comment', -foreground => 'gray70');
     open(C_FILE, "cpp -traditional $file|");
     while (<C_FILE>) {
@@ -688,13 +688,13 @@ sub viewConfig {
     $fm3->Label(-text => "$text1\n$text2",
 		@labelattr,
 		-width => ($len1 > $len2) ? $len1 : $len2,
- 		)->place(-x => 50*$coef*$coef*$coef, -y => 30*$coef);
+ 		)->place(-x => 50*$coef*$coef*$coef, '-y' => 30*$coef);
     $fm3->Button(@buttonattr,
 		 -text => "back",
 		 -command => sub {
 		     $fm3->destroy;
 		     $fm2->pack(@packinfo);
-		 })->place(-x => 70*$coef, -y => 680*$coef);
+		 })->place(-x => 70*$coef, '-y' => 680*$coef);
     
 
 } # end viewConfig
@@ -738,28 +738,28 @@ sub viewLog {
 		      -activeforeground => $fg);
     
     my $l = $fm3->Label(@labelattr,
-			)->place(-x => 50*$coef*$coef*$coef, -y => 30*$coef);
+			)->place(-x => 50*$coef*$coef*$coef, '-y' => 30*$coef);
     
     $fm3->Button(@buttonattr,
 		 -text => "back",
 		 -command => sub {
 		     $fm3->destroy;
 		     $fm2->pack(@packinfo);
-		 })->place(-x => 70*$coef, -y => 680*$coef);
+		 })->place(-x => 70*$coef, '-y' => 680*$coef);
     my $select_button =
 	$fm3->Button(@buttonattr,
 		     -text => "select...",
 		     -command => \&selectappname,
-		     )->place(-x => 400*$coef, -y => 680*$coef);
+		     )->place(-x => 400*$coef, '-y' => 680*$coef);
     my $prev_button =
 	$fm3->Button(@buttonattr,
 		     -text => "previous\nlog",
-		     )->place(-x => 600*$coef, -y => 680*$coef);
+		     )->place(-x => 600*$coef, '-y' => 680*$coef);
     my $next_button =
 	$fm3->Button(@buttonattr,
 		     -text => "next\nlog",
 		     -state => 'disabled',
-		     )->place(-x => 800*$coef, -y => 680*$coef);
+		     )->place(-x => 800*$coef, '-y' => 680*$coef);
     if (@logfiles <= 1) {
 	$prev_button->configure(-state => 'disabled');
 	$next_button->configure(-state => 'disabled');
@@ -887,7 +887,7 @@ sub readlog {
 					   -background => $bg);
     
     $tlog->tagConfigure('bold', -foreground => $hlbg);
-    $tlog->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+    $tlog->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
 
     $l->configure(-text => "loading...");
     $l->update;
@@ -947,7 +947,7 @@ sub readpartiallog {
 					   -background => $bg);
     
     $tlog2->tagConfigure('bold', -foreground => $hlbg);
-    $tlog2->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+    $tlog2->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
 
     $tlog2->configure(-state => 'normal');
     open(FILE, $currentlogfile) or warn "cannot read file '$currentlogfile'\n";