diff options
-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} { |