diff options
| author | Fernando Nasser <fnasser@redhat.com> | 2001-01-25 18:29:09 +0000 |
|---|---|---|
| committer | Fernando Nasser <fnasser@redhat.com> | 2001-01-25 18:29:09 +0000 |
| commit | fc201999b8034c85897344d072edbaa0ed208463 (patch) | |
| tree | 244ce8e3519b6bbd70266306552b7014852ec012 | |
| parent | 2a7977a4ab0d2b3afb2b932cdde92906c2b05a47 (diff) | |
| download | gdb-fc201999b8034c85897344d072edbaa0ed208463.tar.gz | |
2001-01-25 Fernando Nasser <fnasser@redhat.com>
* library/srcbar.itcl: New file. Implement SrcBar, a menu and toolbar
for the Source Window (code previously in srcmenubar.itcl and
srctoolbar.itcl).
* library/srcmenubar.itcl: Remove obsolete file.
* library/srctoolbar.itcl: Remove obsolete file.
* library/srcbar.tcl: Remove obsolete file.
* library/gdbmenubar.itcl (menubar_show): New method. Associate the
menu with the toplevel window.
* library/srcwin.itb (_build_win): Use SrcBar.
* library/tclIndex: Regenerate.
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 2 | ||||
| -rw-r--r-- | gdb/gdbtk/library/gdbmenubar.itcl | 7 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index dec769c4c68..13f1da535ff 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -6,6 +6,8 @@ * library/srcmenubar.itcl: Remove obsolete file. * library/srctoolbar.itcl: Remove obsolete file. * library/srcbar.tcl: Remove obsolete file. + * library/gdbmenubar.itcl (menubar_show): New method. Associate the + menu with the toplevel window. * library/srcwin.itb (_build_win): Use SrcBar. * library/tclIndex: Regenerate. diff --git a/gdb/gdbtk/library/gdbmenubar.itcl b/gdb/gdbtk/library/gdbmenubar.itcl index 0e6bd7d3841..b9c438cf145 100644 --- a/gdb/gdbtk/library/gdbmenubar.itcl +++ b/gdb/gdbtk/library/gdbmenubar.itcl @@ -53,6 +53,13 @@ class GDBMenuBar { } # ------------------------------------------------------------------ + # METHOD: menubar_show - attach menu to the toplevel window + # ------------------------------------------------------------------ + public method menubar_show {} { + [winfo toplevel $itk_interior] configure -menu $Menu + } + + # ------------------------------------------------------------------ # METHOD: set_class_state - standard method to control state by class # ------------------------------------------------------------------ public method set_class_state {enable_list} { |