Megatest

Check-in [a5a3a85430]
Login
Overview
Comment:block updaters on switching tabs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: a5a3a85430534fb2ee6444fc973b3b5a62ad332c
User & Date: mrwellan on 2016-08-01 18:05:33
Other Links: branch diff | manifest | tags
Context
2016-08-01
22:50
Fixed scaling bug check-in: 30789f6be7 user: matt tags: v1.61
18:05
block updaters on switching tabs check-in: a5a3a85430 user: mrwellan tags: v1.61
15:13
slight improvements to layout check-in: 8ff975d7ca user: mrwellan tags: v1.61
Changes

Modified dashboard.scm from [2cd895af85] to [11fa75ae0f].

2293
2294
2295
2296
2297
2298
2299



2300
2301


2302
2303
2304
2305
2306
2307
2308
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302


2303
2304
2305
2306
2307
2308
2309
2310
2311







+
+
+
-
-
+
+







			 ;; controls
			 ))
	     ;; (data (dboard:tabdat-init (make-d:data)))
	     (tabs (iup:tabs
		    #:tabchangepos-cb (lambda (obj curr prev)
					(debug:catch-and-dump
					 (lambda ()
					   (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
						  (tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))
					     (dboard:tabdat-layout-update-ok-set! tabdat #f)
					   (dboard:commondat-please-update-set! commondat #t)
					   (dboard:commondat-curr-tab-num-set! commondat curr))
					     (dboard:commondat-please-update-set! commondat #t)
					     (dboard:commondat-curr-tab-num-set! commondat curr)))
					 "tabchangepos"))
		    (dashboard:summary commondat stats-dat tab-num: 0)
		    runs-view
		    (dashboard:one-run commondat onerun-dat tab-num: 2)
		    ;; (dashboard:new-view db data new-view-dat tab-num: 3)
		    (dashboard:run-controls commondat runcontrols-dat tab-num: 3)
		    (dashboard:run-times commondat runtimes-dat tab-num: 4)