Hello!
( I want to request his aid again )
My first question was of distribution strategies, I'm thankful to all that helped me. Parallelly to that, I'm working in a small interface, as it bases takes figure 10.3 of "Concepts, Technique, and Models of Computer Programming" (Peter Van Roy and Seif Haridi).
My program shows a interface that takes one number entered in the textbox and it shows it, but soon when I want to enter another number and to show it I can't.
How I can make to solve this? (without having to execute the program
again)
How I can make to solve this? (without having to execute the program
again)
Attached the program (Basic!!!!)
declare [QTk]={Module.link["x-oz://system/wp/QTk.ozf"]}
declare A C D W H T E
declare A C D W H T E
proc {Numero A}
%{E set(A)}
{Browse {String.toInt A}}
%{ExploreAll {Queens {String.toInt A}}}
%{Browse A}
end
%{E set(A)}
{Browse {String.toInt A}}
%{ExploreAll {Queens {String.toInt A}}}
%{Browse A}
end
D=lr(lr(label(text: 'Numero') entry(handle:H))
button(text:"Show" action:proc {$}T={H get($)} end glue:we)
button(text:"Others" glue:we)
button(text:"Others" glue:we)
empty button(text:"Exit" action: toplevel#close glue:we)continue)
W={QTk.build D}
{W show}
{Numero T}
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
_________________________________________________________________________________ mozart-users mailing list [email protected] http://www.mozart-oz.org/mailman/listinfo/mozart-users
