picolisp

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:
M
lib/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")) ) )