diff options
author | Stan Shebs <shebs@codesourcery.com> | 1995-01-05 03:58:18 +0000 |
---|---|---|
committer | Stan Shebs <shebs@codesourcery.com> | 1995-01-05 03:58:18 +0000 |
commit | c4a5c37cfc972f4a52096cb766a7818d36e948ce (patch) | |
tree | 074712211f29faadb16662ed46ebadf8a383a55f /gdb | |
parent | c43e9dc6deee0c51fad6543b6099ad41a1d1d7e8 (diff) | |
download | binutils-c4a5c37cfc972f4a52096cb766a7818d36e948ce.zip binutils-c4a5c37cfc972f4a52096cb766a7818d36e948ce.tar.gz binutils-c4a5c37cfc972f4a52096cb766a7818d36e948ce.tar.bz2 |
* gdbtk.tcl (build_framework): Add standard commands menu, more
windows to standard windows menu.
(not_implemented_yet): Clarify message.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/ChangeLog | 8 | ||||
-rw-r--r-- | gdb/gdbtk.tcl | 67 |
2 files changed, 62 insertions, 13 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2f93f4f..affa729 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,11 @@ +start-sanitize-gdbtk +Wed Jan 4 19:49:10 1995 Stan Shebs <shebs@andros.cygnus.com> + + * gdbtk.tcl (build_framework): Add standard commands menu, more + windows to standard windows menu. + (not_implemented_yet): Clarify message. +end-sanitize-gdbtk + Wed Jan 4 12:27:29 1995 Kung Hsu <kung@mexican.cygnus.com> * defs.h: move include tm.h up, so that the type LONGEST can diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 25804de..b03450a 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -700,14 +700,15 @@ proc do_nothing {} {} # proc not_implemented_yet {message} { - tk_dialog .unimpl "gdb : unimpl" "$message: not implemented yet" \ + tk_dialog .unimpl "gdb : unimpl" \ + "$message: not implemented in the interface yet" \ {} 1 "OK" } ## # Local procedure: # -# create_expr_win - Creat expression display window +# create_expr_win - Create expression display window # # Description: # @@ -1579,7 +1580,7 @@ proc build_framework {win {title GDBtk} {label {}}} { update_ptr } ${win}.menubar.file.menu add command -label Target... \ - -command { gdb_cmd not_implemented_yet "target" } + -command { not_implemented_yet "target" } ${win}.menubar.file.menu add command -label Edit \ -command {exec $editor +[expr ($screen_top + $screen_bot)/2] $cfile &} ${win}.menubar.file.menu add separator @@ -1610,27 +1611,61 @@ proc build_framework {win {title GDBtk} {label {}}} { ${win}.menubar.file.menu add command -label Quit \ -command { catch { gdb_cmd quit } } + menubutton ${win}.menubar.commands -padx 12 -text Commands \ + -menu ${win}.menubar.commands.menu -underline 0 + + menu ${win}.menubar.commands.menu + ${win}.menubar.commands.menu add command -label Run \ + -command { catch {gdb_cmd run } ; update_ptr } + ${win}.menubar.commands.menu add command -label Step \ + -command { catch { gdb_cmd step } ; update_ptr } + ${win}.menubar.commands.menu add command -label Next \ + -command { catch { gdb_cmd next } ; update_ptr } + ${win}.menubar.commands.menu add command -label Continue \ + -command { catch { gdb_cmd continue } ; update_ptr } + ${win}.menubar.commands.menu add separator + ${win}.menubar.commands.menu add command -label Stepi \ + -command { catch { gdb_cmd stepi } ; update_ptr } + ${win}.menubar.commands.menu add command -label Nexti \ + -command { catch { gdb_cmd nexti } ; update_ptr } + menubutton ${win}.menubar.view -padx 12 -text View \ -menu ${win}.menubar.view.menu -underline 0 menu ${win}.menubar.view.menu - ${win}.menubar.view.menu add command -label Hex -command {echo Hex} + ${win}.menubar.view.menu add command -label Hex \ + -command {echo Hex} ${win}.menubar.view.menu add command -label Decimal \ -command {echo Decimal} - ${win}.menubar.view.menu add command -label Octal -command {echo Octal} + ${win}.menubar.view.menu add command -label Octal \ + -command {echo Octal} menubutton ${win}.menubar.window -padx 12 -text Window \ -menu ${win}.menubar.window.menu -underline 0 menu ${win}.menubar.window.menu - ${win}.menubar.window.menu add command -label Source \ - -command {echo Source} ${win}.menubar.window.menu add command -label Command \ -command {echo Command} + ${win}.menubar.window.menu add separator + ${win}.menubar.window.menu add command -label Source \ + -command {echo Source} ${win}.menubar.window.menu add command -label Assembly \ -command {create_asm_window ; update_ptr} - ${win}.menubar.window.menu add command -label Register \ + ${win}.menubar.window.menu add separator + ${win}.menubar.window.menu add command -label Registers \ -command {create_registers_window ; update_ptr} + ${win}.menubar.window.menu add command -label Stack \ + -command { not_implemented_yet "stack window" } + ${win}.menubar.window.menu add separator + ${win}.menubar.window.menu add command -label Files \ + -command { not_implemented_yet "files window" } + ${win}.menubar.window.menu add separator + ${win}.menubar.window.menu add command -label Breakpoints \ + -command { not_implemented_yet "breakpoints window" } + ${win}.menubar.window.menu add command -label Signals \ + -command { not_implemented_yet "signals window" } + ${win}.menubar.window.menu add command -label Variables \ + -command { not_implemented_yet "variables window" } menubutton ${win}.menubar.help -padx 12 -text Help \ -menu ${win}.menubar.help.menu -underline 0 @@ -1643,11 +1678,17 @@ proc build_framework {win {title GDBtk} {label {}}} { ${win}.menubar.help.menu add command -label "Report bug" \ -command {exec send-pr} - tk_menuBar ${win}.menubar ${win}.menubar.file ${win}.menubar.view \ - ${win}.menubar.window ${win}.menubar.help - pack ${win}.menubar.file ${win}.menubar.view ${win}.menubar.window \ - -side left - pack ${win}.menubar.help -side right + tk_menuBar ${win}.menubar \ + ${win}.menubar.file \ + ${win}.menubar.commands \ + ${win}.menubar.view \ + ${win}.menubar.window \ + ${win}.menubar.help + pack ${win}.menubar.file \ + ${win}.menubar.commands \ + ${win}.menubar.view \ + ${win}.menubar.window -side left + pack ${win}.menubar.help -side right frame ${win}.info text ${win}.text -height 25 -width 80 -relief raised -borderwidth 2 \ |