Mailing List Archive: Re: Drag and Drop Object

[REBOL] Re: Drag and Drop Object

From: ljurado:bariloche:ar at: 3-Apr-2002 0:43


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
]