fix double separator problem on windows

2012-08-07 13:03:53 -05:00 · 2012-08-07 13:03:53 -05:00 · 708228d959
commit 708228d959
parent e65cbdecf0
1 changed files with 2 additions and 1 deletions
--- a/collects/drracket/private/frame.rkt
+++ b/collects/drracket/private/frame.rkt
@ -258,7 +258,8 @@
      
      (define/override (edit-menu:between-find-and-preferences menu)
        (super edit-menu:between-find-and-preferences menu)
-        (make-object separator-menu-item% menu)
+        (when (current-eventspace-has-standard-menus?)
+          (new separator-menu-item% [parent menu]))
        (let ([keybindings-on-demand
               (λ (menu-item)
                 (let ([last-edit-object (get-edit-target-window)])