aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/textInput.pl6
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