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

新井です。

>>> From: [e-mail] (Yukihiro Matsumoto)
>>> Date: 15 Mar 2000 12:29:09 +0900
>>> Subject: [ruby-list:21446] Re: TkSelection.ownの使い方？

> まつもと ゆきひろです

> 1.4.4に入れるためにはおそらく今日中に動作確認宣言がでないと
> 間に合いません。とりかかるという宣言さえ出れば数日は待てます。

Tcl/Tk 8.0p2jpで動作確認してみました。問題ないと思います。

# 間に合わなかいようでしたら、見送ってください。
# 宣言しておけばよかった:-(


確認に使用したRuby/Tkスクリプト

#!/usr/local/bin/ruby
require 'tk'

print 'tcl/tk version: '
p [Tk::TCL_VERSION, Tk::TK_VERSION, Tk::JAPANIZED_TK]

l1 = TkListbox.new {
  insert 'end', 'hogehoge'
  pack
}

puts '--- test for TkSelection.own'
p TkSelection.own == l1         # => false
p TkSelection.own l1            # => nil
p TkSelection.own == l1         # => true

puts '--- test for TkSelection.handle'
l1.selection_set 0

p TkSelection.get               # => "hogehoge"

TkSelection.handle l1, proc {|arg| p arg; "foobar" }

p TkSelection.get               # => [0, 4000]
                                # => "foobar"
TkSelection.handle l1, nil

p TkSelection.get		# => エラー

Tk.mainloop

__END__

tcl/tk version: ["8.0", "8.0", true]
--- test for TkSelection.own
false
nil
true
--- test for TkSelection.handle
"hogehoge"
[0, 4000]
"foobar"
PRIMARY selection doesn't exist or form "COMPOUND_TEXT" not defined



上記と同じ動作をするであろうTcl/Tkスクリプト。

#!/usr/local/bin/wish

listbox .l1
.l1 insert end hogehoge
pack .l1

puts "--- test for selection own"
puts [selection own]		;# =>
puts [selection own .l1]	;# =>
puts [selection own]		;# => .l1

puts "--- test for selection handle"
.l1 selection set 0

puts [selection get]		;# => hogehoge

proc handler {offset maxbytes} {
    puts [list $offset $maxbytes]
    return "foobar"
}
selection handle .l1 handler
puts [selection get]		;# => 0 4000
				 # => foobar

selection handle .l1 ""
puts [selection get]		;# => エラー

結果はrubyの場合と同じです。

--- test for selection own


.l1
--- test for selection handle
hogehoge
0 4000
foobar
Error in startup script: PRIMARY selection doesn't exist or form "COMPOUND_TEXT" not defined
    while executing
"selection get"
    (file "/tmp/hoge.tcl" line 26)