add menu shortcuts

words/app.rkt

@@ -50,17 +50,20 @@
        [stretchable-width #f]
        [callback (λ (tf evt) (update-text-field! tf param))]))
 
-(let ([optional-letter-panel (new horizontal-panel%
+(define optional-letter-panel (new horizontal-panel%
                                    [parent window]
                                    [horiz-margin 6]
                                    [alignment '(left top)]
-                                  [stretchable-height #false])])
-  (define tf-optional
+                                   [stretchable-height #false]))
+(define tf-optional
   (make-text-field current-optional "optional letters" optional-letter-panel))
-  (define ((tf-optional-button-callback str) button evt)
+
+(define ((tf-optional-button-callback str) button evt)
   (send tf-optional set-value str)
   (update-text-field! tf-optional current-optional))
-  (for ([label-str '("clear" "a-z" "etaoinshrdluw")]
+
+(match-define (list button-clear button-az button-common)
+(for/list ([label-str '("clear" "a-z" "etaoinshrdluw")]
       [str '("" "abcdefghijklmnopqrstuvwxyz" "etaoinshrdluw")])
      (new button%
           [label label-str]
@@ -212,15 +215,23 @@
   (current-word-count new-count))
 
 (define menu-item-more-words
-  (make-menu-item "More" #\= (λ (thing evt)
+  (make-menu-item "More words" #\= (λ (thing evt)
                                (change-word-count 25)
                                (refresh-wordbox))))
 
 (define menu-item-fewer-words
-  (make-menu-item "Fewer" #\- (λ (thing evt)
+  (make-menu-item "Fewer words" #\- (λ (thing evt)
                                 (change-word-count -25)
                                 (refresh-wordbox))))
 
+; (list button-clear button-az button-common)
+(define menu-item-clear
+  (make-menu-item "Clear letters" #\1 (λ (thing evt) (send button-clear command evt))))
+(define menu-item-az
+  (make-menu-item "Use a-z" #\2 (λ (thing evt) (send button-az command evt))))
+(define menu-item-common
+  (make-menu-item "Use etaoin" #\3 (λ (thing evt) (send button-common command evt))))
+
 (refresh-wordbox)
 (send window show #t)