From 8ba9c428b76e9903407e3579d5e82c01d43ac437 Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Wed, 9 May 2001 17:03:15 +0000 Subject: [PATCH] * library/interface.tcl (gdb_quit_hook): Remove. It's unused. (gdbtk_quit): Do no shutdown window manager and save preferences here. (gdbtk_cleanup): This is the proper place to do those things. --- gdb/gdbtk/ChangeLog | 8 ++++++++ gdb/gdbtk/library/interface.tcl | 19 ++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 6534fb661b..4d93b344e7 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,11 @@ +2001-05-09 Keith Seitz + + * library/interface.tcl (gdb_quit_hook): Remove. It's unused. + (gdbtk_quit): Do no shutdown window manager and save + preferences here. + (gdbtk_cleanup): This is the proper place to do those + things. + 2001-05-07 Keith Seitz * library/globalpref.itb (build_win): Preserve the diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl index 9a46e3b11f..30d5daf7cd 100644 --- a/gdb/gdbtk/library/interface.tcl +++ b/gdb/gdbtk/library/interface.tcl @@ -212,9 +212,6 @@ proc gdbtk_idle {} { define_hook download_progress_hook -# Random hook of procs to call just before exiting. -define_hook gdb_quit_hook - # ------------------------------------------------------------------ # PROCEDURE: gdbtk_quit_check - Ask if the user really wants to quit. # ------------------------------------------------------------------ @@ -247,13 +244,11 @@ proc gdbtk_quit_check {} { # ------------------------------------------------------------------ # PROCEDURE: gdbtk_quit - Quit the debugger # Call this procedure anywhere the user can request to quit. -# This procedure will ask all the right questions and run -# all the gdb_quit_hooks before exiting. +# This procedure will ask all the right questions before +# exiting. # ------------------------------------------------------------------ proc gdbtk_quit {} { if {[gdbtk_quit_check]} { - ManagedWin::shutdown - pref_save gdb_force_quit } } @@ -263,8 +258,14 @@ proc gdbtk_quit {} { # before exiting. Last chance to cleanup! # ------------------------------------------------------------------ proc gdbtk_cleanup {} { - # This is a sign that it is too late to be doing updates, etc... - set ::gdb_shutting_down 1 + # This is a sign that it is too late to be doing updates, etc... + set ::gdb_shutting_down 1 + + # Shutdown the window manager and save all preferences + # This way a "quit" in the console window will cause + # preferences to be saved. + ManagedWin::shutdown + pref_save } # ------------------------------------------------------------------ -- 2.11.0