208
209
210
211
212
213
214
215
216
217
218
219
220
|
(iup:hbox
(iup:frame #:title "Runs browser")))
(define (main-panel)
(iup:dialog
#:title "Menu Test"
#:menu (main-menu)
(let ((tabtop (iup:tabs (mtest) (rconfig) (tests) (runs))))
(iup:attribute-set! tabtop "TABTITLE0" "Megatest")
(iup:attribute-set! tabtop "TABTITLE1" "Runconfigs")
(iup:attribute-set! tabtop "TABTITLE2" "Tests")
(iup:attribute-set! tabtop "TABTITLE3" "Runs")
tabtop)))
|
|
>
>
>
>
>
|
|
|
|
|
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
(iup:hbox
(iup:frame #:title "Runs browser")))
(define (main-panel)
(iup:dialog
#:title "Menu Test"
#:menu (main-menu)
(let ((tabtop (iup:tabs
(runs)
(mtest)
(rconfig)
(tests)
)))
(iup:attribute-set! tabtop "TABTITLE0" "Runs")
(iup:attribute-set! tabtop "TABTITLE3" "Tests")
(iup:attribute-set! tabtop "TABTITLE1" "megatest.config")
(iup:attribute-set! tabtop "TABTITLE2" "runconfigs.config")
tabtop)))
|