From c4a5c37cfc972f4a52096cb766a7818d36e948ce Mon Sep 17 00:00:00 2001 From: Stan Shebs Date: Thu, 5 Jan 1995 03:58:18 +0000 Subject: [PATCH] * gdbtk.tcl (build_framework): Add standard commands menu, more windows to standard windows menu. (not_implemented_yet): Clarify message. --- gdb/ChangeLog | 8 ++++++ gdb/gdbtk.tcl | 67 +++++++++++++++++++++++++++++++++++++++++---------- 2 files changed, 62 insertions(+), 13 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2f93f4f0ece..affa729c20d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,11 @@ +start-sanitize-gdbtk +Wed Jan 4 19:49:10 1995 Stan Shebs + + * 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 * defs.h: move include tm.h up, so that the type LONGEST can diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 25804dea98a..b03450a759b 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 \ -- 2.30.2