This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[PATCH] gdb_busy_event -> BusyEvent
- To: Insight Maling List <insight at sources dot redhat dot com>
- Subject: [PATCH] gdb_busy_event -> BusyEvent
- From: Keith Seitz <keiths at cygnus dot com>
- Date: Thu, 31 May 2001 08:43:24 -0700 (PDT)
Hi,
I have committed the following change, which removes "gdb_busy_event" and
replaces it with BusyEvent, a new event class. Still need to do some
cleanup with the different types of busy, but this is the first step.
Please let me know if there are problems. (This is a huge patch, so there
is probably going to be problems...)
Keith
ChangeLog:
2001-05-31 Keith Seitz <keiths@redhat.com>
* library/interface.tcl (gdb_busy_hook): Deprecate.
(gdbtk_busy): Create and dispatch a BusyEvent instead
of running hooks.
* library/ehandler.ith (busy): New event handler.
* library/gdbevent.ith (BusyEvent): New event class.
* library/console.ith: Inherit from GDBEventHandler.
(busy): Match event handler definition.
* library/console.itb (busy): Ditto.
(constructor): Remove gdb_busy_event.
(destructor): Ditto.
* library/kod.ith (busy): Match event handler definition.
* library/kod.itb (busy): Ditto.
(constructor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/memwin.ith (busy): Match event handler definition.
* library/memwin.itb (busy): Ditto.
(constructor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/pluginwin.itcl (running): Rename to "busy" and
match event handler definition.
(consturctor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/process.ith (busy): Match event handler definition.
* library/process.itb (busy): Ditto.
(constructor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/regwin.ith (busy): Match event handler definition.
* library/regwin.itb (busy): Ditto.
(constructor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/srcbar.itcl (constructor): Remove gdb_busy_hook.
(destructor): Ditto.
(busy): New method.
* library/srcwin.ith (busy): Match event handler definition.
* library/srcwin.itb (busy): Ditto.
Only do the "busy" stuff if do_updates is set.
(toggle_updates): Remove gdb_busy_hook.
(constructor): Ditto.
(destructor): Ditto.
* library/stackwin.ith (busy): Match event handler definition.
* library/stackwin.itb (busy): Ditto.
(constructor): Remove gdb_busy_hook.
(destructor): Ditto.
* library/variables.tcl (constructor): Ditto.
(destructor): Ditto.
(disable_ui): Rename to "busy" and match event handler
definition.
* library/plugins/rhabout/rhabout.itcl (running): Rename
to "busy" and match new event handler definition.
* library/tclIndex: Regenerated.
Patch:
Index: console.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/console.itb,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- console.itb 2001/04/05 00:04:28 1.8
+++ console.itb 2001/05/31 15:21:40 1.9
@@ -19,7 +19,6 @@ body Console::constructor {args} {
debug "$args"
_build_win
eval itk_initialize $args
- add_hook gdb_busy_hook [list $this busy]
add_hook gdb_idle_hook [list $this idle]
add_hook gdb_no_inferior_hook [list $this idle]
@@ -40,7 +39,6 @@ body Console::constructor {args} {
body Console::destructor {} {
global gdbtk_state
set gdbtk_state(console) ""
- remove_hook gdb_busy_hook [list $this busy]
remove_hook gdb_idle_hook [list $this idle]
remove_hook gdb_no_inferior_hook [list $this idle]
@@ -205,7 +203,10 @@ body Console::idle {} {
set _running 0
}
-body Console::busy {} {
+# ------------------------------------------------------------------
+# METHOD: busy - busy event handler
+# ------------------------------------------------------------------
+body Console::busy {event} {
set _running 1
}
Index: console.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/console.ith,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- console.ith 2001/04/05 00:04:28 1.3
+++ console.ith 2001/05/31 15:21:40 1.4
@@ -18,7 +18,7 @@
# ----------------------------------------------------------------------
class Console {
- inherit EmbeddedWin
+ inherit EmbeddedWin GDBEventHandler
public {
#Approximate maximum number of lines allowed in widget
@@ -27,13 +27,17 @@ class Console {
method constructor {args}
method destructor {}
method idle {}
- method busy {}
method insert {line}
method einsert {line tag}
method invoke {}
method _insertion {args}
method get_text {}
method activate {{prompt {}}}
+
+ #
+ # GDB Events
+ #
+ method busy {event}
}
private {
Index: ehandler.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/ehandler.ith,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- ehandler.ith 2001/04/20 17:20:02 1.2
+++ ehandler.ith 2001/05/31 15:21:40 1.3
@@ -32,5 +32,8 @@ class GDBEventHandler {
# Set variable
method set_variable {event} {}
+
+ # Busy event
+ method busy {event} {}
}
}
Index: gdbevent.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/gdbevent.ith,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- gdbevent.ith 2001/04/20 17:20:02 1.2
+++ gdbevent.ith 2001/05/31 15:21:40 1.3
@@ -147,3 +147,15 @@ class SetVariableEvent {
public method get {what}
public method handler {} { return "set_variable" }
}
+
+# BUSY EVENT
+#
+# This event is created/dispatched whenever the GUI or GDB is "busy".
+# This could happen when the inferior is executing or when the GUI
+# is, for example, fetching memory from the target.
+
+class BusyEvent {
+ inherit GDBEvent
+
+ public method handler {} { return "busy" }
+}
Index: interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- interface.tcl 2001/05/22 18:24:18 1.22
+++ interface.tcl 2001/05/31 15:21:40 1.23
@@ -47,6 +47,7 @@ proc gdbtk_tcl_set_variable {var val} {
# For debugging purposes, please put debug statements at the very
# beginning and ends of all GUI state hooks.
+# *** DEPRECATED: Use GDBEventHandler::busy instead.
# GDB_BUSY_HOOK
# This hook is used to register a callback when the UI should
# be disabled because the debugger is either busy or talking
@@ -54,7 +55,7 @@ proc gdbtk_tcl_set_variable {var val} {
#
# All callbacks should disable ALL user input which could cause
# any state changes in either the target or the debugger.
-define_hook gdb_busy_hook
+#define_hook gdb_busy_hook
# GDB_IDLE_HOOK
# This hook is used to register a callback when the UI should
@@ -122,19 +123,17 @@ proc gdbtk_tcl_preloop { } {
# ------------------------------------------------------------------
-# PROCEDURE: gdbtk_busy - run all busy hooks
+# PROCEDURE: gdbtk_busy - Dispatch a busy event
#
# Use this procedure from within GUI code to indicate that
# the debugger is busy, either running the inferior or
-# talking to the target. This will call all the registered
-# gdb_busy_hook's.
+# talking to the target.
# ------------------------------------------------------------------
proc gdbtk_busy {} {
- set err [catch {run_hooks gdb_busy_hook} txt]
- if {$err} {
- dbug E "$txt"
- }
+ set e [BusyEvent \#auto]
+ GDBEventHandler::dispatch $e
+ delete object $e
# Force the screen to update
update
Index: kod.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/kod.itb,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- kod.itb 2001/04/20 18:47:33 1.3
+++ kod.itb 2001/05/31 15:21:40 1.4
@@ -34,7 +34,6 @@ body KodWin::constructor {args} {
# Add hooks for this object
add_hook gdb_update_hook [code $this update]
- add_hook gdb_busy_hook [code $this busy]
add_hook gdb_idle_hook [code $this idle]
}
@@ -400,7 +399,6 @@ body KodWin::destructor {} {
remove_hook gdb_update_hook [code $this update]
remove_hook gdb_idle_hook [code $this idle]
- remove_hook gdb_busy_hook [code $this busy]
}
# ------------------------------------------------------------------
@@ -427,13 +425,13 @@ body KodWin::reconfig {} {
}
# ------------------------------------------------------------------
-# METHOD: busy - gdb_busy_hook
+# METHOD: busy - BusyEvent handler
#
# This method should accomplish blocking
# - clicks in the window
# - change mouse pointer
# ------------------------------------------------------------------
-body KodWin::busy {} {
+body KodWin::busy {event} {
set Running 1
_disable_buttons
cursor watch
Index: kod.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/kod.ith,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- kod.ith 2001/04/20 18:47:33 1.2
+++ kod.ith 2001/05/31 15:21:40 1.3
@@ -43,7 +43,6 @@ class KodWin {
method clear {}
method top {}
method up {}
- method busy {}
method idle {}
method cursor {glyph}
method _disable_buttons {}
@@ -59,5 +58,6 @@ class KodWin {
# Gdb Events
#
method set_variable {event}
+ method busy {event}
}
}
Index: memwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.itb,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- memwin.itb 2001/05/25 21:06:18 1.5
+++ memwin.itb 2001/05/31 15:21:40 1.6
@@ -50,7 +50,6 @@ body MemWin::constructor {args} {
gdbtk_idle
add_hook gdb_update_hook "$this update"
- add_hook gdb_busy_hook [list $this busy]
add_hook gdb_idle_hook [list $this idle]
}
@@ -62,7 +61,6 @@ body MemWin::destructor {} {
$prefs_win cancel
}
remove_hook gdb_update_hook "$this update"
- remove_hook gdb_busy_hook [list $this busy]
remove_hook gdb_idle_hook [list $this idle]
}
@@ -404,9 +402,10 @@ body MemWin::idle {} {
# ------------------------------------------------------------------
-# METHOD: busy - disable menus 'cause we're busy updating things
+# METHOD: busy - BusyEvent handler
+# Disable menus 'cause we're busy updating things.
# ------------------------------------------------------------------
-body MemWin::busy {} {
+body MemWin::busy {event} {
# Fencepost
set Running 1
Index: memwin.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.ith,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- memwin.ith 2001/05/22 19:10:06 1.3
+++ memwin.ith 2001/05/31 15:21:40 1.4
@@ -62,7 +62,6 @@ class MemWin {
method toggle_enabled {}
method update {}
method idle {}
- method busy {}
method newsize {height}
method update_address_cb {}
method update_address { {ae ""} }
@@ -75,5 +74,10 @@ class MemWin {
method goto {addr}
method memMoveCell {w x y}
method error_dialog {msg {modality task} {type ok}}
+
+ #
+ # GDB Events
+ #
+ method busy {event}
}
}
Index: pluginwin.itcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/pluginwin.itcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- pluginwin.itcl 2001/02/01 17:59:38 1.2
+++ pluginwin.itcl 2001/05/31 15:21:40 1.3
@@ -29,7 +29,7 @@
# ----------------------------------------------------------------------
class PluginWindow {
- inherit ManagedWin
+ inherit ManagedWin GDBEventHandler
# ------------------------------------------------------------------
# CONSTRUCTOR - create widget
@@ -53,7 +53,6 @@ class PluginWindow {
eval itk_initialize $args
add_hook gdb_idle_hook [code $this stopped]
- add_hook gdb_busy_hook [code $this running]
add_hook gdb_no_inferior_hook [code $this no_inferior]
}
@@ -62,7 +61,6 @@ class PluginWindow {
# ------------------------------------------------------------------
destructor {
remove_hook gdb_idle_hook [code $this stopped]
- remove_hook gdb_busy_hook [code $this running]
remove_hook gdb_no_inferior_hook [code $this no_inferior]
#destroy $this
@@ -91,11 +89,11 @@ class PluginWindow {
}
# ------------------------------------------------------------------
- # METHOD: running
+ # METHOD: busy - BusyEvent handler
# Invoked when gdb is going to run the inferior
# ------------------------------------------------------------------
- protected method running {} {
- debug "PluginWindow::running"
+ public method busy {event} {
+ debug "PluginWindow::busy"
enable_ui 0
}
Index: process.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/process.itb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- process.itb 2000/02/07 00:19:42 1.1
+++ process.itb 2001/05/31 15:21:40 1.2
@@ -28,7 +28,6 @@ body ProcessWin::constructor {args} {
# Add hooks for this object
add_hook gdb_update_hook [code $this update]
- add_hook gdb_busy_hook [code $this busy]
add_hook gdb_no_inferior_hook [code $this idle]
add_hook gdb_idle_hook [code $this idle]
}
@@ -130,7 +129,6 @@ body ProcessWin::change_context {y} {
body ProcessWin::destructor {} {
remove_hook gdb_update_hook [code $this update]
remove_hook gdb_idle_hook [code $this idle]
- remove_hook gdb_busy_hook [code $this busy]
remove_hook gdb_no_inferior_hook [code $this no_inferior]
}
@@ -143,13 +141,13 @@ body ProcessWin::reconfig {} {
}
# ------------------------------------------------------------------
-# METHOD: busy - gdb_busy_hook
+# METHOD: busy - BusyEvent handler
#
# This method should accomplish blocking
# - clicks in the window
# - change mouse pointer
# ------------------------------------------------------------------
-body ProcessWin::busy {} {
+body ProcessWin::busy {event} {
set Running 1
cursor watch
}
Index: process.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/process.ith,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- process.ith 2000/02/07 00:19:42 1.1
+++ process.ith 2001/05/31 15:21:40 1.2
@@ -28,7 +28,6 @@ class ProcessWin {
method cursor {glyph}
method change_frame {y}
method update {}
- method busy {}
method idle {}
}
@@ -36,5 +35,10 @@ class ProcessWin {
method reconfig {}
method constructor {args}
method destructor {}
+
+ #
+ # Event
+ #
+ method busy {event}
}
}
Index: regwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/regwin.itb,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- regwin.itb 2001/04/20 18:47:33 1.9
+++ regwin.itb 2001/05/31 15:21:40 1.10
@@ -33,7 +33,6 @@ body RegWin::constructor {args} {
gdbtk_idle
add_hook gdb_update_hook "$this update"
- add_hook gdb_busy_hook [list $this busy]
add_hook gdb_idle_hook [list $this idle]
}
@@ -44,7 +43,6 @@ body RegWin::destructor {} {
debug
save_reg_display_vars
remove_hook gdb_update_hook "$this update"
- remove_hook gdb_busy_hook [list $this busy]
remove_hook gdb_idle_hook [list $this idle]
}
@@ -677,9 +675,9 @@ body RegWin::reconfig {} {
}
# ------------------------------------------------------------------
-# PRIVATE METHOD: busy - gdb_busy_hook
+# PUBLIC METHOD: busy - BusyEvent handler
# ------------------------------------------------------------------
-body RegWin::busy {} {
+body RegWin::busy {event} {
# Cancel edits
unedit
Index: regwin.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/regwin.ith,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- regwin.ith 2001/04/20 18:47:33 1.4
+++ regwin.ith 2001/05/31 15:21:40 1.5
@@ -62,12 +62,12 @@ class RegWin {
method update {}
method idle {}
method reconfig {}
- method busy {}
#
# Gdb Events
#
method set_variable {event}
+ method busy {event}
}
Index: srcbar.itcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srcbar.itcl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- srcbar.itcl 2001/05/22 18:24:18 1.7
+++ srcbar.itcl 2001/05/31 15:21:40 1.8
@@ -66,7 +66,6 @@ class SrcBar {
eval itk_initialize $args
add_hook gdb_idle_hook "$this enable_ui 1"
- add_hook gdb_busy_hook "$this enable_ui 0"
add_hook gdb_no_inferior_hook "$this enable_ui 2"
add_hook gdb_trace_find_hook "$this handle_trace_find_hook"
}
@@ -79,7 +78,6 @@ class SrcBar {
unset GDBSrcBar_state($this)
remove_hook gdb_idle_hook "$this enable_ui 1"
- remove_hook gdb_busy_hook "$this enable_ui 0"
remove_hook gdb_no_inferior_hook "$this enable_ui 2"
remove_hook gdb_trace_find_hook "$this handle_trace_find_hook"
@@ -1068,6 +1066,13 @@ Do you want to continue?" \
set Collecting 0
}
}
+ }
+
+ # ------------------------------------------------------------------
+ # METHOD: busy - BusyEvent handler
+ # ------------------------------------------------------------------
+ method busy {event} {
+ enable_ui 0
}
####################################################################
Index: srcwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srcwin.itb,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- srcwin.itb 2001/02/07 01:11:18 1.12
+++ srcwin.itb 2001/05/31 15:21:40 1.13
@@ -42,7 +42,6 @@ body SrcWin::constructor {args} {
set update_hook_init 1
add_hook gdb_update_hook "SrcWin::choose_and_update"
}
- add_hook gdb_busy_hook "$this busy"
add_hook gdb_idle_hook "$this idle"
add_hook gdb_no_inferior_hook "$this no_inferior"
add_hook download_progress_hook "$this download_progress"
@@ -60,7 +59,6 @@ body SrcWin::constructor {args} {
# ------------------------------------------------------------------
body SrcWin::destructor {} {
debug
- remove_hook gdb_busy_hook "$this busy"
remove_hook gdb_no_inferior_hook "$this no_inferior"
remove_hook gdb_idle_hook "$this idle"
remove_hook download_progress_hook "$this download_progress"
@@ -324,10 +322,8 @@ body SrcWin::_name {w {val ""}} {
body SrcWin::toggle_updates {value} {
if {$value} {
add_hook gdb_update_hook "$this update"
- add_hook gdb_busy_hook "$this busy"
} else {
remove_hook gdb_update_hook "$this update"
- remove_hook gdb_busy_hook "$this busy"
}
# save state in do_updates so it will be preserved
# in window reconfigs
@@ -547,19 +543,21 @@ body SrcWin::_update_title {name} {
# ------------------------------------------------------------------
# PUBLIC METHOD: busy - disable things when gdb is busy
# ------------------------------------------------------------------
-body SrcWin::busy {} {
+body SrcWin::busy {event} {
global gdb_loaded gdb_target_name
# debug "gdb_loaded=$gdb_loaded, gdb_target_name=$gdb_target_name"
- enable_ui 0
- if {$Running} {
- $_toolbar configure -runstop running
- if {$gdb_loaded || \
- ([TargetSelection::native_debugging] && $gdb_target_name != "remote")} {
- set_status "Program is running."
- }
- } else {
- $_toolbar configure -runstop busy
+ if {$do_updates} {
+ enable_ui 0
+ if {$Running} {
+ $_toolbar configure -runstop running
+ if {$gdb_loaded || \
+ ([TargetSelection::native_debugging] && $gdb_target_name != "remote")} {
+ set_status "Program is running."
+ }
+ } else {
+ $_toolbar configure -runstop busy
+ }
}
}
Index: srcwin.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/srcwin.ith,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- srcwin.ith 2000/12/07 20:14:02 1.4
+++ srcwin.ith 2001/05/31 15:21:40 1.5
@@ -27,7 +27,6 @@ class SrcWin {
inherit TopLevelWin GDBWin
public {
- method busy {}
method constructor {args}
method destructor {}
method download_progress { section num tot {msg ""} }
@@ -57,6 +56,11 @@ class SrcWin {
proc choose_and_update {}
proc choose_and_display {tag linespec}
proc point_to_main {}
+
+ #
+ # GDB Events
+ #
+ method busy {event}
}
private {
Index: stackwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/stackwin.itb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- stackwin.itb 2000/02/07 00:19:42 1.1
+++ stackwin.itb 2001/05/31 15:21:40 1.2
@@ -21,7 +21,6 @@ body StackWin::constructor {args} {
gdbtk_idle
add_hook gdb_update_hook [code $this update]
- add_hook gdb_busy_hook [code $this busy]
add_hook gdb_no_inferior_hook [code $this no_inferior]
add_hook gdb_idle_hook [code $this idle]
}
@@ -32,7 +31,6 @@ body StackWin::constructor {args} {
body StackWin::destructor {} {
remove_hook gdb_update_hook [code $this update]
remove_hook gdb_idle_hook [code $this idle]
- remove_hook gdb_busy_hook [code $this busy]
remove_hook gdb_no_inferior_hook [code $this no_inferior]
}
@@ -146,13 +144,11 @@ body StackWin::reconfig {} {
}
# ------------------------------------------------------------------
-# METHOD: busy - gdb_busy_hook
-#
-# This body StackWin::should accomplish blocking
-# - clicks in the window
-# - change mouse pointer
+# PUBLIC METHOD: busy - BusyEvent handler
+# This method should cause blocking of clicks in
+# the window and change mouse pointer.
# ------------------------------------------------------------------
-body StackWin::busy {} {
+body StackWin::busy {event} {
set Running 1
cursor watch
}
Index: stackwin.ith
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/stackwin.ith,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- stackwin.ith 2000/02/07 00:19:42 1.1
+++ stackwin.ith 2001/05/31 15:21:40 1.2
@@ -27,7 +27,6 @@ class StackWin {
method cursor {glyph}
method change_frame {y}
method update {}
- method busy {}
method no_inferior {}
method idle {}
}
@@ -36,6 +35,11 @@ class StackWin {
method reconfig {}
method constructor {args}
method destructor {}
+
+ #
+ # GDB Events
+ #
+ method busy {event}
}
}
Index: variables.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/variables.tcl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- variables.tcl 2001/05/22 15:46:03 1.9
+++ variables.tcl 2001/05/31 15:21:40 1.10
@@ -35,7 +35,6 @@ class VariableWin {
gdbtk_idle
add_hook gdb_update_hook "$this update"
- add_hook gdb_busy_hook "$this disable_ui"
add_hook gdb_no_inferior_hook "$this no_inferior"
add_hook gdb_idle_hook [list $this idle]
add_hook gdb_clear_file_hook [code $this clear_file]
@@ -166,7 +165,6 @@ class VariableWin {
# Remove this window and all hooks
remove_hook gdb_update_hook "$this update"
- remove_hook gdb_busy_hook "$this disable_ui"
remove_hook gdb_no_inferior_hook "$this no_inferior"
remove_hook gdb_idle_hook [list $this idle]
remove_hook gdb_clear_file_hook [code $this clear_file]
@@ -917,10 +915,10 @@ class VariableWin {
}
# ------------------------------------------------------------------
- # METHOD: disable_ui
+ # PUBLIC METHOD: busy - BusyEvent handler
# Disable all ui elements that could affect gdb's state
# ------------------------------------------------------------------
- method disable_ui {} {
+ method busy {event} {
# Set fencepost
set Running 1