Changeset 855 for trunk/gui

Timestamp:

Jan 22, 2008, 12:41:53 PM (17 years ago)

Author:

kostmo

Message:

Added single-line command history

File:

• trunk/gui/apps/nanovis-test (modified) (1 diff)

trunk/gui/apps/nanovis-test

@@ -117 +117 @@
 proc send_command {} {
     global widgets
+    global last_command
 
     set cmd [$widgets(command) get]
+    
+    # Karl
+    if {[string length $cmd] > 0} {
+        set last_command $cmd
+    } else {
+        set cmd $last_command
+    }
+
+    
     namespace eval Rappture::NanovisViewer [list $widgets(nanovis) _send_text $cmd]
     $widgets(command) delete 0 end