2000-12-01 Larry Smith <lsmith@redhat.com>

        * console.itb (invoke): Added logic to allow user to build
        up multiline "tk" commands based on results from checking
        command with [info complete $cmd]s.

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 6393c39..89ff853 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -16,6 +16,12 @@
        (Console::_update_option): New method.
        (Console::_build_win): Use _set_wrap.
 
+2000-12-01  Larry Smith <lsmith@redhat.com>
+
+        * console.itb (invoke): Added logic to allow user to build
+        up multiline "tk" commands based on results from checking
+        command with [info complete $cmd]s.
+
 2000-11-30  Tom Tromey  <tromey@cygnus.com>
 
        * srctextwin.ith (enable_disable_at_line): Declare.

diff --git a/gdb/gdbtk/library/console.itb b/gdb/gdbtk/library/console.itb
index 1f80055..fa88f8d 100644 (file)
--- a/gdb/gdbtk/library/console.itb
+++ b/gdb/gdbtk/library/console.itb
@@ -385,8 +385,18 @@ body Console::activate {{prompt {}}} {
 body Console::invoke {} {
   global gdbtk_state
 
+  set text [$_twin get {cmdmark + 1 char} end ]
+
+  if { "[string range $text 0 1]" == "tk" } {
+    if {! [info complete $text] } {
+      $_twin insert {insert lineend} " \\\n"
+      $_twin see insert
+      return
+    }
+  }
+
   incr _invoking
-  set text [$_twin get {cmdmark + 1 char} {cmdmark lineend}]
+
   if {$text == ""} {
     set text [lindex $_history 0]
     $_twin insert {insert lineend} $text