From 30d8bfb2148b12e868aefd0b123c2d7466fc97b1 Mon Sep 17 00:00:00 2001 From: Fernando Nasser Date: Thu, 30 Mar 2000 22:14:24 +0000 Subject: 2000-03-30 Fernando Nasser * variables.tcl (edit): Remove call to close, which caused editing of variables to fail. Note: I don't know why we would need to do this here as it seems that the "delete entry" operation will do that. Perhaps this was to account to some old widget bug. But we cannot call close here because it calls UnEdit, which unsets some of the edit state. (open): Make sure to abort any ongoing edit. This was causing problems when someone tried to expand an structure while editing its pointer. --- gdb/gdbtk/library/ChangeLog | 12 ++++++++++++ gdb/gdbtk/library/variables.tcl | 6 +++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog index f7110803b92..1b5abca232a 100644 --- a/gdb/gdbtk/library/ChangeLog +++ b/gdb/gdbtk/library/ChangeLog @@ -1,3 +1,15 @@ +2000-03-30 Fernando Nasser + + * variables.tcl (edit): Remove call to close, which caused editing + of variables to fail. + Note: I don't know why we would need to do this here as it seems + that the "delete entry" operation will do that. + Perhaps this was to account to some old widget bug. + But we cannot call close here because it calls UnEdit, + which unsets some of the edit state. + (open): Make sure to abort any ongoing edit. This was causing problems + when someone tried to expand an structure while editing its pointer. + 2000-03-28 James Ingham * managedwin.itb (ManagedWin::startup): Open the SrcWin, this does diff --git a/gdb/gdbtk/library/variables.tcl b/gdb/gdbtk/library/variables.tcl index a1f15e2741d..eb4edc79551 100644 --- a/gdb/gdbtk/library/variables.tcl +++ b/gdb/gdbtk/library/variables.tcl @@ -425,7 +425,6 @@ class VariableWin { # Find out what the previous entry is set previous [getPrevious $variable] - close $variable $Hlist delete entry $variable set cmd [format { \ @@ -644,6 +643,11 @@ class VariableWin { # We must lookup all the variables for this struct # debug "VariableWin::open $path" + # Cancel any edits + if {[info exists EditEntry]} { + UnEdit + } + if {!$Running} { # Do not open disabled paths if {$Update($this,$path)} { -- cgit v1.2.1