You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
176 lines
6.1 KiB
176 lines
6.1 KiB
"""
|
|
A number of function that enhance IDLE on MacOSX when it used as a normal
|
|
GUI application (as opposed to an X11 application).
|
|
"""
|
|
import sys
|
|
import Tkinter
|
|
from os import path
|
|
|
|
|
|
_appbundle = None
|
|
|
|
def runningAsOSXApp():
|
|
"""
|
|
Returns True if Python is running from within an app on OSX.
|
|
If so, assume that Python was built with Aqua Tcl/Tk rather than
|
|
X11 Tcl/Tk.
|
|
"""
|
|
global _appbundle
|
|
if _appbundle is None:
|
|
_appbundle = (sys.platform == 'darwin' and '.app' in sys.executable)
|
|
return _appbundle
|
|
|
|
_carbonaquatk = None
|
|
|
|
def isCarbonAquaTk(root):
|
|
"""
|
|
Returns True if IDLE is using a Carbon Aqua Tk (instead of the
|
|
newer Cocoa Aqua Tk).
|
|
"""
|
|
global _carbonaquatk
|
|
if _carbonaquatk is None:
|
|
_carbonaquatk = (runningAsOSXApp() and
|
|
'aqua' in root.tk.call('tk', 'windowingsystem') and
|
|
'AppKit' not in root.tk.call('winfo', 'server', '.'))
|
|
return _carbonaquatk
|
|
|
|
def tkVersionWarning(root):
|
|
"""
|
|
Returns a string warning message if the Tk version in use appears to
|
|
be one known to cause problems with IDLE.
|
|
1. Apple Cocoa-based Tk 8.5.7 shipped with Mac OS X 10.6 is unusable.
|
|
2. Apple Cocoa-based Tk 8.5.9 in OS X 10.7 and 10.8 is better but
|
|
can still crash unexpectedly.
|
|
"""
|
|
|
|
if (runningAsOSXApp() and
|
|
('AppKit' in root.tk.call('winfo', 'server', '.')) ):
|
|
patchlevel = root.tk.call('info', 'patchlevel')
|
|
if patchlevel not in ('8.5.7', '8.5.9'):
|
|
return False
|
|
return (r"WARNING: The version of Tcl/Tk ({0}) in use may"
|
|
r" be unstable.\n"
|
|
r"Visit http://www.python.org/download/mac/tcltk/"
|
|
r" for current information.".format(patchlevel))
|
|
else:
|
|
return False
|
|
|
|
def addOpenEventSupport(root, flist):
|
|
"""
|
|
This ensures that the application will respond to open AppleEvents, which
|
|
makes is feasible to use IDLE as the default application for python files.
|
|
"""
|
|
def doOpenFile(*args):
|
|
for fn in args:
|
|
flist.open(fn)
|
|
|
|
# The command below is a hook in aquatk that is called whenever the app
|
|
# receives a file open event. The callback can have multiple arguments,
|
|
# one for every file that should be opened.
|
|
root.createcommand("::tk::mac::OpenDocument", doOpenFile)
|
|
|
|
def hideTkConsole(root):
|
|
try:
|
|
root.tk.call('console', 'hide')
|
|
except Tkinter.TclError:
|
|
# Some versions of the Tk framework don't have a console object
|
|
pass
|
|
|
|
def overrideRootMenu(root, flist):
|
|
"""
|
|
Replace the Tk root menu by something that's more appropriate for
|
|
IDLE.
|
|
"""
|
|
# The menu that is attached to the Tk root (".") is also used by AquaTk for
|
|
# all windows that don't specify a menu of their own. The default menubar
|
|
# contains a number of menus, none of which are appropriate for IDLE. The
|
|
# Most annoying of those is an 'About Tck/Tk...' menu in the application
|
|
# menu.
|
|
#
|
|
# This function replaces the default menubar by a mostly empty one, it
|
|
# should only contain the correct application menu and the window menu.
|
|
#
|
|
# Due to a (mis-)feature of TkAqua the user will also see an empty Help
|
|
# menu.
|
|
from Tkinter import Menu, Text, Text
|
|
from idlelib.EditorWindow import prepstr, get_accelerator
|
|
from idlelib import Bindings
|
|
from idlelib import WindowList
|
|
from idlelib.MultiCall import MultiCallCreator
|
|
|
|
menubar = Menu(root)
|
|
root.configure(menu=menubar)
|
|
menudict = {}
|
|
|
|
menudict['windows'] = menu = Menu(menubar, name='windows')
|
|
menubar.add_cascade(label='Window', menu=menu, underline=0)
|
|
|
|
def postwindowsmenu(menu=menu):
|
|
end = menu.index('end')
|
|
if end is None:
|
|
end = -1
|
|
|
|
if end > 0:
|
|
menu.delete(0, end)
|
|
WindowList.add_windows_to_menu(menu)
|
|
WindowList.register_callback(postwindowsmenu)
|
|
|
|
def about_dialog(event=None):
|
|
from idlelib import aboutDialog
|
|
aboutDialog.AboutDialog(root, 'About IDLE')
|
|
|
|
def config_dialog(event=None):
|
|
from idlelib import configDialog
|
|
root.instance_dict = flist.inversedict
|
|
configDialog.ConfigDialog(root, 'Settings')
|
|
|
|
def help_dialog(event=None):
|
|
from idlelib import textView
|
|
fn = path.join(path.abspath(path.dirname(__file__)), 'help.txt')
|
|
textView.view_file(root, 'Help', fn)
|
|
|
|
root.bind('<<about-idle>>', about_dialog)
|
|
root.bind('<<open-config-dialog>>', config_dialog)
|
|
root.createcommand('::tk::mac::ShowPreferences', config_dialog)
|
|
if flist:
|
|
root.bind('<<close-all-windows>>', flist.close_all_callback)
|
|
|
|
# The binding above doesn't reliably work on all versions of Tk
|
|
# on MacOSX. Adding command definition below does seem to do the
|
|
# right thing for now.
|
|
root.createcommand('exit', flist.close_all_callback)
|
|
|
|
if isCarbonAquaTk(root):
|
|
# for Carbon AquaTk, replace the default Tk apple menu
|
|
menudict['application'] = menu = Menu(menubar, name='apple')
|
|
menubar.add_cascade(label='IDLE', menu=menu)
|
|
Bindings.menudefs.insert(0,
|
|
('application', [
|
|
('About IDLE', '<<about-idle>>'),
|
|
None,
|
|
]))
|
|
tkversion = root.tk.eval('info patchlevel')
|
|
if tuple(map(int, tkversion.split('.'))) < (8, 4, 14):
|
|
# for earlier AquaTk versions, supply a Preferences menu item
|
|
Bindings.menudefs[0][1].append(
|
|
('_Preferences....', '<<open-config-dialog>>'),
|
|
)
|
|
else:
|
|
# assume Cocoa AquaTk
|
|
# replace default About dialog with About IDLE one
|
|
root.createcommand('tkAboutDialog', about_dialog)
|
|
# replace default "Help" item in Help menu
|
|
root.createcommand('::tk::mac::ShowHelp', help_dialog)
|
|
# remove redundant "IDLE Help" from menu
|
|
del Bindings.menudefs[-1][1][0]
|
|
|
|
def setupApp(root, flist):
|
|
"""
|
|
Perform setup for the OSX application bundle.
|
|
"""
|
|
if not runningAsOSXApp(): return
|
|
|
|
hideTkConsole(root)
|
|
overrideRootMenu(root, flist)
|
|
addOpenEventSupport(root, flist)
|