#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)