[ruby-list:29005] TkBindTagAll (Re: ruby/tk TkEntry#selection_present bug?)

新井です。

In message "[ruby-list:28997] Re: ruby/tk TkEntry#selection_present bug?"
  on 28 Mar 2001 03:50:59 +0900,
  [e-mail] wrote:
> 永井＠知能．九工大です．

> matz> |お詫びに，TkPackage モジュールを追加しています．
> matz> |ruby1.6.3 からの差分になっています．
> matz> もうすぐ1.6.4を出したいので、このパッチ当ててもよいですか？
> 
> はい．

ひとつお願いを聞いて頂けますか？以前 TkBindTagAll のようなも
のをお願いしたのは私なのですが、これがクラスになっていたので
ちょっと私の想像とは違った物になってて悩んでいるのです。
(つい最近、これが取り込まれてるのを知りました。今ごろ済みません)

TkBindTagAll の代わりに添付のパッチのようなのだとダメでしょうか？

単なる 'all' の代わりにクラスまで実装されるのはオーバースペッ
クのような気がするのです(ただでさえクラスだらけな tk に、
Bind関係はあちこちに分散しているので)。

もしパッチの内容を考慮して頂けるのならTkBindTagAll は*消した
い*というのが私の希望です。

# でも、パッチの内容は動作確認してない。。。今試しました ^^;

    require 'tk'

    Tk.bind(TkBindTag::ALL, 'Return') { TkButton.new.pack }

    p Tk.bindinfo TkBindTag::ALL
    # => ["Key-Return", "Shift-Key-Tab", "Key-Tab", "Key-F10", "Alt-Key"]

    p Tk.root.bindtags
    # => [#<TkRoot:0x40202c18 @path=".">, TkRoot, #<TkBindTag: all>]

    TkBindTag::ALL.bind('q') { exit }
    Tk.mainloop

別件ですが、これ試してて発見したのですが

    require 'tk'
    TkBindTag::ALL.bind(['Escape','Return']) {}
    TkBindTag::ALL.bind(['Escape','q']) {}
    TkBindTag::ALL.bind('q') {}
    p Tk.bindinfo 'all'

    => /usr/local/lib/ruby/1.7/tk.rb:401:in `_bindinfo': undefined method `gsub' for nil (NameError)
	from /usr/local/lib/ruby/1.7/tk.rb:400:in `collect'
	from /usr/local/lib/ruby/1.7/tk.rb:400:in `_bindinfo'
	from /usr/local/lib/ruby/1.7/tk.rb:421:in `bindinfo'
	from -:5

となりました

      tk_split_list(tk_call(*what)).collect{|seq|
	seq[1..-2].gsub(/></,',')
      }

の seq[1..-2] の部分がまずいようです。(でも、パッチなし。すみません)

--
新井康司 (Koji Arai)


Index: ext/tk/lib/tk.rb
===================================================================
RCS file: /src/ruby/ext/tk/lib/tk.rb,v
retrieving revision 1.20
diff -u -r1.20 tk.rb
--- ext/tk/lib/tk.rb	2000/11/27 09:23:34	1.20
+++ ext/tk/lib/tk.rb	2001/03/28 14:44:38
@@ -978,6 +979,12 @@
     BTagID_TBL[id]? BTagID_TBL[id]: id
   end
 
+  ALL = self.new # don't call initialize()
+  ALL.instance_eval {
+    @id = 'all'
+    BTagID_TBL[@id] = self
+  }
+
   def initialize(*args)
     @id = Tk_BINDTAG_ID[0]
     Tk_BINDTAG_ID[0] = Tk_BINDTAG_ID[0].succ