[ruby-list:21190] Re: TkSelection.own の使い方？

新井です。

>>> From: Noritsugu Nakamura <[e-mail]>
>>> Date: 04 Mar 2000 09:17:35 +0900
>>> Subject: [ruby-list:21179] Re: TkSelection.own の使い方？

> 
> 中村 のりつぐ です。

> #!/usr/local/bin/ruby
> 
> require "tk"
> 
> module TkSelection
>   def TkSelection.own(win=None, func=None)
>     tk_call 'selection', 'own', win, func
>   end
> end

訂正。tk_callの戻り(ウィジェットのパス名)をウィジェットオブ
ジェクトに変換した方が良いですね。Ruby/Tkでは、パスが表に出
る必要はほとんどないはずだし、避けたいと思うので。(tk.rbへの
パッチ形式で最後に添付します)。

> l1.bind 'ButtonRelease-1',
>   proc{ STDERR.print "Select : Listbox 1  Click 1\n" if TkSelection.own == l1.path }

なので、添付したパッチを適用すると
  proc{ ... if TkSelection.own == l1 }
となります。

> # 「tk.rb 読みこなし術」誰か書いてくれないかなあ〜

拙著Ruby/TkリファレンスマニュアルのTkObject、TkWindow、
TkComm、TkCoreを読めば大体分かるんじゃないかなあと期待してま
す。(ダメ？^^;)

tclスクリプトを実行するメソッドであるtk_call()を知れば今回の
件は解決できるはずです。ただし、このメソッドに渡す引数には、

-------------------+-------------
Rubyオブジェクト   |   tcl文字列
-------------------+-------------
TkComm::None       |   その引数を省略
nil                |   空文字列
Hash               |   -key1, val1, -key2, val2, ...
Proc               |   "rb_out cXXXX" (module TkCoreで定義したプロシージャ)
true/false	   |   "1" / "0"

などのような対応関係があります。(この変換は
TkComm#_get_eval_string()がやってます)



修正箇所:
  TkSelection.handle(win, func, type=None, format=None)
    func としてnilまたは空文字列を指定することでコールバック
    関数の取り消しを行えるようにしました(パッチ前の場合、nil
    が許されない)

    # install_cmd(nil)がnilを返すようにしてもよいのですが。
    # 検証してないのでとりあえず。

  TkSelection.own(win=None, func=None)
    winを省略可能にしました。
    引数を省略したときの戻り値をウィジェットオブジェクト(セ
    レクションを持たなければnil)にしました。

前にも書いたとおり、現状では古いtkのインタフェースに頼ってい
るので作り替える必要があるかも知れません。

でも、このままでも
    TkSelection.own({'command'=>c, 'displayof'=>w, 'selection'=>s}, win)
とすることは出来ますが・・・たぶん(注意:動作確認を一切してません)

--- ext/tk/lib/tk.rb.org	Wed Feb  2 02:03:32 2000
+++ ext/tk/lib/tk.rb	Sat Mar  4 22:39:16 2000
@@ -1062,15 +1062,13 @@ module TkSelection
     tk_call 'selection', 'get', type
   end
   def TkSelection.handle(win, func, type=None, format=None)
-    id = install_cmd(func)
-    tk_call 'selection', 'handle', win.path, id, type, format
+    tk_call 'selection', 'handle', win.path, func, type, format
   end
   def handle(func, type=None, format=None)
     TkSelection.handle self, func, type, format
   end
-  def TkSelection.own(win, func=None)
-    id = install_cmd(func)
-    tk_call 'selection', 'own', win.path, id
+  def TkSelection.own(win=None, func=None)
+    window(tk_call 'selection', 'own', win, func)
   end
   def own(func=None)
     TkSelection.own self, func