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 

    14 from Tkinter import *

    15 import sys

    16 

    17 # 1. Create basic application structure: menu bar on top of

    18 # text widget, scrollbar on right.

    19 

    20 root = Tk()

    21 tk = root.tk

    22 mBar = Frame(root, relief=RAISED, borderwidth=2)

    23 mBar.pack(fill=X)

    24 

    25 f = Frame(root)

    26 f.pack(expand=1, fill=BOTH)

    27 s = Scrollbar(f, relief=FLAT)

    28 s.pack(side=RIGHT, fill=Y)

    29 t = Text(f, relief=RAISED, borderwidth=2, yscrollcommand=s.set, setgrid=1)

    30 t.pack(side=LEFT, fill=BOTH, expand=1)

    31 t.tag_config('bold', font='-Adobe-Courier-Bold-R-Normal-*-120-*')

    32 s['command'] = t.yview

    33 

    34 root.title('Tk Remote Controller')

    35 root.iconname('Tk Remote')

    36 

    37 # 2. Create menu button and menus.

    38 

    39 file = Menubutton(mBar, text='File', underline=0)

    40 file.pack(side=LEFT)

    41 file_m = Menu(file)

    42 file['menu'] = file_m

    43 file_m_apps = Menu(file_m, tearoff=0)

    44 file_m.add_cascade(label='Select Application', underline=0,

    45                    menu=file_m_apps)

    46 file_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 

    53 def 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

    59 t.bind('<1>', single1)

    60 

    61 def double1(e):

    62     x = e.x

    63     y = e.y

    64     t.setvar('tk_priv(selectMode)', 'word')

    65     t.tk_textSelectTo(At(x, y))

    66 t.bind('<Double-1>', double1)

    67 

    68 def triple1(e):

    69     x = e.x

    70     y = e.y

    71     t.setvar('tk_priv(selectMode)', 'line')

    72     t.tk_textSelectTo(At(x, y))

    73 t.bind('<Triple-1>', triple1)

    74 

    75 def returnkey(e):

    76     t.insert(AtInsert(), '\n')

    77     invoke()

    78 t.bind('<Return>', returnkey)

    79 

    80 def controlv(e):

    81     t.insert(AtInsert(), t.selection_get())

    82     t.yview_pickplace(AtInsert())

    83     if t.index(AtInsert())[-2:] == '.0':

    84         invoke()

    85 t.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 

    90 def backspace(e):

    91     if t.index('promptEnd') != t.index('insert - 1 char'):

    92         t.delete('insert - 1 char', AtInsert())

    93         t.yview_pickplace(AtInsert())

    94 t.bind('<BackSpace>', backspace)

    95 t.bind('<Control-h>', backspace)

    96 t.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 

   105 def 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 

   117 def 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 

   126 def 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 

   133 def 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 

   150 file_m_apps['postcommand'] = fillAppsMenu

   151 mBar.tk_menuBar(file)

   152 

   153 # 7. Miscellaneous initialization.

   154 

   155 app = root.winfo_name()

   156 prompt()

   157 t.focus()

   158 

   159 root.mainloop()