Index: widget.tcl
===================================================================
RCS file: /cvsroot/tcllib/bwidget/widget.tcl,v
retrieving revision 1.20
diff -r1.20 widget.tcl
4c4
< #  $Id: widget.tcl,v 1.20 2002/01/23 00:36:53 hobbs Exp $
---
> #  $Id: widget.tcl,v 1.3 2002/10/08 12:56:04 decoster Exp $
1020a1021,1024
> 	# JDC: Withdraw toplevels, otherwise visible
> 	if { ![string compare $tkwidget "toplevel"] } {
> 	    wm withdraw $widget
> 	}
