Posted to tcl by dgp at Thu Mar 15 16:30:26 GMT 2018view raw
- diff -ur iwidgets-4.1.0/generic/combobox.itk /home/dgp/fossil/iwidgets/generic/c
- ombobox.itk
- --- iwidgets-4.1.0/generic/combobox.itk 2017-06-28 14:40:24.000000000 -0400
- +++ /home/dgp/fossil/iwidgets/generic/combobox.itk 2017-09-05 10:00:07.2866
- 89725 -0400
- @@ -1258,7 +1258,7 @@
- itcl::body iwidgets::Combobox::_stateSelect {} {
- switch -- $itk_option(-state) {
- normal {
- - [itcl::code $this _selectCmd]
- + eval [itcl::code $this _selectCmd]
- }
- }
- }
- Only in /home/dgp/fossil/iwidgets/generic: CVS
- diff -ur iwidgets-4.1.0/generic/scopedobject.itcl /home/dgp/fossil/iwidgets/gene
- ric/scopedobject.itcl
- --- iwidgets-4.1.0/generic/scopedobject.itcl 2001-08-07 15:56:48.000000000 -0
- 400
- +++ /home/dgp/fossil/iwidgets/generic/scopedobject.itcl 2017-09-05 10:00:07.3666
- 90437 -0400
- @@ -126,7 +126,7 @@
- set depth [llength [$this info heritage]]
- set _level "#[uplevel $depth info level]"
- uplevel $_level set _localVar($this) $this
- - uplevel $_level trace variable _localVar($this) u \"[itcl::code $this _traceC
- ommand]\"
- + uplevel $_level [list ::trace variable _localVar($this) u [itcl::code $this _
- traceCommand]]
- eval configure $args
- @@ -140,7 +140,7 @@
- #------------------------------------------------------------------------------
- --
- itcl::body iwidgets::Scopedobject::destructor {} {
- - uplevel $_level trace vdelete _localVar($this) u \"[itcl::code $this _traceCo
- mmand]\"
- + uplevel $_level [list ::trace vdelete _localVar($this) u [itcl::code $this _t
- raceCommand]]
- if {$exitscopecommand != {}} {
- eval $exitscopecommand