d0cfc34a77
Return 'root istead of exposing the (hidden) root frame for a menu bar that is shown when no frames are visible.
58 lines
1.6 KiB
Racket
58 lines
1.6 KiB
Racket
#lang scribble/doc
|
|
@(require "common.rkt")
|
|
|
|
@centered{@image[#:suffixes @list[".png"]]{image/menu-bar}}
|
|
|
|
@defclass/title[menu-bar% object% (menu-item-container<%>)]{
|
|
|
|
A @racket[menu-bar%] object is created for a particular
|
|
@racket[frame%] object. A frame can have at most one menu bar;
|
|
@|MismatchExn| when a new menu bar is created for a frame that
|
|
already has a menu bar.
|
|
|
|
|
|
|
|
@defconstructor[([parent (or/c (is-a?/c frame%) 'root)]
|
|
[demand-callback ((is-a?/c menu-bar%) . -> . any) (lambda (m) (void))])]{
|
|
|
|
Creates a menu bar in the specified frame. The menu bar is initially
|
|
empty. If @indexed-racket['root] is supplied as @racket[parent], the
|
|
menu bar becomes active only when no other frames are shown. A
|
|
@racket['root] @racket[parent] is allowed only when
|
|
@racket[current-eventspace-has-menu-root?] returns @racket[#t], and
|
|
only if no such menu bar has been created before, otherwise
|
|
@|MismatchExn|.
|
|
|
|
The @racket[demand-callback] procedure is called by the default
|
|
@method[menu-item-container<%> on-demand] method with the object itself.
|
|
|
|
}
|
|
|
|
|
|
@defmethod[(enable [enable? any/c])
|
|
void?]{
|
|
|
|
Enables or disables the menu bar (i.e., all of its menus). Each
|
|
menu's @method[labelled-menu-item<%> is-enabled?] method returns
|
|
@racket[#f] only if the menu is specifically disabled (in addition to
|
|
the menu bar).
|
|
|
|
}
|
|
|
|
|
|
@defmethod[(get-frame)
|
|
(or/c (is-a?/c frame%) 'root)]{
|
|
|
|
Returns the menu bar's frame, or returns @racket['root] if the menu
|
|
bar is shown when no other frames are shown.
|
|
|
|
}
|
|
|
|
|
|
@defmethod[(is-enabled?)
|
|
boolean?]{
|
|
|
|
Returns @racket[#t] if the menu bar is enabled, @racket[#f] otherwise.
|
|
|
|
}}
|