diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/ttk/ttkTheme.h | 10 | ||||
| -rw-r--r-- | library/ttk/ttk.tcl | 40 |
3 files changed, 7 insertions, 48 deletions
@@ -1,3 +1,8 @@ +2006-12-12 Joe English <jenglish@users.sourceforge.net> + + * library/ttk/ttk.tcl, generic/ttkTheme.c: + Remove nonfunctional code. + 2006-12-12 Mo DeJong <mdejong@users.sourceforge.net> * win/tkWinButton.c (InitBoxes): Call Tcl_Panic() diff --git a/generic/ttk/ttkTheme.h b/generic/ttk/ttkTheme.h index 367c0ee..ff18da8 100644 --- a/generic/ttk/ttkTheme.h +++ b/generic/ttk/ttkTheme.h @@ -4,7 +4,7 @@ * * Copyright (c) 2003 Joe English. Freely redistributable. * - * $Id: ttkTheme.h,v 1.6 2006/12/10 19:19:44 jenglish Exp $ + * $Id: ttkTheme.h,v 1.7 2006/12/13 05:36:38 jenglish Exp $ */ #ifndef _TTKTHEME @@ -33,14 +33,6 @@ extern "C" { #define TTK_VERSION TK_VERSION #define TTK_PATCH_LEVEL TK_PATCH_LEVEL -/* - * Statically branched from tile 0.7.8. - */ -#ifdef TTK_DEFINE_TILE -#define TILE_VERSION "0.7.8" -#define TILE_PATCH_LEVEL TILE_VERSION -#endif - /*------------------------------------------------------------------------ * +++ Defaults for element option specifications. */ 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. |