From: matz@... (Yukihiro Matsumoto)
Date: 1997-07-27T01:26:44+09:00
Subject: [ruby-list:3501] Re: method of scroll (ruby/tk)

まつもと ゆきひろです

In message "[ruby-list:3497] method of scroll (ruby/tk)"
    on 97/07/26, Noritsugu Nakamura <nnakamur@mxq.meshnet.or.jp> writes:

|中村です。
|
|ruby/tk の scroll について、いくつか。
|
|１。
|以下のようなプログラムを書いたのですが、
|x 方向のスクロールバーの△を押すと、
|xview なんてないと言われて終了してしまいます。
|lib/ruby/tktext.rb を見ると xview がありません。

xviewが定義してありませんねえ．追加します．

|２。
|lib/ruby/tkcanvas.rb の [xy]viewについて
|以下のようなプログラムを書いたのですが
|(Python の Demo/tkinter/matt/ が題材です)、
|スクロールバーの△を押すと、終了してしまいます。
|lib/ruby/tkcanvas.rb の所、こうでしょうか？

そのようです．確か，tkのバージョンが上がった時にxviewの引数
が変わったのではなかったでしょうか．

|# いまだに * の意味分からないのですが (^^;

このメソッドの場合だと

|  def xview(*index)
|    tk_send 'xview', *index
|  end

defの行の引数indexの前の*は「xviewに渡された引数を全部配列に
いれる」という意味になります．tk_sendの行のindexの前の*は
「配列の内容が引数として展開された状態でメソッドを呼ぶ」です．

|あと、Canvas では xscroll を xscrollcommand
|とかにしないとダメみたいです。

そうなんですか．なんでだろう？

                                まつもと ゆきひろ /:|)

--- lib/tktext.rb~	Tue Jul 30 09:29:08 1996
+++ lib/tktext.rb	Sun Jul 27 00:27:59 1997
@@ -75,6 +75,13 @@
   def yview_pickplace(*what)
     tk_send 'yview', '-pickplace', *what
   end
+
+  def xview(*what)
+    tk_send 'xview', *what
+  end
+  def xview_pickplace(*what)
+    tk_send 'xview', '-pickplace', *what
+  end
 end
 
 class TkTextTag<TkObject
--- lib/tkcanvas.rb~	Tue Jan 21 19:30:59 1997
+++ lib/tkcanvas.rb	Sun Jul 27 00:31:59 1997
@@ -110,11 +110,11 @@
   def select(*args)
     tk_send 'select', *args
   end
-  def xview(index)
-    tk_send 'xview', index
+  def xview(*index)
+    tk_send 'xview', *index
   end
-  def yview(index)
-    tk_send 'yview', index
+  def yview(*index)
+    tk_send 'yview', *index
   end
 end