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

Optional args to 'loginForm'
Diffstat:
Mlib/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) )