Megatest

Check-in [856838e0f0]
Login
Overview
Comment:fixed tree widget in runs summary tab for iup name->title property change
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 856838e0f017591c07fa91f41cdca3423710d1a1
User & Date: bjbarcla on 2018-01-30 18:07:51
Other Links: branch diff | manifest | tags
Context
2018-01-31
13:45
Added RFC M01: add ability to move run records to other areas. check-in: 794d62eebe user: mrwellan tags: v1.65
2018-01-30
18:07
fixed tree widget in runs summary tab for iup name->title property change check-in: 856838e0f0 user: bjbarcla tags: v1.65
15:08
Made wiki manual the default check-in: 6f2b3e137f user: mrwellan tags: v1.65
Changes

Modified dashboard.scm from [414a79db6e] to [fca0a7ecf2].

2085
2086
2087
2088
2089
2090
2091
2092

2093
2094
2095
2096
2097
2098
2099

;; This is the Run Summary tab
;; 
(define (dashboard:runs-summary commondat tabdat #!key (tab-num #f))
  (let* ((update-mutex (dboard:commondat-update-mutex commondat))
	 (tb      (iup:treebox
		   #:value 0
		   #:name "Runs"

		   #:expand "YES"
		   #:addexpanded "YES"
		   #:selection-cb
		   (lambda (obj id state)
		     (debug:catch-and-dump
		      (lambda ()
			;; (print "obj: " obj ", id: " id ", state: " state)







|
>







2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100

;; This is the Run Summary tab
;; 
(define (dashboard:runs-summary commondat tabdat #!key (tab-num #f))
  (let* ((update-mutex (dboard:commondat-update-mutex commondat))
	 (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"
		   #:selection-cb
		   (lambda (obj id state)
		     (debug:catch-and-dump
		      (lambda ()
			;; (print "obj: " obj ", id: " id ", state: " state)