diff options
Diffstat (limited to 'library/demos/textpeer.tcl')
| -rw-r--r-- | library/demos/textpeer.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/textpeer.tcl b/library/demos/textpeer.tcl index e94284e..8a70267 100644 --- a/library/demos/textpeer.tcl +++ b/library/demos/textpeer.tcl @@ -11,7 +11,7 @@ if {![info exists widgetDemo]} { package require Tk set w .textpeer -catch {destroy $w} +destroy $w toplevel $w wm title $w "Text Widget Peering Demonstration" wm iconname $w "textpeer" |