diff options
| author | Keith Seitz <keiths@redhat.com> | 2002-01-02 23:42:50 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2002-01-02 23:42:50 +0000 |
| commit | 3ed05c7317d83eb244003e3511c1fba3bcbf0e42 (patch) | |
| tree | 8ad5311b7f3ce368e76e8af606250f346759491e /gdb/gdbtk/library/interface.tcl | |
| parent | 329a70b21b2eb7622a89955c66a278afd52325d6 (diff) | |
| download | gdb-3ed05c7317d83eb244003e3511c1fba3bcbf0e42.tar.gz | |
* library/console.ith (insert): Add tag parameter.
(einsert): Delete.
* library/console.itb: (insert): Add tag parameter.
(einsert): Delete.
* library/interface.tcl (gdbtk_tcl_fputs): Use Console::insert.
(gdbtk_tcl_fputs_error): Likewise.
(gdbtk_tcl_fputs_log): Likewise.
(gdbtk_tcl_fputs_target): Likewise.
(set_target): Likewise.
Diffstat (limited to 'gdb/gdbtk/library/interface.tcl')
| -rw-r--r-- | gdb/gdbtk/library/interface.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl index a69e5323677..280005f3642 100644 --- a/gdb/gdbtk/library/interface.tcl +++ b/gdb/gdbtk/library/interface.tcl @@ -418,7 +418,7 @@ proc echo {args} { # ------------------------------------------------------------------ proc gdbtk_tcl_fputs_error {message} { if {$::gdbtk_state(console) != ""} { - $::gdbtk_state(console) einsert $message err_tag + $::gdbtk_state(console) insert $message err_tag update } } @@ -428,7 +428,7 @@ proc gdbtk_tcl_fputs_error {message} { # ------------------------------------------------------------------ proc gdbtk_tcl_fputs_log {message} { if {$::gdbtk_state(console) != ""} { - $::gdbtk_state(console) einsert $message log_tag + $::gdbtk_state(console) insert $message log_tag update } } @@ -438,7 +438,7 @@ proc gdbtk_tcl_fputs_log {message} { # ------------------------------------------------------------------ proc gdbtk_tcl_fputs_target {message} { if {$::gdbtk_state(console) != ""} { - $::gdbtk_state(console) einsert $message target_tag + $::gdbtk_state(console) insert $message target_tag update } } @@ -1106,7 +1106,7 @@ necessary,\nmodify the port setting with the debugger preferences." if {![catch {pref get gdb/load/$gdb_target_name-after_attaching} aa] && $aa != ""} { if {[catch {gdb_cmd $aa} err]} { - catch {[ManagedWin::find Console] einsert $err err_tag} + catch {[ManagedWin::find Console] insert $err err_tag} } } set gdb_target_changed 0 @@ -1429,7 +1429,7 @@ proc gdbtk_nexti {} { catch {gdb_immediate nexti} } - # ------------------------------------------------------------------ +# ------------------------------------------------------------------ # PROC: gdbtk_attached # ------------------------------------------------------------------ # |