If you're still about Zentara, I have the below rectange's size variable, working to create a rectangle:
$o1 = 0;
$d1 = -60;
$o2 = 250;
$d2 = -58;
$size = [[$o1, $d1], [$o2, $d2]];
$menubox = $zinc->add('rectangle',$menugroup,
# -size =>
$size, # [[0, -60], [250, -58] ] #le
+ft/right down/up left/right down/up
-filled => 1,
-fillcolor => $gradset{'roundrect4ed'},
-linewidth => 0,
# -linecolor => '#000000',
-priority => 1,
-tags => ['menu'],
# -visible => 1,
);
### I am using this next bit to slide it open and am also trying to en
+large the rectangle at the same time
sub Slide_open{
$zinc->itemconfigure($menubox, -visible=> 1);
# $zinc->itemconfigure($ejecttext, -visible=> 0); #
# $zinc->itemconfigure($menuitems1, -visible=> 1); #
#$zinc->itemconfigure($textoptions3, -visible=> 1); #
my $count = 0;
my $repeater;
$repeater = $mw->repeat(25, sub{
$zinc->translate($menugroup, 0 , -3 ); # move
$count++;
if($count >= 37){ $repeater->cancel }
} );
$zinc->bind($ejecttext, '<Enter>', \&Slide_close); # for same thing to
+ be used to close the above.
# here is where I'm trying to resize the rectange, but as you may see,
+ I'm stuck...
$d2 = $d2+3;
$size = [[$o1, $d1], [$o2, $d2]]; #
$zinc->itemconfigure($menubox, -\$size => $size); # what do I switc
+h "-\$size" with/for
#$mw->update;
}
I normally "$zinc->itemconfigure($menubox, -visible => 1);" as it were, using a "-visible => somthing(0 or 1)", but $size has no "-visible" as it were, before it? If you get what I mean.
I'll say that again another way. How do I itemconfigure $menubox's $size, when it doesn't have a -visible, -linecolor, -filled or something, in front of it .
|