aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/path_tags.pl35
1 files changed, 18 insertions, 17 deletions
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);
}
}
}