2002-11-06 Martin M. Hunt <hunt@redhat.com>

	* library/locals.tcl (build_win): Fix so window opens
	on Windows.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 1d3c1d8..56b631b 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,9 @@
 2002-11-06  Martin M. Hunt  <hunt@redhat.com>
 
+       * library/locals.tcl (build_win): Fix so window opens
+       on Windows.     
+
+2002-11-06  Martin M. Hunt  <hunt@redhat.com>  
        * library/debugwin.itb: Remove VariableWin.  Add VarTree.
 
 2002-11-06  Martin M. Hunt  <hunt@redhat.com>  
@@ -33,7 +37,6 @@
 2002-11-06  Martin M. Hunt  <hunt@redhat.com>  
        * generic/gdbtk-varobj.c: Remove FREEIF and replace with xfree.
        Make format_string static.
-
        (variable_update): Return an object
        with "-1" in it on error.
        

diff --git a/gdb/gdbtk/library/locals.tcl b/gdb/gdbtk/library/locals.tcl
index 118c528..aabd5f5 100644 (file)
--- a/gdb/gdbtk/library/locals.tcl
+++ b/gdb/gdbtk/library/locals.tcl
@@ -79,18 +79,13 @@ itcl::class LocalsWin {
   method build_win {f} {
     #debug "$f"
     
-    if {$::tcl_platform(platform) == "windows"} {
-      frame $f.f
-      set tree [VarTree $f.f -type "local"]
-      pack $f.f -expand yes -fill both -side top
-      frame $f.stat
-      pack $f.stat -side bottom -fill x
-    } else {
-      set tree [VarTree $f.tree -type "local"]
-    }
-
+    set tree [VarTree $f.tree -type "local"]
     pack $f.tree -expand yes -fill both
     pack $f -expand yes -fill both
+    if {$::tcl_platform(platform) == "windows"} {
+      ide_sizebox [namespace tail $this].sizebox
+      place [namespace tail $this].sizebox -relx 1 -rely 1 -anchor se
+    }
     
     window_name "Local Variables"
     ::update idletasks