diff options
| author | lecoanet | 2003-03-27 10:01:42 +0000 |
|---|---|---|
| committer | lecoanet | 2003-03-27 10:01:42 +0000 |
| commit | 4c79c68e5545287b535c2988b50c23c141e9316e (patch) | |
| tree | 68ab77be12dbbd54a2e7646aa5867df2bd6ba3cb | |
| parent | 7e1e205385b44e8d20173af2fc725c1c78e14725 (diff) | |
| download | tkzinc-4c79c68e5545287b535c2988b50c23c141e9316e.zip tkzinc-4c79c68e5545287b535c2988b50c23c141e9316e.tar.gz tkzinc-4c79c68e5545287b535c2988b50c23c141e9316e.tar.bz2 tkzinc-4c79c68e5545287b535c2988b50c23c141e9316e.tar.xz | |
Introduction dans la base pour zincText.tcl
| -rw-r--r-- | library/pkgIndex.tcl | 11 | ||||
| -rw-r--r-- | library/zincText.tcl | 11 |
2 files changed, 17 insertions, 5 deletions
diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl new file mode 100644 index 0000000..12c1a66 --- /dev/null +++ b/library/pkgIndex.tcl @@ -0,0 +1,11 @@ +# Tcl package index file, version 1.1 +# This file is generated by the "pkg_mkIndex" command +# and sourced either when an application starts up or +# by a "package unknown" script. It invokes the +# "package ifneeded" command to set up package-related +# information so that packages will be loaded automatically +# in response to "package require" commands. When this +# script is sourced, the variable $dir must contain the +# full path name of this file's directory. + +package ifneeded ZincText 1.0 [list source [file join $dir zincText.tcl]] diff --git a/library/zincText.tcl b/library/zincText.tcl index 3aef8a1..e7c8899 100644 --- a/library/zincText.tcl +++ b/library/zincText.tcl @@ -67,17 +67,16 @@ # # - proc zn_TextBindings {zinc} { $zinc bind text <1> "startSel $zinc %x %y" $zinc bind text <2> "pasteSel $zinc %x %y" $zinc bind text <B1-Motion> "extendSel $zinc %x %y" $zinc bind text <Shift-B1-Motion> "extendSel $zinc %x %y" $zinc bind text <Shift-1> "$zinc select adjust current @%x,%y" - $zinc bind text <Left> sub "moveCur $zinc -1" - $zinc bind text <Right> sub "moveCur $zinc 1" - $zinc bind text <Up> sub "setCur $zinc up" - $zinc bind text <Down> sub "setCur $zinc down" + $zinc bind text <Left> "moveCur $zinc -1" + $zinc bind text <Right> "moveCur $zinc 1" + $zinc bind text <Up> "setCur $zinc up" + $zinc bind text <Down> "setCur $zinc down" $zinc bind text <Control-a> "setCur $zinc bol" $zinc bind text <Home> "setCur $zinc bol" $zinc bind text <Control-e> "setCur $zinc eol" @@ -184,3 +183,5 @@ proc textDel {w dir} { } } } + +package provide ZincText 1.0 |