+2001-02-08 Fernando Nasser <fnasser@redhat.com>
+
+ From 2001-02-06 Martin Hunt <hunt@redhat.com>
+ * library/debugwin.itb: Change window name to "Insight Debug"
+ * library/embeddedwin.ith: Fix debug messages.
+ * library/locals.tcl: Ditto.
+ * library/watch.tcl (postMenu): Ditto.
+ * library/variables.tcl: Ditto.
+ * library/interface.tcl: Ditto.
+ * library/regwin.itb: Ditto.
+ * library/gdbwin.ith: Ditto.
+ * library/srcbar.itcl: Ditto.
+
2001-02-06 Fernando Nasser <fnasser@redhat.com>
Originally from Martin Hunt <hunt@redhat.com>, with modifications
# Debug window for GDBtk.
-# Copyright 1998, 1999 Cygnus Solutions
+# Copyright 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# -----------------------------------------------------------------------------
body DebugWin::constructor {args} {
debug ""
- window_name "GDBTK Debug" "Debug"
+ window_name "Insight Debug" "Debug"
build_win
incr numTopWins
# EmbeddedWin class definition for GDBtk.
-# Copyright 1998, 1999 Cygnus Solutions
+# Copyright 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
inherit ManagedWin
constructor {args} {
- debug "EmbeddedWin::constructor $args"
+ debug "$args"
}
destructor {
- debug "EmbeddedWin::destructor"
+ debug
}
}
-# GDBwin class definition for GDBtk.
-# Copyright 1998, 1999 Cygnus Solutions
+# GDBwin class definition for Insight.
+# Copyright 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
public method update
constructor {args} {
- debug "GDBWin::constructor $args"
+ debug "$args"
}
destructor {
- debug "GDBWin::destructor"
+ debug
}
}
set err [catch {run_hooks gdb_busy_hook} txt]
if {$err} {
- debug "gdbtk_busy ERROR: $txt"
+ dbug E "$txt"
}
# Force the screen to update
proc gdbtk_update {} {
set err [catch {run_hooks gdb_update_hook} txt]
if {$err} {
- debug "gdbtk_update ERROR: $txt"
+ dbug E "$txt"
}
# Force the screen to update
gdb_restore_fputs
set err [catch {run_hooks gdb_idle_hook} txt]
if {$err} {
- debug "gdbtk_idle 1 ERROR: $txt"
+ dbug E "idle_hook error: $txt"
}
if {!$gdb_running} {
set err [catch {run_hooks gdb_no_inferior_hook} txt]
if {$err} {
- debug "gdbtk_idle 2 ERROR: $txt"
+ dbug E "no_inferior_hook error: $txt"
}
}
# Force the screen to update
# PROC: gdbtk_tcl_trace_find_hook -
# ------------------------------------------------------------------
proc gdbtk_tcl_trace_find_hook {arg from_tty} {
-# debug "Running trace find hook with $arg $from_tty"
+# debug "$arg $from_tty"
run_hooks gdb_trace_find_hook $arg $from_tty
}
# ------------------------------------------------------------------
proc gdb_run_readline_command {command args} {
global gdbtk_state
-# debug "run readline_command $command $args"
+# debug "$command $args"
set gdbtk_state(readlineArgs) $args
gdb_cmd $command
}
# ------------------------------------------------------------------
proc gdbtk_tcl_readline {prompt} {
global gdbtk_state
-# debug "gdbtk_tcl_readline $prompt"
+# debug "$prompt"
if {[info exists gdbtk_state(readlineArgs)]} {
# Not interactive, so pop the list, and print element.
set cmd [lvarpop gdbtk_state(readlineArgs)]
# ------------------------------------------------------------------
proc gdbtk_locate_main {} {
set main_names [pref get gdb/main_names]
- debug "gdbtk_locate_main: Searching $main_names"
+ debug "Searching $main_names"
foreach main $main_names {
if {![catch {gdb_search functions $main -static 1}] \
&& ![catch {gdb_loc $main} linespec]} {
# ------------------------------------------------------------------
proc set_exe_name {exe} {
global gdb_exe_name gdb_exe_changed
- #debug "set_exe_name: exe=$exe gdb_exe_name=$gdb_exe_name"
+ #debug "exe=$exe gdb_exe_name=$gdb_exe_name"
if {$gdb_exe_name != ""} then {
session_save
if {$gdb_exe_name == ""} { return }
set err [catch {gdb_cmd "file '$gdb_exe_name'" 1} msg]
if {$err} {
- debug "set_exe ERROR: $msg"
+ dbug E "$msg"
set l [split $msg :]
set errtxt [join [lrange $l 1 end] :]
set msg "Error loading \"$gdb_exe_name\":\n"
proc gdbtk_clear_file {} {
global gdb_target_name
- dbug W "GDBTK_CLEAR_FILE"
+ debug
# Give widgets a chance to clean up
run_hooks gdb_clear_file_hook
-# Local variable window for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
+# Local variable window for Insight.
+# Copyright 1997, 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# ------------------------------------------------------------------
method getVariablesBlankPath {} {
global Update
- debug "LocalsWin::getVariablesBlankPath"
+ debug
return [$_frame variables]
}
-# Register display window for GDBtk.
-# Copyright 1998, 1999 Cygnus Solutions
+# Register display window for Insight.
+# Copyright 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# ------------------------------------------------------------------
body RegWin::constructor {args} {
global tixOption
- debug "RegWin::constructor"
+ debug
wm withdraw [winfo toplevel $itk_interior]
gdbtk_busy
# DESTRUCTOR - destroy window containing widget
# ------------------------------------------------------------------
body RegWin::destructor {} {
- debug "RegWin::destructor"
+ debug
save_reg_display_vars
remove_hook gdb_update_hook "$this update"
remove_hook gdb_busy_hook [list $this busy]
set state normal
}
for {set i 0} {$i < 7} {incr i} {
- debug "RegWin format $i $state"
+ debug "format $i $state"
$itk_interior.m.reg.format entryconfigure $i -state $state \
-variable reg_display($r,format)
}
# normal - Run button appears, allowing user to run/re-run exe
# ------------------------------------------------------------------
public method _set_runstop {} {
- dbug W $runstop
+ dbug I $runstop
switch $runstop {
busy {
# This indicates what is the inferior state.
# Possible values are: {busy running downloading normal}
public variable runstop normal {
- dbug W "configuring runstop $runstop"
+ dbug I "configuring runstop $runstop"
# Set the Run/Stop button accordingly
_set_runstop
-# Variable display window for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
+# Variable display window for Insight.
+# Copyright 1997, 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# ------------------------------------------------------------------
method build_win {f} {
global tixOption tcl_platform Display
- # debug "VariableWin::build_win"
+ # debug
set width [font measure src-font "W"]
# Choose the default width to be...
set width [expr {40 * $width}]
# DESTRUCTOR - destroy window containing widget
# ------------------------------------------------------------------
destructor {
- # debug "VariableWin::destructor"
+ # debug
# Make sure to clean up the frame
catch {destroy $_frame}
# METHOD: reconfig - used when preferences change
# ------------------------------------------------------------------
method reconfig {} {
- # debug "VariableWin::reconfig"
+ # debug
foreach win [winfo children $itk_interior] {
destroy $win
}
}
method updateNow {variable} {
- # debug "VariableWin::updateNow $variable"
+ # debug "$variable"
if {!$Running} {
set text [label $variable]
method postMenu {X Y} {
global Update Display
- # debug "VariableWin::postMenu"
+ # debug
# Quicky for menu posting problems.. How to unpost and post??
method open {path} {
global Update
# We must lookup all the variables for this struct
- # debug "VariableWin::open $path"
+ # debug "$path"
# Cancel any edits
if {[info exists EditEntry]} {
# ------------------------------------------------------------------
method close {path} {
global Update
- debug "VariableWin::close $path"
+ debug "$path"
# Close the path and destroy all the entry widgets
# Cancel any edits
# OVERRIDE THIS METHOD
method getVariablesBlankPath {} {
- debug "You forgot to override getVariablesBlankPath!!"
+ dbug -W "You forgot to override getVariablesBlankPath!!"
return {}
}
# ------------------------------------------------------------------
method populate {parent} {
global Update
- debug "VariableWin::populate \"$parent\""
+ debug "$parent"
if {[string length $parent] == 0} {
set variables [getVariablesBlankPath]
# OVERRIDE THIS METHOD and call it from there
method update {} {
global Update
- debug "VariableWin::update"
+ debug
# First, reset color on label to black
foreach w $ChangeList {
# RECURSION!!
method displayedVariables {top} {
- # debug "VariableWin::displayedVariables"
+ # debug
set variableList {}
set variables [$Hlist info children $top]
foreach var $variables {
method deleteTree {} {
global Update
- debug "deleteTree"
- # debug "VariableWin::deleteTree"
+ debug
# set variables [displayedVariables {}]
# Delete all HList entries
-# Watch window for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
+# Watch window for Insight.
+# Copyright 1997, 1998, 1999, 2001 Red Hat
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License (GPL) as published by
# ------------------------------------------------------------------
method build_win {f} {
global tcl_platform
- #debug "WatchWin::build_win $f"
+ #debug "$f"
set Menu [build_menu_helper Watch]
$Menu add command -label Remove -underline 0 \
}
method postMenu {X Y} {
-# debug "WatchWin::postMenu $x $y"
+# debug "$x $y"
set entry [getEntry $X $Y]
# (or use deleteTree)
# ------------------------------------------------------------------
method getVariablesBlankPath {} {
-# debug "WatchWin::getVariablesBlankPath"
+# debug
set list {}
set variables [displayedVariables {}]