From e25c88e5a477afaa156962505abb1de221fe44f1 Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 1 Aug 2005 06:35:15 +0000
Subject: * ext/tk/sample/tkextlib/tile/demo.rb: added combobox demo.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8876 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/ChangeLog.tkextlib           |  4 ++++
 ext/tk/sample/tkextlib/tile/demo.rb | 23 +++++++++++++++++++++--
 2 files changed, 25 insertions(+), 2 deletions(-)

(limited to 'ext')

diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index 35b389360f..d9dff5023e 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,7 @@
+2005-08-01  ocean  <ocean@ruby-lang.org>
+
+	* sample/tkextlib/tile/demo.rb: added combobox demo.
+
 2005-07-27  ocean  <ocean@ruby-lang.org>
 
 	* sample/tkextlib/tile/demo.rb: fixed typo.
diff --git a/ext/tk/sample/tkextlib/tile/demo.rb b/ext/tk/sample/tkextlib/tile/demo.rb
index a0cbb47904..d6673f3bd8 100644
--- a/ext/tk/sample/tkextlib/tile/demo.rb
+++ b/ext/tk/sample/tkextlib/tile/demo.rb
@@ -301,6 +301,8 @@ def makeNotebook
   nb.add(client, :text=>'Demo', :underline=>0)
   nb.select(client)
 
+  combo = Tk::Tile::TFrame.new(nb)
+  nb.add(combo, :text=>'Combobox', :underline=>7)
   others = Tk::Tile::TFrame.new(nb)
   nb.add(others, :text=>'Others', :underline=>4)
   nb.add(Tk::Tile::TLabel.new(nb, :text=>'Nothing to see here...'), 
@@ -308,10 +310,10 @@ def makeNotebook
   nb.add(Tk::Tile::TLabel.new(nb, :text=>'Nothing to see here either.'), 
          :text=>'More Stuff', :sticky=>:se)
 
-  [nb, client, others]
+  [nb, client, combo, others]
 end
 
-nb, client, others = makeNotebook()
+nb, client, combo, others = makeNotebook()
 
 #
 # Side-by side check, radio, and menu button comparison:
@@ -536,6 +538,23 @@ menu.add(:cascade, :label=>'Theme', :underline=>3,
 
 setTheme($V[:THEME])
 
+#
+# Combobox demo pane:
+#
+values = %w(list abc def ghi jkl mno pqr stu vwx yz)
+2.times {|i|
+  cb = Tk::Tile::TCombobox.new(
+    combo, :values=>values, :textvariable=>$V.ref(:COMBO))
+  cb.pack(:side=>:top, :padx=>2, :pady=>2, :expand=>false, :fill=>:x)
+  if i == 1
+    cb.state :readonly
+    begin
+      cb.current = 3 # ignore if unsupported (tile0.4)
+    rescue
+    end
+  end
+}
+
 #
 # Other demos:
 #
-- 
cgit v1.2.3