355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
|
(if (number? s)(seconds->time-string s) s))
(let ((s (vector-ref x 2)))
(if (number? s)(seconds->time-string s) s))
(vector-ref x 3) ;; status
(vector-ref x 4))) ;; time delta
(sort (hash-table-values comprsteps)
(lambda (a b)
(if (and (number? a)(number? b))
(< (vector-ref a 1)(vector-ref b 1))
#t)))))
"\n")))
(if (not (equal? currval newval))
(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
stepsdat))
;; populate the Test Data panel
(iup:frame
#:title "Test Data"
|
>
>
|
|
|
|
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
|
(if (number? s)(seconds->time-string s) s))
(let ((s (vector-ref x 2)))
(if (number? s)(seconds->time-string s) s))
(vector-ref x 3) ;; status
(vector-ref x 4))) ;; time delta
(sort (hash-table-values comprsteps)
(lambda (a b)
(let ((time-a (vector-ref a 1))
(time-b (vector-ref b 1)))
(if (and (number? time-a)(number? time-b))
(< time-a time-b)
#t))))))
"\n")))
(if (not (equal? currval newval))
(iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
stepsdat))
;; populate the Test Data panel
(iup:frame
#:title "Test Data"
|