diff options
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 |