diff options
author | mertz | 2003-09-24 15:08:37 +0000 |
---|---|---|
committer | mertz | 2003-09-24 15:08:37 +0000 |
commit | bd3db9bd35ba040a34caaf694a41efdecae463e8 (patch) | |
tree | e68fa96caa16239ee01798a893ada894754a9098 /Perl/demos/Tk | |
parent | dfca8bacb5008f72c01369f303c2afa2acc558e0 (diff) | |
download | tkzinc-bd3db9bd35ba040a34caaf694a41efdecae463e8.zip tkzinc-bd3db9bd35ba040a34caaf694a41efdecae463e8.tar.gz tkzinc-bd3db9bd35ba040a34caaf694a41efdecae463e8.tar.bz2 tkzinc-bd3db9bd35ba040a34caaf694a41efdecae463e8.tar.xz |
using the Tk::Zinc::Text in place of the obsolete Tk::ZincText
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/textInput.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/textInput.pl b/Perl/demos/Tk/demos/zinc_lib/textInput.pl index 2422a11..414f613 100644 --- a/Perl/demos/Tk/demos/zinc_lib/textInput.pl +++ b/Perl/demos/Tk/demos/zinc_lib/textInput.pl @@ -12,7 +12,7 @@ use Tk; use Tk::Zinc; use strict; -use Tk::ZincText; # the module for facilitating text input with zinc +use Tk::Zinc::Text; # the module for facilitating text input with zinc my $mw = MainWindow->new(); @@ -25,7 +25,7 @@ $text->pack(qw/-expand yes -fill both/); $text->insert('0.0', 'This toy-appli demonstrates the use of the -Tk::ZincText module. This module is designed for +Tk::Zinc::Text 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.'); @@ -38,7 +38,7 @@ my $zinc = $mw->Zinc(-width => 500, -height => 300, -borderwidth => 3, -relief => 'sunken', )->pack; -new ZincText ($zinc); # for mapping text input bindings on item with a 'text' tag. +Tk::Zinc::Text->new ($zinc); # for mapping text input bindings on item with a 'text' tag. ### creating a tabular with 3 fields, 2 of them being editable |