Posted to tcl by saedelaere at Wed Mar 17 13:07:12 GMT 2010view raw

  1. proc ::tk::spinbox::Invoke {w elem} {
  2. if {[winfo exists $w] == 0} return
  3. variable ::tk::Priv
  4.  
  5. if {![info exists Priv(outsideElement)]} {
  6. $w invoke $elem
  7. incr Priv(repeated)
  8. }
  9. set delay [$w cget -repeatinterval]
  10. if {$delay > 0} {
  11. set Priv(afterId) [after $delay \
  12. [list ::tk::spinbox::Invoke $w $elem]]
  13. }
  14. }
  15.  
  16. or something like that
  17.  
  18. proc ::tk::spinbox::Invoke {w elem} {
  19. variable ::tk::Priv
  20.  
  21. if {![info exists Priv(outsideElement)]} {
  22. $w invoke $elem
  23. incr Priv(repeated)
  24. }
  25. if {[winfo exists $w]} {
  26. set delay [$w cget -repeatinterval]
  27. if {$delay > 0} {
  28. set Priv(afterId) [after $delay \
  29. [list ::tk::spinbox::Invoke $w $elem]]
  30. }
  31. }
  32. }