diff options
author | Tom Tromey <tromey@redhat.com> | 2002-02-18 17:19:44 +0000 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 2002-02-18 17:19:44 +0000 |
commit | 51289ea90450886aed07a70d89b492d03168c26b (patch) | |
tree | adda9be8850478cb8636f61235db36385f6a12f6 /gdb/gdbtk/library/srcbar.itcl | |
parent | 39a510657f215e378aed72e5c2a28c81e67b2282 (diff) | |
download | gdb-51289ea90450886aed07a70d89b492d03168c26b.tar.gz |
* library/tclIndex: Updated.
* library/srcbar.itcl (SrcBar): Use new Session namespace.
* library/main.tcl: Use new Session namespace.
* library/interface.tcl (gdbtk_tcl_preloop): Use new Session
namespace.
(gdbtk_cleanup): Likewise.
(_close_file): Likewise.
* library/session.tcl: Use a namespace. Renamed all functions.
Diffstat (limited to 'gdb/gdbtk/library/srcbar.itcl')
-rw-r--r-- | gdb/gdbtk/library/srcbar.itcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/gdbtk/library/srcbar.itcl b/gdb/gdbtk/library/srcbar.itcl index 5e38e9da484..893e969a19f 100644 --- a/gdb/gdbtk/library/srcbar.itcl +++ b/gdb/gdbtk/library/srcbar.itcl @@ -168,13 +168,13 @@ class SrcBar { $Menu add command Other "Source..." \ "source_file" -underline 0 - set sessions [session_list] + set sessions [Session::list_names] if {[llength $sessions]} { $Menu add separator set i 1 foreach item $sessions { $Menu add command Other "$i $item" \ - [list session_load $item] \ + [list Session::load $item] \ -underline 0 incr i } |