Changeset 797 for trunk/examples/canvas


Ignore:
Timestamp:
Aug 5, 2007 6:42:58 PM (13 years ago)
Author:
mmc
Message:

Fixed the canvas example so that it can be launched with tclsh and load
Tk later as a package.

Location:
trunk/examples/canvas
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/examples/canvas/tool.xml

    r796 r797  
    99  </about>
    1010  <command>
    11     wish @tool/waveln.tcl @driver
     11    tclsh @tool/waveln.tcl @driver
    1212  </command>
    1313</tool>
  • trunk/examples/canvas/waveln.tcl

    r796 r797  
    99# ======================================================================
    1010package require Rappture
     11package require Tk
    1112package require Img
    1213wm withdraw .
     
    8788set imh [image create photo -file [file join $tooldir hand.gif]]
    8889.c create image $x $y0 -image $imh
    89 .c create text $x [expr {$y0-15}] -anchor s -text "$wavel nm"
     90.c create text $x [expr {$y0-15}] \
     91    -anchor s -text "$wavel nm" -font "Helvetica 14"
    9092
    9193#
Note: See TracChangeset for help on using the changeset viewer.