#lang scheme/gui

(require "../simulation-with-graphics.ss")

(define range (make-variable))
(define var (make-variable))

(define frame
  (instantiate frame%
    ("Example 5")))

(define range-slider
  (instantiate variable-slider%
    ("Range Slider" 100 1000 frame)
    (variable range)))

(define slider
  (instantiate variable-slider%
    ("Value Slider" 0 100 frame)
    (variable var)))

(define gauge
  (instantiate variable-gauge%
    ("Value Gauge" range frame)
    (variable var)))

(send frame show #t)