[dpapavas] Improvements for Emacs Gtk binding theme. Fixes #7254

This commit is contained in:
Yann Leboulanger 2012-11-08 12:09:13 +01:00
parent e5d809af50
commit 0da0536010
1 changed files with 8 additions and 4 deletions

View File

@ -350,6 +350,8 @@ class MessageWindow(object):
# CTRL mask
if modifier & gtk.gdk.CONTROL_MASK:
if keyval == gtk.keysyms.h: # CTRL + h
if gtk.settings_get_default().get_property(
'gtk-key-theme-name') != 'Emacs':
control._on_history_menuitem_activate()
return True
elif control.type_id == message_control.TYPE_CHAT and \
@ -431,6 +433,8 @@ class MessageWindow(object):
control.show_emoticons_menu()
return True
elif keyval == gtk.keysyms.d: # ALT + D show actions menu
if gtk.settings_get_default().get_property(
'gtk-key-theme-name') != 'Emacs':
control.on_actions_button_clicked(control.actions_button)
return True
elif control.type_id == message_control.TYPE_GC and \