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

Adjust the menubar sizing code to explicitly take

Browse Source 
into account the size of the dummy menu item that
was added.
  related to PR 11926
  related to PR 11893
  related to PR 11623
  related to PR 11917
This commit is contained in:
Robby Findler 2011-05-17 10:14:02 -05:00
parent 47db06ac6f
commit df6be6e7f1
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/mred/private/wx/gtk/menu-bar.rkt
View File

@ -92,15 +92,17 @@
;; return initial size; also, add a menu to make sure there is one, ;; return initial size; also, add a menu to make sure there is one,
;; and force the menu bar to be at least that tall always ;; and force the menu bar to be at least that tall always
(atomically (atomically
(let ([item (gtk_menu_item_new_with_mnemonic "Xyz")]) (define item (gtk_menu_item_new_with_mnemonic "Xyz"))
(gtk_menu_shell_append gtk item) (gtk_menu_shell_append gtk item)
(gtk_widget_show item) (gtk_widget_show item)
(begin0 (define req (make-GtkRequisition 0 0))
(let ([req (make-GtkRequisition 0 0)]) (gtk_widget_size_request item req)
(gtk_widget_size_request gtk req) (define item-height (GtkRequisition-height req))
(gtk_widget_set_usize gtk -1 (GtkRequisition-height req)) (gtk_widget_size_request gtk req)
(GtkRequisition-height req)) (define height (max (GtkRequisition-height req) item-height))
(gtk_container_remove gtk item))))) (gtk_widget_set_usize gtk -1 height)
(gtk_container_remove gtk item)
height))
(define/public (get-top-window) (define/public (get-top-window)
top-wx) top-wx)