examples/example-5.rkt
#lang racket/gui
;;; Example 5 - Variable Graphics Demo

(require (planet williams/simulation/simulation-with-graphics))

;;; range : variable?
;;; var : variable?
(define range (make-variable))
(define var (make-variable))

;;; frame : (is-a/c frame%)
(define frame
  (instantiate frame%
    ("Example 5")))

;;; range-slider : (is-a/c variable-slider%)
(define range-slider
  (instantiate variable-slider%
    ("Range Slider" 100 1000 frame)
    (variable range)))

;;; slider : (is-a/c variable-slider?)
(define slider
  (instantiate variable-slider%
    ("Value Slider" 0 100 frame)
    (variable var)))

;;; gauge : (is-a/c variable-gauge%)
(define gauge
  (instantiate variable-gauge%
    ("Value Gauge" range frame)
    (variable var)))

;;; Show the demo frame.
(send frame show #t)