From 3ed284483347dde8dca75d06149822f26e78fd3d Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 22 Jun 2003 16:17:02 +0000
Subject: tk.rb :   * TkRoot.new and TkToplevel.new accept Wm commands as
 elements     of a hash argument.     e.g. TkRoot.new(:title=>'App Title')    
      TkToplevel.new(:parent=>Tk.root, :title=>'XXX', :class=>'ZZZ')   *
 TkMenu :: add some methods   * TkOptionMenubutton :: bug fix

sample/tktimer2.rb
  * add comments about the usage of a TkTimer object.

sample/tkmenubutton.rb
  * sample of TkMenubutton and TkOptionMenubutton


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@3979 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb | 40 +++++++++++++++++++++++++++++-----------
 1 file changed, 29 insertions(+), 11 deletions(-)

(limited to 'ext/tk/lib')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 0afaa07d3..f1226ba10 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -4244,6 +4244,21 @@ class TkMenu<TkWindow
     tk_send 'add', type, *hash_kv(keys)
     self
   end
+  def add_cascade(keys=nil)
+    add('cascade', keys)
+  end
+  def add_checkbutton(keys=nil)
+    add('checkbutton', keys)
+  end
+  def add_command(keys=nil)
+    add('command', keys)
+  end
+  def add_radiobutton(keys=nil)
+    add('radiobutton', keys)
+  end
+  def add_separator(keys=nil)
+    add('separator', keys)
+  end
   def index(index)
     ret = tk_send('index', index)
     (ret == 'none')? nil: number(ret)
@@ -4430,8 +4445,8 @@ end
 
 class TkOptionMenubutton<TkMenubutton
   class OptionMenu<TkMenu
-    def initialize(parent)
-      @path = parent.path + '.menu'
+    def initialize(path)  #==> return value of tk_optionMenu
+      @path = path
       TkComm::Tk_WINDOWS[@path] = self
     end
   end
@@ -4443,13 +4458,13 @@ class TkOptionMenubutton<TkMenubutton
        var = keys['variable'] if keys['variable']
        firstval, *vals = keys['values']
     end
-    fail unless var.kind_of? TkVariable
+    fail 'variable option must be TkVariable' unless var.kind_of? TkVariable
     @variable = var
     firstval = @variable.value unless firstval
     @variable.value = firstval
     install_win(if parent then parent.path end)
-    @menu = OptionMenu.new(self)
-    tk_call 'tk_optionMenu', @path, @variable.id, firstval, *vals
+    @menu = OptionMenu.new(tk_call('tk_optionMenu', @path, @variable.id, 
+				   firstval, *vals))
   end
 
   def value
@@ -4483,15 +4498,18 @@ class TkOptionMenubutton<TkMenubutton
   def yposition(index)
     @menu.yposition(index)
   end
-  def menucget(index, key)
-    @menu.cget(index, key)
+  def menu
+    @menu
+  end
+  def menucget(key)
+    @menu.cget(key)
   end
-  def menuconfigure(index, key, val=None)
-    @menu.configure(index, key, val)
+  def menuconfigure(key, val=None)
+    @menu.configure(key, val)
     self
   end
-  def menuconfiginfo(index, key=nil)
-    @menu.configinfo(index, key)
+  def menuconfiginfo(key=nil)
+    @menu.configinfo(key)
   end
   def entrycget(index, key)
     @menu.entrycget(index, key)
-- 
cgit