diff options
author | lecoanet | 1999-06-04 13:09:22 +0000 |
---|---|---|
committer | lecoanet | 1999-06-04 13:09:22 +0000 |
commit | b10bd5713919b5763d32a831e0f864a812384c40 (patch) | |
tree | a6313a258c7ccd4fa66c8a0aa8f408b86b5d4169 | |
parent | e33c1e9ad454943d01dfb0d5eefdb662680c2f0a (diff) | |
download | tkzinc-b10bd5713919b5763d32a831e0f864a812384c40.zip tkzinc-b10bd5713919b5763d32a831e0f864a812384c40.tar.gz tkzinc-b10bd5713919b5763d32a831e0f864a812384c40.tar.bz2 tkzinc-b10bd5713919b5763d32a831e0f864a812384c40.tar.xz |
Correction suite au changement de class en type.
-rw-r--r-- | Perl/t/zinc.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t index 41c3637..bbd3a8b 100644 --- a/Perl/t/zinc.t +++ b/Perl/t/zinc.t @@ -185,7 +185,7 @@ print "mapinfo get line 3: ", join('|',$mw->mapinfo(mpessai, get, line, 0)),"\n" ################################################### for ($radar->find('all')) { - print $_, " -> ", $radar->class($_),"\n"; + print $_, " -> ", $radar->type($_),"\n"; } $radar->Tk::bind("<2>", [sub { print $_[1], "@" ,$_[2], ", closest: ", |