[REBOL] Re: current face?
From: gchiu:compkarori at: 7-May-2001 7:44
On Sun, 6 May 2001 10:05:00 -0700
"Carl Sassenrath" <[carl--rebol--com]> wrote:
> view layout [
> button "Some text" [ print face/text ]
> ]
Doesn't work for me in this example
Rebol []
; modified from easyVid
show-example: func [ currentface ] [
xy: 10x20
print join "face text is: " face/text
if value? 'xview [xy: xview/offset unview/only xview]
xcode: load/all currentface/text
if not block? xcode [xcode: reduce [xcode]] ;!!! fix
load/all
; check to see if xcode includes the 'layout word. If it
does,
; then move past it
if here: select xcode 'layout [xcode: here]
if error? try [ xview: view/new/offset layout xcode xy ] [
alert "Unable to view this code" ]
]
view center-face layout [
backdrop white
ex1: text as-is {
button "this works"
} [ show-example ex1 ]
]
--
Graham Chiu
