#
# For Tix, see http://tix.sourceforge.net
#
-# This is a demo program of all Tix widgets available from Python. If
-# you have installed Python & Tix properly, you can execute this as
+# This is a demo program of some of the Tix widgets available in Python.
+# If you have installed Python & Tix properly, you can execute this as
#
# % python tixwidgets.py
#
import os, os.path, sys, Tix
from Tkconstants import *
+import traceback, tkMessageBox
TCL_DONT_WAIT = 1<<1
TCL_WINDOW_EVENTS = 1<<2
hm = Tix.Menu(help, tearoff=0)
help['menu'] = hm
- if w.tk.eval ('info commands console') == "console":
- fm.add_command(label='Console', underline=1,
- command=lambda w=w: w.tk.eval('console show'))
-
fm.add_command(label='Exit', underline=1,
command = lambda self=self: self.quitcmd () )
hm.add_checkbutton(label='BalloonHelp', underline=0, command=ToggleHelp,
# The trace variable option doesn't seem to work, instead I use 'command'
#apply(w.tk.call, ('trace', 'variable', self.useBalloons, 'w',
# ToggleHelp))
+
return w
def MkMainNotebook(self):
top = self.root
w = Tix.NoteBook(top, ipadx=5, ipady=5, options="""
- *TixNoteBook*tagPadX 6
- *TixNoteBook*tagPadY 4
- *TixNoteBook*borderWidth 2
+ tagPadX 6
+ tagPadY 4
+ borderWidth 2
""")
# This may be required if there is no *Background option
top['bg'] = w['bg']
root = self.root
z = root.winfo_toplevel()
z.wm_title('Tix Widget Demonstration')
- z.geometry('790x590+10+10')
-
+ if z.winfo_screenwidth() <= 800:
+ z.geometry('790x590+10+10')
+ else:
+ z.geometry('890x640+10+10')
demo.balloon = Tix.Balloon(root)
frame1 = self.MkMainMenu()
frame2 = self.MkMainNotebook()
demo.balloon['statusbar'] = demo.statusbar
z.wm_protocol("WM_DELETE_WINDOW", lambda self=self: self.quitcmd())
+ # To show Tcl errors - uncomment this to see the listbox bug.
+ # Tkinter defines a Tcl tkerror procedure that in effect
+ # silences all background Tcl error reporting.
+ # root.tk.eval('if {[info commands tkerror] != ""} {rename tkerror pytkerror}')
def quitcmd (self):
"""Quit our mainloop. It is up to you to call root.destroy() after."""
self.exit = 0
def loop(self):
- import tkMessageBox, traceback
+ """This is an explict replacement for _tkinter mainloop()
+ It lets you catch keyboard interrupts easier, and avoids
+ the 20 msec. dead sleep() which burns a constant CPU."""
while self.exit < 0:
+ # There are 2 whiles here. The outer one lets you continue
+ # after a ^C interrupt.
try:
- self.root.tk.dooneevent(TCL_ALL_EVENTS)
+ # This is the replacement for _tkinter mainloop()
+ # It blocks waiting for the next Tcl event using select.
+ while self.exit < 0:
+ self.root.tk.dooneevent(TCL_ALL_EVENTS)
except SystemExit:
+ # Tkinter uses SystemExit to exit
#print 'Exit'
self.exit = 1
- break
+ return
except KeyboardInterrupt:
if tkMessageBox.askquestion ('Interrupt', 'Really Quit?') == 'yes':
# self.tk.eval('exit')
+ self.exit = 1
return
- else:
- pass
continue
except:
+ # Otherwise it's some other error - be nice and say why
t, v, tb = sys.exc_info()
text = ""
for line in traceback.format_exception(t,v,tb):
def destroy (self):
self.root.destroy()
-
+
def RunMain(root):
global demo
def MkChoosers(nb, name):
w = nb.page(name)
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- w.option_add('*' + prefix + '*TixLabelFrame*label.padX', 4)
-
- til = Tix.LabelFrame(w, label='Chooser Widgets')
- cbx = Tix.LabelFrame(w, label='tixComboBox')
- ctl = Tix.LabelFrame(w, label='tixControl')
- sel = Tix.LabelFrame(w, label='tixSelect')
- opt = Tix.LabelFrame(w, label='tixOptionMenu')
- fil = Tix.LabelFrame(w, label='tixFileEntry')
- fbx = Tix.LabelFrame(w, label='tixFileSelectBox')
- tbr = Tix.LabelFrame(w, label='Tool Bar')
+ options = "label.padX 4"
+
+ til = Tix.LabelFrame(w, label='Chooser Widgets', options=options)
+ cbx = Tix.LabelFrame(w, label='tixComboBox', options=options)
+ ctl = Tix.LabelFrame(w, label='tixControl', options=options)
+ sel = Tix.LabelFrame(w, label='tixSelect', options=options)
+ opt = Tix.LabelFrame(w, label='tixOptionMenu', options=options)
+ fil = Tix.LabelFrame(w, label='tixFileEntry', options=options)
+ fbx = Tix.LabelFrame(w, label='tixFileSelectBox', options=options)
+ tbr = Tix.LabelFrame(w, label='Tool Bar', options=options)
MkTitle(til.frame)
MkCombo(cbx.frame)
fbx.form(right=-1, top=0, left='%66')
def MkCombo(w):
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixComboBox*label.width', 10)
- w.option_add('*' + prefix + '*TixComboBox*label.anchor', Tix.E)
- w.option_add('*' + prefix + '*TixComboBox*entry.width', 14)
-
- static = Tix.ComboBox(w, label='Static', editable=0)
- editable = Tix.ComboBox(w, label='Editable', editable=1)
+ options="label.width %d label.anchor %s entry.width %d" % (10, Tix.E, 14)
+
+ static = Tix.ComboBox(w, label='Static', editable=0, options=options)
+ editable = Tix.ComboBox(w, label='Editable', editable=1, options=options)
history = Tix.ComboBox(w, label='History', editable=1, history=1,
- anchor=Tix.E)
+ anchor=Tix.E, options=options)
static.insert(Tix.END, 'January')
static.insert(Tix.END, 'February')
static.insert(Tix.END, 'March')
def MkControl(w):
global demo_spintxt
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixControl*label.width', 10)
- w.option_add('*' + prefix + '*TixControl*label.anchor', Tix.E)
- w.option_add('*' + prefix + '*TixControl*entry.width', 13)
+ options="label.width %d label.anchor %s entry.width %d" % (10, Tix.E, 13)
demo_spintxt = Tix.StringVar()
demo_spintxt.set(states[0])
- simple = Tix.Control(w, label='Numbers')
- spintxt = Tix.Control(w, label='States', variable=demo_spintxt)
+ simple = Tix.Control(w, label='Numbers', options=options)
+ spintxt = Tix.Control(w, label='States', variable=demo_spintxt,
+ options=options)
spintxt['incrcmd'] = lambda w=spintxt: spin_cmd(w, 1)
spintxt['decrcmd'] = lambda w=spintxt: spin_cmd(w, -1)
spintxt['validatecmd'] = lambda w=spintxt: spin_validate(w)
simple.pack(side=Tix.TOP, padx=5, pady=3)
spintxt.pack(side=Tix.TOP, padx=5, pady=3)
-
+
def MkSelect(w):
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixSelect*label.anchor', Tix.CENTER)
- w.option_add('*' + prefix + '*TixSelect*orientation', Tix.VERTICAL)
- w.option_add('*' + prefix + '*TixSelect*labelSide', Tix.TOP)
+ options = "label.anchor %s" % Tix.CENTER
- sel1 = Tix.Select(w, label='Mere Mortals', allowzero=1, radio=1)
- sel2 = Tix.Select(w, label='Geeks', allowzero=1, radio=0)
+ sel1 = Tix.Select(w, label='Mere Mortals', allowzero=1, radio=1,
+ orientation=Tix.VERTICAL,
+ labelside=Tix.TOP,
+ options=options)
+ sel2 = Tix.Select(w, label='Geeks', allowzero=1, radio=0,
+ orientation=Tix.VERTICAL,
+ labelside= Tix.TOP,
+ options=options)
sel1.add('eat', text='Eat')
sel1.add('work', text='Work')
sel2.pack(side=Tix.LEFT, padx=5, pady=3, fill=Tix.X)
def MkOptMenu(w):
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixOptionMenu*label.anchor', Tix.E)
- m = Tix.OptionMenu(w, label='File Format : ', options='menubutton.width 15')
+ options='menubutton.width 15 label.anchor %s' % Tix.E
+
+ m = Tix.OptionMenu(w, label='File Format : ', options=options)
m.add_command('text', label='Plain Text')
m.add_command('post', label='PostScript')
m.add_command('format', label='Formatted Text')
m.pack(fill=Tix.X, padx=5, pady=3)
def MkFileEnt(w):
- msg = Tix.Message(w,
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='Press the "open file" icon button and a TixFileSelectDialog will popup.')
ent = Tix.FileEntry(w, label='Select a file : ')
For example, you can adjust the size of the two listboxes
and your past selections are recorded.
"""
- msg = Tix.Message(w,
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='The Tix FileSelectBox is a Motif-style box with various enhancements. For example, you can adjust the size of the two listboxes and your past selections are recorded.')
box = Tix.FileSelectBox(w)
box.pack(side=Tix.TOP, fill=Tix.X, padx=3, pady=3)
def MkToolBar(w):
+ """The Select widget is also good for arranging buttons in a tool bar.
+ """
global demo
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixSelect*frame.borderWidth', 1)
- msg = Tix.Message(w,
+ options='frame.borderWidth 1'
+
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='The Select widget is also good for arranging buttons in a tool bar.')
bar = Tix.Frame(w, bd=2, relief=Tix.RAISED)
- font = Tix.Select(w, allowzero=1, radio=0, label='')
- para = Tix.Select(w, allowzero=0, radio=1, label='')
+ font = Tix.Select(w, allowzero=1, radio=0, label='', options=options)
+ para = Tix.Select(w, allowzero=0, radio=1, label='', options=options)
font.add('bold', bitmap='@' + demo.dir + '/bitmaps/bold.xbm')
font.add('italic', bitmap='@' + demo.dir + '/bitmaps/italic.xbm')
para.pack({'in':bar}, side=Tix.LEFT, padx=3, pady=3)
def MkTitle(w):
- prefix = Tix.OptionName(w)
- if not prefix: prefix = ''
- w.option_add('*' + prefix + '*TixSelect*frame.borderWidth', 1)
- msg = Tix.Message(w,
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='There are many types of "chooser" widgets that allow the user to input different types of information')
msg.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=3, pady=3)
def MkScroll(nb, name):
w = nb.page(name)
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- w.option_add('*' + prefix + '*TixLabelFrame*label.padX', 4)
+ options='label.padX 4'
- sls = Tix.LabelFrame(w, label='tixScrolledListBox')
- swn = Tix.LabelFrame(w, label='tixScrolledWindow')
- stx = Tix.LabelFrame(w, label='tixScrolledText')
+ sls = Tix.LabelFrame(w, label='tixScrolledListBox', options=options)
+ swn = Tix.LabelFrame(w, label='tixScrolledWindow', options=options)
+ stx = Tix.LabelFrame(w, label='tixScrolledText', options=options)
MkSList(sls.frame)
MkSWindow(swn.frame)
swn.form(top=0, left=sls, right='%66', bottom=-1)
stx.form(top=0, left=swn, right=-1, bottom=-1)
+
def MkSList(w):
+ """This TixScrolledListBox is configured so that it uses scrollbars
+ only when it is necessary. Use the handles to resize the listbox and
+ watch the scrollbars automatically appear and disappear. """
top = Tix.Frame(w, width=300, height=330)
bot = Tix.Frame(w)
- msg = Tix.Message(top,
+ msg = Tix.Message(top,
relief=Tix.FLAT, width=200, anchor=Tix.N,
text='This TixScrolledListBox is configured so that it uses scrollbars only when it is necessary. Use the handles to resize the listbox and watch the scrollbars automatically appear and disappear.')
list.update()
rh.attach_widget(list)
-# See below why this is necessary.
-global image1
-image1 = None
def MkSWindow(w):
- global demo, image1
+ """The ScrolledWindow widget allows you to scroll any kind of Tk
+ widget. It is more versatile than a scrolled canvas widget.
+ """
+ global demo
+
+ text = 'The Tix ScrolledWindow widget allows you to scroll any kind of Tk widget. It is more versatile than a scrolled canvas widget.'
- text = 'The TixScrolledWindow widget allows you to scroll any kind of Tk widget. It is more versatile than a scrolled canvas widget.'
-
file = os.path.join(demo.dir, 'bitmaps', 'tix.gif')
if not os.path.isfile(file):
text += ' (Image missing)'
top = Tix.Frame(w, width=330, height=330)
bot = Tix.Frame(w)
- msg = Tix.Message(top,
+ msg = Tix.Message(top,
relief=Tix.FLAT, width=200, anchor=Tix.N,
text=text)
win = Tix.ScrolledWindow(top, scrollbar='auto')
- # This image is not showing up under Python unless it is set to a
- # global variable - no problem under Tcl. I assume it is being garbage
- # collected some how, even though the tcl command 'image names' shows
- # that as far as Tcl is concerned, the image exists and is called pyimage1.
+ global image1
+ # This image is not showing up in the Label unless it is set to a
+ # global variable - no problem under Tcl/Tix. It is being
+ # garbage collected at the end of this proecedure if not global
image1 = Tix.Image('photo', file=file)
lbl = Tix.Label(win.window, image=image1)
lbl.pack(expand=1, fill=Tix.BOTH)
btn.pack(anchor=Tix.CENTER)
top.pack(expand=1, fill=Tix.BOTH)
bot.pack(fill=Tix.BOTH)
- win.bind('<Map>', func=lambda arg=0, rh=rh, win=win:
- win.tk.call('tixDoWhenIdle', str(rh), 'attachwidget', str(win)))
def SWindow_reset(rh, win):
win.place(x=30, y=150, width=190, height=120)
rh.attach_widget(win)
def MkSText(w):
+ """The TixScrolledWindow widget allows you to scroll any kind of Tk
+ widget. It is more versatile than a scrolled canvas widget."""
top = Tix.Frame(w, width=330, height=330)
bot = Tix.Frame(w)
- msg = Tix.Message(top,
+ msg = Tix.Message(top,
relief=Tix.FLAT, width=200, anchor=Tix.N,
- text='The TixScrolledWindow widget allows you to scroll any kind of Tk widget. It is more versatile than a scrolled canvas widget.')
+ text='The Tix ScrolledWindow widget allows you to scroll any kind of Tk widget. It is more versatile than a scrolled canvas widget.')
win = Tix.ScrolledText(top, scrollbar='auto')
# win.text['wrap'] = 'none'
def MkManager(nb, name):
w = nb.page(name)
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- w.option_add('*' + prefix + '*TixLabelFrame*label.padX', 4)
+ options='label.padX 4'
- pane = Tix.LabelFrame(w, label='tixPanedWindow')
- note = Tix.LabelFrame(w, label='tixNoteBook')
+ pane = Tix.LabelFrame(w, label='tixPanedWindow', options=options)
+ note = Tix.LabelFrame(w, label='tixNoteBook', options=options)
MkPanedWindow(pane.frame)
MkNoteBook(note.frame)
note.form(top=0, right=-1, bottom=-1)
def MkPanedWindow(w):
- msg = Tix.Message(w,
+ """The PanedWindow widget allows the user to interactively manipulate
+ the sizes of several panes. The panes can be arranged either vertically
+ or horizontally.
+ """
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='The PanedWindow widget allows the user to interactively manipulate the sizes of several panes. The panes can be arranged either vertically or horizontally.')
group = Tix.LabelEntry(w, label='Newsgroup:', options='entry.width 25')
pane.pack(side=Tix.TOP, padx=3, pady=3, fill=Tix.BOTH, expand=1)
def MkNoteBook(w):
- msg = Tix.Message(w,
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
text='The NoteBook widget allows you to layout a complex interface into individual pages.')
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- w.option_add('*' + prefix + '*TixControl*entry.width', 10)
- w.option_add('*' + prefix + '*TixControl*label.width', 18)
- w.option_add('*' + prefix + '*TixControl*label.anchor', Tix.E)
- w.option_add('*' + prefix + '*TixNoteBook*tagPadX', 8)
-
- nb = Tix.NoteBook(w, ipadx=6, ipady=6)
+ # prefix = Tix.OptionName(w)
+ # if not prefix: prefix = ''
+ # w.option_add('*' + prefix + '*TixNoteBook*tagPadX', 8)
+ options = "entry.width %d label.width %d label.anchor %s" % (10, 18, Tix.E)
+
+ nb = Tix.NoteBook(w, ipadx=6, ipady=6, options=options)
nb.add('hard_disk', label="Hard Disk", underline=0)
nb.add('network', label="Network", underline=0)
def MkDirList(nb, name):
w = nb.page(name)
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- w.option_add('*' + prefix + '*TixLabelFrame*label.padX', 4)
+ options = "label.padX 4"
- dir = Tix.LabelFrame(w, label='tixDirList')
- fsbox = Tix.LabelFrame(w, label='tixExFileSelectBox')
+ dir = Tix.LabelFrame(w, label='tixDirList', options=options)
+ fsbox = Tix.LabelFrame(w, label='tixExFileSelectBox', options=options)
MkDirListWidget(dir.frame)
MkExFileWidget(fsbox.frame)
dir.form(top=0, left=0, right='%40', bottom=-1)
fsbox.form(top=0, left='%40', right=-1, bottom=-1)
def MkDirListWidget(w):
- msg = Tix.Message(w,
+ """The TixDirList widget gives a graphical representation of the file
+ system directory and makes it easy for the user to choose and access
+ directories.
+ """
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
- text='The TixDirList widget gives a graphical representation of the file system directory and makes it easy for the user to choose and access directories.')
+ text='The Tix DirList widget gives a graphical representation of the file system directory and makes it easy for the user to choose and access directories.')
dirlist = Tix.DirList(w, options='hlist.padY 1 hlist.width 25 hlist.height 16')
msg.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=3, pady=3)
dirlist.pack(side=Tix.TOP, padx=3, pady=3)
def MkExFileWidget(w):
- msg = Tix.Message(w,
+ """The TixExFileSelectBox widget is more user friendly than the Motif
+ style FileSelectBox. """
+ msg = Tix.Message(w,
relief=Tix.FLAT, width=240, anchor=Tix.N,
- text='The TixExFileSelectBox widget is more user friendly than the Motif style FileSelectBox.')
+ text='The Tix ExFileSelectBox widget is more user friendly than the Motif style FileSelectBox.')
# There's a bug in the ComboBoxes - the scrolledlistbox is destroyed
box = Tix.ExFileSelectBox(w, bd=2, relief=Tix.RAISED)
msg.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=3, pady=3)
## {d "Miscellaneous Widgets" misc }
## {d "Image Types" image }
## }
-##
+##
## set image {
## {d "Compound Image" cmpimg }
## {d "XPM Image" xpm {i pixmap}}
## }
-##
+##
## set cmpimg {
-## {f "In Buttons" CmpImg.tcl }
+##done {f "In Buttons" CmpImg.tcl }
## {f "In NoteBook" CmpImg2.tcl }
## {f "Notebook Color Tabs" CmpImg4.tcl }
## {f "Icons" CmpImg3.tcl }
## }
-##
+##
## set xpm {
## {f "In Button" Xpm.tcl {i pixmap}}
## {f "In Menu" Xpm1.tcl {i pixmap}}
## }
-##
+##
## set file {
##added {f DirList DirList.tcl }
##added {f DirTree DirTree.tcl }
## {f FileSelectDialog FileDlg.tcl }
## {f FileEntry FileEnt.tcl }
## }
-##
+##
## set hlist {
## {f HList HList1.tcl }
## {f CheckList ChkList.tcl {c tixCheckList}}
##done {f Tree Tree.tcl }
##done {f "Tree (Dynamic)" DynTree.tcl {v win}}
## }
-##
+##
## set tlist {
## {f "ScrolledTList (1)" STList1.tcl {c tixTList}}
## {f "ScrolledTList (2)" STList2.tcl {c tixTList}}
## if {$tcl_platform(platform) != "windows"} {
##na lappend tlist {f "TList File Viewer" STList3.tcl {c tixTList}}
## }
-##
+##
## set grid {
##na {f "Simple Grid" SGrid0.tcl {c tixGrid}}
##na {f "ScrolledGrid" SGrid1.tcl {c tixGrid}}
##na {f "Editable Grid" EditGrid.tcl {c tixGrid}}
## }
-##
+##
## set scroll {
## {f ScrolledListBox SListBox.tcl }
## {f ScrolledText SText.tcl }
## {f ScrolledWindow SWindow.tcl }
##na {f "Canvas Object View" CObjView.tcl {c tixCObjView}}
## }
-##
+##
## set manager {
-##na {f ListNoteBook ListNBK.tcl }
+## {f ListNoteBook ListNBK.tcl }
##done {f NoteBook NoteBook.tcl }
##done {f PanedWindow PanedWin.tcl }
## }
-##
+##
## set misc {
##done {f Balloon Balloon.tcl }
##done {f ButtonBox BtnBox.tcl }
##done {f Control Control.tcl }
## {f LabelEntry LabEntry.tcl }
## {f LabelFrame LabFrame.tcl }
-##na {f Meter Meter.tcl {c tixMeter}}
+## {f Meter Meter.tcl {c tixMeter}}
##done {f OptionMenu OptMenu.tcl }
##done {f PopupMenu PopMenu.tcl }
## {f Select Select.tcl }
def MkSample(nb, name):
w = nb.page(name)
- prefix = Tix.OptionName(w)
- if not prefix:
- prefix = ''
- else:
- prefix = '*' + prefix
- w.option_add(prefix + '*TixLabelFrame*label.padX', 4)
+ options = "label.padX 4"
pane = Tix.PanedWindow(w, orientation='horizontal')
pane.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH)
f1['relief'] = 'flat'
f2['relief'] = 'flat'
- lab = Tix.Label(f1, text='Select a sample program:', anchor=Tix.W)
- lab.pack(side=Tix.TOP, expand=0, fill=Tix.X, padx=5, pady=5)
- lab1 = Tix.Label(f2, text='Source:', anchor=Tix.W)
- lab1.pack(side=Tix.TOP, expand=0, fill=Tix.X, padx=5, pady=5)
+ lab = Tix.LabelFrame(f1, label='Select a sample program:')
+ lab.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=5, pady=5)
+ lab1 = Tix.LabelFrame(f2, label='Source:')
+ lab1.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=5, pady=5)
- slb = Tix.Tree(f1, options='hlist.width 25')
+ slb = Tix.Tree(lab.frame, options='hlist.width 20')
slb.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=5)
- stext = Tix.ScrolledText(f2, name='stext')
+ stext = Tix.ScrolledText(lab1.frame, name='stext')
font = root.tk.eval('tix option get fixed_font')
stext.text.config(font=font)
- stext.text.bind('<Up>', lambda w=stext.text: w.yview(scroll='-1 unit'))
- stext.text.bind('<Down>', lambda w=stext.text: w.yview(scroll='1 unit'))
- stext.text.bind('<Left>', lambda w=stext.text: w.xview(scroll='-1 unit'))
- stext.text.bind('<Right>', lambda w=stext.text: w.xview(scroll='1 unit'))
- stext.pack(side=Tix.TOP, expand=1, fill=Tix.BOTH, padx=7)
- frame = Tix.Frame(f2, name='frame')
- frame.pack(side=Tix.TOP, expand=0, fill=Tix.X, padx=7)
+ frame = Tix.Frame(lab1.frame, name='frame')
run = Tix.Button(frame, text='Run ...', name='run')
view = Tix.Button(frame, text='View Source ...', name='view')
stext.text['wrap'] = 'none'
stext.text['width'] = 80
+ frame.pack(side=Tix.BOTTOM, expand=0, fill=Tix.X, padx=7)
+ stext.pack(side=Tix.TOP, expand=0, fill=Tix.BOTH, padx=7)
+
slb.hlist['separator'] = '.'
slb.hlist['width'] = 25
slb.hlist['drawbranch'] = 0