52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
(apply
iup:vbox
(map (lambda (var)
(iup:hbox (iup:label var #:size "60x15")
(iup:textbox #:expand "HORIZONTAL"
#:action (lambda (obj a val)
(hash-table-set! var-params var val)))))
(list "runname" "testpatts" "itempatts" "params")))))
(controls (iup:frame
#:title "Controls"
(iup:hbox
(iup:frame
#:title "Runs"
(iup:hbox
(iup:button "Start"
|
|
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
(apply
iup:vbox
(map (lambda (var)
(iup:hbox (iup:label var #:size "60x15")
(iup:textbox #:expand "HORIZONTAL"
#:action (lambda (obj a val)
(hash-table-set! var-params var val)))))
(list "runname" "testpatts" "params")))))
(controls (iup:frame
#:title "Controls"
(iup:hbox
(iup:frame
#:title "Runs"
(iup:hbox
(iup:button "Start"
|