tile->ttk on demos

Author: Geballin

demos/StyleIntrospection.tcl

@@ -3,10 +3,8 @@
 ## This demo shows information about the Gtk/GNOME style currently in use.
 ##
 ###############################################################################
-if {[catch {package require Ttk}]} {
-  package require tile
-}
-ttk::setTheme tilegtk
+package require Tk
+ttk::setTheme gtkTtk
 
 set win {}
 label $win.lbl_option   -text Option:
@@ -23,7 +21,7 @@ foreach base {fg bg base text light mid dark text_aa} {
   label $win.$base -text "$base:" -anchor w
   grid  $win.$base -row $row -column $col
   foreach state {NORMAL PRELIGHT ACTIVE SELECTED INSENSITIVE} {
-    set colour [ttk::theme::tilegtk::currentThemeColour ${base}($state)]
+    set colour [ttk::theme::gtkTtk::currentThemeColour ${base}($state)]
     label $win.${base}_$state -background $colour \
       -relief raised -borderwidth 1
     label $win.${base}_${state}_value -text $colour

demos/autocomplete.tcl

@@ -1,7 +1,7 @@
 #
 # $Id: autocomplete.tcl,v 1.1 2008/08/03 14:52:09 petasis Exp $
 #
-# Demonstration of inline auto-completion for Tile combobox widgets.
+# Demonstration of inline auto-completion for Ttk combobox widgets.
 #
 # Usage:
 #
@@ -16,25 +16,25 @@
 #	overhead.
 #
 
-namespace eval tile::combobox {
+namespace eval ttk::combobox {
 	namespace export enableAutocomplete
 }
 
 ## enableAutocomplete
 #
 #	Enable inline auto-completion for the specified combobox widget.
 #
-proc tile::combobox::enableAutocomplete { w {presorted 1} } {
+proc ttk::combobox::enableAutocomplete { w {presorted 1} } {
 	bind $w <KeyPress> [namespace code [list DoAutoComplete %W %A $presorted]]
 }
 
 ## DoAutoComplete
 #
 #	Perform inline auto-completion of typed text in the combobox.
 #
-proc tile::combobox::DoAutoComplete { w s presorted } {
+proc ttk::combobox::DoAutoComplete { w s presorted } {
     set old [$w get]
-    tile::entry::Insert $w $s
+    ttk::entry::Insert $w $s
     set new [$w get]
 
     # Only auto-complete if the string length has changed due to insertion.