21 lines
411 B
Scheme
21 lines
411 B
Scheme
;;; -*-Scheme-*-
|
|
;;;
|
|
;;; Stripchart widget demo
|
|
|
|
(require 'xaw)
|
|
|
|
(define top (application-initialize 'stripchart))
|
|
|
|
(define s (create-managed-widget (find-class 'stripchart) top))
|
|
(set-values! s 'update 1 'jump-scroll 2)
|
|
|
|
(define id
|
|
(stripchart-set-sampler s
|
|
(let ((x -.1))
|
|
(lambda ()
|
|
(set! x (+ x .1))
|
|
(1+ (sin x))))))
|
|
|
|
(realize-widget top)
|
|
(context-main-loop (widget-context top))
|