# gui::recursivestate --
 #
 #        Set state for a window and its children, recursively.

 proc gui::recursivestate {w newstate} {
     variable widgetstates
     set clist [$w configure]
     set idx [lsearch $clist [list -state *]]
     if { $idx > -1 } {
         set slist [lindex $clist $idx]
         set currentstate [lindex $slist 4]
         set widgetstates($w) $currentstate
         $w configure -state $newstate
     }
     foreach c [winfo children $w] {
         gui::recursivestate $c $newstate
     }
 }

 # gui::restorestate --
 #
 #        Restore widgets previously affected by recursivestate to their
 #        native state.

 proc gui::restorestate {} {
     variable widgetstates
     foreach {w oldstate} [array get widgetstates] {
         $w configure -state $oldstate
     }
     array set widgetstates {}
 }

 proc lib::state {mode W {new normal}} {
   variable state
   switch -- $mode {
     reset {
       if { [info exists state($W)] } {
         if { [catch {$W configure -state $state($W)} error] } {
           puts stderr "  \[$::errorCode\] $error\n"
         }
         unset state($W)
       }
       foreach w [winfo children $W] {
         state $mode $w $new
       }
     }
     set {
       if { [catch {$W cget -state} old] } {
         puts stderr "  \[$W\] $old\n"
       } else {
         if { [catch {$W configure -state $new} error] } {
           puts stderr "  \[$W\] $error\n"
         } elseif { ![info exists state($W)] } {
           set state($W) $old
         }
       }
       foreach w [winfo children $W] {
         if { [string equal [winfo toplevel $w] $W] } {
           state $mode $w $new
         }
       }
     }
   }
 }