From: Brett Williams <brett_williams@...>
Date: 2005-05-05T01:39:45+09:00
Subject: Re: tk_optionMenu bug in 1.8.2

Hidetoshi NAGAI wrote:
> From: Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
> Subject: Re: tk_optionMenu bug in 1.8.2
> Date: Thu, 28 Apr 2005 11:34:24 +0900
> Message-ID: <20050428.113404.71101381.nagai@ai.kyutech.ac.jp>
> 
>>I couldn't too. And couldn't reproduce the another error. 
>>My environment is "ruby 1.8.2 (2005-04-25) [i686-linux]" 
>>with "ActiveTcl8.4.9.0".
> 
> 
> Sorry. My tcltklib.so was replaced with 2005-04-26 version. 
> I installed Tcl/Tk8.3.2 and used "1.8.2 (2005-04-27) [i686-linux]". 
> But unfortunately, I couldn't reproduce your trouble...

Well, we compiled a much more recent version of tcl, compiled ruby 
against it, and now we get a more useful backtrace with our problem.

This is with your patch applied against 1.8.2, and tcl version 8.4.9
on hpux11.00/pa2.0 (linux/i686 still gets the less useful error posted 
before):

With the same pgui.rb file I attached earlier, I push the add button on 
the left and get:


------------  CONSTRUCTING TKOPTIONMENU
---< backtrace of Ruby side >-----
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1948:in `__invoke'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1948:in `_invoke'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1498:in `_ip_invoke_core'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1532:in `_tk_call_core'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1556:in `tk_call'
/opt/ictools/ruby/lib/ruby/1.8/tk/menu.rb:463:in `initialize'
pgui.rb:160:in `new'
pgui.rb:160:in `make_add_button'
pgui.rb:94:in `call'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1089:in `eval_cmd'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1089:in `cb_eval'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1040:in `call'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1178:in `callback'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1383:in `mainloop'
/opt/ictools/ruby/lib/ruby/1.8/tk.rb:1383:in `mainloop'
pgui.rb:367:in `initialize'
pgui.rb:662:in `new'
pgui.rb:662
---< backtrace of Tk side >-------
     invoked from within
"rb_out c00010"
     invoked from within
".w00002.w00029.w00031.w00037 invoke"
     ("uplevel" body line 1)
     invoked from within
"uplevel #0 [list $w invoke]"
     (procedure "tk::ButtonUp" line 22)
     invoked from within
"tk::ButtonUp .w00002.w00029.w00031.w00037"
     (command bound to event)