(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)
(<row> (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