Megatest

Check-in [4485968e23]
Login
Overview
Comment:Keeping up with changes ...
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 4485968e237121d19cce63d18312987c84f0860e
User & Date: mrwellan on 2017-04-25 14:20:46
Other Links: branch diff | manifest | tags
Context
2017-04-26
23:47
Merged gendot, generates dot file from pkts db check-in: afa3279d3b user: matt tags: v1.65
2017-04-25
14:20
Keeping up with changes ... check-in: 4485968e23 user: mrwellan tags: v1.65
14:19
Added detachablity to trees in dashboard so they can be detached and deleted. Closed-Leaf check-in: 08a1393c61 user: mrwellan tags: v1.64-dashboard
06:07
Merging (much needed but not yet working) empty section preservation branch into v1.65 check-in: 21dd573ab7 user: matt tags: v1.65
Changes

Modified dashboard.scm from [edf1423278] to [82b3909808].

1377
1378
1379
1380
1381
1382
1383
1384

1385
1386
1387
1388
1389
1390
1391
1377
1378
1379
1380
1381
1382
1383

1384
1385
1386
1387
1388
1389
1390
1391







-
+







	     ;;        #:value 300

	     ;; Target, testpatt, state and status input boxes
	     ;;
	     (iup:vbox
	      ;; Command to run, placed over the top of the canvas
	      (dcommon:command-action-selector commondat tabdat tab-num: tab-num)
	      (dboard:runs-tree-browser commondat tabdat)
              (dboard:runs-tree-browser commondat tabdat)
	      (dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
	      (dcommon:command-testname-selector commondat tabdat update-keyvals))
	     ;;  key-listboxes))
	     (dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state))))
	   (tb (dboard:tabdat-runs-tree tabdat)))
      (dboard:commondat-add-updater 
       commondat 
1447
1448
1449
1450
1451
1452
1453

1454



1455
1456
1457
1458
1459
1460
1461
1447
1448
1449
1450
1451
1452
1453
1454

1455
1456
1457
1458
1459
1460
1461
1462
1463
1464







+
-
+
+
+







                        (dboard:tabdat-curr-run-id-set! tabdat run-id)
                        (dboard:tabdat-view-changed-set! tabdat #t))
                      (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id))))
              "treebox"))
           ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
           )))
    (dboard:tabdat-runs-tree-set! tabdat tb)
    (iup:detachbox
    (iup:vbox tb txtbox)))
     (iup:vbox 
      tb
      txtbox))))

;;======================================================================
;; R U N   C O N T R O L S
;;======================================================================
;;
;; A gui for launching tests
;;