From: Noritsugu Nakamura <nnakamur@...>
Date: 2000-03-04T09:17:35+09:00
Subject: [ruby-list:21179] Re: TkSelection.own 	の使い方？


中村 のりつぐ です。

In article <200003031733.CAA09330@smtp1.nifty.ne.jp> 
Koji Arai <JCA02266@nifty.ne.jp> wrote:
> あえて書けば

> こうかな？

ありがとうございます。こんな感じで確かめた
ところ意図した通りに動いてくれました。\(^o^)/


#!/usr/local/bin/ruby

require "tk"

module TkSelection
  def TkSelection.own(win=None, func=None)
    tk_call 'selection', 'own', win, func
  end
end

l1 = TkListbox.new
l2 = TkListbox.new
l1.pack('side' => 'left')
l2.pack('side' => 'left')

for i in ['hoge1', 'hoge2', 'hoge3']
  l1.insert 'end', i
#  l2.insert 'end', i
end

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

Tk.mainloop

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

       中村 典嗣  E-mail:     nnakamur@mxq.mesh.ne.jp