Ajustement pour utiliser le package ZincText

1 files changed, 8 insertions, 3 deletions

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}