Megatest

Check-in [ba67d062ae]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: ba67d062aed155feb5898ba14710bb9373576d44
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [1c3c13f3a7] to [2b4e0020f3].

︙
1431
1432
1433
1434
1435
1436
1437
1438

1439
1440
1441
1442
1443
1444
1445

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
           #:name "Runs"
           #: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
74




75
76
77
78
79
80
81

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))
          (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))
︙

This page was generated in about 0.133s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00