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 d7a4d7b331f1735bbac9cabd5a136041a898f35d
parent e1c6498c479559ebf59674c899ac921eba3c87fd
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  1 Apr 2012 13:42:03 +0200

Minor: 'focus' is obsolete (from old Java GUI)
Diffstat:
Mlib/app.l | 3+--
1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/app.l b/lib/app.l @@ -1,4 +1,4 @@ -# 06apr10abu +# 01apr12abu # (c) Software Lab. Alexander Burger # Exit on error @@ -7,7 +7,6 @@ (show This) (for "X" '(*Gate *Agent *Host *Port *PRG *Url *SesId *ConId *Tab *Gui *Btn *Get *ID) (println "X" (val "X")) ) - (and (get *Top 'focus) (println 'focus (get @ 'ix))) (for "X" (env) (unless (== (car "X") (cdr "X")) (println (car "X") (cdr "X")) ) )