ausblenden zusätzliche Trennlinien zwischen leeren Menüpunkten

Question

Trennlinien erscheinen noch Menü-Elemente aus diesem Link =>Can't hide "Preferences" item in edit-menu

ich gesucht habe in Schläger Dokumentation nach versteckt und fand nur neuen Separator Menüpunkt hinzugefügt wird. https://docs.racket-lang.org/gui/separator-menu-item_.html Ist es möglich, diese zusätzlichen Zeilen zwischen leeren Menüelementen zu verbergen?

Answer 1

Trennlinien werden in den "between" Methoden erstellt. Diese werden mit void entfernt.

#lang racket/gui 
(require framework) 

(define menu-super-frame% 
    (frame:standard-menus-mixin 
    frame:basic%)) 

(define menu-frame% 
    (class menu-super-frame% 
    (inherit get-file-menu set-icon) 

    (define/override (edit-menu:create-undo?) #t)  
    (define/override (edit-menu:create-redo?) #t) 

    ;; hiding items in edit menu 
    (define/override (edit-menu:create-cut?) #f) 
    (define/override (edit-menu:create-copy?) #f) 
    (define/override (edit-menu:create-paste?) #f) 
    (define/override (edit-menu:create-clear?) #f) 
    (define/override (edit-menu:create-select-all?) #f) 
    (define/override (edit-menu:create-preferences?) #f) 

    ;; remove separator lines 
    (define/override (edit-menu:between-redo-and-cut edit-menu) (void)) 
    (define/override (edit-menu:between-select-all-and-find edit-menu) (void)) 
    (define/override (edit-menu:between-find-and-preferences edit-menu) (void)) 

    (super-new))) 

(define top-frame 
    (new menu-frame% 
     [label "Main Window"] 
     [width 200] 
     [height 200] 
     [alignment (list 'left 'top)])) 

(send top-frame show #t) 

reference answer