[ALLY] Re: About Rebol/View/Desktop
From: arolls:bigpond:au at: 4-May-2001 15:14
Here is a starting point.
Can anyone get to this code in a system object browser?
>> source desktop
desktop: func [][
if block? ctx-viewtop [ctx-viewtop: context ctx-viewtop]
ctx-viewtop/init-desktop
do-events
]
>> type? ctx-viewtop
== object!
>> probe first ctx-viewtop
== [self dtw-skin reb-folder reb-icon suffix-map dtw-open this-path
folder-stack
index-cache image-cache icon-space dtf-slide-max h... ...init-desktop]
>> probe get in ctx-viewtop 'init-desktop
func [][
dbug ["Desktop boot" now]
windowize-dtw
resize-dtw
reskin-dtw dtw-skin
view/new/options/title dtw-face [resize] "Desktop"
etc...
]
Anton.
