Megatest

Diff
Login

Differences From Artifact [981b21b733]:

To Artifact [3a23979a77]:


460
461
462
463
464
465
466

467


468
469
470
471
472
473
474
460
461
462
463
464
465
466
467

468
469
470
471
472
473
474
475
476







+
-
+
+







						  (conc "-e " (get-environment-variable "SHELL"))
						  "")))
				   (system (conc "cd " rundir 
						 ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
				 (message-window  (conc "Directory " rundir " not found")))))
	       (widgets    (make-hash-table))
	       (refreshdat (lambda ()
			     (let* ((curr-mod-time (if (file-exists? db-path)
			     (let* ((curr-mod-time (file-modification-time db-path))
						       (file-modification-time db-path)
						       0))
				                   ;;     (max ..... (if (file-exists? testdat-path)
						   ;;      	      (file-modification-time testdat-path)
						   ;;      	      (begin
						   ;;      		(set! testdat-path (conc rundir "/testdat.db"))
						   ;;      		0))))
				    (need-update   (or (and (>= curr-mod-time db-mod-time)
							    (> (current-milliseconds)(+ last-update 250))) ;; every half seconds if db touched