Hi, Philippe
>From rebsite: rebol.com/Sites/Volker/dragdrop/howto-Demo.r , and another
examples.
Luis.
REBOL [title: "dragdrop basics from howto"]
view layout [ size 240x240
style dragbox box 40x40 font-size 11 feel [
engage: func [face action event] [
if action = 'down [
face/data: event/offset
remove find face/parent-face/pane face
append face/parent-face/pane face
]
if find [over away] action [
face/offset: face/offset + event/offset - face/data
]
show face
] ]
dragbox "Box 1" navy
dragbox "Box 2" teal
dragbox "Box 3" maroon
dragbox "Box 4" gold
]
> Hi !
>
> Is there anyone who developed a drag and drop object or just methods to do
> it ?
>
> I saw that it was already done when the FTPGadget.exe was released 2
months
> ago but its objects are not available.
>
> Philippe
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
