[ALLY] Strange reaction in Rebol/View 1 for Linux
From: etienne::alaurent::free::fr at: 18-Feb-2001 4:53
Hi,
I found a strange reaction in Rebol/View 1 for Linux :
The goal of the next script is to change the text of a text widget.
-------------------------------------------------
REBOL []
interrogation: func [titre [string!] txt-interro [string!] /local pass-l ok][
if none? :pass-l [
pass-l: layout[
origin 10x10
backdrop effect [gradient -1x-1 50.80.120 70.130.180]
across
title red :titre bold return
text 240 :txt-interro bold yellow return
button "YES" [hide-popup]
button "NO" [ok: no hide-popup]
]
]
ok: yes
inform pass-l
return ok
]
panneau2: func [][
out: layout [
origin 10x10
backdrop effect [gradient -1x-1 50.80.120 70.130.180]
across
t: text 100x25 "Example" return
button "test" [
either interrogation "The test" "Do you want test it ?" [
t/text: copy "Test ok"
][
t/text: copy "Test not ok"
]
show t
]
]
inform out
]
panneau: layout [
origin 10x10
backdrop effect [gradient -1x-1 50.80.120 70.130.180]
button "Go" [panneau2]
button "Quit" [quit]
]
view panneau
-------------------------------------------------
In the previous version of Rebol/View (beta), it's seems to be ok.
But in the new version (Rebol/View 1), I can't change the text.
Why ?
Cheers
Etienne
