Questions and answers about the LiveCode platform.
https://forums.livecode.com/
Code: Select all
on mouseDown
export snapshot from rect (the rect of me) of this cd to img "dragimage"
set the dragdata["text"] to the name of me
set the dragimage to 1013
end mouseDown
on dragenter
if dragdata["text"] <> the name of me then
set the dragaction to "copy"
set the blendLevel of me to 0
set the showName of me to true
end if
end dragenter
on dragLeave
set the blendLevel of me to 50
set the showName of me to false
end dragLeave
on dragdrop
put ("Control:" & CR & the dragdata["text"] & CR & "was dropped onto:" & CR & the name of me) into fld "where"
end dragdrop
Well, I wanted to leave a tiny bit of work up to you!richmond62 wrote: Sat Mar 02, 2024 5:47 pm Indeed that works.
The disadvantage with your stack is that the end-user gets visual feedback when s/he performs a drag, but the "drag image" does not remain on the target.
Meant to answer a lot sooner but work/real life getting in the way.Zax wrote: Sat Mar 02, 2024 1:40 pm Sorry if I wasn't not accurate. I would like the visual effect to be shown before the mouse is released, in order to show that the dragged element can be dropped onto the target (here, the pale blue circle).
This could be done with a loop during grab but I'm afraid it would make the movement jerky - I currently have 96 possible targets on a card.
The OP has enough work right now
... trying to build a MacOS apps and files launcher! I'll show the result, if it not too crapy.Actually you wouldn’t believe how simple it is…Zax wrote: Sun Mar 03, 2024 1:37 pm @ stam: a publish/subscribe model could be interesting, but at this time it seems too complex for me as I don't know enough about this kind of stuff.
Code: Select all
on mouseDown
export snapshot from me to img "dragimage" as png
set the dragdata["text"] to the name of me
put item 1 of the mouseLoc - the left of me into tHoriz
put item 2 of the mouseLoc - the top of me into tVert
set the dragImageOffset to tHoriz, tVert
set the dragimage to 1013
end mouseDown
As it's actually quite simple, I've tidied it up and attach a short publish/subscribe library along with an example stack that shows how this can be used. This doesn't attempt to do the clever drag/drop actions others mention above, just to hilite good or bad destinations for dragging.Zax wrote: Sun Mar 03, 2024 1:37 pm @ stam: a publish/subscribe model could be interesting, but at this time it seems too complex for me as I don't know enough about this kind of stuff.
Code: Select all
local sEventsA
command subscribe pEvent, pCallback, pTarget
if pTarget is empty then put the long id of the target into pTarget
put empty into sEventsA[pEvent][pTarget][pCallback]
end subscribe
command broadcast pEvent, pData
repeat for each key tTarget in sEventsA[pEvent]
repeat for each key tCallback in sEventsA[pEvent][tTarget]
dispatch tCallback to tTarget with pData
end repeat
end repeat
end broadcast
command unsubscribe pEvent, pCallback, pTarget
if pCallback is empty then
delete variable sEventsA[pEvent][pTarget]
else
repeat for each key tCallback in sEventsA[pEvent][pTarget]
if tCallback is pCallback then delete variable sEventsA[pEvent][pTarget][tCallback]
end repeat
end if
end unsubscribe
command removeAllSubscriptions
put empty into sEventsA
end removeAllSubscriptions
on libraryStack
insert the script of me into back
end libraryStack