* library/managedwin.itb (ManagedWin::_create): When

       making a modal window transient, use the source window
       as the master and not ".".

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index b543b91..24a8d93 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -25,6 +25,12 @@
        * generic/gdbtk-cmds.c (hex2bin): Replace LITTLE_ENDIAN with
        BFD_ENDIAN_LITTLE.
 
+2001-12-11  Ian Roxborough  <irox@redhat.com>
+
+       * library/managedwin.itb (ManagedWin::_create):  When
+       making a modal window transient, use the source window
+       as the master and not ".".
+
 2001-12-10  Ian Roxborough  <irox@redhat.com>
 
        * library/interface.tcl (set_target_name): Call "pref getd"

diff --git a/gdb/gdbtk/library/managedwin.itb b/gdb/gdbtk/library/managedwin.itb
index 3272c43..592c004 100644 (file)
--- a/gdb/gdbtk/library/managedwin.itb
+++ b/gdb/gdbtk/library/managedwin.itb
@@ -255,7 +255,7 @@ body ManagedWin::_create { class args } {
 
   if {$transient} {
     wm resizable $top 0 0
-    wm transient $top .
+    wm transient $top [winfo toplevel [namespace tail [lindex [ManagedWin::find SrcWin] 0]]]
   } elseif {$::tcl_platform(platform) == "unix"} {
     # Modal dialogs DONT get Icons...
     if {[pref get gdb/use_icons] && ![$newwin isa ModalDialog]} {