/Demo/tkinter/guido/rmt.py

  1#! /usr/bin/env python
  2
  3# A Python program implementing rmt, an application for remotely
  4# controlling other Tk applications.
  5# Cf. Ousterhout, Tcl and the Tk Toolkit, Figs. 27.5-8, pp. 273-276.
  6
  7# Note that because of forward references in the original, we
  8# sometimes delay bindings until after the corresponding procedure is
  9# defined.  We also introduce names for some unnamed code blocks in
 10# the original because of restrictions on lambda forms in Python.
 11
 12# XXX This should be written in a more Python-like style!!!
 13
 14from Tkinter import *
 15import sys
 16
 17# 1. Create basic application structure: menu bar on top of
 18# text widget, scrollbar on right.
 19
 20root = Tk()
 21tk = root.tk
 22mBar = Frame(root, relief=RAISED, borderwidth=2)
 23mBar.pack(fill=X)
 24
 25f = Frame(root)
 26f.pack(expand=1, fill=BOTH)
 27s = Scrollbar(f, relief=FLAT)
 28s.pack(side=RIGHT, fill=Y)
 29t = Text(f, relief=RAISED, borderwidth=2, yscrollcommand=s.set, setgrid=1)
 30t.pack(side=LEFT, fill=BOTH, expand=1)
 31t.tag_config('bold', font='-Adobe-Courier-Bold-R-Normal-*-120-*')
 32s['command'] = t.yview
 33
 34root.title('Tk Remote Controller')
 35root.iconname('Tk Remote')
 36
 37# 2. Create menu button and menus.
 38
 39file = Menubutton(mBar, text='File', underline=0)
 40file.pack(side=LEFT)
 41file_m = Menu(file)
 42file['menu'] = file_m
 43file_m_apps = Menu(file_m, tearoff=0)
 44file_m.add_cascade(label='Select Application', underline=0,
 45                   menu=file_m_apps)
 46file_m.add_command(label='Quit', underline=0, command=sys.exit)
 47
 48# 3. Create bindings for text widget to allow commands to be
 49# entered and information to be selected.  New characters
 50# can only be added at the end of the text (can't ever move
 51# insertion point).
 52
 53def single1(e):
 54    x = e.x
 55    y = e.y
 56    t.setvar('tk_priv(selectMode)', 'char')
 57    t.mark_set('anchor', At(x, y))
 58    # Should focus W
 59t.bind('<1>', single1)
 60
 61def double1(e):
 62    x = e.x
 63    y = e.y
 64    t.setvar('tk_priv(selectMode)', 'word')
 65    t.tk_textSelectTo(At(x, y))
 66t.bind('<Double-1>', double1)
 67
 68def triple1(e):
 69    x = e.x
 70    y = e.y
 71    t.setvar('tk_priv(selectMode)', 'line')
 72    t.tk_textSelectTo(At(x, y))
 73t.bind('<Triple-1>', triple1)
 74
 75def returnkey(e):
 76    t.insert(AtInsert(), '\n')
 77    invoke()
 78t.bind('<Return>', returnkey)
 79
 80def controlv(e):
 81    t.insert(AtInsert(), t.selection_get())
 82    t.yview_pickplace(AtInsert())
 83    if t.index(AtInsert())[-2:] == '.0':
 84        invoke()
 85t.bind('<Control-v>', controlv)
 86
 87# 4. Procedure to backspace over one character, as long as
 88# the character isn't part of the prompt.
 89
 90def backspace(e):
 91    if t.index('promptEnd') != t.index('insert - 1 char'):
 92        t.delete('insert - 1 char', AtInsert())
 93        t.yview_pickplace(AtInsert())
 94t.bind('<BackSpace>', backspace)
 95t.bind('<Control-h>', backspace)
 96t.bind('<Delete>', backspace)
 97
 98
 99# 5. Procedure that's invoked when return is typed:  if
100# there's not yet a complete command (e.g. braces are open)
101# then do nothing.  Otherwise, execute command (locally or
102# remotely), output the result or error message, and issue
103# a new prompt.
104
105def invoke():
106    cmd = t.get('promptEnd + 1 char', AtInsert())
107    if t.getboolean(tk.call('info', 'complete', cmd)): # XXX
108        if app == root.winfo_name():
109            msg = tk.call('eval', cmd) # XXX
110        else:
111            msg = t.send(app, cmd)
112        if msg:
113            t.insert(AtInsert(), msg + '\n')
114        prompt()
115    t.yview_pickplace(AtInsert())
116
117def prompt():
118    t.insert(AtInsert(), app + ': ')
119    t.mark_set('promptEnd', 'insert - 1 char')
120    t.tag_add('bold', 'insert linestart', 'promptEnd')
121
122# 6. Procedure to select a new application.  Also changes
123# the prompt on the current command line to reflect the new
124# name.
125
126def newApp(appName):
127    global app
128    app = appName
129    t.delete('promptEnd linestart', 'promptEnd')
130    t.insert('promptEnd', appName + ':')
131    t.tag_add('bold', 'promptEnd linestart', 'promptEnd')
132
133def fillAppsMenu():
134    file_m_apps.add('command')
135    file_m_apps.delete(0, 'last')
136    names = root.winfo_interps()
137    names = list(names)
138    names.sort()
139    for name in names:
140        try:
141            root.send(name, 'winfo name .')
142        except TclError:
143            # Inoperative window -- ignore it
144            pass
145        else:
146            file_m_apps.add_command(
147                label=name,
148                command=lambda name=name: newApp(name))
149
150file_m_apps['postcommand'] = fillAppsMenu
151mBar.tk_menuBar(file)
152
153# 7. Miscellaneous initialization.
154
155app = root.winfo_name()
156prompt()
157t.focus()
158
159root.mainloop()