diff options
author | Martin Hunt <hunt@redhat.com> | 2002-11-06 23:45:25 +0000 |
---|---|---|
committer | Martin Hunt <hunt@redhat.com> | 2002-11-06 23:45:25 +0000 |
commit | 9fd345a71e6695367e96f2bf4fd1ce015edd1b6c (patch) | |
tree | 7197726f6fd1a9a156945a218f515449cf93feba /gdb | |
parent | b807974a91f660916e245634cf44dcef2101a9fd (diff) | |
download | gdb-9fd345a71e6695367e96f2bf4fd1ce015edd1b6c.tar.gz |
2002-11-06 Martin M. Hunt <hunt@redhat.com>
* library/locals.tcl (build_win): Fix so window opens
on Windows.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/gdbtk/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/gdbtk/library/locals.tcl | 15 |
2 files changed, 9 insertions, 11 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 1d3c1d8c889..56b631bd1b5 100644 --- 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 118c5285eaa..aabd5f5ba23 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 |