diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/aniwave.rb')
| -rw-r--r-- | ext/tk/sample/demos-jp/aniwave.rb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ext/tk/sample/demos-jp/aniwave.rb b/ext/tk/sample/demos-jp/aniwave.rb index 5f94add111..8fa14f65fe 100644 --- a/ext/tk/sample/demos-jp/aniwave.rb +++ b/ext/tk/sample/demos-jp/aniwave.rb @@ -17,8 +17,10 @@ $aniwave_demo = TkToplevel.new {|w| positionWindow(w) } +base_frame = TkFrame.new($aniwave_demo).pack(:fill=>:both, :expand=>true) + # create label -msg = TkLabel.new($aniwave_demo) { +msg = TkLabel.new(base_frame) { font $font wraplength '4i' justify 'left' @@ -27,7 +29,7 @@ msg = TkLabel.new($aniwave_demo) { msg.pack('side'=>'top') # create frame -TkFrame.new($aniwave_demo) {|frame| +TkFrame.new(base_frame) {|frame| TkButton.new(frame) { #text 'λ²ò' text 'ÊĤ¸¤ë' @@ -60,6 +62,7 @@ class AnimatedWaveDemo @backupCoords = [] n = 0 (-10..300).step(5){|n| @waveCoords << [n, 100]; @backupCoords << [n, 100] } + n = 305 @waveCoords << [n, 0]; @backupCoords << [n, 0] @waveCoords << [n+5, 200]; @backupCoords << [n+5, 200] @coordsLen = @waveCoords.length @@ -114,4 +117,4 @@ class AnimatedWaveDemo end # Start the animation processing -AnimatedWaveDemo.new($aniwave_demo, :left).move +AnimatedWaveDemo.new(base_frame, :left).move |