[REBOL] Re: VID questions
From: agem:crosswinds at: 25-May-2001 22:37
[REBOL [title: "calculating size with meta-programming"]
sz: none
;---texts only
texts: [
style tx text sz right black white
tx "hello world"
tx "here we are"
tx "here is a pretty long text"
tx "and all is right-aligned :)"
mem-watch: tx green black rate 1 feel [
engage: func [face a e] [
face/text: reform [system/stats / 1024 "KB"] show face
]
]
]
;---max size in pane
calc-texts: replace/all copy texts [sz] []
txlay: layout calc-texts
sz: 0x0
foreach p txlay/pane [
sz: max sz p/size
]
;---
view layout compose [
backdrop [quit]
(texts)
]
>>>>>>>>>>>>>>>>>> Ursprüngliche Nachricht <<<<<<<<<<<<<<<<<<
Am 25.05.01, 14:51:41, schrieb "Allen Kamp" <[allenk--powerup--com--au]> zum
Thema [REBOL] Re: VID questions: