picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 6bb3940b95075604f4566a0efd470462e65e974d
parent c9bc51631272c590d1faa19d49e1ac1690401ccb
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  5 Jan 2012 10:08:35 +0100

Further GUI abstractions
Diffstat:
Mapp/cusu.l | 64++++++++++++++++++++++++++++------------------------------------
Mapp/inventory.l | 4++--
Mapp/item.l | 63++++++++++++++++++++++++++++-----------------------------------
Mapp/ord.l | 95+++++++++++++++++++++++++++++++++++++------------------------------------------
Mapp/role.l | 45+++++++++++++++++++--------------------------
Mapp/sal.l | 21+++++++--------------
Mapp/sales.l | 4++--
Mapp/user.l | 51++++++++++++++++++++++-----------------------------
Mersatz/picolisp.jar | 0
Mlib/db.l | 12++++--------
Mlib/form.l | 48++++++++++++++++++++++++++++++++++++++----------
Msrc/vers.h | 2+-
Msrc64/version.l | 4++--
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