From 2dc07a9c5bbd851f0e43c3a521558c422af119ff Mon Sep 17 00:00:00 2001 From: Fernando Nasser Date: Sun, 28 Jan 2001 18:06:29 +0000 Subject: 2001-01-28 Fernando Nasser * library/gdbmenubar.itcl (set_class_state): Turn off verbose debug messages. * library/gdbtoolbar.itcl (set_class_state): Ditto. --- gdb/gdbtk/ChangeLog | 6 ++++++ gdb/gdbtk/library/gdbmenubar.itcl | 6 +++--- gdb/gdbtk/library/gdbtoolbar.itcl | 6 +++--- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index f1dba68491f..6700bea72df 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,9 @@ +2001-01-28 Fernando Nasser + + * library/gdbmenubar.itcl (set_class_state): Turn off verbose debug + messages. + * library/gdbtoolbar.itcl (set_class_state): Ditto. + 2001-01-26 Fernando Nasser * generic/gdbtk-cmds.c (gdb_clear_file): Call exec_file_clear() and diff --git a/gdb/gdbtk/library/gdbmenubar.itcl b/gdb/gdbtk/library/gdbmenubar.itcl index b9c438cf145..b38a79ec138 100644 --- a/gdb/gdbtk/library/gdbmenubar.itcl +++ b/gdb/gdbtk/library/gdbmenubar.itcl @@ -66,13 +66,13 @@ class GDBMenuBar { debug "Enable list is: $enable_list" foreach {type state} $enable_list { - dbug W $type + # debug $type if {[info exists menu_classes($type)]} { set class_list $menu_classes($type) if {[llength $class_list]} { - dbug W "$type $state \{$class_list\}" + # debug "$type $state \{$class_list\}" foreach menu $class_list { - dbug W "$type $menu $state" + # debug "$type $menu $state" menubar_change_menu_state $menu $state } } diff --git a/gdb/gdbtk/library/gdbtoolbar.itcl b/gdb/gdbtk/library/gdbtoolbar.itcl index eb58d4fa4fd..572f44f64c6 100644 --- a/gdb/gdbtk/library/gdbtoolbar.itcl +++ b/gdb/gdbtk/library/gdbtoolbar.itcl @@ -70,13 +70,13 @@ class GDBToolBar { debug "Enable list is: $enable_list" foreach {type state} $enable_list { - dbug W $type + # debug $type if {[info exists button_classes($type)]} { set class_list $button_classes($type) if {[llength $class_list]} { - dbug W "$type $state \{$class_list\}" + # debug "$type $state \{$class_list\}" foreach button $class_list { - dbug W "$type $button $state" + # debug "$type $button $state" toolbar_configure_button $button -state $state } } -- cgit v1.2.1