Megatest

Check-in [9b2128dd16]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Sprucing up the gui a bit.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | guitweaks
Files: files | file ages | folders
SHA1: 9b2128dd16ccf3a1cafa5910a98de69bf9dd3947
User & Date: mrwellan on 2011-10-26 09:15:46
Other Links: branch diff | manifest | tags
Context
2011-10-26
10:37
Cleaned up the left labels check-in: 00fe53b20b user: mrwellan tags: guitweaks
09:15
Sprucing up the gui a bit. check-in: 9b2128dd16 user: mrwellan tags: guitweaks
2011-10-25
20:12
Fixed command line -runall borked by the monitor stuff check-in: fa52f9444d user: mrwellan tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [1bf80313b8] to [c7090ca2ad].

︙
457
458
459
460
461
462
463

464
465
466





467
468
469
470
471
472
473

457
458
459
460
461
462
463
464



465
466
467
468
469
470
471
472
473
474
475
476








+
-
-
-
+
+
+
+
+








			   #:action (lambda (obj unk val)
				      (set! *last-db-update-time* 0)
				      (update-search "test-name" val)))
	      (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
			   #:action (lambda (obj unk val)
				      (set! *last-db-update-time* 0)
				      (update-search "item-name" val)))))
	    (iup:vbox
	    (iup:hbox
	     (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
	     (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &"))))
	     (iup:hbox
	      (iup:button "Sort Order" #:acton (lambda (obj)(toggle-sort-order))))
	     (iup:hbox
	      (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
	      (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &")))))
	     ))
	   ;; (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"
︙

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