Megatest

Check-in [08a1393c61]
Login
Overview
Comment:Added detachablity to trees in dashboard so they can be detached and deleted.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-dashboard
Files: files | file ages | folders
SHA1: 08a1393c61b3c6d2ee96a35b52ae945806d0299e
User & Date: mrwellan on 2017-04-25 14:19:22
Other Links: branch diff | manifest | tags
Context
2017-04-26
17:27
Merged in some dashboard layout updates and purple ABORT check-in: 30dc610005 user: mrwellan tags: v1.64, v1.6408
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
2017-04-24
23:53
Compacted dashboard layout check-in: 5941191cd2 user: matt tags: v1.64-dashboard
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
;;