[REBOL] draggable fields?
From: greggirwin::starband::net at: 14-Sep-2001 10:45
I'm playing with an example from the how-to on handling user interface
events, and I have a question. If I wanted to implement a draggable field
(i.e. a field which can be moved around), how would I make use of the
edit-text routine that is, seemingly, used by the field natively?
To handle the dragging part of the process, I can scavenge from their
example code. Not a problem. Now, the key events still come in, as I can
print them, but all the normal edit functionality is bypassed and I can't
seem to find the edit-text function anywhere (and nothing happens if I call
it). Do I have to implement my own edit-text function to use?
view layout [
style dragfield area 200x40 font-size 11 feel [
engage: func [face action event] [
if action = 'down [
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
if action = 'up [
if action = 'key [
;[edit-text face event get in face 'action]
dragfield "Field 1"
dragfield "Field 2"
dragfield "Field 3"
dragfield "Field 4"
Thanks for any tips!