[REBOL] Re: Find objects/functions and linking some faces
From: greggirwin:mindspring at: 23-May-2004 12:14
Hi Philippe,
llff> 1/ how is it possible to get a brief listing of objects and functions including
llff> in a script ? Parsing, testing word? or another "not documented" method ?
Something like this?
mark-my-words: context [
init: does [query/clear system/words]
dump: does [
print ['Word tab 'Type tab 'Value]
foreach word query system/words [
print [word tab type? get word tab mold get word]
]
]
]
mark-my-words/init
o: make object! [a: b: c: none]
my-int: 23
I-have-issues: #this-is-my-biggest-issue
fn: does [print "some fun now!"]
mark-my-words/dump
llff> 2/ I have a layout with a box 1 and a box 2 (same drag'n dropable style).
llff> I want to draw a line (length = offset box1 - offset box2) beetwen my faces.
llff> And after I would drag and drop any box, and see the other follow the first one
llff> (like with hard link).
I don't know of any examples for this, but I did something similar for
a project some time back. Here are a few things that might be useful,
but I can't say for sure:
distance: func [a [pair!] b [pair!] /local tmp] [
tmp: a - b
square-root add (power first tmp 2) (power second tmp 2)
]
all-corners: func [
"Returns all corners of the rectangle given the upper-left and lower-right corners."
ul [pair!] "The upper-left corner of the rectangle"
lr [pair!] "The bottom-right corner of the rectangle"
/local result
] [
result: make block! 4
repend result [
ul
to-pair compose [(first ul) (second lr)] ;ur
to-pair compose [(first lr) (second ul)] ;ll
lr
]
return result
]
nearest-point: func [
"Returns the point nearest the specified point."
pt [pair!] "The reference point"
points [any-block!] "The points you want to check"
/local result [pair!] ref-dist [decimal!]
] [
result: first points
ref-dist: distance pt first points
foreach p next points [
if (distance pt p) < ref-dist [
ref-dist: distance pt p
result: p
]
]
return result
]
nearest-corner: func [
"Returns the corner of the retangle nearest the specified point."
pt[pair!] "The reference point"
ul[pair!] "The upper-left corner of the rectangle"
lr[pair!] "The bottom-right corner of the rectangle"
] [
nearest-point pt all-corners ul lr
]
To move things, you basically need to see if the action in feel/engage
is 'over or 'away, then just adjust things accordingly. In your case
that will mean keeping lists of linked faces of course.
-- Gregg
