|
How do I set the size of a text box? Here's
my code that I'm experimenting with. The problem is that the size of the
text box is much larger than that of the input box.
declare
[QTk]={Module.link ["x-oz://system/wp/QTk.ozf"]} D HI W N HO S D=td(title:"Factorial" lr(label(text:"Enter an integer") entry(handle:HI glue:w) button(text:"Ok" glue:w action:proc {$} N={HI get($)} in {HO set(N)} end ) newline label(text:"You entered" glue:n) text( handle:HO) ) ) W={QTk.build D} {W show} Thank you for your help with this Alan
|
_________________________________________________________________________________ mozart-users mailing list [email protected] http://www.mozart-oz.org/mailman/listinfo/mozart-users
