60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(lambda (testdat)
(db:test-get-comment testdat)))
(store-label "testid"
(iup:label "TestId "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-id testdat)))
(store-label "testvalue"
(iup:label "TestValue "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-value testdat)))
(store-label "testexpectedvalue"
(iup:label "TestExpectedValue "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-expected_value testdat)))
(store-label "testtol"
(iup:label "TestTol "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-tol testdat)))
(store-label "testunits"
(iup:label "TestUnits "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-units testdat)))
)))))
;;======================================================================
;; Test meta panel
;;======================================================================
(define (test-meta-panel testmeta store-meta)
(iup:frame
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(lambda (testdat)
(db:test-get-comment testdat)))
(store-label "testid"
(iup:label "TestId "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-id testdat)))
;; (store-label "testvalue"
;; (iup:label "TestValue "
;; #:expand "HORIZONTAL")
;; (lambda (testdat)
;; (db:test-get-value testdat)))
;; (store-label "testexpectedvalue"
;; (iup:label "TestExpectedValue "
;; #:expand "HORIZONTAL")
;; (lambda (testdat)
;; (db:test-get-expected_value testdat)))
;; (store-label "testtol"
;; (iup:label "TestTol "
;; #:expand "HORIZONTAL")
;; (lambda (testdat)
;; (db:test-get-tol testdat)))
;; (store-label "testunits"
;; (iup:label "TestUnits "
;; #:expand "HORIZONTAL")
;; (lambda (testdat)
;; (db:test-get-units testdat)))
)))))
;;======================================================================
;; Test meta panel
;;======================================================================
(define (test-meta-panel testmeta store-meta)
(iup:frame
|