diff options
Diffstat (limited to 'library/megawidget.tcl')
| -rw-r--r-- | library/megawidget.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/megawidget.tcl b/library/megawidget.tcl index ec9f469..5114f63 100644 --- a/library/megawidget.tcl +++ b/library/megawidget.tcl @@ -4,13 +4,13 @@ # the ::tk::IconList megawdget, which is itself only designed for use in # the Unix file dialogs. # -# Copyright (c) 2009-2010 Donal K. Fellows +# Copyright © 2009-2010 Donal K. Fellows # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # -package require Tk +package require tk ::oo::class create ::tk::Megawidget { superclass ::oo::class @@ -284,7 +284,7 @@ package require Tk method CreateHull {} { ttk::frame $w set hull [ttk::entry $w.cHull -takefocus 0 -cursor $options(-cursor)] - pack $hull -expand yes -fill both -ipadx 2 -ipady 2 + pack $hull -expand yes -fill both -ipadx 1.5p -ipady 1.5p my TraceOption -cursor UpdateCursorOption } } |