diff options
Diffstat (limited to 'ext/tk/sample/tcltklib/sample2.rb')
| -rw-r--r-- | ext/tk/sample/tcltklib/sample2.rb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/tk/sample/tcltklib/sample2.rb b/ext/tk/sample/tcltklib/sample2.rb index f187d6ce1d..1acc180680 100644 --- a/ext/tk/sample/tcltklib/sample2.rb +++ b/ext/tk/sample/tcltklib/sample2.rb @@ -7,12 +7,12 @@ #--------------------------------------------------------------------------- # Sep. 17, 1997 modified by Y. Shigehiro for tcltk library -# maeda shugo (shugo@po.aianet.ne.jp) 氏による -# (ruby/tk で書かれていた) ruby のサンプルプログラム +# maeda shugo (shugo@po.aianet.ne.jp) 羂 +# (ruby/tk ф吾) ruby 泣潟違 # http://www.aianet.or.jp/~shugo/ruby/othello.rb.gz -# を tcltk ライブラリを使うように, 機械的に変更してみました. +# tcltk ゃ篏帥, 罘罌亥紊眼帥障. # -# なるべくオリジナルと同じになるようにしてあります. +# 鴻吾障. require "observer" require "tcltk" @@ -343,14 +343,14 @@ class Othello @board = Board.new(self) @board_view = BoardView.new(self, @board) #### added by Y. Shigehiro - ## board_view の大きさを設定する. + ## board_view 紊с荐絎. x1, y1, x2, y2 = @board_view.e("bbox all").split(/ /).collect{|i| i.to_f} @board_view.e("configure -width", x2 - x1) @board_view.e("configure -height", y2 - y1) - ## scrollregion を設定する. + ## scrollregion 荐絎. @board_view.e("configure -scrollregion {", @board_view.e("bbox all"), "}") - #### ここまで + #### 障 $pack.e(@board_view, "-fill both -expand true") panel = TclTkWidget.new($ip, $root, $frame) |