214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
;; R U N C O N T R O L
;;======================================================================
;; General displayer
;;
(define (dashboard:area-display data adat window-id)
(let* ((view-matrix (iup:matrix
#:expand "YES"
;; #:fittosize "YES"
#:scrollbar "YES"
#:numcol 100
#:numlin 100
#:numcol-visible 3
#:numlin-visible 3
|
>
|
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
;; R U N C O N T R O L
;;======================================================================
;; General displayer
;;
(define (dashboard:area-display data adat window-id)
(let* ((view-matrix (iup:matrix
;; (runs-for-targ (db:get-runs-by-patt *dbstruct-local* *keys* "%" target #f #f #f))
#:expand "YES"
;; #:fittosize "YES"
#:scrollbar "YES"
#:numcol 100
#:numlin 100
#:numcol-visible 3
#:numlin-visible 3
|
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
view-matrix)))))
;; Browse and control a single run
;;
(define (runcontrol window-id)
(iup:hbox))
;;======================================================================
;; A R E A S
;;======================================================================
(define (dashboard:init-area data area-name apath)
(let* ((mtconffile (conc area-name "/megatest.config"))
(mtconf (read-config mtconffile (make-hash-table) #f)) ;; megatest.config
|
>
>
>
>
|
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
|
view-matrix)))))
;; Browse and control a single run
;;
(define (runcontrol window-id)
(iup:hbox))
;; NB// Wierd conflict error here
;;
;; (let* ((runs-dat (db:get-runs-by-patt db *keys* "%" #f #f #f #f))
;;======================================================================
;; A R E A S
;;======================================================================
(define (dashboard:init-area data area-name apath)
(let* ((mtconffile (conc area-name "/megatest.config"))
(mtconf (read-config mtconffile (make-hash-table) #f)) ;; megatest.config
|