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 /library/zincText.tcl | |
| 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
Diffstat (limited to 'library/zincText.tcl')
| -rw-r--r-- | library/zincText.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
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 |