[REBOL] Re: More REBOL IOS questions.
From: edanaii:cox at: 13-May-2002 18:41
Very nice, I tried it and it works well.
The drag & drop, I was referring to however was in regards to
interfacing with Windows, or any other OS. Since we deal with a large
amount of small files, it would be good to be able to publish multiple
files in a single pass.
Ammon Johnson wrote:
> 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
>
--
Sincerely, | Cold Hearted Orb, that rules the night. Removes
Ed Dana | the colours from our sight! Red is gray and
Software Developer | yellow white! But we decide which is right...
1Ghz Athlon Amiga | And which is an illusion!
| -- The Moody Blues, Late Lament.