隱藏額外的分隔線

Question

分隔線仍顯示隱藏菜單項從這個鏈接=>Can't hide "Preferences" item in edit-menu

我已搜查球拍文檔中，發現只有增加新的分隔符菜單項後。 https://docs.racket-lang.org/gui/separator-menu-item_.html 是否可以在空的菜單項之間隱藏這些額外的行？

Answer 1

分隔線是在「之間」方法中創建的。那些通過使用void被刪除。

#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