From 7bc53bf0f68d2c3c0b69dd3f588c372e2b39425c Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 8 Dec 2003 17:55:24 +0000
Subject: * new sample script

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5142 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/sample/tkalignbox.rb | 170 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 170 insertions(+)
 create mode 100644 ext/tk/sample/tkalignbox.rb

(limited to 'ext')

diff --git a/ext/tk/sample/tkalignbox.rb b/ext/tk/sample/tkalignbox.rb
new file mode 100644
index 0000000000..9936929e35
--- /dev/null
+++ b/ext/tk/sample/tkalignbox.rb
@@ -0,0 +1,170 @@
+#
+#  tkalignbox.rb : align widgets with same width/height
+# 
+#                                            by Hidetoshi NAGAI
+#
+#  The box size depends on 'reqheight' and 'reqwidth' of contained widgets. 
+#  If you want to give the box size when those requested sizes are 0, 
+#  please set box.propagate = false (See the test routine at the tail of 
+#  this file).
+
+require 'tk'
+
+class TkAlignBox < TkFrame
+  def initialize(*args)
+    super(*args)
+    @max_width = 0
+    @max_height = 0
+    @propagate = true
+    @widgets = []
+  end
+
+  def _set_framesize
+    fail RuntimeError, "TkAlignBox is an abstruct class"
+  end
+  private :_set_framesize
+
+  def _place_config(widget, idx, cnt)
+    fail RuntimeError, "TkAlignBox is an abstruct class"
+  end
+  private :_place_config
+
+  def align
+    widgets = []
+    @widgets.each{|w| widgets << w if w.winfo_exist?}
+    @widgets = widgets
+    cnt = @widgets.size.to_f
+    @widgets.each_with_index{|w, idx| _place_config(w, idx, cnt)}
+    @widgets = widgets
+    _set_framesize if @propagate
+    self
+  end
+
+  def add(*widgets)
+    widgets.each{|w|
+      unless w.kind_of? TkWindow
+	fail RuntimeError, "#{w.inspect} is not a widget instance."
+      end
+      @widgets.delete(w)
+      @widgets << w
+      sz = w.winfo_reqwidth
+      @max_width = sz if @max_width < sz
+      sz = w.winfo_reqheight
+      @max_height = sz if @max_height < sz
+    }
+    align
+    self
+  end
+
+  def <<(widget)
+    add(widget)
+  end
+
+  def insert(idx, widget)
+    unless widget.kind_of? TkWindow
+      fail RuntimeError, "#{widget.inspect} is not a widget instance."
+    end
+    @widgets.delete(widget)
+    @widgets[idx,0] = widget
+    sz = widget.winfo_reqwidth
+    @max_width = sz if @max_width < sz
+    sz = widget.winfo_reqheight
+    @max_height = sz if @max_height < sz
+    align
+    self
+  end
+
+  def delete(idx)
+    ret = @widgets.delete_at(idx)
+    @req_size = 0
+    @widget.each{|w|
+      sz = w.winfo_reqwidth
+      @max_width = sz if @max_width < sz
+      sz = w.winfo_reqheight
+      @max_height = sz if @max_height < sz
+    }
+    align
+    ret
+  end
+
+  attr_accessor :propagate
+end
+
+class TkHBox < TkAlignBox
+  def _set_framesize
+    bd = self.borderwidth
+    self.width(@max_width * @widgets.size + 2 * bd)
+    self.height(@max_height + 2 * bd)
+  end
+  def _place_config(widget, idx, cnt)
+    widget.place_in(self, 'relx'=>idx/cnt, 'relwidth'=>1.0/cnt, 
+		    'relheight'=>1.0)
+  end
+end
+TkHLBox = TkHBox
+
+class TkHRBox < TkHBox
+  def _place_config(widget, idx, cnt)
+    widget.place_in(self, 'relx'=>(cnt - idx - 1)/cnt, 'relwidth'=>1.0/cnt, 
+		    'relheight'=>1.0)
+  end
+end
+
+class TkVBox < TkAlignBox
+  def _set_framesize
+    self.width(@max_width + 2 * bd)
+    self.height(@max_height * @widgets.size + 2 * bd)
+  end
+  def _place_config(widget, idx, cnt)
+    widget.place_in(self, 'rely'=>idx/cnt, 'relheight'=>1.0/cnt, 
+		    'relwidth'=>1.0)
+  end
+end
+TkVTBox = TkVBox
+
+class TkVBBox < TkVBox
+  def _place_config(widget, idx, cnt)
+    widget.place_in(self, 'rely'=>(cnt - idx - 1)/cnt, 'relheight'=>1.0/cnt, 
+		    'relwidth'=>1.0)
+  end
+end
+
+################################################
+# test
+################################################
+if __FILE__ == $0
+  f = TkHBox.new(:borderwidth=>3, :relief=>'ridge').pack
+  f.add(TkButton.new(f, :text=>'a'),
+	TkButton.new(f, :text=>'aa', :font=>'Helvetica 16'),
+	TkButton.new(f, :text=>'aaa'),
+	TkButton.new(f, :text=>'aaaa'))
+
+  f = TkVBox.new(:borderwidth=>5, :relief=>'groove').pack
+  f.add(TkButton.new(f, :text=>'a'),
+	TkButton.new(f, :text=>'aa', :font=>'Helvetica 30'),
+	TkButton.new(f, :text=>'aaa'),
+	TkButton.new(f, :text=>'aaaa'))
+
+  f = TkHRBox.new(:borderwidth=>3, :relief=>'raised').pack(:fill=>:x)
+  f.add(TkButton.new(f, :text=>'a'),
+	TkButton.new(f, :text=>'aa'), 
+	TkButton.new(f, :text=>'aaa'))
+
+  f = TkVBBox.new(:borderwidth=>3, :relief=>'ridge').pack(:fill=>:x)
+  f.propagate = false
+  f.height 100
+  f.add(TkFrame.new(f){|ff| 
+	  TkButton.new(ff, :text=>'a').pack(:pady=>4, :padx=>6, 
+					    :fill=>:both, :expand=>true)
+	}, 
+	TkFrame.new(f){|ff| 
+	  TkButton.new(ff, :text=>'aa').pack(:pady=>4, :padx=>6, 
+					     :fill=>:both, :expand=>true)
+	}, 
+	TkFrame.new(f){|ff| 
+	  TkButton.new(ff, :text=>'aaaa').pack(:pady=>4, :padx=>6, 
+					       :fill=>:both, :expand=>true)
+	})
+
+  Tk.mainloop
+end
-- 
cgit v1.2.3