Only in iwidgets-4.1.1/generic: CVS
diff -u -r iwidgets-4.1.1/generic/combobox.itk rz/library/combobox.itk
--- iwidgets-4.1.1/generic/combobox.itk	Tue Sep  5 10:00:07 2017
+++ rz/library/combobox.itk	Wed Jun 27 11:57:14 2018
@@ -521,6 +521,7 @@
 	    } else {
 		if {$itk_option(-state) == "normal"} {
 		    eval iwidgets::Entryfield::insert $index $args
+		    #RZ [itcl::code $this _lookup ""]
 		    eval [itcl::code $this _lookup ""]
 		}
 	    }
@@ -1258,7 +1259,7 @@
 itcl::body iwidgets::Combobox::_stateSelect {} {
     switch --  $itk_option(-state) {
 	normal {
-	    eval [itcl::code $this _selectCmd]
+	    [itcl::code $this _selectCmd]
 	}
     }
 }
diff -u -r iwidgets-4.1.1/generic/datefield.itk rz/library/datefield.itk
--- iwidgets-4.1.1/generic/datefield.itk	Tue Sep  5 10:00:07 2017
+++ rz/library/datefield.itk	Wed Jun 27 11:57:14 2018
@@ -6,7 +6,7 @@
 # ----------------------------------------------------------------------
 #   AUTHOR:  Mark L. Ulferts          E-mail: mulferts@austin.dsccc.com
 #
-#   @(#) $Id: datefield.itk,v 1.7 2017/05/26 19:19:38 dgp Exp $
+#   @(#) $Id: datefield.itk,v 1.6 2007/06/10 19:18:14 hobbs Exp $
 # ----------------------------------------------------------------------
 #            Copyright (c) 1997 DSC Technologies Corporation
 # ======================================================================
@@ -362,17 +362,11 @@
 # 02/29/1997 is invalid.
 # ------------------------------------------------------------------
 itcl::body iwidgets::Datefield::isvalid {} {
-    set date [$itk_component(date) get]
-    if {[package vsatisfies [package provide Tcl] 8.5]} {
-        if {$itk_option(-int)} {
-            set format {%Y-%m-%d}
-        } else {
-            set format {%m/%d/%Y}
-        }
-	return [string equal $date \
-            [clock format [clock scan $date -format $format] -format $format]]
+    if {[catch {clock scan [$itk_component(date) get]}] != 0} {
+        return 0
+    } else {
+        return 1
     }
-    return [expr {![catch {clock scan $date}]}]
 }
 
 # ------------------------------------------------------------------
@@ -1011,13 +1005,16 @@
 # PROTECTED METHOD: _lastDay month year
 #
 # Internal method which determines the last day of the month for
-# the given month and year.
+# the given month and year.  We start at 28 and go forward till
+# we fail.  Crude but effective.
 # ------------------------------------------------------------------
 itcl::body iwidgets::Datefield::_lastDay {month year} {
-    scan $month %d month
-    scan $year %d year
-    incr year [expr {$month/12}]
-    incr month
-    return [clock format \
-	    [clock scan "-1 day" -base [clock scan $month/1/$year]] -format %d]
+    set lastone 28
+
+    for {set lastone 28} {$lastone < 32} {incr lastone} {
+        set nextone [expr $lastone + 1]
+        if {[catch {clock scan $month/$nextone/$year}] != 0} {
+            return $lastone
+        }
+    }
 }
diff -u -r iwidgets-4.1.1/generic/hierarchy.itk rz/library/hierarchy.itk
--- iwidgets-4.1.1/generic/hierarchy.itk	Tue Sep  5 10:00:07 2017
+++ rz/library/hierarchy.itk	Wed Jun 27 11:57:14 2018
@@ -14,7 +14,7 @@
 #            DSC Communications
 #            mulferts@austin.dsccc.com
 #
-#      RCS:  $Id: hierarchy.itk,v 1.10 2017/06/28 18:43:52 dgp Exp $
+#      RCS:  $Id: hierarchy.itk,v 1.9 2002/09/06 16:27:03 smithc Exp $
 # ----------------------------------------------------------------------
 #                Copyright (c) 1996  Lucent Technologies
 # ======================================================================
@@ -291,10 +291,7 @@
     # bindings for mouse button 1 to do selection and button 3 to 
     # display a popup.
     #
-    
-    set tags [bindtags $itk_component(list)]
-    set idx [lsearch -exact $tags Text]
-    bindtags $itk_component(list) [lreplace $tags $idx $idx]
+    bindtags $itk_component(list) [list $itk_component(list) . all]
     
     bind $itk_component(list) <ButtonPress-1> \
             [itcl::code $this _select %x %y]
diff -u -r iwidgets-4.1.1/generic/labeledframe.itk rz/library/labeledframe.itk
--- iwidgets-4.1.1/generic/labeledframe.itk	Wed Aug 15 14:32:51 2001
+++ rz/library/labeledframe.itk	Wed Jun 27 11:57:14 2018
@@ -289,6 +289,7 @@
 #     {"-relx" "-rely" <rowconfigure|columnconfigure> <row/column number>}
 # -----------------------------------------------------------------------------
 itcl::body iwidgets::Labeledframe::_initTable {} {
+  if {![catch {set _LAYOUT_TABLE(nw-relx)}]} return ;#RZ
   array set _LAYOUT_TABLE {
     nw-relx 0.0  nw-rely 0.0  nw-wrap 0 nw-conf rowconfigure    nw-num 0
     n-relx  0.5  n-rely  0.0  n-wrap  0 n-conf  rowconfigure    n-num  0
@@ -313,7 +314,7 @@
   #
   # NOTE: Be careful to use the "body" command, or the proc will get lost!
   #
-  itcl::body ::iwidgets::Labeledframe::_initTable {} {}
+  #RZ itcl::body ::iwidgets::Labeledframe::_initTable {} {}
 }
 
 # -----------------------------------------------------------------------------
diff -u -r iwidgets-4.1.1/generic/menubar.itk rz/library/menubar.itk
--- iwidgets-4.1.1/generic/menubar.itk	Wed Aug 15 14:33:13 2001
+++ rz/library/menubar.itk	Wed Jun 27 11:57:14 2018
@@ -160,6 +160,7 @@
 
 	variable _menuOption          ;# The -menu option
 	variable _helpString          ;# The -helpstr optio
+	variable _fixed 0 ;#RZ bug fix
     }
 }
 
@@ -198,7 +199,7 @@
     set _pathMap(.) $itk_component(menubar)
 
     eval itk_initialize $args
-
+    set _fixed 1 ;#RZ
     #
     # HACK HACK HACK
     # Tk expects some variables to be defined and due to some
@@ -357,7 +358,8 @@
 
 	# IF one exists already, delete the old one and create
 	# a new one
-	if { ! [catch {_parsePath .0}] } {
+	#RZ if { ! [catch {_parsePath .0}] } 
+	if { $_fixed && ! [catch {_parsePath .0}] } {
 	    delete .0 .last
 	} 
 
@@ -2071,9 +2073,7 @@
 
     set concatPath ""
     foreach seg $segments {
-
 	set concatPath [_getSymbolicPath $concatPath $seg]
-
 	if { [catch {set _pathMap($concatPath)} ] } {
 	    error "bad path: \"$path\" does not exist. \"$seg\" not valid"
 	}
Only in rz/library: pkgIndex.tcl
diff -u -r iwidgets-4.1.1/generic/scopedobject.itcl rz/library/scopedobject.itcl
--- iwidgets-4.1.1/generic/scopedobject.itcl	Tue Sep  5 10:00:07 2017
+++ rz/library/scopedobject.itcl	Wed Jun 27 11:57:14 2018
@@ -126,7 +126,7 @@
   set depth [llength [$this info heritage]]
   set _level "#[uplevel $depth info level]"
   uplevel $_level set _localVar($this) $this
-  uplevel $_level [list ::trace variable _localVar($this) u [itcl::code $this _traceCommand]]
+  uplevel $_level trace variable _localVar($this) u \"[itcl::code $this _traceCommand]\"
 
   eval configure $args
 
@@ -140,7 +140,7 @@
 #--------------------------------------------------------------------------------
 itcl::body iwidgets::Scopedobject::destructor {} {
 
-  uplevel $_level [list ::trace vdelete _localVar($this) u [itcl::code $this _traceCommand]]
+  uplevel $_level trace vdelete _localVar($this) u \"[itcl::code $this _traceCommand]\"
 
   if {$exitscopecommand != {}} {
     eval $exitscopecommand
diff -u -r iwidgets-4.1.1/generic/scrolledhtml.itk rz/library/scrolledhtml.itk
--- iwidgets-4.1.1/generic/scrolledhtml.itk	Thu Dec  2 12:49:18 2004
+++ rz/library/scrolledhtml.itk	Wed Jun 27 11:57:14 2018
@@ -139,7 +139,7 @@
   itk_option define -alink alink ALink red
   itk_option define -linkhighlight alink ALink red
   itk_option define -unknownimage unknownimage File {}
-  itk_option define -textbackground textBackground Background {}
+  itk_option define -textbackground textBackground Background {#ffffff};#RZ
   itk_option define -update update Update 1
   itk_option define -debug debug Debug 0
 
@@ -352,7 +352,8 @@
     foreach x $_images {
       ::image delete $x
     }
-    if {$_unknownimg != $_defUnknownImg} {
+    #RZ if {$_unknownimg != $_defUnknownImg}
+    if {$_unknownimg != "" && $_unknownimg != $_defUnknownImg} {
       ::image delete $_unknownimg
     }
 }
diff -u -r iwidgets-4.1.1/generic/timefield.itk rz/library/timefield.itk
--- iwidgets-4.1.1/generic/timefield.itk	Tue Sep  5 10:00:07 2017
+++ rz/library/timefield.itk	Wed Jun 27 11:57:14 2018
@@ -6,7 +6,7 @@
 # ----------------------------------------------------------------------
 #   AUTHOR:  John A. Tucker          E-mail: jatucker@austin.dsccc.com
 #
-#   @(#) $Id: timefield.itk,v 1.8 2017/05/30 18:26:14 dgp Exp $
+#   @(#) $Id: timefield.itk,v 1.6 2001/08/17 19:05:44 smithc Exp $
 # ----------------------------------------------------------------------
 #            Copyright (c) 1997 DSC Technologies Corporation
 # ======================================================================
@@ -81,7 +81,7 @@
       method _toggleAmPm {}
 
       variable _cfield hour
-      variable _formatString "%I:%M:%S %p"
+      variable _formatString "%r"
       variable _fields {}
       variable _numFields 4
       variable _forward {}
@@ -269,7 +269,7 @@
       set _forward _forwardCivilian
       set _fields $_civilianFields
       set _numFields 4
-      set _formatString "%I:%M:%S %p"
+      set _formatString "%r"
       $itk_component(time) config -width 11
     }
     military {
@@ -416,32 +416,7 @@
 # ------------------------------------------------------------------
 itcl::body iwidgets::Timefield::isvalid {} {
   set _timeVar [$itk_component(time) get]
-
-  if {[catch {set count [scan $_timeVar {%2d:%2d:%2d %1sM} h m s p]}]} {
-    return 0
-  }
-  if {$count != 4} {
-    return 0
-  }
-  if {![string match {[AP]} $p]} {
-    return 0
-  }
-  if {$s < 0 || $s > 59} {
-    return 0
-  }
-  if {$m < 0 || $m > 59} {
-    return 0
-  }
-  if {$itk_option(-format) == "military"} {
-    if {$h < 0 || $h > 23} {
-	return 0
-    }
-  } else {
-    if {$h < 1 || $h > 12} {
-	return 0
-    }
-  }
-  return 1
+  return [expr {([catch {::clock scan $_timeVar -gmt $itk_option(-gmt)}] == 0)}]
 }
 
 # ------------------------------------------------------------------
diff -u -r iwidgets-4.1.1/generic/toolbar.itk rz/library/toolbar.itk
--- iwidgets-4.1.1/generic/toolbar.itk	Fri Aug 17 15:05:54 2001
+++ rz/library/toolbar.itk	Wed Jun 27 11:57:14 2018
@@ -684,7 +684,8 @@
     foreach optionSet [$itk_component($name) configure] {
 	set option [lindex $optionSet 0]
 	if { [lsearch $_optionList $option] != -1 } {
-	    itk_option add $name.$option
+	    #RZ itk_option add $name.$option
+	    itk_option add $name.[string range $option 1 end]
 	}
     }
     
