* gdbtk.tcl (build_framework): Add standard commands menu, more

	windows to standard windows menu.
	(not_implemented_yet): Clarify message.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 2f93f4f0ecec36023f85cf847ecbac2ce20945de..affa729c20dccb7c4d9ffed3d35121655bf28b35 100644 (file)
--- 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 25804dea98abe87f7e493f5a6059fa44ea80241a..b03450a759be2006439a01c562ba566886c484f6 100644 (file)
--- 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 \