Megatest

Check-in [ffaa4fa4b2]
Login
Overview
Comment:Added testname to popup edit window title
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ffaa4fa4b28ce254d4e88733e78a4f2d5ef0e399
User & Date: mrwellan on 2011-06-07 00:48:21
Other Links: manifest | tags
Context
2011-06-13
22:16
Added exit code check to [system ...] calls in config processing. Fixed xterm launching in dashboard check-in: 4722dc82a1 user: mrwellan tags: trunk
2011-06-07
00:48
Added testname to popup edit window title check-in: ffaa4fa4b2 user: mrwellan tags: trunk
00:25
Added table based iteration check-in: 8d68c68080 user: mrwellan tags: trunk, v1.11
Changes

Modified dashboard.scm from [a0d7819548] to [021a9fd27c].

112
113
114
115
116
117
118

119
120
121
122
123
124
125
	       (newstatus    currstatus)
	       (newstate     currstate)
	       (self         #f))
	  
	  ;;  (test-set-status! db run-id test-name state status itemdat)
	  (set! self 
		(iup:dialog

		 (iup:vbox
		  (iup:hbox 
		   (iup:frame (iup:label run-key))
		   (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
		  (iup:frame #:title "Actions" #:expand "YES"
			     (iup:hbox ;; the actions box
			      (iup:button "View Log"    #:action viewlog  #:expand "YES")







>







112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
	       (newstatus    currstatus)
	       (newstate     currstate)
	       (self         #f))
	  
	  ;;  (test-set-status! db run-id test-name state status itemdat)
	  (set! self 
		(iup:dialog
		 #:title testfullname
		 (iup:vbox
		  (iup:hbox 
		   (iup:frame (iup:label run-key))
		   (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
		  (iup:frame #:title "Actions" #:expand "YES"
			     (iup:hbox ;; the actions box
			      (iup:button "View Log"    #:action viewlog  #:expand "YES")