Drag & drop controls inside a scroller
Paul Hibbert
lc at pbh.on-rev.com
Fri Oct 19 01:39:00 EDT 2012
Hi Josep,
I deleted all lines with any reference to "status" and it still works for me, I can send you the sample stack if you wish, which version of LC do you use?
Paul
On 2012-10-18, at 3:22 PM, Josep M Yepes wrote:
> 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
>
> _______________________________________________
> use-livecode mailing list
> use-livecode at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode
More information about the use-livecode
mailing list