Drag & drop controls inside a scroller

[Josep M Yepes]

Hi Paul,

I follow your steps but the I can't drag more far away of 5 pixels... :(
If you prefer delete the lines that put into fld "status" and you can see that the button can't be dragged and I don't know why...

Any idea why?

Salut,
Josep M

El 18/10/2012, a las 19:00, use-livecode-request at lists.runrev.com escribió:

> Subject: Re: Drag & drop controls inside a scroller
> Message-ID: <C0A8C5A4-8D03-477C-8337-216D218852D9 at pbh.on-rev.com>
> Content-Type: text/plain; charset=us-ascii
> 
> Hi Josep,
> 
> Your code stops at line 11 where the word status has wrapped to a new line and so has dropped out of the comment, also at line 13.
> 
> It gives this error in the 'Errors" pane of the Script Editor:
> 	button "Button": execution error at line 11 (Handler: can't find handler) near "status", char 1
> 
> This is because LC now thinks "status" is a handler, but that handler isn't defined.
> 
> Move the word "status" back to the commented line, do the same with line 13 and the code works fine.
> 
> Note, you should also enclose the field name in quotes.
> 
> Paul
> 
> New code:
> 
>   local allowDrag
>   on mouseDown
>     put (the mouseH - left of me),(the mouseV - top of me) into allowDrag
>   end mouseDown
> 
>   on mouseMove x,y
>        if allowDrag = "" then exit mouseMove
>    set topLeft of me to \
>                  (x - item 1 of allowDrag) & "," & (y - item 2 of allowDrag)
>   # if within(grc box1,loc of me) then put "You hit box 1" into fld "status"
>   # if within(grc box2,loc of me) then put "You hit box 2" into fld "status"
>        put "" into fld "status"
>        if intersect(me,grc box1) then put "You hit box 1" into fld "status"
>        if intersect(me,grc box2) then put "You hit box 2" into fld "status"
>   end mouseMove
> 
>   on mouseUp
>     put empty into fld "status"
>     put "" into allowDrag
>   end mouseUp
> 
>   on mouseRelease
>     mouseUp
>   end mouseRelease