0. #lang racket
1.  
2. (define bbgui ; main dialog for creation parameters
3.   (class object%
4.     (super-new)
5.  
6.     (define iTextVals ; text field defaults
7.       '([GalaxyName   "Milky Way"]
8.         [OriginSystem "Sol"]
9.         [HomeWorld    "Earth"]
10.         [Creator      ""]))
11.  
12.     (define iSliderVals ; slider defaults
13.       '([GalaxySize   30  10  100]
14.         [SpiralArms   2   1   7]
15.         [Systems      700 100 1000]
16.         [Planets      7   3   13]
17.         [Chaos        17  3   42]
18.         [Variance     43  0   100]))
19.  
20.     (define (slNew Parent key) ; slider generator
21.       (new slider% [parent Parent]
22.            [label (symbol->string key)]
23.            [style '(vertical vertical-label)] [min-width 60]
24.            [init-value (car (dict-ref iSliderVals key))]
25.            [min-value (cadr (dict-ref iSliderVals key))]
26.            [max-value (caddr (dict-ref iSliderVals key))]
27.            [callback (λ (slider event)
28.                        (send bbStatus set-label (~a (symbol->string key) " updated")))]))
29.  
30.     (define (txNew Parent key) ; Text field generator
31.       (new text-field% [parent Parent]
32.            [label (symbol->string key)]
33.            [style '(single vertical-label)] [min-width 100]
34.            [init-value (car (dict-ref iTextVals key))]
35.            [callback (λ (text-field event)
36.                        (send bbStatus set-label (~a (symbol->string key) " updated")))]))
37.  
38.     (define/public (reset) ; reset everything to initial values
39.       (define ctrlset (append txts sliders))
40.       (define ivset (append iTextVals iSliderVals))
41.       (map (λ (control)
42.              (send control set-value
43.                    (car (dict-ref ivset (string->symbol (send control get-label))))))
44.            ctrlset)
45.       (send bbfrm refresh)) ; refresh needed to repaint text fields
46.  
47.     ; Stub output function
48.     (define/public (read)
49.       (map (λ (control)
50.              (cons (string->symbol (send control get-label)) (send control get-value)))
51.            (append txts sliders)))
52.  
53.     ; Begin Creating Objects
54.     (define bbfrm (new frame% [label "Big Bang"])) ; create the main frame
55.     (define bbTopStatus ; Make a top status field
56.       (new message% [parent bbfrm] [label ""]))
57.     (define mpanel (new horizontal-pane% [parent bbfrm])) ; main pane
58.     (define slpanel (new horizontal-pane% [parent mpanel])) ; slider pane
59.     (define txpanel (new vertical-pane% [parent mpanel])) ; text field pane
60.     (define bbar (new horizontal-pane% [parent bbfrm])) ; button bar pane
61.  
62.     (define sliders '()) ; generate the slider set
63.     (map (λ (key) (set! sliders (append sliders (list (slNew slpanel key)))))
64.          (map (λ (k) (car k)) iSliderVals))
65.  
66.     (define txts '()) ; set up the text boxes
67.     (map (λ (key) (set! txts (append txts (list (txNew txpanel key)))))
68.          (map (λ (k) (car k)) iTextVals))
69.  
70.     (new button% [parent bbar] [label "Run"] ; Add a Run button
71.          [callback (λ (button event)
72.                      (send bbStatus set-label "Run was pressed")
73.                      (displayln (read)))]) ; right now just output to console
74.  
75.     (new button% [parent bbar] [label "Reset"] ; Add a Reset button
76.          [callback (λ (button event)
77.                      (reset) ; call the function defined above
78.                      (send bbStatus set-label "Reset was pressed"))])
79.  
80.     ; Make a status bar text message
81.     (define bbStatus (new message% [parent bbfrm] [label "Defaults Loaded"]))
82.  
83.     (send bbfrm show #t))) ; finish up and display the window.
84. ; end of bbgui definition
85.  
86. ; create an instance on startup
87. (define bb (new bbgui))

=>

frame%: undefined;

cannot reference an identifier before its definition

in module: 'm