diff options
author | lecoanet | 2003-03-27 09:58:38 +0000 |
---|---|---|
committer | lecoanet | 2003-03-27 09:58:38 +0000 |
commit | 3ab451bd0dcc59373c333e6374c5daec91e42a3f (patch) | |
tree | e8cde6e992f745595c463ff7f56449f4381d70a6 /demos/textInput.tcl | |
parent | 6d6ea69151eeecd08d51ce35a36e58f1fe82b56e (diff) | |
download | tkzinc-3ab451bd0dcc59373c333e6374c5daec91e42a3f.zip tkzinc-3ab451bd0dcc59373c333e6374c5daec91e42a3f.tar.gz tkzinc-3ab451bd0dcc59373c333e6374c5daec91e42a3f.tar.bz2 tkzinc-3ab451bd0dcc59373c333e6374c5daec91e42a3f.tar.xz |
Ajustement pour utiliser le package ZincText
Diffstat (limited to 'demos/textInput.tcl')
-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} |