diff options
| -rw-r--r-- | Tools/idle/Bindings.py | 360 |
1 files changed, 192 insertions, 168 deletions
diff --git a/Tools/idle/Bindings.py b/Tools/idle/Bindings.py index 900c850..5a13d22 100644 --- a/Tools/idle/Bindings.py +++ b/Tools/idle/Bindings.py @@ -1,174 +1,198 @@ -# 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 = [ - (None, None, None, "<<beginning-of-line>>", "<Control-a>", "<Home>"), - - (None, None, None, "<<expand-word>>", "<Meta-slash>", "<Alt-slash>"), - - (None, None, None, "<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"), - (None, None, None, "<<plain-newline-and-indent>>", "<Control-j>"), - - (None, None, None, "<<interrupt-execution>>", "<Control-c>"), - (None, None, None, "<<end-of-file>>", "<Control-d>"), - - (None, None, None, "<<dedent-region>>", "<Control-bracketleft>"), - (None, None, None, "<<indent-region>>", "<Control-bracketright>"), - - (None, None, None, "<<comment-region>>", "<Meta-Key-3>", "<Alt-Key-3>"), - (None, None, None, "<<uncomment-region>>", "<Meta-Key-4>", "<Alt-Key-4>"), - - (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, "<<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>"), - - (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>"), - - (None, None, None, "<<undo>>", "<Control-z>"), - (None, None, None, "<<redo>>", "<Control-y>"), - (None, None, None, "<<dump-undo-state>>", "<Control-backslash>"), +# This file defines the menu contents and key bindings. Note that +# there is additional configuration information in the EditorWindow +# class (and subclasses): the menus are created there based on the +# menu_specs (class) variable, and menus not created are silently +# skipped by the code here. This makes it possible to define the +# Debug menu here, which is only present in the PythonShell window. + +import sys +import string +import re + +menudefs = [ + # underscore prefixes character to underscore + ('file', [ + ('_New window', '<<open-new-window>>'), + ('_Open...', '<<open-window-from-file>>'), + ('Open _module...', '<<open-module>>'), + ('Class _browser...', '<<open-class-browser>>'), + None, + ('_Save', '<<save-window>>'), + ('Save _As...', '<<save-window-as-file>>'), + ('Save Co_py As...', '<<save-copy-of-window-as-file>>'), + None, + ('_Close', '<<close-window>>'), + ('E_xit', '<<close-all-windows>>'), + ]), + ('edit', [ + ('_Undo', '<<undo>>'), + ('_Redo', '<<redo>>'), + None, + ('Cu_t', '<<Cut>>'), + ('_Copy', '<<Copy>>'), + ('_Paste', '<<Paste>>'), + None, + ('_Find...', '<<find>>'), + ('Find _next', '<<find-next>>'), + ('Find _same', '<<find-same>>'), + ('_Go to line', '<<goto-line>>'), + None, + ('_Dedent region', '<<dedent-region>>'), + ('_Indent region', '<<indent-region>>'), + ('Comment _out region', '<<comment-region>>'), + ('U_ncomment region', '<<uncomment-region>>'), + ]), + ('debug', [ + ('_Go to line from traceback', '<<goto-traceback-line>>'), + ('_Open stack viewer', '<<open-stack-viewer>>'), + ('_Debugger toggle', '<<toggle-debugger>>'), + ]), + ('help', [ + ('_Help...', '<<help>>'), + None, + ('_About IDLE...', '<<about-idle>>'), + ]), ] -emacs_bindings = [ - - # File menu - - ("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", "Open module...", "C-x C-m", - "<<open-module>>", "<Control-x><Control-m>"), - ("file", "Class browser...", "C-x C-b", - "<<open-class-browser>>", "<Control-x><Control-b>"), - ("file", None, None), - - ("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), - - ("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>>", "<Control-w>"), - ("edit", "Copy", None, "<<Copy>>", "<Alt-w>"), - ("edit", "Paste", None, "<<Paste>>", "<Control-y>"), - ("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>"), - ("edit", "Indent region", "Ctrl-]", "<<indent-region>>", - "<Meta-bracketright>", "<Alt-bracketright>", "<Control-bracketright>"), - - ("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>"), - - # Debug menu - - ("debug", "Go to line from traceback", None, "<<goto-traceback-line>>"), - ("debug", "Open stack viewer", None, "<<open-stack-viewer>>"), - ("debug", "Toggle debugger", None, "<<toggle-debugger>>"), - - # Help menu - - ("help", "Help...", None, "<<help>>"), - ("help", None, None), - ("help", "About IDLE...", None, "<<about-idle>>"), - - # Not in any menu - - (None, None, None, "<<beginning-of-line>>", "<Control-a>", "<Home>"), - (None, None, None, "<<center-insert>>", "<Control-l>"), - - (None, None, None, "<<expand-word>>", "<Meta-slash>", "<Alt-slash>"), - - (None, None, None, "<<newline-and-indent>>", "<Key-Return>", "<KP_Enter>"), - (None, None, None, "<<plain-newline-and-indent>>", "<Control-j>"), - - (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>"), - - (None, None, None, "<<do-nothing>>", "<Control-x>"), -] - -default_bindings = emacs_bindings - -def apply_bindings(text, bindings=default_bindings): - event_add = text.event_add - for args in bindings: - 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 +windows_keydefs = { + '<<beginning-of-line>>': ['<Control-a>', '<Home>'], + '<<close-all-windows>>': ['<Control-q>'], + '<<comment-region>>': ['<Meta-Key-3>', '<Alt-Key-3>'], + '<<dedent-region>>': ['<Control-bracketleft>'], + '<<dump-undo-state>>': ['<Control-backslash>'], + '<<end-of-file>>': ['<Control-d>'], + '<<expand-word>>': ['<Meta-slash>', '<Alt-slash>'], + '<<find-next>>': ['<F3>', '<Control-g>'], + '<<find-same>>': ['<Control-F3>'], + '<<find>>': ['<Control-f>'], + '<<goto-line>>': ['<Alt-g>', '<Meta-g>'], + '<<history-next>>': ['<Meta-n>', '<Alt-n>'], + '<<history-previous>>': ['<Meta-p>', '<Alt-p>'], + '<<indent-region>>': ['<Control-bracketright>'], + '<<interrupt-execution>>': ['<Control-c>'], + '<<newline-and-indent>>': ['<Key-Return>', '<KP_Enter>'], + '<<open-new-window>>': ['<Control-n>'], + '<<open-window-from-file>>': ['<Control-o>'], + '<<plain-newline-and-indent>>': ['<Control-j>'], + '<<redo>>': ['<Control-y>'], + '<<save-copy-of-window-as-file>>': ['<Meta-w>'], + '<<save-window-as-file>>': ['<Control-w>'], + '<<save-window>>': ['<Control-s>'], + '<<toggle-auto-coloring>>': ['<Control-slash>'], + '<<uncomment-region>>': ['<Meta-Key-4>', '<Alt-Key-4>'], + '<<undo>>': ['<Control-z>'], +} + +emacs_keydefs = { + '<<Copy>>': ['<Alt-w>'], + '<<Cut>>': ['<Control-w>'], + '<<Paste>>': ['<Control-y>'], + '<<about-idle>>': [], + '<<beginning-of-line>>': ['<Control-a>', '<Home>'], + '<<center-insert>>': ['<Control-l>'], + '<<close-all-windows>>': ['<Control-x><Control-c>'], + '<<close-window>>': ['<Control-x><Control-0>'], + '<<comment-region>>': ['<Meta-Key-3>', '<Alt-Key-3>'], + '<<dedent-region>>': ['<Meta-bracketleft>', + '<Alt-bracketleft>', + '<Control-bracketleft>'], + '<<do-nothing>>': ['<Control-x>'], + '<<dump-undo-state>>': ['<Control-backslash>'], + '<<end-of-file>>': ['<Control-d>'], + '<<expand-word>>': ['<Meta-slash>', '<Alt-slash>'], + '<<find-next>>': ['<Control-u><Control-s>'], + '<<find-same>>': ['<Control-s>'], + '<<find>>': ['<Control-u><Control-u><Control-s>'], + '<<goto-line>>': ['<Alt-g>', '<Meta-g>'], + '<<goto-traceback-line>>': [], + '<<help>>': [], + '<<history-next>>': ['<Meta-n>', '<Alt-n>'], + '<<history-previous>>': ['<Meta-p>', '<Alt-p>'], + '<<indent-region>>': ['<Meta-bracketright>', + '<Alt-bracketright>', + '<Control-bracketright>'], + '<<interrupt-execution>>': ['<Control-c>'], + '<<newline-and-indent>>': ['<Key-Return>', '<KP_Enter>'], + '<<open-class-browser>>': ['<Control-x><Control-b>'], + '<<open-module>>': ['<Control-x><Control-m>'], + '<<open-new-window>>': ['<Control-x><Control-n>'], + '<<open-stack-viewer>>': [], + '<<open-window-from-file>>': ['<Control-x><Control-f>'], + '<<plain-newline-and-indent>>': ['<Control-j>'], + '<<redo>>': ['<Alt-z>', '<Meta-z>'], + '<<save-copy-of-window-as-file>>': ['<Control-x><w>'], + '<<save-window-as-file>>': ['<Control-x><Control-w>'], + '<<save-window>>': ['<Control-x><Control-s>'], + '<<toggle-auto-coloring>>': ['<Control-slash>'], + '<<toggle-debugger>>': [], + '<<uncomment-region>>': ['<Meta-Key-4>', '<Alt-Key-4>'], + '<<undo>>': ['<Control-z>'], +} + +def prepstr(s): + # Helper to extract the underscore from a string, + # e.g. prepstr("Co_py") returns (2, "Copy"). + i = string.find(s, '_') + if i >= 0: + s = s[:i] + s[i+1:] + return i, s + +keynames = { + 'bracketleft': '[', + 'bracketright': ']', +} + +def getaccelerator(keydefs, event): + keylist = keydefs.get(event) + if not keylist: + return "" + s = keylist[0] + if s[:6] == "<Meta-": + # Prefer Alt over Meta -- they should be the same thing anyway + alts = "<Alt-" + s[6:] + if alts in keylist: + s = alts + s = re.sub(r"-[a-z]\b", lambda m: string.upper(m.group()), s) + s = re.sub(r"\b\w+\b", lambda m: keynames.get(m.group(), m.group()), s) + s = re.sub("Key-", "", s) + s = re.sub("Control-", "Ctrl-", s) + s = re.sub("-", "+", s) + s = re.sub("><", " ", s) + s = re.sub("<", "", s) + s = re.sub(">", "", s) + return s + +if sys.platform == 'win32': + default_keydefs = windows_keydefs +else: + default_keydefs = emacs_keydefs + +def apply_bindings(text, keydefs=default_keydefs): + text.keydefs = keydefs + for event, keylist in keydefs.items(): + if keylist: + apply(text.event_add, (event,) + tuple(keylist)) + +def fill_menus(text, menudict, defs=menudefs): + # Fill the menus for the given text widget. The menudict argument is # a dictionary containing the menus, keyed by their lowercased name. # Menus that are absent or None are ignored. - for args in bindings: - menu, label, accelerator = args[:3] - if not menu: - continue - menu = dict.get(menu) + if hasattr(text, "keydefs"): + keydefs = text.keydefs + else: + keydefs = default_keydefs + for mname, itemlist in defs: + menu = menudict.get(mname) 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() + for item in itemlist: + if not item: + menu.add_separator() + else: + label, event = item + underline, label = prepstr(label) + accelerator = getaccelerator(keydefs, event) + def command(text=text, event=event): + text.event_generate(event) + menu.add_command(label=label, underline=underline, + command=command, accelerator=accelerator) |