diff options
| -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 |