From 04576ab6ccc7fa996ddc18e1d931f36e175deb44 Mon Sep 17 00:00:00 2001
From: Stu Grossman <grossman@cygnus>
Date: Mon, 28 Nov 1994 18:20:21 +0000
Subject: [PATCH] 	* gdbtk.tcl (build_framework):  Fix bug with setting
 window titles.

---
 gdb/ChangeLog | 2 ++
 gdb/gdbtk.tcl | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.30.2