commit 6bb3940b95075604f4566a0efd470462e65e974d
parent c9bc51631272c590d1faa19d49e1ac1690401ccb
Author: Alexander Burger <abu@software-lab.de>
Date: Thu, 5 Jan 2012 10:08:35 +0100
Further GUI abstractions
Diffstat:
13 files changed, 197 insertions(+), 216 deletions(-)
diff --git a/app/cusu.l b/app/cusu.l
@@ -1,43 +1,35 @@
-# 26nov11abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Customer/Supplier" Customer)
(menu ,"Customer/Supplier"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"Customer/Supplier")
- (form 'dialog (choCuSu)) )
- (<h3> NIL ,"Customer/Supplier")
- (form NIL
- (<h2> NIL (<id> (: nr) " -- " (: nm)))
- (panel T (pack ,"Customer/Supplier" " @1") '(may Delete) '(choCuSu) 'nr '+CuSu)
- (<hr>)
- (<tab>
- (,"Name"
- (<grid> 3
- ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10)
- ,"Salutation"
- (gui '(+Choice) ,"Salutation"
- '(mapcar '((This) (cons (: nm) This)) (collect 'nm '+Sal)) )
- (gui '(+E/R +Obj +TextField) '(sal : home obj) '(nm +Sal) 20)
- ,"Name" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Name" 40)
- ,"Name 2" NIL (gui '(+E/R +TextField) '(nm2 : home obj) 40) ) )
- (,"Address"
- (<grid> 2
- ,"Street" (gui '(+E/R +TextField) '(str : home obj) 40)
- NIL NIL
- ,"Zip" (gui '(+E/R +TextField) '(plz : home obj) 10)
- ,"City" (gui '(+E/R +TextField) '(ort : home obj) 40) ) )
- (,"Contact"
- (<grid> 2
- ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
- ,"Fax" (gui '(+E/R +TelField) '(fax : home obj) 40)
- ,"Mobile" (gui '(+E/R +TelField) '(mob : home obj) 40)
- ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) ) )
- ((pack (and (: obj txt) "@ ") ,"Memo")
- (gui '(+BlobField) '(txt : home obj) 60 8) ) )
- (<hr>)
- (<spread> NIL (editButton T)) ) ) )
+ (idForm ,"Customer/Supplier" '(choCuSu) 'nr '+CuSu T '(may Delete)
+ '((: nr) " -- " (: nm))
+ (<hr>)
+ (<tab>
+ (,"Name"
+ (<grid> 3
+ ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10)
+ ,"Salutation" (choDlg 0 ,"Salutations" '(nm +Sal))
+ (gui '(+E/R +Obj +TextField) '(sal : home obj) '(nm +Sal) 20)
+ ,"Name" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Name" 40)
+ ,"Name 2" NIL (gui '(+E/R +TextField) '(nm2 : home obj) 40) ) )
+ (,"Address"
+ (<grid> 2
+ ,"Street" (gui '(+E/R +TextField) '(str : home obj) 40)
+ NIL NIL
+ ,"Zip" (gui '(+E/R +TextField) '(plz : home obj) 10)
+ ,"City" (gui '(+E/R +TextField) '(ort : home obj) 40) ) )
+ (,"Contact"
+ (<grid> 2
+ ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
+ ,"Fax" (gui '(+E/R +TelField) '(fax : home obj) 40)
+ ,"Mobile" (gui '(+E/R +TelField) '(mob : home obj) 40)
+ ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) ) )
+ ((pack (and (: obj txt) "@ ") ,"Memo")
+ (gui '(+BlobField) '(txt : home obj) 60 8) ) )
+ (<hr>)
+ (<spread> NIL (editButton T)) ) )
# vi:et:ts=3:sw=3
diff --git a/app/inventory.l b/app/inventory.l
@@ -1,4 +1,4 @@
-# 08mar10abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Inventory" Report)
@@ -13,7 +13,7 @@
(prin " - ")
(gui '(+Var +NumField) '*InvTill 10) )
,"Description" NIL (gui '(+Var +TextField) '*InvNm 30)
- ,"Supplier" (gui '(+ChoButton) '(choCuSu (field 1)))
+ ,"Supplier" (choCuSu 0)
(gui '(+Var +Obj +TextField) '*InvSup '(nm +CuSu) 30) )
(--)
(gui '(+ShowButton) NIL
diff --git a/app/item.l b/app/item.l
@@ -1,42 +1,35 @@
-# 09aug10abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Item" Item)
(menu ,"Item"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"Item")
- (form 'dialog (choItem)) )
- (<h3> NIL ,"Item")
- (form NIL
- (<h2> NIL (<id> (: nr) " -- " (: nm)))
- (panel T (pack ,"Item" " @1") '(may Delete) '(choItem) 'nr '+Item)
- (<grid> 4
- ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10) NIL
- ,"Description" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Item" 30) NIL
- ,"Supplier" (gui '(+ChoButton) '(choCuSu (field 1)))
- (gui '(+E/R +Obj +TextField) '(sup : home obj) '(nm +CuSu) 30)
- (gui '(+View +TextField) '(field -1 'obj 'ort) 30)
- ,"Inventory" NIL (gui '(+E/R +NumField) '(inv : home obj) 12)
- (gui '(+View +NumField) '(cnt> (: home obj)) 12)
- ,"Price" NIL (gui '(+E/R +FixField) '(pr : home obj) 2 12) )
- (--)
- (<grid> 2
- ,"Memo" (gui '(+BlobField) '(txt : home obj) 60 8)
- ,"Picture"
- (prog
- (gui '(+Able +UpField) '(not (: home obj jpg)) 30)
- (gui '(+Drop +Button) '(field -1)
- '(if (: home obj jpg) ,"Uninstall" ,"Install")
- '(cond
- ((: home obj jpg)
- (ask ,"Uninstall Picture?"
- (put!> (: home top 1 obj) 'jpg NIL) ) )
- ((: drop) (blob! (: home obj) 'jpg @)) ) ) ) )
- (<spread> NIL (editButton T))
- (gui '(+Img)
- '(and (: home obj jpg) (allow (blob (: home obj) 'jpg)))
- ,"Picture") ) ) )
+ (idForm ,"Item" '(choItem) 'nr '+Item T '(may Delete) '((: nr) " -- " (: nm))
+ (<grid> 4
+ ,"Number" NIL (gui '(+E/R +NumField) '(nr : home obj) 10) NIL
+ ,"Description" NIL (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Item" 30) NIL
+ ,"Supplier" (choCuSu 0)
+ (gui '(+E/R +Obj +TextField) '(sup : home obj) '(nm +CuSu) 30)
+ (gui '(+View +TextField) '(field -1 'obj 'ort) 30)
+ ,"Inventory" NIL (gui '(+E/R +NumField) '(inv : home obj) 12)
+ (gui '(+View +NumField) '(cnt> (: home obj)) 12)
+ ,"Price" NIL (gui '(+E/R +FixField) '(pr : home obj) 2 12) )
+ (--)
+ (<grid> 2
+ ,"Memo" (gui '(+BlobField) '(txt : home obj) 60 8)
+ ,"Picture"
+ (prog
+ (gui '(+Able +UpField) '(not (: home obj jpg)) 30)
+ (gui '(+Drop +Button) '(field -1)
+ '(if (: home obj jpg) ,"Uninstall" ,"Install")
+ '(cond
+ ((: home obj jpg)
+ (ask ,"Uninstall Picture?"
+ (put!> (: home top 1 obj) 'jpg NIL) ) )
+ ((: drop) (blob! (: home obj) 'jpg @)) ) ) ) )
+ (<spread> NIL (editButton T))
+ (gui '(+Img)
+ '(and (: home obj jpg) (allow (blob (: home obj) 'jpg)))
+ ,"Picture") ) )
# vi:et:ts=3:sw=3
diff --git a/app/ord.l b/app/ord.l
@@ -1,58 +1,51 @@
-# 03sep09abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Order" Order)
(menu ,"Order"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"Order")
- (form 'dialog (choOrd)) )
- (<h3> NIL ,"Order")
- (form NIL
- (<h2> NIL (<id> (: nr)))
- (panel T (pack ,"Order" " @1") '(may Delete) '(choOrd) 'nr '+Ord)
- (<grid> 4
- ,"Date" NIL
- (gui '(+E/R +DateField) '(dat : home obj) 10)
- (gui '(+View +TextField)
- '(text ,"(@1 Positions)" (length (: home obj pos))) )
- ,"Customer" (gui '(+ChoButton) '(choCuSu (field 1)))
- (gui '(+E/R +Obj +TextField) '(cus : home obj) '(nm +CuSu) 30)
- (gui '(+View +TextField) '(field -1 'obj 'ort) 30) )
- (--)
- (gui '(+Set +E/R +Chart) '((L) (filter bool L)) '(pos : home obj) 8
- '((Pos I)
- (with Pos
- (list I NIL (: itm) (or (: pr) (: itm pr)) (: cnt) (sum> Pos)) ) )
- '((L D)
- (cond
- (D
- (put!> D 'itm (caddr L))
- (put!> D 'pr (cadddr L))
- (put!> D 'cnt (; L 5))
- (and (; D itm) D) )
- ((caddr L)
- (new! '(+Pos) 'itm (caddr L)) ) ) ) )
- (<table> NIL NIL
- '((align) (btn) (NIL ,"Item") (NIL ,"Price") (NIL ,"Quantity") (NIL ,"Total"))
- (do 8
- (<row> NIL
- (gui 1 '(+NumField))
- (gui 2 '(+ChoButton) '(choItem (field 1)))
- (gui 3 '(+Obj +TextField) '(nm +Item) 30)
- (gui 4 '(+FixField) 2 12)
- (gui 5 '(+NumField) 8)
- (gui 6 '(+Sgn +Lock +FixField) 2 12)
- (gui 7 '(+DelRowButton))
- (gui 8 '(+BubbleButton)) ) )
- (<row> NIL NIL NIL (scroll 8 T) NIL NIL
- (gui '(+Sgn +View +FixField) '(sum> (: home obj)) 2 12) ) )
- (<spread>
- (gui '(+Rid +Button) ,"PDF-Print"
- '(if (check> (: home obj))
- (note ,"Can't print order" (uniq @))
- (psOut 0 ,"Order" (ps> (: home obj))) ) )
- (editButton T) ) ) ) )
+ (idForm ,"Order" '(choOrd) 'nr '+Ord T '(may Delete) '((: nr))
+ (<grid> 4
+ ,"Date" NIL
+ (gui '(+E/R +DateField) '(dat : home obj) 10)
+ (gui '(+View +TextField)
+ '(text ,"(@1 Positions)" (length (: home obj pos))) )
+ ,"Customer" (choCuSu 0)
+ (gui '(+E/R +Obj +TextField) '(cus : home obj) '(nm +CuSu) 30)
+ (gui '(+View +TextField) '(field -1 'obj 'ort) 30) )
+ (--)
+ (gui '(+Set +E/R +Chart) '((L) (filter bool L)) '(pos : home obj) 8
+ '((Pos I)
+ (with Pos
+ (list I NIL (: itm) (or (: pr) (: itm pr)) (: cnt) (sum> Pos)) ) )
+ '((L D)
+ (cond
+ (D
+ (put!> D 'itm (caddr L))
+ (put!> D 'pr (cadddr L))
+ (put!> D 'cnt (; L 5))
+ (and (; D itm) D) )
+ ((caddr L)
+ (new! '(+Pos) 'itm (caddr L)) ) ) ) )
+ (<table> NIL NIL
+ '((align) (btn) (NIL ,"Item") (NIL ,"Price") (NIL ,"Quantity") (NIL ,"Total"))
+ (do 8
+ (<row> NIL
+ (gui 1 '(+NumField))
+ (choItem 2)
+ (gui 3 '(+Obj +TextField) '(nm +Item) 30)
+ (gui 4 '(+FixField) 2 12)
+ (gui 5 '(+NumField) 8)
+ (gui 6 '(+Sgn +Lock +FixField) 2 12)
+ (gui 7 '(+DelRowButton))
+ (gui 8 '(+BubbleButton)) ) )
+ (<row> NIL NIL NIL (scroll 8 T) NIL NIL
+ (gui '(+Sgn +View +FixField) '(sum> (: home obj)) 2 12) ) )
+ (<spread>
+ (gui '(+Rid +Button) ,"PDF-Print"
+ '(if (check> (: home obj))
+ (note ,"Can't print order" (uniq @))
+ (psOut 0 ,"Order" (ps> (: home obj))) ) )
+ (editButton T) ) ) )
# vi:et:ts=3:sw=3
diff --git a/app/role.l b/app/role.l
@@ -1,33 +1,26 @@
-# 22apr10abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Role Administration" RoleAdmin)
(menu ,"Role Administration"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"Role")
- (form 'dialog (choDlg NIL ,"Roles" '(nm +Role))) )
- (<h3> NIL ,"Role Administration")
- (form NIL
- (<h2> NIL (<id> (: nm)))
- (panel T (pack ,"Role" " '@1'") '(may Delete) '(choDlg NIL ,"Roles" '(nm +Role)) 'nm '+Role)
- (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
- (<table> NIL NIL NIL
- (gui '(+E/R +Fmt +Chart)
- '(perm : home obj)
- '((Val) (mapcar '((S) (list S (memq S Val))) *Perms))
- '((Lst) (extract '((L P) (and (cadr L) P)) Lst *Perms))
- 2 )
- (do (length *Perms)
- (<row> NIL
- (gui 1 '(+Set +TextField) '((Sym) (val (val Sym))))
- (gui 2 '(+Checkbox)) ) ) )
- (gui '(+/R +Chart) '(usr : home obj) 1 list)
- (<table> 'chart ,"User" NIL
- (do 8
- (<row> (alternating)
- (gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
- (<spread> (scroll 8 T) (editButton T)) ) ) )
+ (idForm ,"Role" ,"Roles" 'nm '+Role T '(may Delete) '((: nm))
+ (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
+ (<table> NIL NIL NIL
+ (gui '(+E/R +Fmt +Chart)
+ '(perm : home obj)
+ '((Val) (mapcar '((S) (list S (memq S Val))) *Perms))
+ '((Lst) (extract '((L P) (and (cadr L) P)) Lst *Perms))
+ 2 )
+ (do (length *Perms)
+ (<row> NIL
+ (gui 1 '(+Set +TextField) '((Sym) (val (val Sym))))
+ (gui 2 '(+Checkbox)) ) ) )
+ (gui '(+/R +Chart) '(usr : home obj) 1 list)
+ (<table> 'chart ,"User" NIL
+ (do 8
+ (<row> (alternating)
+ (gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
+ (<spread> (scroll 8 T) (editButton T)) ) )
# vi:et:ts=3:sw=3
diff --git a/app/sal.l b/app/sal.l
@@ -1,21 +1,14 @@
-# 03jan09abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Salutation" Customer)
(menu ,"Salutation"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"Salutation")
- (form 'dialog (choDlg NIL ,"Salutations" '(nm +Sal))) )
- (<h3> NIL ,"Salutation")
- (form NIL
- (<h2> NIL (<id> (: nm)))
- (panel T (pack ,"Salutation" " '@1'") '(may Delete) '(choDlg NIL ,"Salutations" '(nm +Sal)) 'nm '+Sal)
- (<grid> 2
- ,"Salutation" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Salutation" 40)
- ,"Greeting" (gui '(+E/R +TextField) '(hi : home obj) 40)
- ,"Sex" (gui '(+E/R +SexField) '(sex : home obj)) )
- (<spread> NIL (editButton T)) ) ) )
+ (idForm ,"Salutation" ,"Salutations" 'nm '+Sal T '(may Delete) '((: nm))
+ (<grid> 2
+ ,"Salutation" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Salutation" 40)
+ ,"Greeting" (gui '(+E/R +TextField) '(hi : home obj) 40)
+ ,"Sex" (gui '(+E/R +SexField) '(sex : home obj)) )
+ (<spread> NIL (editButton T)) ) )
# vi:et:ts=3:sw=3
diff --git a/app/sales.l b/app/sales.l
@@ -1,4 +1,4 @@
-# 08mar10abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "Sales" Report)
@@ -12,7 +12,7 @@
(gui '(+Var +DateField) '*SalFrom 10)
(prin " - ")
(gui '(+Var +DateField) '*SalTill 10) )
- ,"Customer" (gui '(+ChoButton) '(choCuSu (field 1)))
+ ,"Customer" (choCuSu 0)
(gui '(+Var +Obj +TextField) '*SalCus '(nm +CuSu) 30) )
(--)
(gui '(+ShowButton) NIL
diff --git a/app/user.l b/app/user.l
@@ -1,36 +1,29 @@
-# 03jan09abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
(must "User Administration" UserAdmin)
(menu ,"User Administration"
- (ifn *ID
- (prog
- (<h3> NIL ,"Select" " " ,"User")
- (form 'dialog (choDlg NIL ,"Users" '(nm +User))) )
- (<h3> NIL ,"User Administration")
- (form NIL
- (<h2> NIL (<id> (: nm)))
- (panel T (pack ,"User" " '@1'") '(may Delete) '(choDlg NIL ,"Users" '(nm +User)) 'nm '+User)
- (<grid> 2
- ,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
- ,"Password"
- (gui '(+Tip +Able +E/R +Fmt +TextField)
- '(and (may Password) (val> This))
- '(may Password)
- '(pw : home obj)
- '((V) (and V "****"))
- '((V) (if (= V "****") (: home obj pw) V))
- 30 )
- ,"Role"
- (gui '(+Able +E/R +Obj +TextField)
- '(may RoleAdmin)
- '(role : home obj)
- '(nm +Role)
- T )
- ,"Full Name" (gui '(+E/R +TextField) '(nam : home obj) 40)
- ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
- ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) )
- (<spread> NIL (editButton T)) ) ) )
+ (idForm ,"User" ,"Users" 'nm '+User T '(may Delete) '((: nm))
+ (<grid> 2
+ ,"Login Name" (gui '(+E/R +Cue +TextField) '(nm : home obj) ,"User" 30)
+ ,"Password"
+ (gui '(+Tip +Able +E/R +Fmt +TextField)
+ '(and (may Password) (val> This))
+ '(may Password)
+ '(pw : home obj)
+ '((V) (and V "****"))
+ '((V) (if (= V "****") (: home obj pw) V))
+ 30 )
+ ,"Role"
+ (gui '(+Able +E/R +Obj +TextField)
+ '(may RoleAdmin)
+ '(role : home obj)
+ '(nm +Role)
+ T )
+ ,"Full Name" (gui '(+E/R +TextField) '(nam : home obj) 40)
+ ,"Phone" (gui '(+E/R +TelField) '(tel : home obj) 40)
+ ,"EMail" (gui '(+E/R +MailField) '(em : home obj) 40) )
+ (<spread> NIL (editButton T)) ) )
# vi:et:ts=3:sw=3
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 12dec11abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
# *Dbs *Jnl *Blob upd
@@ -294,13 +294,8 @@
,"Symbolic type expected" ) )
-# (+String) [num]
+# (+String)
(class +String +Symbol)
-# len
-
-(dm T (Var Lst)
- (=: len (car Lst))
- (super Var (cdr Lst)) )
(dm mis> (Val Obj)
(and Val (not (str? Val)) ,"String type expected") )
@@ -837,7 +832,8 @@
(de blob! (Obj Var File)
(put!> Obj Var File)
- (blob+ Obj Var) )
+ (blob+ Obj Var)
+ File )
(de blob+ (Obj Var)
(when *Jnl
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 02jan12abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
# *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -346,11 +346,20 @@
(noButton) ) )
(de diaform (Lst . Prg)
- (if (and *PRG (not (: diaform)))
- (_dlg 'dialog (env Lst))
- (=: env (env Lst))
- (=: diaform T)
- (run Prg 1) ) )
+ (cond
+ ((num? (caar Lst)) # Dst
+ (gui (gt0 (caar Lst)) '(+ChoButton)
+ (cons 'diaform
+ (list 'cons
+ (list 'cons (lit (car Lst)) '(field 1))
+ (lit (env (cdr Lst))) )
+ Prg ) ) )
+ ((and *PRG (not (: diaform)))
+ (_dlg 'dialog (env Lst)) )
+ (T
+ (=: env (env Lst))
+ (=: diaform T)
+ (run Prg 1) ) ) )
(de saveButton (Exe)
(gui '(+Button) ,"Save" Exe) )
@@ -902,7 +911,6 @@
"i" *Form '- (: id)
"\\\").focus()\",420)" ) ) )
-
### Styles ###
(class +Style)
# style
@@ -937,7 +945,6 @@
(dm js> ()
(pack (extra) "&#" (and (lt0 (val> This)) "red")) )
-
### Form field classes ###
(de showFld "Prg"
(when (: lbl)
@@ -1592,7 +1599,6 @@
(dm set> (Val Dn)
(=: str Val) )
-
### GUI charts ###
(class +Chart)
# home gui rows cols ofs lock put get data clip
@@ -1718,7 +1724,6 @@
(dm T (N)
(super N list car) )
-
### DB GUI ###
(de newUrl @
(prog1 (pass new!)
@@ -2162,6 +2167,9 @@
# Form object
(de <id> "Lst"
+ (idObj "Lst") )
+
+(de idObj ("Lst")
(with (if *PRG (: obj) (=: obj *ID))
(and (: T) (prin "["))
(for "X" (if (=T (car "Lst")) (cdr "Lst") "Lst")
@@ -2188,6 +2196,26 @@
(stepBtn Var Cls Hook Msg) )
(--) )
+# Standard ID form
+(de idForm ("Entity" "Cho" "Var" "Cls" "Able" "Del" "Lst" . "Prg")
+ (ifn *ID
+ (prog
+ (<h3> NIL ,"Select" " " "Entity")
+ (form 'dialog
+ (if (pair "Cho")
+ (eval @)
+ (choDlg NIL "Cho" (list "Var" "Cls")) ) ) )
+ (<h3> NIL "Entity")
+ (form NIL
+ (<h2> NIL (idObj "Lst"))
+ (panel "Able" (pack "Entity" " '@1'") "Del"
+ (or
+ (pair "Cho")
+ (list 'choDlg NIL (lit "Cho") (lit (list "Var" "Cls"))) )
+ "Var" "Cls" )
+ (run "Prg") ) ) )
+
+### Debug ###
`*Dbg
(noLint 'gui)
(noLint 'choDlg 'gui)
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,9,1};
+static byte Version[4] = {3,0,9,2};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 30dec11abu
+# 05jan12abu
# (c) Software Lab. Alexander Burger
-(de *Version 3 0 9 1)
+(de *Version 3 0 9 2)
# vi:et:ts=3:sw=3
