* ext/tk/sample/tkextlib/tile/demo.rb: followed previous changes.

* ext/tk/lib/tkextlib/tile/t*.rb: aliased class names starting with 'T'
  to non 'T' ones. (ie. Tk::Tile::TButton -> Tk::Tile::Button)
  [ruby-dev:26724]

* ext/tk/lib/tkextlib/tile.rb: ditto. (autoload support)

(Written by Hidetoshi NAGAI)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8906 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 59 insertions, 59 deletions

diff --git a/ext/tk/sample/tkextlib/tile/demo.rb b/ext/tk/sample/tkextlib/tile/demo.rb
index d09af7c3bd..5d8b9a9801 100644
--- a/ext/tk/sample/tkextlib/tile/demo.rb
+++ b/ext/tk/sample/tkextlib/tile/demo.rb
@@ -65,9 +65,9 @@ else
 end
 
 def makeThemeControl(parent)
-  c = Tk::Tile::TLabelframe.new(parent, :text=>'Theme')
+  c = Tk::Tile::Labelframe.new(parent, :text=>'Theme')
   $THEMELIST.each{|theme, name|
-    b = Tk::Tile::TRadiobutton.new(c, :text=>name, :value=>theme, 
+    b = Tk::Tile::Radiobutton.new(c, :text=>name, :value=>theme, 
                                    :variable=>$V.ref(:THEME), 
                                    :command=>proc{setTheme(theme)})
     b.grid(:sticky=>:ew)
@@ -76,7 +76,7 @@ def makeThemeControl(parent)
     end
   }
   $RUBY_THEMELIST.each{|theme, name, available|
-    b = Tk::Tile::TRadiobutton.new(c, :text=>name, :value=>theme, 
+    b = Tk::Tile::Radiobutton.new(c, :text=>name, :value=>theme, 
                                    :variable=>$V.ref(:THEME), 
                                    :command=>proc{setTheme(theme)})
     b.grid(:sticky=>:ew)
@@ -185,26 +185,26 @@ def makeToolbars
   #
   # Tile toolbar:
   #
-  tb = Tk::Tile::TFrame.new($BASE, :class=>'Toolbar')
+  tb = Tk::Tile::Frame.new($BASE, :class=>'Toolbar')
   $TOOLBARS << tb
   i = 0
   $BUTTONS.each{|icon|
     i += 1
-    Tk::Tile::TButton.new(tb, :text=>icon, :image=>$ICON[icon], 
+    Tk::Tile::Button.new(tb, :text=>icon, :image=>$ICON[icon], 
                           :compound=>$V[:COMPOUND], 
                           :style=>:Toolbutton).grid(:row=>0, :column=>i, 
                                                     :sticky=>:news)
   }
   $CHECKBOXES.each{|icon|
     i += 1
-    Tk::Tile::TCheckbutton.new(tb, :text=>icon, :image=>$ICON[icon], 
+    Tk::Tile::Checkbutton.new(tb, :text=>icon, :image=>$ICON[icon], 
                                :variable=>$V.ref(icon), 
                                :compound=>$V[:COMPOUND], 
                                :style=>:Toolbutton).grid(:row=>0, :column=>i, 
                                                          :sticky=>:news)
   }
 
-  mb = Tk::Tile::TMenubutton.new(tb, :text=>'toolbar', :image=>$ICON['file'], 
+  mb = Tk::Tile::Menubutton.new(tb, :text=>'toolbar', :image=>$ICON['file'], 
                                  :compound=>$V[:COMPOUND])
   mb.configure(:menu=>makeCompoundMenu(mb))
   i += 1
@@ -261,7 +261,7 @@ end
 makeToolbars()
 
 ## CONTROLS
-control = Tk::Tile::TFrame.new($BASE)
+control = Tk::Tile::Frame.new($BASE)
 
 #
 # Overall theme control:
@@ -281,10 +281,10 @@ end
 
 def scrolledWidget(parent, klass, themed, *args)
   if themed
-    f = Tk::Tile::TFrame.new(parent)
+    f = Tk::Tile::Frame.new(parent)
     t = klass.new(f, *args)
-    vs = Tk::Tile::TScrollbar.new(f)
-    hs = Tk::Tile::TScrollbar.new(f)
+    vs = Tk::Tile::Scrollbar.new(f)
+    hs = Tk::Tile::Scrollbar.new(f)
   else
     f = TkFrame.new(parent)
     t = klass.new(f, *args)
@@ -306,19 +306,19 @@ end
 # Notebook demonstration:
 #
 def makeNotebook
-  nb = Tk::Tile::TNotebook.new($BASE, :padding=>6)
+  nb = Tk::Tile::Notebook.new($BASE, :padding=>6)
   nb.enable_traversal
-  client = Tk::Tile::TFrame.new(nb)
+  client = Tk::Tile::Frame.new(nb)
   nb.add(client, :text=>'Demo', :underline=>0)
   nb.select(client)
 
-  scales = Tk::Tile::TFrame.new(nb)
+  scales = Tk::Tile::Frame.new(nb)
   nb.add(scales, :text=>'Scales')
-  combo = Tk::Tile::TFrame.new(nb)
+  combo = Tk::Tile::Frame.new(nb)
   nb.add(combo, :text=>'Combobox', :underline=>7)
-  tree = Tk::Tile::TFrame.new(nb)
+  tree = Tk::Tile::Frame.new(nb)
   nb.add(tree, :text=>'Tree')
-  others = Tk::Tile::TFrame.new(nb)
+  others = Tk::Tile::Frame.new(nb)
   nb.add(others, :text=>'Others', :underline=>4)
 
   [nb, client, scales, combo, tree, others]
@@ -343,28 +343,28 @@ def fillMenu(menu)
   menu.add(:command, :label=>'Quit', :command=>proc{Tk.root.destroy})
 end
 
-l = Tk::Tile::TLabelframe.new(client, :text=>'Themed', :padding=>6)
+l = Tk::Tile::Labelframe.new(client, :text=>'Themed', :padding=>6)
 r = TkLabelframe.new(client, :text=>'Standard', :padx=>6, :pady=>6)
 
 ## Styled frame
-cb = Tk::Tile::TCheckbutton.new(l, :text=>'Checkbutton', 
+cb = Tk::Tile::Checkbutton.new(l, :text=>'Checkbutton', 
                                 :variable=>$V.ref(:SELECTED), :underline=>2)
-rb1 = Tk::Tile::TRadiobutton.new(l, :text=>'One', :variable=>$V.ref(:CHOICE), 
+rb1 = Tk::Tile::Radiobutton.new(l, :text=>'One', :variable=>$V.ref(:CHOICE), 
                                  :value=>1, :underline=>0)
-rb2 = Tk::Tile::TRadiobutton.new(l, :text=>'Two', :variable=>$V.ref(:CHOICE), 
+rb2 = Tk::Tile::Radiobutton.new(l, :text=>'Two', :variable=>$V.ref(:CHOICE), 
                                  :value=>2)
-rb3 = Tk::Tile::TRadiobutton.new(l, :text=>'Three', 
+rb3 = Tk::Tile::Radiobutton.new(l, :text=>'Three', 
                                  :variable=>$V.ref(:CHOICE), 
                                  :value=>3, :underline=>0)
-btn = Tk::Tile::TButton.new(l, :text=>'Button', :underline=>0)
+btn = Tk::Tile::Button.new(l, :text=>'Button', :underline=>0)
 
-mb = Tk::Tile::TMenubutton.new(l, :text=>'Menubutton', :underline=>2)
+mb = Tk::Tile::Menubutton.new(l, :text=>'Menubutton', :underline=>2)
 #m = TkMenu.new(mb)
 #mb.menu(m)
 #fillMenu(m)
 
 $entryText = TkVariable.new('Entry widget')
-e = Tk::Tile::TEntry.new(l, :textvariable=>$entryText)
+e = Tk::Tile::Entry.new(l, :textvariable=>$entryText)
 e.selection_range(6, :end)
 
 ltext_f, ltext = scrolledWidget(l, TkText, true, 
@@ -450,18 +450,18 @@ nmsgs = msgs.size
 #
 # Scales and sliders pane:
 #
-l = Tk::Tile::TLabelframe.new(scales, :text=>'Themed', :padding=>6)
+l = Tk::Tile::Labelframe.new(scales, :text=>'Themed', :padding=>6)
 r = TkLabelframe.new(scales, :text=>'Standard', :padx=>6, :pady=>6)
 
 if version?('0.6')
 
   # thremed frame
-  scale = Tk::Tile::TScale.new(l, :orient=>:horizontal, :from=>0, :to=>100,
+  scale = Tk::Tile::Scale.new(l, :orient=>:horizontal, :from=>0, :to=>100,
           :variable=>$V.ref(:SCALE))
-  vscale = Tk::Tile::TScale.new(l, :orient=>:vertical, :from=>0, :to=>100,
+  vscale = Tk::Tile::Scale.new(l, :orient=>:vertical, :from=>0, :to=>100,
           :variable=>$V.ref(:VSCALE))
-  progress = Tk::Tile::TProgressbar.new(l, :orient=>:horizontal, :maximum=>100)
-  vprogress = Tk::Tile::TProgressbar.new(l, :orient=>:vertical, :maximum=>100)
+  progress = Tk::Tile::Progressbar.new(l, :orient=>:horizontal, :maximum=>100)
+  vprogress = Tk::Tile::Progressbar.new(l, :orient=>:vertical, :maximum=>100)
 
   if true
     def progress.inverted(w, value)
@@ -481,11 +481,11 @@ if version?('0.6')
   scale.set(50)
   vscale.set(50)
 
-  lmode = Tk::Tile::TLabel.new(l, :text=>'Progress bar mode')
-  pbmode0 = Tk::Tile::TRadiobutton.new(l, :variable=>$V.ref(:PBMODE),
+  lmode = Tk::Tile::Label.new(l, :text=>'Progress bar mode')
+  pbmode0 = Tk::Tile::Radiobutton.new(l, :variable=>$V.ref(:PBMODE),
           :text=>'determinate', :value=>'determinate',
           :command=>proc{pbMode(progress, vprogress)})
-  pbmode1 = Tk::Tile::TRadiobutton.new(l, :variable=>$V.ref(:PBMODE),
+  pbmode1 = Tk::Tile::Radiobutton.new(l, :variable=>$V.ref(:PBMODE),
           :text=>'indeterminate', :value=>'indeterminate',
           :command=>proc{pbMode(progress, vprogress)})
   def pbMode(progress, vprogress)
@@ -493,7 +493,7 @@ if version?('0.6')
     vprogress.mode $V[:PBMODE]
   end
 
-  start = Tk::Tile::TButton.new(l, :text=>"Start",
+  start = Tk::Tile::Button.new(l, :text=>"Start",
           :command=>proc{pbStart(progress, vprogress)})
   def pbStart(progress, vprogress)
     $V[:PBMODE] = 'indeterminate'; pbMode(progress, vprogress)
@@ -501,7 +501,7 @@ if version?('0.6')
     vprogress.start
   end
 
-  stop = Tk::Tile::TButton.new(l, :text=>'Stop',
+  stop = Tk::Tile::Button.new(l, :text=>'Stop',
           :command=>proc{pbStop(progress, vprogress)})
   def pbStop(progress, vprogress)
     progress.stop
@@ -535,14 +535,14 @@ if version?('0.6')
 else # tile 0.5 or earlier
 
   # themed frame
-  scale = Tk::Tile::TScale.new(l, :variable=>$V.ref(:SCALE),
+  scale = Tk::Tile::Scale.new(l, :variable=>$V.ref(:SCALE),
           :orient=>:horizontal, :from=>0, :to=>100)
-  vscale = Tk::Tile::TScale.new(l, :variable=>$V.ref(:VSCALE),
+  vscale = Tk::Tile::Scale.new(l, :variable=>$V.ref(:VSCALE),
           :orient=>:vertical, :from=>-25, :to=>25)
 
-  progress = Tk::Tile::TProgress.new(l,
+  progress = Tk::Tile::Progress.new(l,
           :orient=>:horizontal, :from=>0, :to=>100)
-  vprogress = Tk::Tile::TProgress.new(l,
+  vprogress = Tk::Tile::Progress.new(l,
           :orient=>:vertical, :from=>-25, :to=>25)
 
   if true
@@ -580,11 +580,11 @@ scales.grid_rowconfigure(0, :weight=>1)
 #
 # Command box:
 #
-cmd = Tk::Tile::TFrame.new($BASE)
-b_close = Tk::Tile::TButton.new(cmd, :text=>'Close', 
+cmd = Tk::Tile::Frame.new($BASE)
+b_close = Tk::Tile::Button.new(cmd, :text=>'Close', 
                                 :underline=>0, :default=>:normal, 
                                 :command=>proc{Tk.root.destroy})
-b_help = Tk::Tile::TButton.new(cmd, :text=>'Help', :underline=>0, 
+b_help = Tk::Tile::Button.new(cmd, :text=>'Help', :underline=>0, 
                                :default=>:normal, :command=>proc{showHelp()})
 Tk.grid('x', b_close, b_help, :pady=>[6, 4], :padx=>4)
 TkGrid.columnconfigure(cmd, 0, :weight=>1)
@@ -654,7 +654,7 @@ setTheme($V[:THEME])
 #
 values = %w(list abc def ghi jkl mno pqr stu vwx yz)
 2.times {|i|
-  cb = Tk::Tile::TCombobox.new(
+  cb = Tk::Tile::Combobox.new(
     combo, :values=>values, :textvariable=>$V.ref(:COMBO))
   cb.pack(:side=>:top, :padx=>2, :pady=>2, :expand=>false, :fill=>:x)
   if i == 1
@@ -672,7 +672,7 @@ values = %w(list abc def ghi jkl mno pqr stu vwx yz)
 if version?('0.5')
 
   treeview = nil # avoid 'undefined' error
-  scrollbar = Tk::Tile::TScrollbar.new(tree,
+  scrollbar = Tk::Tile::Scrollbar.new(tree,
       :command=>proc{|*args| treeview.yview(*args)})
   treeview = Tk::Tile::Treeview.new(tree, :columns=>%w(Class), :padding=>4,
       :yscrollcommand=>proc{|*args| scrollbar.set(*args)})
@@ -708,7 +708,7 @@ if version?('0.5')
   end
 
 else
-  Tk::Tile::TLabel.new(tree,
+  Tk::Tile::Label.new(tree,
       :text=>'Treeview is supported on tile 0.5 or later...').pack
 end
 
@@ -739,7 +739,7 @@ showDescription.bind('Leave', proc{|w| msg.text('')}, '%W')
     "Demonstrates custom classes (see demos/repeater.tcl)" ]
 
 ].each{|demo_cmd, label, description|
-  b = Tk::Tile::TButton.new(others, :text=>label, 
+  b = Tk::Tile::Button.new(others, :text=>label, 
                             :command=>proc{ self.__send__(demo_cmd) })
   $Desc[b.path] = description
   b.bindtags <<= showDescription
@@ -764,7 +764,7 @@ def scrollbarResizeDemo
   end
   $scrollbars = TkToplevel.new(:title=>'Scrollbars', :geometry=>'200x200')
   f = TkFrame.new($scrollbars, :height=>200)
-  tsb = Tk::Tile::TScrollbar.new(f, :command=>proc{|*args| sbstub(tsb, *args)})
+  tsb = Tk::Tile::Scrollbar.new(f, :command=>proc{|*args| sbstub(tsb, *args)})
   sb = TkScrollbar.new(f, :command=>proc{|*args| sbstub(sb, *args)})
   Tk.grid(tsb, sb, :sticky=>:news)
 
@@ -799,8 +799,8 @@ def trackFocus
     ["Grab:", :Grab], 
     ["Status:", :GrabStatus]
   ].each{|label, var_index|
-    Tk.grid(Tk::Tile::TLabel.new($focus, :text=>label, :anchor=>:e), 
-            Tk::Tile::TLabel.new($focus, 
+    Tk.grid(Tk::Tile::Label.new($focus, :text=>label, :anchor=>:e), 
+            Tk::Tile::Label.new($focus, 
                                  :textvariable=>$FocusInf.ref(var_index), 
                                  :width=>40, :anchor=>:w, :relief=>:groove), 
             :sticky=>:ew)
@@ -859,18 +859,18 @@ def trackStates
   end
   $states = TkToplevel.new(:title=>'Widget states')
 
-  l_inf = Tk::Tile::TLabel.new($states, :text=>"Press Control-Shift-Button-1 on any widget")
+  l_inf = Tk::Tile::Label.new($states, :text=>"Press Control-Shift-Button-1 on any widget")
 
-  l_lw = Tk::Tile::TLabel.new($states, :text=>'Widget:', 
+  l_lw = Tk::Tile::Label.new($states, :text=>'Widget:', 
                               :anchor=>:e, :relief=>:groove)
-  l_w = Tk::Tile::TLabel.new($states, :textvariable=>$Widget, 
+  l_w = Tk::Tile::Label.new($states, :textvariable=>$Widget, 
                               :anchor=>:w, :relief=>:groove)
 
   Tk.grid(l_inf, '-', :sticky=>:ew, :padx=>6, :pady=>6)
   Tk.grid(l_lw, l_w, :sticky=>:ew)
 
   $states_list.each{|st|
-    cb = Tk::Tile::TCheckbutton.new($states, :text=>st, 
+    cb = Tk::Tile::Checkbutton.new($states, :text=>st, 
                                     :variable=>$State.ref(st), 
                                     :command=>proc{ changeState(st) })
     $states_btns[st] = cb
@@ -879,10 +879,10 @@ def trackStates
 
   $states.grid_columnconfigure(1, :weight=>1)
 
-  f_cmd = Tk::Tile::TFrame.new($states)
+  f_cmd = Tk::Tile::Frame.new($states)
   Tk.grid('x', f_cmd, :sticky=>:nse)
 
-  b_close = Tk::Tile::TButton.new(f_cmd, :text=>'Close', 
+  b_close = Tk::Tile::Button.new(f_cmd, :text=>'Close', 
                                   :command=>proc{ $states.destroy })
   Tk.grid('x', b_close, :padx=>4, :pady=>[6,4])
   f_cmd.grid_columnconfigure(0, :weight=>1)
@@ -929,12 +929,12 @@ def repeatDemo
   end
   $repeatDemo = TkToplevel.new(:title=>'Repeating button')
 
-  f = Tk::Tile::TFrame.new($repeatDemo)
-  b = Tk::Tile::TButton.new(f, :class=>'Repeater', :text=>'Press and hold')
+  f = Tk::Tile::Frame.new($repeatDemo)
+  b = Tk::Tile::Button.new(f, :class=>'Repeater', :text=>'Press and hold')
   if version?('0.6')
-    p = Tk::Tile::TProgressbar.new(f, :orient=>:horizontal, :maximum=>10)
+    p = Tk::Tile::Progressbar.new(f, :orient=>:horizontal, :maximum=>10)
   else # progressbar is not supported
-    p = Tk::Tile::TProgress.new(f, :orient=>:horizontal, :from=>0, :to=>10)
+    p = Tk::Tile::Progress.new(f, :orient=>:horizontal, :from=>0, :to=>10)
     def p.step
       i = self.get + 1
       i = self.from if i > self.to