@@ -111,11 +111,11 @@
 			 (lambda (testmeta)(db:testmeta-get-reviewed testmeta)))
 	    (store-meta "tags" 
 			 (iup:label (db:testmeta-get-tags testmeta) #:expand "HORIZONTAL")
 			 (lambda (testmeta)(db:testmeta-get-tags testmeta)))
 	    (store-meta "description" 
-			 (iup:label (db:testmeta-get-description testmeta) #:expand "HORIZONTAL")
+			 (iup:label (db:testmeta-get-description testmeta) #:size "x50"); #:expand "HORIZONTAL")
 			 (lambda (testmeta)(db:testmeta-get-description testmeta)))
 	    )))))
 
 
 ;;======================================================================
@@ -200,16 +200,16 @@
       (iup:hbox (iup:label "Comment:")
 		(iup:textbox #:action (lambda (val a b)
 					(db:test-set-state-status-by-id *db* test-id #f #f b)
 					(set! newcomment b))
 			     #:value (db:test-get-comment testdat)
-			     #:expand "YES"))
+			     #:expand "HORIZONTAL"))
       (apply iup:hbox
 	     (iup:label "STATE:" #:size "30x")
 	     (let* ((btns  (map (lambda (state)
 				  (let ((btn (iup:button state
-							 #:expand "YES" #:size "50x" #:font "Courier New, -10"
+							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (db:test-set-state-status-by-id *db* test-id state #f #f)
 								    (db:test-set-state! testdat state)))))
 				    btn))
 				(list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ"))))
@@ -225,11 +225,11 @@
 	       btns))
       (apply iup:hbox
 	     (iup:label "STATUS:" #:size "30x")
 	     (let* ((btns  (map (lambda (status)
 				  (let ((btn (iup:button status
-							 #:expand "YES" #:size "50x" #:font "Courier New, -10"
+							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (db:test-set-state-status-by-id *db* test-id #f status #f)
 								    (db:test-set-status! testdat status)))))
 				    btn))
 				(list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED"))))
@@ -325,11 +325,11 @@
 						    (iup:attribute-set! lbl "TITLE" newval)
 						    ;(mutex-unlock! mx1)
 						    )))))
 			 lbl))
 	 (store-button store-label)
-	 (command-text-box (iup:textbox #:expand "YES" #:font "Courier New, -10"))
+	 (command-text-box (iup:textbox #:expand "HORIZONTAL" #:font "Courier New, -10"))
 	 (command-launch-button (iup:button "Execute!" #:action (lambda (x)
 								  (let ((cmd (iup:attribute command-text-box "VALUE")))
 								    (system (conc cmd "  &"))))))
 	 (run-test  (lambda (x)
 		      (iup:attribute-set!