add tabs for builtin clickers and user-definable clickers [WIP]

clicket.rkt

@@ -3,14 +3,30 @@
 ; setup main frame layout
 (define frame (new (class frame% (super-new)
                      (define/augment (on-close)
-                       (send timer stop)))
+                       (send timer stop))) ;on release - change to (exit)?
                    [label "Clicket"]
                    [border 5]))
 (define panel (new horizontal-panel%
                    [parent frame]
                    [spacing 15]))
 (define left-side (new vertical-pane% [parent panel]))
-(define right-side (new vertical-pane% [parent panel]))
+
+; janky terrible tab switcher, only works for two tabs, do not copy this
+(define selected-tab #t)
+(define (switch-tab tp e)
+  (send tp change-children
+        (λ (c)
+          (if selected-tab
+              (list builtins)
+              (list definitions))))
+  (set! selected-tab (not selected-tab)))
+(define right-side (new tab-panel% [parent panel]
+                        [choices '("Builtins" "Definitions")]
+                        [callback switch-tab]))
+(define builtins (new vertical-panel% [parent right-side]))
+(define definitions (new vertical-panel% [parent right-side]))
+(define tabs (list builtins definitions))
+(switch-tab right-side #f)
 
 ; setup click var and associated display text 
 (define clicks 0)
@@ -19,20 +35,25 @@
                        [parent left-side]
                        [label (click-str)]
                        [auto-resize #t]))
+(define cps 0)
+(define (cps-str) (~a "Auto-clicks per second: " cps))
+(define cps-msg (new message%
+                     [parent left-side]
+                     [label (cps-str)]
+                     [auto-resize #t]))
 
-; helper procedure
+; helper procedures
 (define-syntax-rule (new-inc-button container name counter)
   (new button% [parent container]
        [label name]
        [callback (λ (b e) (set! counter (add1 counter)))]))
-; assume we're placing all buy buttons in the right-side container
-(define-syntax-rule (new-buy-button cl)
-  (let* ([button-pane (new horizontal-pane% [parent right-side])]
+(define-syntax-rule (new-buy-button tab cl)
+  (let* ([button-panel (new horizontal-panel% [parent tab])]
          [counter-msg (new message%
-                           [parent button-pane]
+                           [parent button-panel]
                            [label "Owned: 0"]
                            [auto-resize #t])])
-    (new button% [parent button-pane]
+    (new button% [parent button-panel]
          [label (~a "Buy " (clicker-name cl) " (" (clicker-price cl) "¢)")]
          [callback (λ (b e)
                      (when (>= clicks (clicker-price cl))
@@ -50,17 +71,48 @@
                       (clicker "mouse"      10    1   0)
                       (clicker "coder"      150   5   0)
                       (clicker "paren farm" 1000  10  0)))
-(for ([cl all-clickers]) (new-buy-button cl))
+(for ([cl all-clickers]) (new-buy-button builtins cl))
+
+; define your own clickers
+(define definer-panel (new group-box-panel%
+                           [parent definitions]
+                           [label "Define custom clicker"]))
+(define name-field (new text-field%
+                        [parent definer-panel]
+                        [label "Name"]
+                        [style '(single  vertical-label)]))
+(define clicks-field (new text-field%
+                        [parent definer-panel]
+                        [label "Clicks per second"]
+                        [style '(single  vertical-label)]))
+(define price-panel (new group-box-panel%
+                         [parent definer-panel]
+                         [label "Prices"]))
+(define init-price (new message%
+                        [parent price-panel]
+                        [label "Init price: 0"]
+                        [auto-resize #t]))
+(define cl-price (new message%
+                        [parent price-panel]
+                        [label "Clicker price: 0"]
+                        [auto-resize #t]))
+(new button% [parent definer-panel]
+     [label "Define"])
+; TODO implement callback
+
  
 ; setup timer
 (define timer-ctr 0)
 (define timer (new timer% [interval 100]
                    [notify-callback
                     (λ ()
-                      (when (= 0 (modulo timer-ctr 10))
-                        (for ([cl all-clickers])
-                          (set! clicks (+ clicks (* (clicker-multiplier cl) (clicker-count cl))))))
+                      (set! cps 0)
+                      (for ([cl all-clickers])
+                        (when (= 0 (modulo timer-ctr 10))
+                          (set! clicks (+ clicks (* (clicker-multiplier cl) (clicker-count cl)))))
+                        (set! cps (+ cps (* (clicker-multiplier cl) (clicker-count cl)))))
                       (send click-msg set-label (click-str))
+                      (send cps-msg set-label (cps-str))
                       (set! timer-ctr (add1 timer-ctr)))]))
 
 ; show frame