From 4c79c68e5545287b535c2988b50c23c141e9316e Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 27 Mar 2003 10:01:42 +0000
Subject: Introduction dans la base pour zincText.tcl

---
 library/zincText.tcl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'library/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
-- 
cgit v1.1