mirror of
https://github.com/python/cpython.git
synced 2025-11-01 10:45:30 +00:00
Add menu configuration to the event configuration.
This commit is contained in:
Guido van Rossum
parent
d020cf3d7d
commit
d8d676c289
1 changed files with 121 additions and 58 deletions
|
|
@ -1,87 +1,125 @@
|
|||
# The first item of each tuple is the virtual event;
|
||||
# each of the remaining items is an actual key binding for the event.
|
||||
# (This conveniently forms an argument list for event_add().)
|
||||
# The first three items of each tupel pertain to the menu bar. All
|
||||
# three are None if the item is not to appeat in a menu. Otherwise,
|
||||
# the first item is the menu name (in lowercase), the second item is
|
||||
# the menu item label; the third item is the keyboard shortcut to be
|
||||
# listed in the menu, if any. Menu items are added in the order of
|
||||
# their occurrence in this table. An item of the form
|
||||
# ("menu", None, None) can be used to insert a separator in the menu.
|
||||
#
|
||||
# The fourth item, if present is the virtual event; each of the
|
||||
# remaining items is an actual key binding for the event. (Thus,
|
||||
# items[3:] conveniently forms an argument list for event_add().)
|
||||
|
||||
win_bindings = [
|
||||
("<<beginning-of-line>>", "<Control-a>", "<Home>"),
|
||||
(None, None, None, "<<beginning-of-line>>", "<Control-a>", "<Home>"),
|
||||
|
||||
("<<expand-word>>", "<Meta-slash>", "<Alt-slash>"),
|
||||
(None, None, None, "<<expand-word>>", "<Meta-slash>", "<Alt-slash>"),
|
||||
|
||||
("<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"),
|
||||
("<<plain-newline-and-indent>>", "<Control-j>"),
|
||||
(None, None, None, "<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"),
|
||||
(None, None, None, "<<plain-newline-and-indent>>", "<Control-j>"),
|
||||
|
||||
("<<interrupt-execution>>", "<Control-c>"),
|
||||
("<<end-of-file>>", "<Control-d>"),
|
||||
(None, None, None, "<<interrupt-execution>>", "<Control-c>"),
|
||||
(None, None, None, "<<end-of-file>>", "<Control-d>"),
|
||||
|
||||
("<<dedent-region>>", "<Control-bracketleft>"),
|
||||
("<<indent-region>>", "<Control-bracketright>"),
|
||||
(None, None, None, "<<dedent-region>>", "<Control-bracketleft>"),
|
||||
(None, None, None, "<<indent-region>>", "<Control-bracketright>"),
|
||||
|
||||
("<<comment-region>>", "<Meta-Key-3>", "<Alt-Key-3>"),
|
||||
("<<uncomment-region>>", "<Meta-Key-4>", "<Alt-Key-4>"),
|
||||
(None, None, None, "<<comment-region>>", "<Meta-Key-3>", "<Alt-Key-3>"),
|
||||
(None, None, None, "<<uncomment-region>>", "<Meta-Key-4>", "<Alt-Key-4>"),
|
||||
|
||||
("<<history-previous>>", "<Meta-p>", "<Alt-p>"),
|
||||
("<<history-next>>", "<Meta-n>", "<Alt-n>"),
|
||||
(None, None, None, "<<history-previous>>", "<Meta-p>", "<Alt-p>"),
|
||||
(None, None, None, "<<history-next>>", "<Meta-n>", "<Alt-n>"),
|
||||
|
||||
("<<toggle-auto-coloring>>", "<Control-slash>"),
|
||||
(None, None, None, "<<toggle-auto-coloring>>", "<Control-slash>"),
|
||||
|
||||
("<<close-all-windows>>", "<Control-q>"),
|
||||
("<<open-new-window>>", "<Control-n>"),
|
||||
("<<open-window-from-file>>", "<Control-o>"),
|
||||
("<<save-window>>", "<Control-s>"),
|
||||
("<<save-window-as-file>>", "<Control-w>"),
|
||||
("<<save-copy-of-window-as-file>>", "<Meta-w>"),
|
||||
(None, None, None, "<<close-all-windows>>", "<Control-q>"),
|
||||
(None, None, None, "<<open-new-window>>", "<Control-n>"),
|
||||
(None, None, None, "<<open-window-from-file>>", "<Control-o>"),
|
||||
(None, None, None, "<<save-window>>", "<Control-s>"),
|
||||
(None, None, None, "<<save-window-as-file>>", "<Control-w>"),
|
||||
(None, None, None, "<<save-copy-of-window-as-file>>", "<Meta-w>"),
|
||||
|
||||
("<<find>>", "<Control-f>"),
|
||||
("<<find-next>>", "<F3>"),
|
||||
("<<find-same>>", "<Control-F3>"),
|
||||
("<<goto-line>>", "<Alt-g>", "<Meta-g>"),
|
||||
(None, None, None, "<<find>>", "<Control-f>"),
|
||||
(None, None, None, "<<find-next>>", "<F3>"),
|
||||
(None, None, None, "<<find-same>>", "<Control-F3>"),
|
||||
(None, None, None, "<<goto-line>>", "<Alt-g>", "<Meta-g>"),
|
||||
|
||||
("<<undo>>", "<Control-z>"),
|
||||
("<<redo>>", "<Control-y>"),
|
||||
("<<dump-undo-state>>", "<Control-backslash>"),
|
||||
(None, None, None, "<<undo>>", "<Control-z>"),
|
||||
(None, None, None, "<<redo>>", "<Control-y>"),
|
||||
(None, None, None, "<<dump-undo-state>>", "<Control-backslash>"),
|
||||
]
|
||||
|
||||
emacs_bindings = [
|
||||
("<<beginning-of-line>>", "<Control-a>", "<Home>"),
|
||||
("<<center-insert>>", "<Control-l>"),
|
||||
|
||||
("<<expand-word>>", "<Meta-slash>", "<Alt-slash>"),
|
||||
# File menu
|
||||
|
||||
("<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"),
|
||||
("<<plain-newline-and-indent>>", "<Control-j>"),
|
||||
("file", "New window", "C-x C-n",
|
||||
"<<open-new-window>>", "<Control-x><Control-n>"),
|
||||
("file", "Open...", "C-x C-f",
|
||||
"<<open-window-from-file>>", "<Control-x><Control-f>"),
|
||||
("file", None, None),
|
||||
|
||||
("<<interrupt-execution>>", "<Control-c>"),
|
||||
("<<end-of-file>>", "<Control-d>"),
|
||||
("file", "Save", "C-x C-s",
|
||||
"<<save-window>>", "<Control-x><Control-s>"),
|
||||
("file", "Save As...", "C-x C-w",
|
||||
"<<save-window-as-file>>", "<Control-x><Control-w>"),
|
||||
("file", "Save Copy As...", "C-x w",
|
||||
"<<save-copy-of-window-as-file>>", "<Control-x><w>"),
|
||||
("file", None, None),
|
||||
|
||||
("<<dedent-region>>",
|
||||
("file", "Close", "C-x C-0",
|
||||
"<<close-window>>", "<Control-x><Control-0>"),
|
||||
("file", "Exit", "C-x C-c",
|
||||
"<<close-all-windows>>", "<Control-x><Control-c>"),
|
||||
|
||||
# Edit menu
|
||||
|
||||
("edit", "Undo", "C-z", "<<undo>>", "<Control-z>"),
|
||||
("edit", "Redo", "Alt-z", "<<redo>>", "<Alt-z>", "<Meta-z>"),
|
||||
("edit", None, None),
|
||||
|
||||
("edit", "Cut", None, "<<Cut>>"),
|
||||
("edit", "Copy", None, "<<Copy>>"),
|
||||
("edit", "Paste", None, "<<Paste>>"),
|
||||
("edit", None, None),
|
||||
|
||||
("edit", "Find...", "C-s",
|
||||
"<<find>>", "<Control-u><Control-u><Control-s>"),
|
||||
("edit", "Find next", "C-u C-s",
|
||||
"<<find-next>>", "<Control-u><Control-s>"),
|
||||
("edit", "Find same", "C-s", "<<find-same>>", "<Control-s>"),
|
||||
("edit", "Go to line", "Alt-g", "<<goto-line>>", "<Alt-g>", "<Meta-g>"),
|
||||
("edit", None, None),
|
||||
|
||||
("edit", "Dedent region", "Ctrl-[", "<<dedent-region>>",
|
||||
"<Meta-bracketleft>", "<Alt-bracketleft>", "<Control-bracketleft>"),
|
||||
("<<indent-region>>",
|
||||
("edit", "Indent region", "Ctrl-]", "<<indent-region>>",
|
||||
"<Meta-bracketright>", "<Alt-bracketright>", "<Control-bracketright>"),
|
||||
|
||||
("<<comment-region>>", "<Meta-Key-3>", "<Alt-Key-3>"),
|
||||
("<<uncomment-region>>", "<Meta-Key-4>", "<Alt-Key-4>"),
|
||||
("edit", "Comment out region", "Alt-3",
|
||||
"<<comment-region>>", "<Meta-Key-3>", "<Alt-Key-3>"),
|
||||
("edit", "Uncomment region", "Alt-4",
|
||||
"<<uncomment-region>>", "<Meta-Key-4>", "<Alt-Key-4>"),
|
||||
|
||||
("<<history-previous>>", "<Meta-p>", "<Alt-p>"),
|
||||
("<<history-next>>", "<Meta-n>", "<Alt-n>"),
|
||||
# Not in any menu
|
||||
|
||||
("<<toggle-auto-coloring>>", "<Control-slash>"),
|
||||
(None, None, None, "<<beginning-of-line>>", "<Control-a>", "<Home>"),
|
||||
(None, None, None, "<<center-insert>>", "<Control-l>"),
|
||||
|
||||
("<<close-all-windows>>", "<Control-x><Control-c>"),
|
||||
("<<close-window>>", "<Control-x><Control-0>"),
|
||||
("<<open-new-window>>", "<Control-x><Control-n>"),
|
||||
("<<open-window-from-file>>", "<Control-x><Control-f>"),
|
||||
("<<save-window>>", "<Control-x><Control-s>"),
|
||||
("<<save-window-as-file>>", "<Control-x><Control-w>"),
|
||||
("<<save-copy-of-window-as-file>>", "<Control-x><w>"),
|
||||
(None, None, None, "<<expand-word>>", "<Meta-slash>", "<Alt-slash>"),
|
||||
|
||||
("<<find>>", "<Control-u><Control-u><Control-s>"),
|
||||
("<<find-next>>", "<Control-u><Control-s>"),
|
||||
("<<find-same>>", "<Control-s>"),
|
||||
("<<goto-line>>", "<Alt-g>", "<Meta-g>"),
|
||||
(None, None, None, "<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"),
|
||||
(None, None, None, "<<plain-newline-and-indent>>", "<Control-j>"),
|
||||
|
||||
("<<undo>>", "<Control-z>"),
|
||||
("<<redo>>", "<Alt-z>", "<Meta-z>"),
|
||||
("<<dump-undo-state>>", "<Control-backslash>"),
|
||||
(None, None, None, "<<interrupt-execution>>", "<Control-c>"),
|
||||
(None, None, None, "<<end-of-file>>", "<Control-d>"),
|
||||
|
||||
(None, None, None, "<<history-previous>>", "<Meta-p>", "<Alt-p>"),
|
||||
(None, None, None, "<<history-next>>", "<Meta-n>", "<Alt-n>"),
|
||||
|
||||
(None, None, None, "<<toggle-auto-coloring>>", "<Control-slash>"),
|
||||
|
||||
(None, None, None, "<<dump-undo-state>>", "<Control-backslash>"),
|
||||
]
|
||||
|
||||
default_bindings = emacs_bindings
|
||||
|
|
@ -89,4 +127,29 @@ default_bindings = emacs_bindings
|
|||
def apply_bindings(text, bindings=default_bindings):
|
||||
event_add = text.event_add
|
||||
for args in bindings:
|
||||
apply(event_add, args)
|
||||
args = args[3:]
|
||||
if args[1:]:
|
||||
apply(event_add, args)
|
||||
|
||||
def fill_menus(text, dict, bindings=default_bindings):
|
||||
# Fill the menus for the given text widget. The dict argument is
|
||||
# a dictionary containing the menus, keyed by their lowercased name.
|
||||
for args in bindings:
|
||||
menu, label, accelerator = args[:3]
|
||||
if not menu:
|
||||
continue
|
||||
menu = dict[menu]
|
||||
if not menu:
|
||||
continue
|
||||
if accelerator is None:
|
||||
accelerator = ""
|
||||
args = args[3:]
|
||||
if args:
|
||||
def command(text=text, event=args[0]):
|
||||
text.event_generate(event)
|
||||
menu.add_command(label=label, accelerator=accelerator,
|
||||
command=command)
|
||||
elif label or accelerator:
|
||||
menu.add_command(label=label, accelerator=accelerator)
|
||||
else:
|
||||
menu.add_separator()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue