Drag & drop controls inside a scroller

Paul Hibbert lc at pbh.on-rev.com
Fri Oct 19 00:39:00 CDT 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