diff options
Diffstat (limited to 'library/ttk/ttk.tcl')
| -rw-r--r-- | library/ttk/ttk.tcl | 40 |
1 files changed, 1 insertions, 39 deletions
diff --git a/library/ttk/ttk.tcl b/library/ttk/ttk.tcl index ed3c92d..5c1b5b2 100644 --- a/library/ttk/ttk.tcl +++ b/library/ttk/ttk.tcl @@ -1,5 +1,5 @@ # -# $Id: ttk.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $ +# $Id: ttk.tcl,v 1.3 2006/12/13 05:36:38 jenglish Exp $ # # Ttk widget set initialization script. # @@ -50,44 +50,6 @@ proc ttk::deprecated'warning {old new} { # ::ttk::deprecated ::ttk::paned ::ttk::panedwindow -if {[info exists ::ttk::deprecrated] && $::ttk::deprecated} { - ### Deprecated bits. - # - - namespace eval ::tile { - # Deprecated namespace. Define these only when requested - variable library - if {![info exists library]} { - set library [file dirname [info script]] - } - - variable version 0.7.8 - } - package provide tile $::tile::version - - ### Widgets. - # Widgets are all defined in the ::ttk namespace. - # - # For compatibility with earlier Tile releases, we temporarily - # create aliases ::tile::widget, and ::t$widget. - # Using any of the aliases will issue a warning. - # - - namespace eval ttk { - variable widgets { - button checkbutton radiobutton menubutton label entry - frame labelframe scrollbar - notebook progressbar combobox separator - scale - } - - variable wc - foreach wc $widgets { - namespace export $wc - } - } -} - ### ::ttk::ThemeChanged -- # Called from [::ttk::style theme use]. # Sends a <<ThemeChanged>> virtual event to all widgets. |