Changeset 1146 for branches/sandbox


Ignore:
Timestamp:
Jul 5, 2011 10:32:34 AM (9 years ago)
Author:
lake
Message:

More work on rigid.tcl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rigid.tcl

    r1145 r1146  
    10531053         puts $::rb_coord($bodnum,$matrixnum,[expr $::rb_coord_num($bodnum,1) - 1])
    10541054     }
    1055 
     1055     RB_Edit_Matrix $bodnum
    10561056}
    10571057
     
    17911791             grid [entry $con.con.vare -textvariable ::rb_var_name -width 5] -row 4 -column 2
    17921792             grid [button $con.con.clear -width 22 -text "Clear All Variables" -command {RB_Variable_Clear}] -row 5 -column 1
    1793              grid [button $con.terminate.save -width 22 -text "Assign Variables and Save" -command RB_Var_Assign] -row 5 -column 1
    1794              grid [button $con.terminate.abort -width 22 -text "Abort" -command  {destroy .refcon}] -row 6 -column 1
     1793
     1794             grid [label $con.terminate.originlabel -text "Origin Damping Factor "] -row 5 -column 1
     1795             eval tk_optionMenu $con.terminate.origindamp ::rb_damp_origin 0 1 2 3 4 5 6 7 8 9
     1796             grid $con.terminate.origindamp -row 5 -column 2
     1797             $con.terminate.origindamp config -width 4 -state disable
     1798
     1799             grid [label $con.terminate.anglelabel -text "Angle Damping Factor "] -row 6 -column 1
     1800             eval tk_optionMenu $con.terminate.angledamp ::rb_damp_angle 0 1 2 3 4 5 6 7 8 9
     1801             grid $con.terminate.angledamp -row 6 -column 2
     1802             $con.terminate.angledamp config -width 4 -state disable
     1803
     1804             grid [button $con.terminate.save -width 22 -text "Assign Variables and Save" -command RB_Var_Assign] -row 7 -column 1 -columnspan 2
     1805             grid [button $con.terminate.abort -width 22 -text "Abort" -command  {destroy .refcon}] -row 8 -column 1 -columnspan 2
    17951806
    17961807}
Note: See TracChangeset for help on using the changeset viewer.