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

gtk menu-bar fixes

Browse Source 
original commit: c57c84721fd1c43e8153c22f30fdd0c4539d965b
This commit is contained in:
Matthew Flatt 2010-10-15 12:39:11 -06:00
parent 420ba997da
commit 1d77e383b0
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -114,20 +114,22 @@
(gtk_label_set_text_with_mnemonic (gtk_bin_get_child item-gtk)
(fixup-mneumonic str)))))
(def/public-unimplemented enable-top)
(define/public (enable-top pos on?)
(gtk_widget_set_sensitive (car (list-ref menus pos)) on?))
(define/public (delete which pos)
(set! menus (let loop ([menus menus]
[pos pos])
(cond
[(null? menus) menus]
[(zero? pos)
(gtk_container_remove gtk (caar menus))
(gtk_menu_item_set_submenu (caar menus) #f)
(cdr menus)]
[else (cons (car menus)
(loop (cdr menus)
pos))]))))
(atomically
(set! menus (let loop ([menus menus]
[pos pos])
(cond
[(null? menus) menus]
[(zero? pos)
(gtk_container_remove gtk (caar menus))
(gtk_menu_item_set_submenu (caar menus) #f)
(cdr menus)]
[else (cons (car menus)
(loop (cdr menus)
(sub1 pos)))])))))
(public [append-menu append])
(define (append-menu menu title)