Megatest

Check-in [0824b86fb8]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Refactored radio buttons and added update on toggle
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0824b86fb8c821c4ffebef885cfbee5e3c637ec7
User & Date: matt on 2011-10-11 23:08:07
Other Links: manifest | tags
Context
2011-10-12
23:26
Added -reqtarg and -target for easier launching check-in: c5b61052dd user: matt tags: trunk
2011-10-11
23:08
Refactored radio buttons and added update on toggle check-in: 0824b86fb8 user: matt tags: trunk
22:56
Reduced cpu usage of dashboard substantially and off-by-one error check-in: 9797f62e06 user: matt tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [a57aeeac0b] to [ecffa2c95e].

︙
462
463
464
465
466
467
468

469
470


471
472
473
474

475
476

477
478
479
480
481



482
483
484
485
486
487
488
489
490
491


492
493
494
495
496


497
498
499
500

501
502

503
504
505
506
507



508
509
510
511
512
513
514

515
516
517
518
519
520
521
522
523
524
525
526

462
463
464
465
466
467
468
469


470
471




472


473





474
475
476










477
478





479
480




481


482





483
484
485







486





487
488
489
490
491
492
493








+
-
-
+
+
-
-
-
-
+
-
-
+
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
+
+
-
-
-
-
+
-
-
+
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
+
-
-
-
-
-








	   ;; (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
	   ;; (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
	   ;; (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
	   ;; (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))
	   (iup:frame 
	    #:title "hide"
	    (iup:vbox
	     (apply 
	     (iup:hbox
	      (iup:toggle "PASS"  #:action   (lambda (obj val)
	      iup:hbox
	      (map (lambda (status)
					       (if (eq? val 1)
						   (hash-table-set! *status-ignore-hash* "PASS" #t)
						   (hash-table-delete! *status-ignore-hash* "PASS"))))
	      (iup:toggle "FAIL"   #:action   (lambda (obj val)
		     (iup:toggle status  #:action   (lambda (obj val)
						(if (eq? val 1)
						    (hash-table-set! *status-ignore-hash* "FAIL" #t)
						      (set! *last-db-update-time* 0)
						    (hash-table-delete! *status-ignore-hash* "FAIL"))))
	      (iup:toggle "WARN"   #:action   (lambda (obj val)
						(if (eq? val 1)
						    (hash-table-set! *status-ignore-hash* "WARN" #t)
						    (hash-table-delete! *status-ignore-hash* "WARN"))))
						      (if (eq? val 1)
							  (hash-table-set! *status-ignore-hash* status #t)
							  (hash-table-delete! *status-ignore-hash* status)))))
	      (iup:toggle "CHECK"   #:action   (lambda (obj val)
                                                  (if (eq? val 1)
                                                      (hash-table-set! *status-ignore-hash* "CHECK" #t)
                                                      (hash-table-delete! *status-ignore-hash* "CHECK"))))
              (iup:toggle "WAIVED"   #:action   (lambda (obj val)
						  (if (eq? val 1)
						      (hash-table-set! *status-ignore-hash* "WAIVED" #t)
						      (hash-table-delete! *status-ignore-hash* "WAIVED"))))
	      (iup:toggle "STUCK/DEAD"   #:action   (lambda (obj val)
						  (if (eq? val 1)
	      '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD")))
	     (apply 
						      (hash-table-set! *status-ignore-hash* "STUCK/DEAD" #t)
						      (hash-table-delete! *status-ignore-hash* "STUCK/DEAD"))))
	      )
	     (iup:hbox
	      (iup:toggle "RUNNING"   #:action   (lambda (obj val)
	      iup:hbox
	      (map (lambda (state)
						   (if (eq? val 1)
						       (hash-table-set! *state-ignore-hash* "RUNNING" #t)
						       (hash-table-delete! *state-ignore-hash* "RUNNING"))))
	      (iup:toggle "COMPLETED"   #:action   (lambda (obj val)
		     (iup:toggle state   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "COMPLETED" #t)
						      (set! *last-db-update-time* 0)
							 (hash-table-delete! *state-ignore-hash* "COMPLETED"))))
	      (iup:toggle "INCOMPLETE"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "INCOMPLETE" #t)
							 (hash-table-delete! *state-ignore-hash* "INCOMPLETE"))))
						      (if (eq? val 1)
							  (hash-table-set! *state-ignore-hash* state #t)
							  (hash-table-delete! *state-ignore-hash* state)))))
	      (iup:toggle "LAUNCHED"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "LAUNCHED" #t)
							 (hash-table-delete! *state-ignore-hash* "LAUNCHED"))))
	      (iup:toggle "NOT_STARTED"   #:action   (lambda (obj val)
						     (if (eq? val 1)
							 (hash-table-set! *state-ignore-hash* "NOT_STARTED" #t)
		   '("RUNNING" "COMPLETED" "INCOMPLETE" "LAUNCHED" "NOT_STARTED" "KILLED")))))
							 (hash-table-delete! *state-ignore-hash* "NOT_STARTED"))))
	      (iup:toggle "KILLED"   #:action   (lambda (obj val)
						  (if (eq? val 1)
						      (hash-table-set! *state-ignore-hash* "KILLED" #t)
						      (hash-table-delete! *state-ignore-hash* "KILLED")))))))
	   (iup:valuator #:valuechanged_cb (lambda (obj)
					     (let ((val (inexact->exact (round (+ 0.0 (string->number (iup:attribute obj "VALUE"))))))
						   (maxruns  *tot-run-count*)) ;;; (+ *num-runs* (length *allruns*))))
					       (set! *start-run-offset* val)
					       (set! *last-db-update-time* 0)
					       (debug:print 3 "maxruns: " maxruns ", val: " val)
					       (iup:attribute-set! obj "MAX" maxruns)))
︙

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