Resolves #107: menu/accelerator for zoom-to-fit.

lehitoskin · Oct 29, 2019 · 01d2aa0 · 01d2aa0
1 parent 8df16bd
commit 01d2aa0
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/frame.rkt b/frame.rkt
@@ -562,6 +562,19 @@
                    (unless (equal? (image-path) +root-path+)
                      (send (ivy-canvas) zoom-to 1.0)))]))
 
+(define ivy-menu-bar-view-zoom-to-fit
+  (new menu-item%
+       [parent ivy-menu-bar-view-zoom]
+       [label "Fit"]
+       [help-string "Zoom the image to fit the window"]
+       [shortcut #\0]
+       [shortcut-prefix (list (if macosx?
+                                  'option
+                                  'alt))]
+       [callback (λ (i e)
+                   (send (ivy-canvas) zoom-to-fit))]))
+
+
 (void (new separator-menu-item%
            [parent ivy-menu-bar-view-zoom]))