suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/gui/base: fix menu-bar%' get-frame' to return 'root

Browse Source 
Return 'root istead of exposing the (hidden) root frame for
a menu bar that is shown when no frames are visible.
This commit is contained in:
Matthew Flatt 2013-02-04 19:28:37 -07:00
parent 660fc4d7b3
commit d0cfc34a77
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/mrmenu.rkt
View File

@ -441,7 +441,7 @@
(define wx-parent #f) (define wx-parent #f)
(define shown? #f) (define shown? #f)
(public* (public*
[get-frame (lambda () prnt)] [get-frame (lambda () (if (eq? root-menu-frame prnt) 'root prnt))]
[get-items (entry-point (lambda () (send wx get-items)))] [get-items (entry-point (lambda () (send wx get-items)))]
[enable (entry-point (lambda (on?) (send wx enable-all on?)))] [enable (entry-point (lambda (on?) (send wx enable-all on?)))]
[is-enabled? (entry-point (lambda () (send wx all-enabled?)))] [is-enabled? (entry-point (lambda () (send wx all-enabled?)))]

5
collects/scribblings/gui/menu-bar-class.scrbl
View File

@ -41,9 +41,10 @@ Enables or disables the menu bar (i.e., all of its menus). Each
@defmethod[(get-frame) @defmethod[(get-frame)
(is-a?/c frame%)]{ (or/c (is-a?/c frame%) 'root)]{
Returns the menu bar's frame. Returns the menu bar's frame, or returns @racket['root] if the menu
bar is shown when no other frames are shown.
} }

4
doc/release-notes/racket/HISTORY.txt
View File

@ -1,9 +1,11 @@
Version 5.3.2.2 Version 5.3.2.3
Added extflonums Added extflonums
racket/extflonum: added racket/extflonum: added
racket/unsafe/ops: added extflonum operations racket/unsafe/ops: added extflonum operations
racket/date: changed current-date to provide nanoseconds, racket/date: changed current-date to provide nanoseconds,
added date*->seconds added date*->seconds
racket/gui/base: changed menu-bar% get-frame method to
return 'root for root menu bar
Version 5.3.2.2 Version 5.3.2.2
Added file-truncate Added file-truncate