@@ -187,11 +187,11 @@
 			     #:expand "YES"))
       (apply iup:hbox
 	     (iup:label "STATE:" #:size "30x")
 	     (let* ((btns  (map (lambda (state)
 				  (let ((btn (iup:button state
-							 #:expand "YES" #:size "70x"
+							 #:expand "YES" #: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"))))
@@ -207,11 +207,11 @@
 	       btns))
       (apply iup:hbox
 	     (iup:label "STATUS:" #:size "30x")
 	     (let* ((btns  (map (lambda (status)
 				  (let ((btn (iup:button status
-							 #:expand "YES" #:size "70x"
+							 #:expand "YES" #: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"))))
@@ -346,15 +346,15 @@
 	       (host-info-panel testdat store-label)
 	       ;; The controls
 	       (iup:frame #:title "Actions" 
 			  (iup:vbox
 			   (iup:hbox 
-			    (iup:button "View Log"    #:action viewlog     #:size "120x")
-			    (iup:button "Start Xterm" #:action xterm       #:size "120x")
-			    (iup:button "Run Test"    #:action run-test    #:size "120x")
-			    (iup:button "Clean Test"  #:action remove-test #:size "120x")
-			    (iup:button "Close"       #:action (lambda (x)(exit)) #:size "120x"))
+			    (iup:button "View Log"    #:action viewlog     #:size "80x")
+			    (iup:button "Start Xterm" #:action xterm       #:size "80x")
+			    (iup:button "Run Test"    #:action run-test    #:size "80x")
+			    (iup:button "Clean Test"  #:action remove-test #:size "80x")
+			    (iup:button "Close"       #:action (lambda (x)(exit)) #:size "80x"))
 			   (apply 
 			    iup:hbox
 			    (list command-text-box command-launch-button))))
 	       (set-fields-panel test-id testdat)
 	       (iup:hbox
@@ -367,11 +367,11 @@
 			(iup:textbox ;; #:action (lambda (obj char val)
 				     ;;    	#f)
 				     #:expand "YES"
 				     #:multiline "YES"
 				     #:font "Courier New, -10"
-				     #:size "100x150")))
+				     #:size "60x100")))
 		   (hash-table-set! widgets "Test Steps" 
 				    (lambda (testdat)
 				      (let* ((currval (iup:attribute stepsdat "VALUE")) ;; "TITLE"))
 					     (fmtstr  "~20a~10a~10a~12a~15a")
 					     (comprsteps (db:get-steps-table db test-id))
@@ -408,11 +408,11 @@
 			(iup:textbox  ;; #:action (lambda (obj char val)
 				      ;;   	#f)
 				      #:expand "YES"
 				      #:multiline "YES"
 				      #:font "Courier New, -10"
-				      #:size "100x150")))
+				      #:size "100x100")))
 		   (hash-table-set! widgets "Test Data"
 				    (lambda (testdat) ;; 
 				      (let* ((currval (iup:attribute test-data "VALUE")) ;; "TITLE"))
 					     (fmtstr  "~10a~10a~10a~10a~7a~7a~6a~a") ;; category,variable,value,expected,tol,units,comment
 					     (newval  (string-intersperse