From bd3db9bd35ba040a34caaf694a41efdecae463e8 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 24 Sep 2003 15:08:37 +0000
Subject: using the Tk::Zinc::Text in place of the obsolete Tk::ZincText

---
 Perl/demos/Tk/demos/zinc_lib/textInput.pl | 6 +++---
 1 file 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
-- 
cgit v1.1