327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
|
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
|
-
-
+
+
|
(iup:hbox
(iup:frame
#:title "Test Steps"
(let ((stepsdat ;;(iup:label "Test steps ........................................."
;; #:expand "YES"
;; #:size "200x150"
;; #:alignment "ALEFT:ATOP")))
(iup:textbox #:action (lambda (obj char val)
#f)
(iup:textbox ;; #:action (lambda (obj char val)
;; #f)
#:expand "YES"
#:multiline "YES"
#:font "Courier New, -10"
#:size "100x150")))
(hash-table-set! widgets "Test Steps"
(lambda (testdat)
(let* ((currval (iup:attribute stepsdat "VALUE")) ;; "TITLE"))
|
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
|
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
|
-
-
+
+
|
(if (not (equal? currval newval))
(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
stepsdat))
;; populate the Test Data panel
(iup:frame
#:title "Test Data"
(let ((test-data
(iup:textbox #:action (lambda (obj char val)
#f)
(iup:textbox ;; #:action (lambda (obj char val)
;; #f)
#:expand "YES"
#:multiline "YES"
#:font "Courier New, -10"
#:size "100x150")))
(hash-table-set! widgets "Test Data"
(lambda (testdat) ;;
(let* ((currval (iup:attribute test-data "VALUE")) ;; "TITLE"))
|