Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: More REBOL IOS questions.

From: ammon:rcslv at: 12-May-2002 13:54

Hi, Welcome to the IOS fold we will try to show you around a bit and perhaps you will find it enjoyable enough to stay! REBOL does support drag and drop, but you will find that the controls are very different than those in other languages. Here is a quick and simple example 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 ] It should be fairly simple to determine if you are dragging on top of another item (hint: check the offset and the size) As Gregg mentioned I don't know about the WM_DropFiles, but hey who knows what is possible. HTH Ammon A short time ago, Ed Dana, sent an email stating: