From 92f9362d3e0372eb2a1e7ccfa5f73b4efe302ac5 Mon Sep 17 00:00:00 2001 From: hunt Date: Wed, 6 Nov 2002 23:45:25 +0000 Subject: [PATCH] 2002-11-06 Martin M. Hunt * library/locals.tcl (build_win): Fix so window opens on Windows. --- gdb/gdbtk/ChangeLog | 5 ++++- gdb/gdbtk/library/locals.tcl | 15 +++++---------- 2 files changed, 9 insertions(+), 11 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 1d3c1d8c88..56b631bd1b 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,9 @@ 2002-11-06 Martin M. Hunt + * library/locals.tcl (build_win): Fix so window opens + on Windows. + +2002-11-06 Martin M. Hunt * library/debugwin.itb: Remove VariableWin. Add VarTree. 2002-11-06 Martin M. Hunt @@ -33,7 +37,6 @@ 2002-11-06 Martin M. Hunt * 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 118c5285ea..aabd5f5ba2 100644 --- 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 -- 2.11.0