510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
|
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
|
-
-
+
+
|
(updater)
(set! dashboard:update-summary-tab updater)
(iup:attribute-set! stats-matrix "WIDTHDEF" "40")
(iup:vbox
;; (iup:label "Run statistics" #:expand "HORIZONTAL")
stats-matrix)))
(define (dcommon:servers-table)
(let* ((tdbdat (tasks:open-db))
(define (dcommon:servers-table area-dat)
(let* ((tdbdat (tasks:open-db area-dat))
(colnum 0)
(rownum 0)
(servers-matrix (iup:matrix #:expand "YES"
#:numcol 7
#:numcol-visible 7
#:numlin-visible 5
))
|