Posted to tcl by saedelaere at Tue Mar 16 14:11:00 GMT 2010view raw

  1. invalid command name ".config_wizard.frame_configoptions.nb.f_analog_picture.sb_lf_temporal"
  2. while executing
  3. "$w cget -repeatinterval"
  4. (procedure "::tk::spinbox::Invoke" line 8)
  5. invoked from within
  6. "::tk::spinbox::Invoke .config_wizard.frame_configoptions.nb.f_analog_picture.sb_lf_temporal buttondown"
  7. ("after" script)

Comments

Posted by saedelaere at Wed Mar 17 13:04:28 GMT 2010 [text] [code]

this is a first guess of a possible fix proc ::tk::spinbox::Invoke {w elem} { if {[winfo exists $w] == 0} return variable ::tk::Priv if {![info exists Priv(outsideElement)]} { $w invoke $elem incr Priv(repeated) } set delay [$w cget -repeatinterval] if {$delay > 0} { set Priv(afterId) [after $delay \ [list ::tk::spinbox::Invoke $w $elem]] } } or proc ::tk::spinbox::Invoke {w elem} { variable ::tk::Priv if {![info exists Priv(outsideElement)]} { $w invoke $elem incr Priv(repeated) } if {[winfo exists $w]} { set delay [$w cget -repeatinterval] if {$delay > 0} { set Priv(afterId) [after $delay \ [list ::tk::spinbox::Invoke $w $elem]] } } }

Posted by saedelaere at Wed Mar 17 13:05:33 GMT 2010 [text] [code]

uh this is not looking very nice