diff options
-rw-r--r-- | gui.rkt | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -50,6 +50,7 @@ (new button% [parent par] [label (~a lbl)] + [min-width 30] [callback (lambda (button event) (send msg @@ -73,6 +74,7 @@ (new button% [parent top-op-panel] [label "←"] + [min-width 30] [callback (lambda (button event) (define str (send msg get-label)) @@ -82,6 +84,7 @@ (new button% [parent bottom-op-panel] [label "="] + [min-width 30] [callback (lambda (button event) (define ^ expt) |