Re^2: Canvas group members syntax

Many thanks for that.
I have tried to use tags as you suggest by adding the same tag to a number of items
that I was going to use as a group.
I then set the following binds where $last_tag_global contained the tag I set on the items.

$wg{Layout_Canvas}->bind($last_tag_global, '<1>', sub {&mobileStart();
+});
$wg{Layout_Canvas}->bind($last_tag_global, '<B1-Motion>', sub {&mobile
+Move();});
$wg{Layout_Canvas}->bind($last_tag_global, '<ButtonRelease-1>', sub {&
+mobileStop();});
[download]

I then used the following subroutines (which I found on another Monks thread) to select the items that had the tag, ‘jump’
them onto the cursor and move them to the required position.

sub mobileStart {
      my $ev = $wg{Layout_Canvas}->XEvent;
      ($dx_cursor, $dy_cursor) = (0 - $ev->x, 0 - $ev->y);
      $wg{Layout_Canvas}->raise('current');
      print "START MOVE->  $dx_cursor  $dy_cursor\n";
}
sub mobileMove {
      my $ev = $wg{Layout_Canvas}->XEvent;
      $wg{Layout_Canvas}->move('current', $ev->x + $dx_cursor, $ev->y 
++$dy_cursor);
      ($dx_cursor, $dy_cursor) = (0 - $ev->x, 0 - $ev->y);
      print "MOVING->  $dx_cursor  $dy_cursor\n";
}
sub mobileStop{&mobileMove;}
[download]

This nearly worked except that it would only move one of the items at a time and only
when the cursor was exactly or nearly exactly over a section (for example a side of a rectangle drawn with canvasRectangle) of the item.
What do I have to do so that I can select all of the items that have a particular tag
(by placing the cursor somewhere in the 'middle' of the items that have the tag)
and move them together to where I want them to be?

Comment on Re^2: Canvas group members syntax Select or Download Code

Replies are listed 'Best First'.
Re^3: Canvas group members syntax by merrymonk (Hermit) on Jun 03, 2008 at 16:38 UTC
I think that I may have solved this problem. I replaced ‘current’ in the mobileStart and mobileMove subroutines with the name of the tag ($last_tag_global) attached to the items I wanted to move and all works as I want (so far!). (Also, I think that the subroutines I included in my last did come from the original 'replier').	[reply]
Re^3: Canvas group members syntax by zentara (Cardinal) on Jun 03, 2008 at 17:18 UTC
What do I have to do so that I can select all of the items that have a particular tag (by placing the cursor somewhere in the 'middle' of the items that have the tag) and move them together to where I want them to be? You can use the lasso which I showed earlier at Re: Canvas group members syntax or use the "find" method with the "closest" option to find the closest item to that mouse point. addtag also employs closest(where it is explained). You will find that it is an "art" to come up with a clever sub, to do what you want with tags. I often will suddenly realize a week later, that there is a more simple/clever way, than what I start out with. It usually involves using find( with some criteria), then looping thru all the items found, checking their tags, then adding or deleting tags to items, etc. For instance, you could have a bunch of colored geometric shapes( squares, circles,rects,etc), each colored differently. If they were tagged properly, you could click the mouse somewhere, find all 'red' ones within a certain distance, then filter out only the red circles.... then do something with them only. Be creative! Think ahead about systems where you dynamically add and remove tags constantly....you will have full control then. I'm not really a human, but I play one on earth CandyGram for Mongo	[reply]