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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8c57e475854559f66596d35d10633a1685c4bdf4..815fd9162d955fb998d5fd48c6a51ecf4f141d72 100644 (file)
--- 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 0fb38d9041f08071d25639326c22575a7058025e..6ad1735e55d1544d2eb683560e9ddd27853c840f 100644 (file)
--- 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