See also +Set, +Fmt, Formatting.
(gui '(+Val +NumField) '((N) (* N N)) 10)
This example links a text field to the variable *PrsJob. See also +E/R.
"Occupation" (gui 'job '(+Var +TextField) '*PrsJob 20)
+Lock, view is a prefix class that disables a GUI component. However,
+Viewcan take a functional argument:
This example is a snippet from the demo app included with the PicoLisp distribution, in ord.l. The code produces a disabled text field that displays the total order sum of the current order object. See also +Lock, +Upd, +Init.
(gui '(+Sgn +View +FixField) '(sum> (: home obj)) 2 12) ) )