diff options
| author | lecoanet | 2003-03-28 17:36:34 +0000 |
|---|---|---|
| committer | lecoanet | 2003-03-28 17:36:34 +0000 |
| commit | 11d300cf2d4d7c0da508ff27534c14261d5043a0 (patch) | |
| tree | 35ff0c0185d755c6d52dcacf958bd587c55739b4 /demos/textInput.tcl | |
| parent | 7a103bee4cda4532e237522e72f6a7d7e81e6839 (diff) | |
| download | tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.zip tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.gz tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.bz2 tkzinc-11d300cf2d4d7c0da508ff27534c14261d5043a0.tar.xz | |
Ajout de plusieurs demos et remaniement
Diffstat (limited to 'demos/textInput.tcl')
| -rw-r--r-- | demos/textInput.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/demos/textInput.tcl b/demos/textInput.tcl index e36dd6b..3de2821 100644 --- a/demos/textInput.tcl +++ b/demos/textInput.tcl @@ -8,7 +8,7 @@ if {![info exists zincDemo]} { # # We need the text input support -package require ZincText +package require zincText set w .textInput @@ -35,7 +35,10 @@ pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 text $w.text -relief sunken -borderwidth 2 -height 5 pack $w.text -expand yes -fill both -$w.text insert end {This toy-appli demonstrates the use of the Tk::ZincText module. This module is designed for facilitating text input a la emacs on text items or on fields of items such as tracks, waypoints or tabulars.} +$w.text insert end {This demo demonstrates the use of the zincText package. +This module is designed for facilitating text input. +It works on text items or on fields of items such as +tracks, waypoints or tabulars.} ########################################### @@ -45,7 +48,7 @@ zinc $w.zinc -width 500 -height 300 -font 10x20 -borderwidth 0 pack $w.zinc # -# Activate text input support from ZincText +# Activate text input support from zincText zn_TextBindings $w.zinc ### creating a tabular with 3 fields 2 of them being editable |