patches to Iwidgets 4.1.0

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