From 8d860738ed02b429e41740ceb1e46974ebb1e1e8 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 14 Oct 2003 09:01:52 +0000
Subject: correcting priority of text and groups so that all rectangles and
 texts are now visible (needed since TkZinc 3.2.9x changes default priorities)
 - enhancing color usage to give a better feedback when the user selects a
 pathtag

---
 Perl/demos/Tk/demos/zinc_lib/path_tags.pl | 35 ++++++++++++++++---------------
 1 file changed, 18 insertions(+), 17 deletions(-)

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
index 5ce1746..30272d8 100644
--- a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
@@ -37,7 +37,8 @@ use strict;
 #the same objects are cloned and put in an other hierarchy where
 #gr_top is replaced by gr_other_top
 
-my $defaultForecolor = "sienna";
+my $defaultForecolor = "grey80";
+my $selectedColor = "yellow";
 my $mw = MainWindow->new();
 
 ###########################################
@@ -60,7 +61,7 @@ or experiment your own tags in the input field');
 ###########################################
 
 my $zinc = $mw->Zinc(-width => 850, -height => 360, -font => "10x20",
-		     -borderwidth => 0, -backcolor => "white",
+		     -borderwidth => 0, -backcolor => "black",
 		     -forecolor => $defaultForecolor,
 		     )->pack;
 
@@ -88,10 +89,9 @@ $resultfm->Label(-font => "10x20",
 my $explan_txt = $resultfm->Label(-font => "10x20",
 				  -relief => 'flat',
 				  -width => 70,
-				  -height => 3,
+				  -height => 3.5,
 				  -text => '...',
 				  -justify => 'left',
-#				  -anchor => 'w',
 				  -wraplength => '16c',
 				  )->pack(-side => 'left');
 
@@ -235,6 +235,11 @@ sub createSubHierarchy {
 	       -position => [360,220]);
 }
 
+## modifying the priority so that all rectangles and text will be visible
+map { $_, $zinc->itemconfigure($_,-priority => 20)} ($zinc->find('withtype', 'text', ".top*"));
+map { $_, $zinc->itemconfigure($_,-priority => 20)} ($zinc->find('withtype', 'text', ".other_top*"));
+map { $_, $zinc->itemconfigure($_,-priority => 20)} ($zinc->find('withtype', 'group', ".top*"));
+map { $_, $zinc->itemconfigure($_,-priority => 20)} ($zinc->find('withtype', 'group', ".other_top*"));
 
 # converts a list of items ids in a list of sorted tags (the first tag of each item)
 sub items2tags {
@@ -253,7 +258,7 @@ sub items2tags {
 ###    a text item for the group name (i.e. its first tag)
 
 ## backgrounds used to fill rectangles representing groups
-my @backgrounds = qw(grey90 grey82 grey75 grey68 grey60 grey52 grey45);
+my @backgrounds = qw(grey25 grey35 grey43 grey50 grey55);
 
 sub drawHierarchy {
     my ($group,$level) = @_;
@@ -305,10 +310,6 @@ sub displayPathtag {
 #    print "selected: @tags\n";
     $explan_txt->configure(-text => $explanation ? "$explanation\n" : "");
 	
-#    print "selected= ";
-#    foreach (@selected) { print $_, " ", $zinc->type($_), " ",
-#			  join (",",$zinc->gettags($_)), " / ";}
-#    print "\n";
     ## unselecting all items 
     foreach my $item ($zinc->find('withtype', 'text')) {
 	$zinc->itemconfigure($item, -color => $defaultForecolor);
@@ -322,9 +323,9 @@ sub displayPathtag {
 	my $type = $zinc->type($item);
 #	print $item, " ", $zinc->type($item), " ", join (",",$zinc->gettags($item)), "\n";
 	if ($type eq 'text') {
-	    $zinc->itemconfigure($item, -color => "black");
+	    $zinc->itemconfigure($item, -color => $selectedColor);
 	} elsif ($type eq 'rectangle') {
-	    $zinc->itemconfigure($item, -linecolor => "black");
+	    $zinc->itemconfigure($item, -linecolor => $selectedColor);
 	} elsif ($type eq 'group') {
 	    my $tag = ($zinc->gettags($item))[0];
 	    ## as there is 2 // hierachy, we must refine the tag used
@@ -332,14 +333,14 @@ sub displayPathtag {
 	    ## NB: this is due to differences between the group hierarchy
 	    ##     and the graphical object hierarchy used for this demo
 	    if ($zinc->find('ancestors',$item,'top')) {
-		$zinc->itemconfigure(".top*frame_$tag", -linecolor => "black");
-		$zinc->itemconfigure(".top*title_$tag", -color => "black");
+		$zinc->itemconfigure(".top*frame_$tag", -linecolor => $selectedColor);
+		$zinc->itemconfigure(".top*title_$tag", -color => $selectedColor);
 	    } elsif ($zinc->find('ancestors',$item,'other_top')) {
-		$zinc->itemconfigure(".other_top*frame_$tag", -linecolor => "black");
-		$zinc->itemconfigure(".other_top*title_$tag", -color => "black");
+		$zinc->itemconfigure(".other_top*frame_$tag", -linecolor => $selectedColor);
+		$zinc->itemconfigure(".other_top*title_$tag", -color => $selectedColor);
 	    } else {
-		$zinc->itemconfigure("frame_$tag", -linecolor => "black");
-		$zinc->itemconfigure("title_$tag", -color => "black");
+		$zinc->itemconfigure("frame_$tag", -linecolor => $selectedColor);
+		$zinc->itemconfigure("title_$tag", -color => $selectedColor);
 	    }
 	}
     }
-- 
cgit v1.1