diff options
-rw-r--r-- | demos/textInput.tcl | 11 |
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} |