[REBOL] Re: Preserve spaces in filenames
From: Paavo:Nevalainen:saunalahti:fi at: 16-Feb-2006 17:56
I have two questions:
1) How archives work on this list? I found archived messages from 2004 only.
2) How to draw a line between two movable faces. I need it to implement
a simple graph editing functionality. A modified example from the RT docs:
print "Drag these faces"
make-face: function [
txt [string!]
pos [pair!]
][
t
][
return make object! [
parents: make block! []
children: make block! []
fc: make face [
offset: pos
size: do [layout compose [t: text (txt)] 10x10 + size-text t]
text: txt
color: yellow
feel: make feel [
engage: func [face action event] [
if action = 'down [data: event/offset]
if find [over away] action [
offset: offset + event/offset - data
show face
]
if action = 'alt-down [print "Hey, stop that!"]
]
]
]
]
]
face1: make-face "I wanna stay connected!" 23x45
face2: make-face "Me too, pal, me too!" 58x90
append face2/parents face1
append face1/children face2
view make face [
offset: 100x100
size: 300x300
color: navy
edge: none
pane: reduce [
face1/fc face2/fc
]
]
I know how to draw lines using Draw dialect. Should I have it all
Draw based then, and
draw the whole thing every time a box moves? (I don't actually
understand how to do that).
Or is there a neat way, where i can somehow make a "line object"
dependable of one or
two other objects? How to draw a subpane face, which is a line (and
the rest of it transparent
in this case). It is easy thing for me to make a line dependent of
both ends if somebody tells
me how to draw a line as a "face" in this framework. (I am not very
familiar with the visual side of Rebol...)
Paavo
