-# 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)
projects / python / commitdiff