(action Prg)
(app) # Start session
(action # Action handler
(html 0 "Form" "@lib.css" NIL # HTTP/HTML protocol
(form NIL # Form
(gui 'a '(+TextField) 10) # Text Field
(gui '(+Button) "Print" # Button
'(msg (val> (: home a))) ) ) ) )
See also Action Forms.
(alert Env . Prg)
+Align
(alternating)
alternating
can be used to give table rows alternating colors.
(<table> 'chart (choTtl ,"Items" 'nr '+Item)
(quote
(btn)
(align "#")
(NIL ,"Description")
(NIL ,"Supplier")
(NIL ,"City")
(align ,"Price") )
(do (cho)
( (alternating)
(gui 1 '(+DstButton) Dst)
(gui 2 '(+NumField))
(gui 3 '(+ObjView +TextField) '(: nm))
(gui 4 '(+ObjView +TextField) '(: nm))
(gui 5 '(+TextField))
(gui 6 '(+FixField) 2) ) ) )
The code above comes from the demo app included in the PicoLisp distribution, in gui.l. It produces a table with rows of alternating colors.
(ask Str . Prg)
+Able
(gui '(+Able +TextField) '(may Order) 30)
In the example above, the text field is enabled for users with "Order" permissions.
+Auto
(gui '(+Click +Auto +Button) 420 'This 1000 "+" '(inc '*Number))
+Auto can be used to create simple animations or status updates:
(app)
(action
(html 0 "Auto" "@lib.css" NIL
(form NIL
(gui '(+JS +Button) "Wait" '(wait 6000))
(----)
(gui '(+Click +Auto +Button) 2000 'This 2000 '(pop *Throbber)) ) ) )
See also +Click, +Button.
+AtomField
+AO
Exe
argument which is used to determine whether the
current object is editable or not. It also makes sure that the current form has an object and the this object is not in "deleted" state before evaluating the expression argument.
See also +Able