Posted to tcl by dgp at Thu Mar 15 16:30:26 GMT 2018view raw

  1.  
  2. diff -ur iwidgets-4.1.0/generic/combobox.itk /home/dgp/fossil/iwidgets/generic/c
  3. ombobox.itk
  4. --- iwidgets-4.1.0/generic/combobox.itk 2017-06-28 14:40:24.000000000 -0400
  5. +++ /home/dgp/fossil/iwidgets/generic/combobox.itk 2017-09-05 10:00:07.2866
  6. 89725 -0400
  7. @@ -1258,7 +1258,7 @@
  8. itcl::body iwidgets::Combobox::_stateSelect {} {
  9. switch -- $itk_option(-state) {
  10. normal {
  11. - [itcl::code $this _selectCmd]
  12. + eval [itcl::code $this _selectCmd]
  13. }
  14. }
  15. }
  16. Only in /home/dgp/fossil/iwidgets/generic: CVS
  17. diff -ur iwidgets-4.1.0/generic/scopedobject.itcl /home/dgp/fossil/iwidgets/gene
  18. ric/scopedobject.itcl
  19. --- iwidgets-4.1.0/generic/scopedobject.itcl 2001-08-07 15:56:48.000000000 -0
  20. 400
  21. +++ /home/dgp/fossil/iwidgets/generic/scopedobject.itcl 2017-09-05 10:00:07.3666
  22. 90437 -0400
  23. @@ -126,7 +126,7 @@
  24. set depth [llength [$this info heritage]]
  25. set _level "#[uplevel $depth info level]"
  26. uplevel $_level set _localVar($this) $this
  27. - uplevel $_level trace variable _localVar($this) u \"[itcl::code $this _traceC
  28. ommand]\"
  29. + uplevel $_level [list ::trace variable _localVar($this) u [itcl::code $this _
  30. traceCommand]]
  31.  
  32. eval configure $args
  33.  
  34. @@ -140,7 +140,7 @@
  35. #------------------------------------------------------------------------------
  36. --
  37. itcl::body iwidgets::Scopedobject::destructor {} {
  38.  
  39. - uplevel $_level trace vdelete _localVar($this) u \"[itcl::code $this _traceCo
  40. mmand]\"
  41. + uplevel $_level [list ::trace vdelete _localVar($this) u [itcl::code $this _t
  42. raceCommand]]
  43.  
  44. if {$exitscopecommand != {}} {
  45. eval $exitscopecommand
  46.