diff options
| author | Guido van Rossum <guido@python.org> | 1995-09-07 19:46:43 (GMT) |
|---|---|---|
| committer | Guido van Rossum <guido@python.org> | 1995-09-07 19:46:43 (GMT) |
| commit | 69428f1fb3bf7d21c194097306b630e2e978f6ac (patch) | |
| tree | 41b17deb1b779ce38a85f52197ee369376c19bae /Demo | |
| parent | bbf817557f5a7d1e1927db046a1599552df74400 (diff) | |
| download | cpython-69428f1fb3bf7d21c194097306b630e2e978f6ac.zip cpython-69428f1fb3bf7d21c194097306b630e2e978f6ac.tar.gz cpython-69428f1fb3bf7d21c194097306b630e2e978f6ac.tar.bz2 | |
improve fonts; Tk 4.0 aware
Diffstat (limited to 'Demo')
| -rwxr-xr-x | Demo/tkinter/guido/ManPage.py | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/Demo/tkinter/guido/ManPage.py b/Demo/tkinter/guido/ManPage.py index 2c3371e..b8b6682 100755 --- a/Demo/tkinter/guido/ManPage.py +++ b/Demo/tkinter/guido/ManPage.py @@ -24,9 +24,9 @@ class EditableManPage(ScrolledText): ScrolledText.__init__(self, master, cnf) # Define tags for formatting styles - self.tag_config('X', {'font': BOLDFONT}) - self.tag_config('!', {'font': ITALICFONT}) - self.tag_config('_', {'underline': 1}) + self.tag_config('X', {'underline': 1}) + self.tag_config('!', {'font': BOLDFONT}) + self.tag_config('_', {'font': ITALICFONT}) # Set state to idle self.fp = None @@ -133,6 +133,10 @@ class EditableManPage(ScrolledText): return savestate = self['state'] self['state'] = 'normal' + if TkVersion >= 4.0: + self.mark_set('insert', 'end-1c') + else: + self.mark_set('insert', 'end') if self.empty: # One or more previous lines were empty # -- insert one blank line in the text @@ -158,13 +162,14 @@ class EditableManPage(ScrolledText): # Insert a string at the end, with at most one property (tag) def _insert_prop(self, str, prop = ' '): - here = self.index('end') - self.insert('end', str) - tags = self.tag_names(here) - for tag in tags: - self.tag_remove(tag, here, 'end') + here = self.index(AtInsert()) + self.insert(AtInsert(), str) + if TkVersion <= 4.0: + tags = self.tag_names(here) + for tag in tags: + self.tag_remove(tag, here, AtInsert()) if prop != ' ': - self.tag_add(prop, here, 'end') + self.tag_add(prop, here, AtInsert()) # Readonly Man Page class -- disables editing, otherwise the same class ReadonlyManPage(EditableManPage): |