Initial revision
diff --git a/Demo/tkinter/guido/ManPage.py b/Demo/tkinter/guido/ManPage.py
new file mode 100755
index 0000000..993a3db
--- /dev/null
+++ b/Demo/tkinter/guido/ManPage.py
@@ -0,0 +1,149 @@
+# Widget to display a man page
+
+import regex
+from Tkinter import *
+from ScrolledText import ScrolledText
+
+# XXX These fonts may have to be changed to match your system
+BOLDFONT = '*-Courier-Bold-R-Normal-*-120-*'
+ITALICFONT = '*-Courier-Medium-O-Normal-*-120-*'
+
+# XXX Recognizing footers is system dependent
+# (This one works for IRIX 5.2 and Solaris 2.2)
+footerprog = regex.compile(
+ '^ Page [1-9][0-9]*[ \t]+\|^.*Last change:.*[1-9][0-9]*\n')
+emptyprog = regex.compile('^[ \t]*\n')
+ulprog = regex.compile('^[ \t]*[Xv!_][Xv!_ \t]*\n')
+
+# Basic Man Page class -- does not disable editing
+class EditableManPage(ScrolledText):
+
+ def __init__(self, master=None, cnf={}):
+ # Initialize base class
+ ScrolledText.__init__(self, master, cnf)
+
+ # Define tags for formatting styles
+ self.text.tag_config('bold', {'font': BOLDFONT})
+ self.text.tag_config('italic', {'font': ITALICFONT})
+ self.text.tag_config('underline', {'underline': 1})
+
+ # Create mapping from characters to tags
+ self.tagmap = {
+ 'X': 'bold',
+ '_': 'underline',
+ '!': 'italic',
+ }
+
+ # Parse nroff output piped through ul -i and append it to the
+ # text widget
+ def parsefile(self, fp):
+ save_cursor = self.text['cursor']
+ self.text['cursor'] = 'watch'
+ self.text.update()
+ ok = 0
+ empty = 0
+ nextline = None
+ while 1:
+ if nextline:
+ line = nextline
+ nextline = None
+ else:
+ line = fp.readline()
+ if not line:
+ break
+ if emptyprog.match(line) >= 0:
+ empty = 1
+ continue
+ nextline = fp.readline()
+ if nextline and ulprog.match(nextline) >= 0:
+ propline = nextline
+ nextline = None
+ else:
+ propline = ''
+ if not ok:
+ ok = 1
+ empty = 0
+ continue
+ if footerprog.match(line) >= 0:
+ ok = 0
+ empty = 0
+ continue
+ if empty:
+ self.insert_prop('\n')
+ empty = 0
+ p = ''
+ j = 0
+ for i in range(min(len(propline), len(line))):
+ if propline[i] != p:
+ if j < i:
+ self.insert_prop(line[j:i], p)
+ j = i
+ p = propline[i]
+ self.insert_prop(line[j:])
+ self.text['cursor'] = save_cursor
+
+ def insert_prop(self, str, prop = ' '):
+ here = self.text.index(AtInsert())
+ self.text.insert(AtInsert(), str)
+ for tag in self.tagmap.values():
+ self.text.tag_remove(tag, here, AtInsert())
+ if self.tagmap.has_key(prop):
+ self.text.tag_add(self.tagmap[prop], here, AtInsert())
+
+# Readonly Man Page class -- disables editing, otherwise the same
+class ReadonlyManPage(EditableManPage):
+
+ def __init__(self, master=None, cnf={}):
+ # Initialize base class
+ EditableManPage.__init__(self, master, cnf)
+
+ # Make the text readonly
+ self.text.bind('<Any-KeyPress>', self.modify_cb)
+ self.text.bind('<Return>', self.modify_cb)
+ self.text.bind('<BackSpace>', self.modify_cb)
+ self.text.bind('<Delete>', self.modify_cb)
+ self.text.bind('<Control-h>', self.modify_cb)
+ self.text.bind('<Control-d>', self.modify_cb)
+ self.text.bind('<Control-v>', self.modify_cb)
+
+ def modify_cb(self, e):
+ pass
+
+# Alias
+ManPage = ReadonlyManPage
+
+# Test program.
+# usage: ManPage [manpage]; or ManPage [-f] file
+# -f means that the file is nroff -man output run through ul -i
+def test():
+ import os
+ import sys
+ # XXX This directory may be different on your system
+ MANDIR = '/usr/local/man/mann'
+ DEFAULTPAGE = 'Tcl'
+ formatted = 0
+ if sys.argv[1:] and sys.argv[1] == '-f':
+ formatted = 1
+ del sys.argv[1]
+ if sys.argv[1:]:
+ name = sys.argv[1]
+ else:
+ name = DEFAULTPAGE
+ if not formatted:
+ if name[-2:-1] != '.':
+ name = name + '.n'
+ name = os.path.join(MANDIR, name)
+ root = Tk()
+ root.minsize(1, 1)
+ manpage = ManPage(root, {'relief': 'sunken', 'bd': 2,
+ Pack: {'expand': 1, 'fill': 'both'}})
+ if formatted:
+ fp = open(name, 'r')
+ else:
+ fp = os.popen('nroff -man %s | ul -i' % name, 'r')
+ manpage.parsefile(fp)
+ root.mainloop()
+
+# Run the test program when called as a script
+if __name__ == '__main__':
+ test()