Posted to tcl by daapp at Fri Jul 16 01:09:31 GMT 2010view raw

  1. with [set velocityFrame [ttk::frame $axesFrame.velocity]] as f {
  2. ttk::label $f.lStartVelocity -text "Start velocity:"
  3. spinbox $f.startVelocity
  4. ttk::label $f.lMaxVelocity -text "Maximum velocity:"
  5. spinbox $f.maxVelocity
  6. ttk::label $f.lTime -text "Acceleration time:"
  7. spinbox $f.time
  8. grid $f.lStartVelocity $f.startVelocity
  9. grid $f.lMaxVelocity $f.maxVelocity
  10. grid $f.lTime $f.time -sticky ew
  11. }
  12. ...
  13. # later
  14. pack $velocityFrame
  15.