diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-19 15:24:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-19 15:24:43 (GMT) |
| commit | bc7953bb9ea9f68296b5274ebcde73616c14c379 (patch) | |
| tree | 1f5d7bae71789afc0554bd7a231bdda7cb8708ef /library/demos/ruler.tcl | |
| parent | 033a34d42974f5727b36afbf5a2838a8c24a84c4 (diff) | |
| download | tk-bc7953bb9ea9f68296b5274ebcde73616c14c379.zip tk-bc7953bb9ea9f68296b5274ebcde73616c14c379.tar.gz tk-bc7953bb9ea9f68296b5274ebcde73616c14c379.tar.bz2 | |
Rename all XBM format files to be called *.xbm instead of *.bmp [Bug 733835]
Diffstat (limited to 'library/demos/ruler.tcl')
| -rw-r--r-- | library/demos/ruler.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/ruler.tcl b/library/demos/ruler.tcl index 0f5359d..39fdb57 100644 --- a/library/demos/ruler.tcl +++ b/library/demos/ruler.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a canvas widget that displays a ruler # with tab stops that can be set, moved, and deleted. # -# RCS: @(#) $Id: ruler.tcl,v 1.5 2003/11/03 15:31:18 dkf Exp $ +# RCS: @(#) $Id: ruler.tcl,v 1.6 2004/10/19 15:25:07 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -52,11 +52,11 @@ set demo_rulerInfo(normalStyle) "-fill black" if {[winfo depth $c] > 1} { set demo_rulerInfo(activeStyle) "-fill red -stipple {}" set demo_rulerInfo(deleteStyle) [list -fill red \ - -stipple @[file join $tk_demoDirectory images gray25.bmp]] + -stipple @[file join $tk_demoDirectory images gray25.xbm]] } else { set demo_rulerInfo(activeStyle) "-fill black -stipple {}" set demo_rulerInfo(deleteStyle) [list -fill black \ - -stipple @[file join $tk_demoDirectory images gray25.bmp]] + -stipple @[file join $tk_demoDirectory images gray25.xbm]] } $c create line 1c 0.5c 1c 1c 13c 1c 13c 0.5c -width 1 |