Forcing a dragged object to not overtake the edges of a card

[Mag]

I'm traying to force a group that I drag to not overtake the edges of a card... to date my attempts were in vain, maybe I'm missing something.. I read some examples I found and some documentation (and this is the hardest part to admit) for move, moveMouse, intercept etc. but to date I haven't found a way to accomplish this task...

Code: Select all

local movingGroup, deltaX,deltaY

on mouseDown
   if there is a group xyz then
      put true into movingGroup
      
      put the mouseLoc into mLoc
      put the loc of group xyz into theGroupLoc
      put item 1 of mLoc - item 1 of theGroupLoc into deltaX
      put item 2 of mLoc - item 2 of theGroupLoc into deltaY
   end if
end mouseDown

on mouseMove
   if movingGroup is true then
      put item 1 of the mouseLoc - deltaX into a
      put item 2 of the mouseLoc - deltaY into b
      
      put a,b into c
      set the loc of group xyz to c
   end if 
end mouseMove

on mouseUp
   put false into movingGroup
end mouseUp

[dunbarx]

Ah.

A mind is a terrible thing.

You have it right, you just don't have it write. What is the variable "movegroup"? Perhaps it ought to be "movingGroup"?

Write back with your thoughts about making sure the group does not go over the edge.

Craig Newman

[Mag]

Ah.

A mind is a terrible thing.

You have it right, you just don't have it write. What is the variable "movegroup"? Perhaps it ought to be "movingGroup"?

Write back with your thoughts about making sure the group does not go over the edge.

Craig Newman

Oops, sorry, yes it was "movingGroup", now I fixed it in the post (that is not the original code but a simplified version I made for posting it here).

PS
The part that tries to force the moving of the group is not present because I haven't find anything that works

[dunbarx]

OK.

Here is a hint. Where might you put this line in your handler?


     

Code: Select all

 if the right of grp "xyz" > the width of this card then exit to top

And please start using quotes around all object references. ("xyz")

Craig

[Mag]

OK.

Here is a hint. Where might you put this line in your handler?


     

Code: Select all

 if the right of grp "xyz" > the width of this card then exit to top

And please start using quotes around all object references. ("xyz")

Craig

Thank you so much Craig, this is very useful as starting point.

PS
Thank you also for the advice, I will follow it.

[Mag]

I'm trying to develop your hint, this seems to work:

Code: Select all

local movingGroup, deltaX,deltaY

on mouseDown
   if there is a group "xyz" then
      put true into movingGroup
      
      put the mouseLoc into mLoc
      put the loc of group "xyz" into theGroupLoc
      put item 1 of mLoc - item 1 of theGroupLoc into deltaX
      put item 2 of mLoc - item 2 of theGroupLoc into deltaY
   end if
end mouseDown

on mouseMove
   if movingGroup is true then
      put item 1 of the mouseLoc - deltaX into a
      put item 2 of the mouseLoc - deltaY into b
      
    --------- code added ------------------------
    # Right boundary
    put the left of button "movingArea" + (the width of group "XYZ"/2) into theMax -- I use a button to see the boundaries
    if a < theMax then put theMax into a

    -- add code for left, top and bottom here
    ------------------------------------------------

      put a,b into c
      set the loc of group "xyz" to c
   end if 
end mouseMove

on mouseUp
   put false into movingGroup
end mouseUp

[dunbarx]

Looks like your handler will work. A good exercise would be to rewrite so you do not need that bounding button. Another exercise would be to think about this alone in the card script. (Sorry, Simon. But this guy is no newbie).

Code: Select all

on mouseMove
   if the mouse is down then set the loc of grp "xyz" to the mouseLoc
end mouseMove

You still need to deal with those boundaries, and they should be card window based. Unless you actually want a different boundary, of course.

Craig

[Simon]

Craig, You do a much better job than I do

Simon

[dunbarx]

Simon.

I could not disagree more.

Craig

[jacque]

You can also calculate the correct boundaries without using an "if" statement:

Code: Select all

set the left of grp "xyz" to max(0,the left of grp "xyz")
set the right of grp "xyz" to min(the width of this stack,the right of grp "xyz")

Do the same for top and bottom. If the boundaries aren't the stack edges, use the right and left of the bounding button instead. I agree it's best to avoid a bounding button entirely, but that does make things simpler in the the script. But if you want to avoid a button, use a scripted rectangle instead.

[Mag]

Thank you so much Jacqueline! I did not know this approach. Like it.