@@ -348,16 +348,21 @@
 			   (iup:button "Start Xterm" #:action xterm   #:size "120x")
 			   (iup:button "Close"       #:action (lambda (x)(exit)) #:size "120x")))
 	       (set-fields-panel test-id testdat)
 	       (iup:frame 
 		#:title "Test Steps"
-		(let ((stepsdat (iup:label "Test steps ........................................." 
-					   #:expand "YES" 
-					   #:size "200x150"
-					   #:alignment "ALEFT:ATOP")))
+		(let ((stepsdat ;;(iup:label "Test steps ........................................." 
+				;;	   #:expand "YES" 
+				;;	   #:size "200x150"
+				;;	   #:alignment "ALEFT:ATOP")))
+		       (iup:textbox #:action (lambda (obj char val)
+					       #f)
+				    #:expand "YES"
+				    #:multiline "YES"
+				    #:font "Courier New, -10")))
 		  (hash-table-set! widgets "Test Steps" (lambda (testdat)
-							  (let* ((currval (iup:attribute stepsdat "TITLE"))
+							  (let* ((currval (iup:attribute stepsdat "VALUE")) ;; "TITLE"))
 								 (fmtstr  "~25a~10a~10a~15a~20a")
 								 (comprsteps (db:get-steps-table db test-id))
 								 (newval  (string-intersperse 
 									   (append
 									    (list 
@@ -378,11 +383,11 @@
 											 (if (and (number? a)(number? b))
 											     (< (vector-ref a 1)(vector-ref b 1))
 											     #t)))))
 									   "\n")))
 							    (if (not (equal? currval newval))
-								(iup:attribute-set! stepsdat "TITLE" newval)))))
+								(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
 		  stepsdat)))))
       (iup:show self)
       (iup:callback-set! *tim* "ACTION_CB"
 			 (lambda (x)
 			   ;; Now start keeping the gui updated from the db