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

show gtk menu shortcuts

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-04 08:45:19 -06:00
parent e153b71ba0
commit f21920c8e9
4 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/gtk/frame.rkt
View File

@ -139,6 +139,8 @@
(when label (when label
(gtk_window_set_title gtk label)) (gtk_window_set_title gtk label))
;(gtk_window_add_accel_group (widget-window gtk) the-accelerator-group)
(define/override (set-child-size child-gtk x y w h) (define/override (set-child-size child-gtk x y w h)
(gtk_fixed_move panel-gtk child-gtk x y) (gtk_fixed_move panel-gtk child-gtk x y)
(gtk_widget_set_size_request child-gtk w h)) (gtk_widget_set_size_request child-gtk w h))

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

@ -82,6 +82,8 @@
(connect-menu-key-press gtk) (connect-menu-key-press gtk)
(connect-menu-button-press gtk) (connect-menu-button-press gtk)
; (gtk_menu_set_accel_group gtk the-accelerator-group)
(define top-wx #f) (define top-wx #f)
(define/public (set-top-window top) (define/public (set-top-window top)

4
collects/mred/private/wx/gtk/menu.rkt
View File

@ -88,6 +88,8 @@
(connect-menu-deactivate gtk) (connect-menu-deactivate gtk)
(gtk_menu_set_accel_group gtk the-accelerator-group)
(define items null) (define items null)
(define parent #f) (define parent #f)
@ -168,7 +170,7 @@
(char->integer (char->integer
(string-ref (cadr m) 0)))]) (string-ref (cadr m) 0)))])
(unless (zero? code) (unless (zero? code)
(let ([accel-path (format "<MrEd>/Thing/~a" title)]) (let ([accel-path (format "<GRacket>/Hardwired/~a" title)])
(gtk_accel_map_add_entry accel-path (gtk_accel_map_add_entry accel-path
code code
GDK_CONTROL_MASK) GDK_CONTROL_MASK)

13
collects/mred/private/wx/gtk/window.rkt
View File

@ -36,7 +36,11 @@
(struct-out GtkRequisition) _GtkRequisition-pointer (struct-out GtkRequisition) _GtkRequisition-pointer
(struct-out GtkAllocation) _GtkAllocation-pointer (struct-out GtkAllocation) _GtkAllocation-pointer
widget-window) widget-window
the-accelerator-group
gtk_window_add_accel_group
gtk_menu_set_accel_group)
;; ---------------------------------------- ;; ----------------------------------------
@ -62,6 +66,13 @@
(define-gtk gtk_widget_is_focus (_fun _GtkWidget -> _gboolean)) (define-gtk gtk_widget_is_focus (_fun _GtkWidget -> _gboolean))
(define-gtk gtk_widget_set_sensitive (_fun _GtkWidget _gboolean -> _void)) (define-gtk gtk_widget_set_sensitive (_fun _GtkWidget _gboolean -> _void))
(define _GtkAccelGroup (_cpointer 'GtkAccelGroup))
(define-gtk gtk_accel_group_new (_fun -> _GtkAccelGroup))
(define-gtk gtk_window_add_accel_group (_fun _GtkWindow _GtkAccelGroup -> _void))
(define-gtk gtk_menu_set_accel_group (_fun _GtkWidget _GtkAccelGroup -> _void))
(define the-accelerator-group (gtk_accel_group_new))
(define-cstruct _GtkWidgetT ([obj _GtkObject] (define-cstruct _GtkWidgetT ([obj _GtkObject]
[private_flags _uint16] [private_flags _uint16]
[state _byte] [state _byte]