picolisp

commit 6488b97701fc038319c08e6d3abb3748ce09b01c
parent b1aa07cfdec21bbffd78e412b0da77926110e01b
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  2 Jun 2013 11:01:39 +0200

<layout> min-width/height 100% for 0-argument
Diffstat:
M
app/gui.l
 | 
4
++--
M
lib/xhtml.l
 | 
14
+++++++-------

2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/app/gui.l b/app/gui.l
@@ -1,4 +1,4 @@
-# 31may13abu
+# 02jun13abu
 # (c) Software Lab. Alexander Burger
 
 ### GUI ###
@@ -6,7 +6,7 @@
    (action
       (html 0 Ttl *Css NIL
          (<layout>
-            ((180 NIL 'menu)
+            ((180 0 'menu)
                (<div> @
                   (expires)
                   (<menu>
diff --git a/lib/xhtml.l b/lib/xhtml.l
@@ -1,4 +1,4 @@
-# 07may13abu
+# 02jun13abu
 # (c) Software Lab. Alexander Burger
 
 # *JS "*JS" *Style *Menu *Tab *ID
@@ -345,12 +345,12 @@
                            "position:absolute"
                            (pack "top:" "Y" "px")
                            (pack "left:" "X" "px")
-                           (if "DX"
-                              (pack "width:" @ "px")
-                              "min-width:100%" )
-                           (if "DY"
-                              (pack "height:" @ "px")
-                              "min-height:100%" )
+                           (cond
+                              ((=0 "DX") "min-width:100%")
+                              ("DX" (pack "width:" @ "px")) )
+                           (cond
+                              ((=0 "DY") "min-height:100%")
+                              ("DY" (pack "height:" @ "px")) )
                            "Args" ) ) ) )
                (prog1 (if "Cls" (list "Cls" "Style") "Style")
                   (eval (cadr "L")) )