Really cool Allen. Thanks. I am learning a bit more now.
Paul Tretter
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 06, 2000 7:35 PM
To: [EMAIL PROTECTED]
Subject: [REBOL] System object Re:
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 07, 2000 7:57 AM
Subject: [REBOL] System object
> Where can we learn more about system and the options available?
>
> Paul
>
>
Hi Paul,
The script http://www.rebol.org/script/browse-system.r will help you see
what is in there. Many of the settings in the system object have an
equivalent mezzanine function for retrieving or setting their data.
e.g try
source what-dir
source set-net
source set-user-name
Also this modified version of 'what might be handy too.
what-object: func [
"Print a list of functions (with params) from within an object"
object [object!]
/local vals args here total
][
total: copy []
vals: second object
foreach word first object [
if any-function? first vals [
args: first first vals
if here: find args /local [args: copy/part args here]
append total reduce [word mold args]
]
vals: next vals
]
foreach [word args] sort/skip total 2 [print [word args]]
exit
]
;----------------------
; e.g usage
>> what-object system/view/vid/vid-feel
add-char [face char]
back-field [face]
beg-of-line [str]
copy-selected-text [face]
copy-text [face]
delete-selected-text []
drag-off [bar drag val]
edit-text [face event action]
end-of-line [str]
focus [face]
next-field [face]
unlight-text []
Cheers,
Allen K
