Overview
| Comment: | fixed treebox; iup 3.19 changed the API, adapted to it. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6506 |
| Files: | files | file ages | folders |
| SHA1: |
ba67d062aed155feb5898ba14710bb93 |
| User & Date: | bjbarcla on 2018-01-03 16:07:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-01-15
| ||
| 22:22 | Fixed couple regressions related to mtutil running on fossil triggers check-in: bfb563fbe2 user: matt tags: v1.65 | |
|
2018-01-05
| ||
| 13:42 | fixed weird dashboard problem with nanomsg being missing and LD_LIBRARY_PATH being blanked out Leaf check-in: 0b61bcfc94 user: bjbarcla tags: v1.65-dboard-nanomsg | |
|
2018-01-03
| ||
| 16:07 | fixed treebox; iup 3.19 changed the API, adapted to it. check-in: ba67d062ae user: bjbarcla tags: v1.65, v1.6506 | |
|
2018-01-02
| ||
| 16:05 | bumped version check-in: 9372868385 user: bjbarcla tags: v1.65 | |
Changes
Modified dashboard.scm from [1c3c13f3a7] to [2b4e0020f3].
| ︙ | ︙ | |||
1431 1432 1433 1434 1435 1436 1437 |
(dboard:tabdat-test-patts-use tabdat))
#:expand "HORIZONTAL"
;; #:size "10x30"
))
(tb
(iup:treebox
#:value 0
| | | 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 |
(dboard:tabdat-test-patts-use tabdat))
#:expand "HORIZONTAL"
;; #:size "10x30"
))
(tb
(iup:treebox
#:value 0
#:title "Runs" ;; was #:name -- iup 3.19 changed this... "Changed: [DEPRECATED REMOVED] removed the old attribute NAMEid from IupTree to avoid conflict with the common attribute NAME. Use the TITLEid attribute."
#:expand "YES"
#:addexpanded "YES"
#:size "10x"
#:selection-cb
(lambda (obj id state)
(debug:catch-and-dump
(lambda ()
|
| ︙ | ︙ |
Modified tree.scm from [2368d8ef7e] to [36d6c6bf99].
| ︙ | ︙ | |||
67 68 69 70 71 72 73 |
;; top is the top node name zeroeth node VALUE=0
(define (tree:add-node obj top nodelst #!key (userdata #f))
(let ((curr-top (iup:attribute obj "TITLE0")))
(if (or (not (string? curr-top))
(string-null? curr-top)
(string-match "^\\s*$" curr-top))
| | > > > | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
;; top is the top node name zeroeth node VALUE=0
(define (tree:add-node obj top nodelst #!key (userdata #f))
(let ((curr-top (iup:attribute obj "TITLE0")))
(if (or (not (string? curr-top))
(string-null? curr-top)
(string-match "^\\s*$" curr-top))
(iup:attribute-set! obj "ADDBRANCH0" top))
(cond
((not (equal? top (iup:attribute obj "TITLE0")))
(print "ERROR: top name " top " doesn't match " (iup:attribute obj "TITLE0")))
((null? nodelst))
(else
(let loop ((hed (car nodelst))
(tal (cdr nodelst))
|
| ︙ | ︙ |