diff options
Diffstat (limited to 'ruby_1_8_6/ext/tk/sample/demos-jp/hscale.rb')
-rw-r--r-- | ruby_1_8_6/ext/tk/sample/demos-jp/hscale.rb | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/ruby_1_8_6/ext/tk/sample/demos-jp/hscale.rb b/ruby_1_8_6/ext/tk/sample/demos-jp/hscale.rb deleted file mode 100644 index 37d215435c..0000000000 --- a/ruby_1_8_6/ext/tk/sample/demos-jp/hscale.rb +++ /dev/null @@ -1,77 +0,0 @@ -require "tkcanvas" - -if defined?($hscale_demo) && $hscale_deom - $hscale_demo.destroy - $hscale_demo = nil -end - -$hscale_demo = TkToplevel.new {|w| - title("Horizontal Scale Demonstration") - iconname("hscale") -} -positionWindow($hscale_demo) - - -msg = TkLabel.new($hscale_demo) { - font $font - wraplength '3.5i' - justify 'left' - text "下には矢印が1つと水平なスケールが表示されています。\ -スケール上でマウスボタン1をクリック、またはドラッグすると\ -矢印の長さを変えることができます。" -} -msg.pack('side'=>'top') - -TkFrame.new($hscale_demo) {|frame| - TkButton.new(frame) { - #text '了解' - text '閉じる' - command proc { - tmppath = $hscale_demo - $hscale_demo = nil - tmppath.destroy - } - }.pack('side'=>'left', 'expand'=>'yes') - - TkButton.new(frame) { - text 'コード参照' - command proc { showCode 'hscale' } - }.pack('side'=>'left', 'expand'=>'yes') -}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') - -TkFrame.new($hscale_demo) {|frame| - canvas = TkCanvas.new(frame) {|c| - width 50 - height 50 - bd 0 - highlightthickness 0 - TkcPolygon.new(c, '0', '0', '1', '1', '2', '2') { - fill 'DeepSkyBlue' - tags 'poly' - } - TkcLine.new(c, '0', '0', '1', '1', '2', '2', '0', '0') { - fill 'black' - tags 'line' - } - }.pack('side'=>'top', 'expand'=>'yes', 'anchor'=>'s', 'fill'=>'x', 'padx'=>'15') - scale = TkScale.new(frame) { - orient 'horizontal' - length 284 - from 0 - to 250 - command proc{|value| setWidth(canvas, value)} - tickinterval 50 - }.pack('side'=>'bottom', 'expand'=>'yes', 'anchor'=>'n') - scale.set 75 -}.pack('side'=>'top', 'fill'=>'x') - - -def setWidth(w, width) - width = width + 21 - x2 = width - 30 - if x2 < 21 - x2 = 21 - end - w.coords 'poly',20,15,20,35,x2,35,x2,45,width,25,x2,5,x2,15,20,15 - w.coords 'line',20,15,20,35,x2,35,x2,45,width,25,x2,5,x2,15,20,15 -end |