diff options
| author | treectrl <treectrl> | 2008-07-30 19:31:00 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2008-07-30 19:31:00 (GMT) |
| commit | 31c7995c7fd4a12261644a984cfa9d17f5ee32d3 (patch) | |
| tree | 2b99581c68d0a121e46f2b1600b9838621f5aca5 | |
| parent | 70d0d3be91f655f8ae97ec29b70c2a415acc39e9 (diff) | |
| download | tktreectrl-31c7995c7fd4a12261644a984cfa9d17f5ee32d3.zip tktreectrl-31c7995c7fd4a12261644a984cfa9d17f5ee32d3.tar.gz tktreectrl-31c7995c7fd4a12261644a984cfa9d17f5ee32d3.tar.bz2 | |
Set the tab size in the source window to 8 characters-per-tab.
| -rw-r--r-- | demos/demo.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/demo.tcl b/demos/demo.tcl index f5cd9ac..b43efec 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -1,6 +1,6 @@ #!/bin/wish84.exe -# RCS: @(#) $Id: demo.tcl,v 1.69 2008/07/21 18:49:32 treectrl Exp $ +# RCS: @(#) $Id: demo.tcl,v 1.70 2008/07/30 19:31:00 treectrl Exp $ set VERSION 2.2.7 @@ -558,7 +558,7 @@ proc MakeSourceWindow {} { set font {Courier 9} } } - text $f.t -font $font -tabs [font measure $font 1234] -wrap none \ + text $f.t -font $font -tabs [font measure $font 12345678] -wrap none \ -yscrollcommand "$f.sv set" -xscrollcommand "$f.sh set" $::scrollbarCmd $f.sv -orient vertical -command "$f.t yview" $::scrollbarCmd $f.sh -orient horizontal -command "$f.t xview" |