Changeset 89 for sans

Timestamp:

Apr 16, 2007 8:16:43 PM (16 years ago)

Author:

ajj

Message:

Basic GUI - two tabs with simple #clicks in first and full command interface in second.

File:

• sans/utils/bt5/tilt/tilt (modified) (3 diffs)

sans/utils/bt5/tilt/tilt

@@ -7 +7 @@
 ##################################
 
+package require Tix
+
 proc exec_cmd {cmd_text} {
+        global tf
 
-        .mf.output insert end "$cmd_text\n"
+        $tf.output insert end "$cmd_text\n"
         exp_send "$cmd_text\r"
 
@@ -15 +18 @@
 
 
+proc goButProc {changeVal} {
+        global tf
+
+        $tf.output insert end "REL A1 $changeVal G\n"
+        exp_send "REL A1 $changeVal G\r"
+
+}
+
+log_user 0
 set port /dev/ttyS0
 set serialid [spawn -noecho -open [open $port w+]]
@@ -22 +34 @@
 
 
-frame .mf
-text .mf.output
-entry .mf.cmdentry
-button .mf.ver_but -text "Execute Command" -command { exec_cmd [.mf.cmdentry get] }
-button .mf.init -text "Init" -command {exp_send "\r"}
-pack .mf.output -fill both -anchor nw -expand true
-pack .mf.cmdentry -side left
-pack .mf.ver_but .mf.init -side left
-pack .mf
+#Build GUI
+#Create main frame
+frame .fmain
 
-#expect ">"
-#exp_send "VER\r"
-#expect ">" {.mf.output insert end $expect_out(buffer)}
+#Create Notebook tabs
+set nb  [tixNoteBook .fmain.noteb]
+$nb add simple -label "Tilt Adjust" -underline 0
+$nb add tiltterm -label "Command line" -underline 0
+#Get frames for each tab
+set simpletab [frame [$nb subwidget simple].f]
+set termtab [frame [$nb subwidget tiltterm].f]
+
+
+#Populate simple tab
+set sf [frame $simpletab.sframe -background grey]
+
+pack [tixLabelEntry $sf.motorval -label "Number of clicks"] -padx 10 -pady 10
+pack [button $sf.gobut -text "Change Tilt"\
+         -command {goButProc [ [$sf.motorval subwidget entry] get] } ]\
+         -padx 10 -pady 10 -anchor s
+pack $sf -fill both -expand true
+
+#Populate term tab
+set tf [frame $termtab.tframe]
+
+pack [text $tf.output] -fill both -anchor nw -expand true
+pack [entry $tf.cmdentry] -side left -fill x -expand true -anchor w
+pack [button $tf.verbut -text "Execute Command"\
+         -command { exec_cmd [$tf.cmdentry get] } ]\
+                 -side right 
+
+pack $tf -fill x
+
+#Pack up and go
+pack $nb $simpletab $termtab -fill both -expand true
+pack .fmain -fill both -expand true -anchor nw
 
 expect_background {
         -re ">" {
-                .mf.output insert end $expect_out(buffer)
+                $tf.output insert end $expect_out(buffer)
         }
         -re "\\?" {
-                .mf.output insert end $expect_out(buffer)
+                $tf.output insert end $expect_out(buffer)
         }
 }