("Hate to keep replying to my own questions!" he grumbled to
himself...)
I suppose another approach is to build the user interface spec
explicitly, prior to invoking 'layout
8<--------------------
test1: make object! [
firstNames: ["John" "Jane" "Bob"]
lastNames: ["Smith" "Doe" "Doaks"]
uiSpec: [
across
vh2 "Names:"
return
firstName: choice _FIRSTNAMES [sayName]
lastName: choice _LASTNAMES [sayName]
return
fullName: info " " 200
return
button "Close" [unview]
]
replace/case uiSpec '_FIRSTNAMES firstNames
replace/case uiSpec '_LASTNAMES lastNames
ui: layout uiSpec
sayName: function [] [theName] [
fullName/text: theName: join firstName/text [" "
lastName/text]
print mold theName
show fullName
]
run: function [][][
sayName
view center-face ui
]
]
test1/run
8<--------------------
Any suggestions for a tidier approach?
-jn-
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
