Changeset 1146

Timestamp:

Jul 5, 2011 10:32:34 AM (14 years ago)

Author:

lake

Message:

More work on rigid.tcl

File:

• branches/sandbox/rigid.tcl (modified) (2 diffs)

branches/sandbox/rigid.tcl ¶

@@ -1053 +1053 @@
          puts $::rb_coord($bodnum,$matrixnum,[expr $::rb_coord_num($bodnum,1) - 1])
      }
-
+     RB_Edit_Matrix $bodnum
 }
 
@@ -1791 +1791 @@
              grid [entry $con.con.vare -textvariable ::rb_var_name -width 5] -row 4 -column 2
              grid [button $con.con.clear -width 22 -text "Clear All Variables" -command {RB_Variable_Clear}] -row 5 -column 1
-             grid [button $con.terminate.save -width 22 -text "Assign Variables and Save" -command RB_Var_Assign] -row 5 -column 1
-             grid [button $con.terminate.abort -width 22 -text "Abort" -command  {destroy .refcon}] -row 6 -column 1
+
+             grid [label $con.terminate.originlabel -text "Origin Damping Factor "] -row 5 -column 1
+             eval tk_optionMenu $con.terminate.origindamp ::rb_damp_origin 0 1 2 3 4 5 6 7 8 9
+             grid $con.terminate.origindamp -row 5 -column 2
+             $con.terminate.origindamp config -width 4 -state disable
+
+             grid [label $con.terminate.anglelabel -text "Angle Damping Factor "] -row 6 -column 1
+             eval tk_optionMenu $con.terminate.angledamp ::rb_damp_angle 0 1 2 3 4 5 6 7 8 9
+             grid $con.terminate.angledamp -row 6 -column 2
+             $con.terminate.angledamp config -width 4 -state disable
+
+             grid [button $con.terminate.save -width 22 -text "Assign Variables and Save" -command RB_Var_Assign] -row 7 -column 1 -columnspan 2
+             grid [button $con.terminate.abort -width 22 -text "Abort" -command  {destroy .refcon}] -row 8 -column 1 -columnspan 2
 
 }