From 3ab451bd0dcc59373c333e6374c5daec91e42a3f Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 27 Mar 2003 09:58:38 +0000
Subject: Ajustement pour utiliser le package ZincText

---
 demos/textInput.tcl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'demos/textInput.tcl')

diff --git a/demos/textInput.tcl b/demos/textInput.tcl
index 32f8a7a..e36dd6b 100644
--- a/demos/textInput.tcl
+++ b/demos/textInput.tcl
@@ -6,6 +6,11 @@ if {![info exists zincDemo]} {
     error "This script should be run from the zinc-widget demo."
 }
 
+#
+# We need the text input support
+package require ZincText
+
+
 set w .textInput
 catch {destroy $w}
 toplevel $w
@@ -39,9 +44,9 @@ $w.text insert end {This toy-appli demonstrates the use of the Tk::ZincText modu
 zinc $w.zinc -width 500 -height 300 -font 10x20 -borderwidth 0
 pack $w.zinc
 
-#ZincText $w.zinc 
-# for mapping text input bindings on item with a 'text' tag.
-
+#
+# Activate text input support from ZincText
+zn_TextBindings $w.zinc
 
 ### creating a tabular with 3 fields 2 of them being editable
 set labelformat1 {130x100 x130x20+0+0 x130x20+0+20 x130x20+0+40}
-- 
cgit v1.1