ruby-list

新井です。

In message "[ruby-list:29005] TkBindTagAll (Re: ruby/tk TkEntry#selection_present bug?)"
  on 29 Mar 2001 00:39:20 +0900,
  Koji Arai <JCA02266@nifty.ne.jp> wrote:
> 新井です。

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

>       tk_split_list(tk_call(*what)).collect{|seq|
> 	seq[1..-2].gsub(/></,',')
>       }
> 
> の seq[1..-2] の部分がまずいようです。(でも、パッチなし。すみません)

一応、考えました。

(A) 配列形式
      tk_split_list(tk_call(*what)).collect{|seq|
	a = []
	seq.scan(/<(<.*?>)>|<(.*?)>|(.)/) { a << $+ }
	a
      }

(B) 文字列形式
      tk_split_list(tk_call(*what)).collect{|seq|
	seq.gsub(/<(<.*?>)>|<(.*?)>|(.)/, '\+,').chomp(',')
      }

のどちらにすべきか迷ったのですがパッチでは(B)を選びました(互換性のため)

以下のイベントシーケンスを考慮しました。

require 'tk'

tag = TkBindTag.new
tag.bind(['Return']) {}
tag.bind(['Escape','Return']) {}
tag.bind(['Escape','q']) {}
tag.bind(['q','Escape']) {}
tag.bind('1') {}
tag.bind('a,Escape') {}
tag.bind('a,b') {}
tag.bind('q') {}
tag.bind(TkVirtualEvent.new('Return,Escape')) {}
# tag.bind([TkVirtualEvent.new('Return'), 'Escape']) {}	# <- うまくいかない
p tag.bindinfo

# bindinfo の返却値を bind できることを確認
tag.bindinfo.each {|seq|
  TkBindTag.new.bind(seq) {}
}

# (A) の結果
[["<VirtEvent0000>"], ["q"], ["a", "b"], ["a", "Key-Escape"], ["Button-1"], ["q", "Key-Escape"], ["Key-Escape", "q"], ["Key-Escape", "Key-Return"], ["Key-Return"]]

# (B) の結果
["<VirtEvent0000>", "q", "a,b", "a,Key-Escape", "Button-1", "q,Key-Escape", "Key-Escape,q", "Key-Escape,Key-Return", "Key-Return"]

ところで、"<<virtual>><sequence>" というシーケンスはダメなの
でした？上記のコメントアウトした部分がなぜかエラーになるのです。

#!/usr/local/bin/wish
event add <<virtual>> <Return>
bind . <<virtual>><Escape>
exit

は特にエラーにならずよくわかりませんでした(一箇所 context =>
ev のバグはありました。パッチ参照)

--
新井康司 (Koji Arai)

? bak
Index: tk.rb
===================================================================
RCS file: /src/ruby/ext/tk/lib/tk.rb,v
retrieving revision 1.21
diff -u -r1.21 tk.rb
--- tk.rb	2001/03/27 07:09:27	1.21
+++ tk.rb	2001/03/28 19:38:19
@@ -351,7 +351,7 @@
     end
     if context.kind_of? Array
       context = context.collect{|ev|
-	if context.kind_of? TkVirtualEvent
+	if ev.kind_of? TkVirtualEvent
 	  ev.path
 	else
 	  ev
@@ -398,7 +398,11 @@
       }
     else
       tk_split_list(tk_call(*what)).collect{|seq|
-	seq[1..-2].gsub(/></,',')
+	# a = []
+	# seq.scan(/<(<.*?>)>|<(.*?)>|(.)/) { a << $+ }
+	# a
+
+	seq.gsub(/<(<.*?>)>|<(.*?)>|(.)/, '\+,').chomp(',')
       }
     end
   end
@@ -1046,6 +1050,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
@@ -2575,7 +2585,7 @@
 
   def bindtags(taglist=nil)
     if taglist
-      fail unless taglist.kind_of? Array
+      fail ArgumentError unless taglist.kind_of? Array
       tk_call('bindtags', path, taglist)
     else
       list(tk_call('bindtags', path)).collect{|tag|
Index: tkvirtevent.rb
===================================================================
RCS file: /src/ruby/ext/tk/lib/tkvirtevent.rb,v
retrieving revision 1.3
diff -u -r1.3 tkvirtevent.rb
--- tkvirtevent.rb	2000/05/24 04:34:23	1.3
+++ tkvirtevent.rb	2001/03/28 19:38:20
@@ -22,6 +22,7 @@
   end
 
   def initialize(*sequences)
+    fail ArgumentError if sequences.empty?
     @path = @id = format("<VirtEvent%.4d>", TkVirturlEventID[0])
     TkVirturlEventID[0] += 1
     add(*sequences)

Thread

Prev Next

In This Thread

Prev Next

[#28392] Ruby による CGI プログラミング — Keisuke Minami <keisuke@...>

[#28394] 日本語の文章を配列にいれ行の好きな位置から数文字取り出す — Kenji Noda <zaq94465a@...>

[#28397] xml2rb-0.1.2 released — MoonWolf <moonwolf@...>

[#28402] crypt — Kenji Noda <zaq94465a@...>

[#28406] ２５６倍本無道編やっと買いました — M_HANA <M_HANA@...0.sapporo-soft.ac.jp>

[#28408] Fwd: RCR: Input XML support in the base Ruby — TAKAHASHI Masayoshi <maki@...>

[#28415] class Real — 正木 功 <GEC01122@...>

[#28429] Marshal format version — Takahiro Kambe <taca@...>

[#28431] RE:class Real — 正木 功 <GEC01122@...>

[#28435] ruby 1.6.3? — akira yamada / やまだあきら <akira@...>

[#28441] constant in module_eval — Kenichi Komiya <kom@...1.accsnet.ne.jp>

[#28443] DPMI — Kenji Noda <zaq94465a@...>

[#28454] Ruby 初心者は！ — 有瀬 和徳 <crush@...>

[#28475] Ruby Editor for Windows — Kenji Noda <zaq94465a@...>

[#28485] ruby/tk TkEntry#selection_present bug? — Noritsugu Nakamura <nnakamur@...>

[#28530] テキストファイルを固定文字数で切って、行番号をつけるプログラム — Keisuke Minami <keisuke@...>

[#28536] DATA.rewind — URA Takefumi <hage@...>

[#28561] ChibiXML started — MoonWolf <moonwolf@...>

[#28563] watcher2 もどき — Kazuhiko Iwama <iwama@...>

[#28565] 海外無料サーバ — 有瀬 和徳 <crush@...>

[#28577] field sort — Kenji Noda <zaq94465a@...>

[#28585] String#delete — rubikitch@...

[#28587] net/smtp.rb doesn't work with sendmail 8.8.7 — Mitsuhiro Kondo <kondo@...>

[#28591] sub の実行で予期せぬ動作 — Noriyuki Suzuki <noriyuki@...>

[#28594] TkScale#coords, TkScale#get, TkScale#identify 未実装 — Noritsugu Nakamura <nnakamur@...>

[#28599] 1.6 のダウンロードマニュアルが圧縮されていない？ — Keisuke Minami <keisuke@...>

[#28612] TkScrollbar#identify bug — Noritsugu Nakamura <nnakamur@...>

[#28630] nest of Hash.new — Sato Hiroshi <hiroshi@...>

[#28642] substr — Akihiro Yamauchi <aygoofy@...>

[#28646] 指定 field で sort — Kenji Noda <zaq94465a@...>

[#28653] ActiveScriptRuby in ASP — tokoma@... (中川 誠)

[#28660] ruby termios library — akira yamada / やまだあきら <akira@...>

[#28661] 正規表現 — Kenji Noda <zaq94465a@...>

[#28662] TkMenu#insert bug — Noritsugu Nakamura <nnakamur@...>

[#28663] TkMenuClone の使い方は？ — Noritsugu Nakamura <nnakamur@...>

[#28667] TkTextMark#next(index), #previous(index) — Noritsugu Nakamura <nnakamur@...>

[#28680] TkCanvas#delete bug — Noritsugu Nakamura <nnakamur@...>

[#28684] TkCanvas#lower, raise bug — Noritsugu Nakamura <nnakamur@...>

[#28685] Ruby/Tk のメソッドの動作確認スクリプト群 — Noritsugu Nakamura <nnakamur@...>

[#28686] Ruby の求人 — HIGAKI Masaru (ひがき まさる) <mash@...>

[#28687] Re: nest of Hash.new — Takahiro Kambe <taca@...>

[#28691] Dir#glob of mswin32 — "たけ(tk)" <ggb03124@...>

[#28698] ruby のコンパイル — Toru MITANI <toru_m@...2.dion.ne.jp>

[#28703] — HGF01572@...

[#28715] GC — OHARA Shigeki <os@...>

[#28737] Wiki もどき — IWATSUKI Hiroyuki <don@...>

[#28747] Ruby/Gtk 日本語表示と色変更を同時にするには？ — Yoshihisa Yamamoto <yyama@...>

[#28760] tmpfile() に相当するのは？ — 堀川 久 <vzw00011@...>

[#28761] media watch 2001.03.14 — Noritsugu Nakamura <nnakamur@...>

[#28762] CGI::header の不具合 — IWATSUKI Hiroyuki <don@...>

[#28764] Win32_process.create PID — Koga Atsushi <kog@...>

[#28765] Net::FTP#mtime — URA Takefumi <hage@...>

[#28771] copyright of gc.c — TAKAHASHI Masayoshi <maki@...>

[#28773] [Q] ChibiXML のサンプルみたいなもの — eda@...

[#28780] revenge of shell.rb — keiju@... (Keiju ISHITSUKA)

[#28789] freeze した文字列の書き換えチェック方法 — nekurai@...

[#28794] undef singleton method — "K.Kosako" <kosako@...>

[#28798] RubyUnit で、 initialize メソッドのようなことをしたい — "IKAGAWA, Kauztomo" <k_ikagawa@...>

[#28814] fgets — Kazuhiro NISHIYAMA <zn@...>

[#28820] [RDP] cgi.rd — rubikitch <rubikitch@...>

[#28824] [Q] データ格納用の配列の内容が変わる？ — Atsushi Kanaya <todo-a2c@...>

[#28852] Re: [ruby-ext:01642] Re: o_dbm — keiju@... (石塚圭樹)

[#28854] Marshal.load — Masatoshi SEKI <m_seki@...>

[#28855] NetBSD BSD/OS curses — matz@... (Yukihiro Matsumoto)

[#28860] Fwd: [ruby-talk:12840] Looking for a decent compression scheme — Kazuhiro Yoshida <moriq.kazuhiro@...>

[#28862] media watch 2001.03.18 — Noritsugu Nakamura <nnakamur@...>

[#28864] patch glob for MSWin32 ruby-1.6.3 — arton <arton@...>

[#28877] Gtk.timeout_add — Nishio Mizuho <mzh@...>

[#28881] 初歩的な質問 — Kenji Noda <zaq94465a@...>

[#28887] cygwin で組み込み — "shibata kenji" <shibata@...>

[#28895] 1.6.3 compile with cc on Sun or HP-UX. — Takashi Shimizu <simtak@...>

[#28901] Numeric.new — "たけ(tk)" <ggb03124@...>

[#28903] lndir.rb でエラー — みかみ まさと <kofukan@...>

[#28911] media watch 2001.03.22 — akira yamada / やまだあきら <akira@...>

[#28916] ruby 1.6.3, deleted from 1.6.2? — Takahiro Kambe <taca@...>

[#28919] RD の Reference について — Kenta MURATA <muraken2@...>

[#28920] オペレータの再定義 — EMOTO Masahiko <emo@...>

[#28932] class constants and singleton class — "K.Kosako" <kosako@...>

[#28938] yet another URI library — akira yamada / やまだあきら <akira@...>

[#28943] Front End Processror A(?) Ruby — YANAGAWA Kazuhisa <kjana@...>

[#28415] class Real — 正木　功 <GEC01122@...>

[#28431] RE:class Real — 正木　功 <GEC01122@...>

[#28454] Ruby 初心者は！ — 有瀬　和徳 <crush@...>

[#28565] 海外無料サーバ — 有瀬　和徳 <crush@...>

[#28653] ActiveScriptRuby in ASP — tokoma@... (中川誠)

[#28686] Ruby の求人 — HIGAKI Masaru (ひがきまさる) <mash@...>

[#28760] tmpfile() に相当するのは？ — 堀川久 <vzw00011@...>

[#28903] lndir.rb でエラー — みかみまさと <kofukan@...>

[#28963] Re: ９ｐ L ３〜１０ P ２ L 　 2 回目 — Naoto Hiroshima <taisei-in@...>

[#28996] ruby API 　でどのクラスのインスタンスか知りたい — Kengo Nakajima <ringo@...>

[#29044] メソッドを private にしたい — 島田喜郎 <yoshimada@...>

[#29046] Re: メソッドを private にしたい — 島田喜郎 <yoshimada@...>