[REBOL] Re: Inform broken? work-around
From: felixs::ihug::com::au at: 14-Apr-2002 17:17
I wanted the original window to remain open, so I 'locked' the first window
with 'to-image. Here's the code for the list archive.
Felix
REBOL [
test-dlg: make object! [
go: does [ inform lay ]
lay: layout [ vh4 "hello" button "OK" [hide-popup] ]
]
lock-layout: func [ lay [object!] /local temp-lay temp-img buf-img][
temp-lay: layout [at 0x0 temp-img: image ]
buf-img: to-image lay
temp-img/image: buf-img
temp-lay/size: lay/size
temp-img/size: lay/size
temp-lay/offset: lay/offset
view temp-lay
]
main-lay: layout [
across
check radio radio field
return
button "show dialog" [ dlg: make test-dlg [] dlg/go ]
button "hide first" [
lock-layout main-lay
dlg: make test-dlg [] dlg/go
view main-lay
]
button "quit" [ unview ]
]
view main-lay
]