diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2009-04-02 08:27:47 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-04-02 08:27:47 (GMT) |
| commit | 0a484ced6294e9aa480dcee56b7e3ff736a15152 (patch) | |
| tree | e6f009cb86f2b521ff8c0f779d07926faa71ca22 /library/demos/pendulum.tcl | |
| parent | 413ed27b74512556990bc6f043083cb17756f492 (diff) | |
| download | tk-0a484ced6294e9aa480dcee56b7e3ff736a15152.zip tk-0a484ced6294e9aa480dcee56b7e3ff736a15152.tar.gz tk-0a484ced6294e9aa480dcee56b7e3ff736a15152.tar.bz2 | |
Minor fixes to demos. In the pendulum demo make use of unicode for the
axis labels and in the knightstour demo on X11 we cannot rely on
anything being present for the knight glyph so use a polygon instead.
Diffstat (limited to 'library/demos/pendulum.tcl')
| -rw-r--r-- | library/demos/pendulum.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/demos/pendulum.tcl b/library/demos/pendulum.tcl index b70cbf1..8512d24 100644 --- a/library/demos/pendulum.tcl +++ b/library/demos/pendulum.tcl @@ -3,7 +3,7 @@ # This demonstration illustrates how Tcl/Tk can be used to construct # simulations of physical systems. # -# RCS: @(#) $Id: pendulum.tcl,v 1.3 2006/10/17 05:52:40 das Exp $ +# RCS: @(#) $Id: pendulum.tcl,v 1.4 2009/04/02 08:27:51 patthoyts Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -51,9 +51,9 @@ for {set i 90} {$i>=0} {incr i -10} { # Coordinates of these items don't matter; they will be set properly below $w.k create line 0 0 1 1 -smooth true -tags graph$i -fill grey$i } -# FIXME: UNICODE labels -$w.k create text 0 0 -anchor ne -text "q" -font {Symbol 8} -tags label_theta -$w.k create text 0 0 -anchor ne -text "dq" -font {Symbol 8} -tags label_dtheta + +$w.k create text 0 0 -anchor ne -text "\u03b8" -tags label_theta +$w.k create text 0 0 -anchor ne -text "\u03b4\u03b8" -tags label_dtheta pack $w.k -in $w.p.l2 -fill both -expand true # Initialize some variables |