diff options
author | lecoanet | 2003-10-02 13:08:50 +0000 |
---|---|---|
committer | lecoanet | 2003-10-02 13:08:50 +0000 |
commit | a3f8c8cf22a10344864fa34c37ad056f22a97400 (patch) | |
tree | 78b536c353e79318668a3fd48ce60efb3f41d790 /sandbox/textexpand.tcl | |
parent | c0555ae91295a2e1a42440bd4e3846246583d76e (diff) | |
download | tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.zip tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.gz tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.bz2 tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/textexpand.tcl')
-rw-r--r-- | sandbox/textexpand.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sandbox/textexpand.tcl b/sandbox/textexpand.tcl new file mode 100644 index 0000000..f690281 --- /dev/null +++ b/sandbox/textexpand.tcl @@ -0,0 +1,6 @@ +zinc .z +pack .z + +proc createItem {type params} { + if 1 [concat .z add $type 1 $params] +} |