From 1e760c0be3ed35874204114e7454509f740c0fe2 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 22 Aug 2007 01:53:51 +0000
Subject: add tag v1_8_6_71

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_71@13189 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_6/ext/tk/sample/demos-jp/check.rb | 67 ++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 ruby_1_8_6/ext/tk/sample/demos-jp/check.rb

(limited to 'ruby_1_8_6/ext/tk/sample/demos-jp/check.rb')

diff --git a/ruby_1_8_6/ext/tk/sample/demos-jp/check.rb b/ruby_1_8_6/ext/tk/sample/demos-jp/check.rb
new file mode 100644
index 0000000000..be675b9042
--- /dev/null
+++ b/ruby_1_8_6/ext/tk/sample/demos-jp/check.rb
@@ -0,0 +1,67 @@
+#
+# checkbutton widget demo (called by 'widget')
+#
+
+# toplevel widget が存在すれば削除する
+if defined?($check_demo) && $check_demo
+  $check_demo.destroy 
+  $check_demo = nil
+end
+
+# demo 用の toplevel widget を生成
+$check_demo = TkToplevel.new {|w|
+  title("Checkbutton Demonstration")
+  iconname("check")
+  positionWindow(w)
+}
+
+# label 生成
+msg = TkLabel.new($check_demo) {
+  font $font
+  wraplength '4i'
+  justify 'left'
+  text "下には 3 つのチェックボタンが表示されています。クリックするとボタンの選択状態が変わり、Tcl 変数 ( TkVariable オブジェクトでアクセスできます ) にそのボタンの状態を示す値を設定します。現在の変数の値を見るには「変数参照」ボタンをクリックしてください。"
+}
+msg.pack('side'=>'top')
+
+# 変数生成
+wipers = TkVariable.new(0)
+brakes = TkVariable.new(0)
+sober  = TkVariable.new(0)
+
+# frame 生成
+TkFrame.new($check_demo) {|frame|
+  TkButton.new(frame) {
+    #text '了解'
+    text '閉じる'
+    command proc{
+      tmppath = $check_demo
+      $check_demo = nil
+      $showVarsWin[tmppath.path] = nil
+      tmppath.destroy
+    }
+  }.pack('side'=>'left', 'expand'=>'yes')
+
+  TkButton.new(frame) {
+    text 'コード参照'
+    command proc{showCode 'check'}
+  }.pack('side'=>'left', 'expand'=>'yes')
+
+
+  TkButton.new(frame) {
+    text '変数参照'
+    command proc{
+      showVars($check_demo, 
+               ['wipers', wipers], ['brakes', brakes], ['sober', sober])
+    }
+  }.pack('side'=>'left', 'expand'=>'yes')
+
+}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
+
+
+# checkbutton 生成
+[ TkCheckButton.new($check_demo, 'text'=>'ワイパー OK', 'variable'=>wipers),
+  TkCheckButton.new($check_demo, 'text'=>'ブレーキ OK', 'variable'=>brakes),
+  TkCheckButton.new($check_demo, 'text'=>'運転手 素面', 'variable'=>sober)
+].each{|w| w.relief('flat'); w.pack('side'=>'top', 'pady'=>2, 'anchor'=>'w')}
+
-- 
cgit v1.2.3

<input type='hidden' name='h' value='v3_3_0_rc1'/><input type='hidden' name='id' value='22ace33a78583d92e08f556dcf8c3433118d0408'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/ruby.git/log/?h=v3_3_0_rc1&amp;id=22ace33a78583d92e08f556dcf8c3433118d0408'>root</a>/<a href='/ruby.git/log/libexec?h=v3_3_0_rc1&amp;id=22ace33a78583d92e08f556dcf8c3433118d0408'>libexec</a>/<a href='/ruby.git/log/libexec/rdoc?h=v3_3_0_rc1&amp;id=22ace33a78583d92e08f556dcf8c3433118d0408'>rdoc</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/ruby.git/log/libexec/rdoc?h=v3_3_0_rc1&amp;id=22ace33a78583d92e08f556dcf8c3433118d0408&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-11-25 01:20:00 +0000'>2018-11-25</span></td><td><a href='/ruby.git/commit/libexec/rdoc?h=v3_3_0_rc1&amp;id=a94332819463589fe4537cc62beb41a0ee354cf3'>Use stub executables generated by RubyGems istead of original executables.</a></td><td>hsbt</td></tr>