[ruby-dev:26748] Re: TkCheckbutton#variable as getter?

山本です。

>Index: ext/tk/lib/tk/radiobutton.rb
>===================================================================
>RCS file: /var/cvs/src/ruby/ext/tk/lib/tk/radiobutton.rb,v
>retrieving revision 1.1.2.4
>diff -u -r1.1.2.4 radiobutton.rb
>--- ext/tk/lib/tk/radiobutton.rb	8 Dec 2004 18:13:37 -0000	1.1.2.4
>+++ ext/tk/lib/tk/radiobutton.rb	5 Aug 2005 03:56:13 -0000
>@@ -25,8 +25,16 @@
>     tk_send_without_enc('select')
>     self
>   end
>-  def variable(v)
>-    configure 'variable', tk_trace_variable(v)
>+
>+  def variable(v = nil)
>+    if v
>+      configure 'variable', tk_trace_variable(v)
>+    else
>+      cget('variable')
>+    end
>+  end
>+  def variable=(v)
>+    variable(v)
>   end
> 
>   def get_value

このパッチだと、variable のバインドを解除しようとして c1.variable = nil
とできないので、None を使うのはどうでしょうか。また、c1.variable で返るのは
TkVariable のほうが使いやすい気がします。

Index: radiobutton.rb
===================================================================
RCS file: /src/ruby/ext/tk/lib/tk/radiobutton.rb,v
retrieving revision 1.4
diff -u -w -b -p -r1.4 radiobutton.rb
--- radiobutton.rb	8 Dec 2004 18:14:12 -0000	1.4
+++ radiobutton.rb	5 Aug 2005 04:33:45 -0000
@@ -25,8 +25,15 @@ class TkRadioButton<TkButton
     tk_send_without_enc('select')
     self
   end
-  def variable(v)
+  def variable(v = None)
+    if v != None
     configure 'variable', tk_trace_variable(v)
+    else
+      TkVarAccess.new(cget('variable'))
+    end
+  end
+  def variable=(v)
+    variable(v)
   end
 
   def get_value

///////////////////////////////////////////////////
// テスト

require 'tk'

v = TkVariable.new(false)

c1 = TkCheckbutton.new {
    variable v
    pack
}

c2 = TkCheckbutton.new {
    pack
}

c2.variable = c1.variable
c2.variable.trace('w', proc { puts c2.variable.value })

Tk.mainloop