5. Adding a GUI with Tcl/Tk

Tcl/Tk is the most convenient way to create GUIs that will work on both Windows and Linux. Even if you only use one system, you will benefit from the fact that Tcl/Tk is quite easy to learn and used by a lot of people. The particular mix of Tcl/Tk and C that we recommend here was the best solution we found; if you know of other ways to do it, let us know!

Now, take a look at ssc-tester.tcl. This program is very simple: it contains a loop that runs 16 times to create sixteen sliders, one for each of the servos that can be controlled by the servo controller. The critical command is

    scale .servo$i.scale -width 20 -length 200 -orient vertical
      -from 500 -to 5500 -command "stepTo 0 $i " -showvalue 0

This creates a slider with values from 500 to 5500, so that whenever you adjust the slider, the command

stepTo 0 slider position

will be run, with slider and position replaced by the slider number and position. This command is defined in ssctester.c by the line

  Tcl_CreateObjCommand(interp, "stepTo", &stepToProc, NULL, NULL);

The arguments are interpreted by the C function stepToProc and passed on to stepTo in ssc.c, where they are translated into commands to be sent to the serial port. When modifying the program for your own purposes, you will need to find the documentation for both commands in the Tcl/Tk language and special C functions used for interacting with Tcl. The Tcl/Tk manual will probably be your most useful reference.

New Products

Free Circuit Cellar magazine April 2015
0.100" (2.54 mm) Breakaway Male Header: 1×40-Pin, Straight, White
0.100" (2.54 mm) Breakaway Male Header: 1×40-Pin, Straight, Red
Pololu Wheel 40×7mm Pair - Red
0.100" (2.54 mm) Breakaway Male Header: 3×40-Pin, Right Angle
0.100" (2.54 mm) Breakaway Male Header: 1×40-Pin, Straight, Yellow
Sharp GP2Y0A60SZLF Analog Distance Sensor 10-150cm
0.100" (2.54 mm) Breakaway Male Header: 1×40-Pin, Straight, Blue
Pololu Wheel 40×7mm Pair - Black
0.100" (2.54 mm) Breakaway Male Header: 2×40-Pin, Right Angle
Log In
Pololu Robotics & Electronics
Shopping cart
(702) 262-6648
Same-day shipping, worldwide
Menu
Shop Blog Forum Support
My account Comments or questions? About Pololu Contact Ordering information Distributors