21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(iup:label val ; #:expand "HORIZONTAL"
))
(list "Testname: "
"Item path: "
"Current state: "
"Current status: "
"Test comment: "
"Test id: "))
(list (iup:label "" #:expand "VERTICAL"))))
(apply iup:vbox ; #:expand "YES"
(list
(store-label "testname"
(iup:label (db:test-get-testname testdat) #:expand "HORIZONTAL")
(lambda (testdat)(db:test-get-testname testdat)))
(store-label "item-path"
|
|
>
>
>
>
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(iup:label val ; #:expand "HORIZONTAL"
))
(list "Testname: "
"Item path: "
"Current state: "
"Current status: "
"Test comment: "
"Test id: "
"Value: "
"Expected value: "
"Tolerance: "
"Units: "))
(list (iup:label "" #:expand "VERTICAL"))))
(apply iup:vbox ; #:expand "YES"
(list
(store-label "testname"
(iup:label (db:test-get-testname testdat) #:expand "HORIZONTAL")
(lambda (testdat)(db:test-get-testname testdat)))
(store-label "item-path"
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-comment testdat)))
(store-label "testid"
(iup:label "TestId "
#:expand "HORIZONTAL")
(lambda (testdat)
(db:test-get-id testdat))))))))
;;======================================================================
;; Test meta panel
;;======================================================================
(define (test-meta-panel testmeta store-meta)
(iup:frame
#:title "Test Meta Data" ; #:expand "YES"
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
59
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
94
|
#:expand "HORIZONTAL")
(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
#:title "Test Meta Data" ; #:expand "YES"
|