picolisp

commit a8d83f4fa8e13e42524eb87cd4c7c315503ed118
parent e9dfb6e0d1e5f5bdd277d485e9c41d2de388266a
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 21 Feb 2013 07:59:27 +0100

Optional args to 'loginForm'
Diffstat:
M
lib/adm.l
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/adm.l b/lib/adm.l
@@ -1,4 +1,4 @@
-# 20feb13abu
+# 21feb13abu
 # (c) Software Lab. Alexander Burger
 
 # *Salt *Login *Users *Perms
@@ -99,8 +99,9 @@
       (forbidden) ) )
 
 ### GUI ###
-(de loginForm ()
+(de loginForm "Opt"
    (form NIL
+      (htPrin "Opt")
       (<grid> 2
          ,"Name" (gui 'nm '(+Focus +Able +TextField) '(not *Login) 20)
          ,"Password" (gui 'pw '(+Able +PwField) '(not *Login) 20) )