From: Stu Grossman <grossman@cygnus>
Date: Mon, 28 Nov 1994 18:20:21 +0000 (+0000)
Subject: 	* gdbtk.tcl (build_framework):  Fix bug with setting window titles.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=04576ab6ccc7fa996ddc18e1d931f36e175deb44;p=binutils-gdb.git

	* gdbtk.tcl (build_framework):  Fix bug with setting window titles.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8c57e475854..815fd9162d9 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,7 @@
 Mon Nov 28 09:17:20 1994  Stu Grossman  (grossman@cygnus.com)
 
+	* gdbtk.tcl (build_framework):  Fix bug with setting window titles.
+
 	* gdbtk.tcl (build_framework):  Add "Report bug" to help menu.
 
 	* gdbtk.tcl:  Re-arrange windows using new, consistent layout. Clean
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 0fb38d9041f..6ad1735e55d 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1318,7 +1318,7 @@ button .files -text Files -command files_command
 proc build_framework {win {title GDBtk} {label {}}} {
 
 	toplevel ${win}
-	wm title .src $title
+	wm title ${win} $title
 	wm minsize ${win} 1 1
 
 	frame ${win}.menubar