diff options
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Zinc.pm | 8 | ||||
-rw-r--r-- | Perl/t/zinc.t | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm index 0e3910b..e7139d2 100644 --- a/Perl/Zinc.pm +++ b/Perl/Zinc.pm @@ -16,11 +16,11 @@ bootstrap Tk::Radar $Tk::VERSION; sub Tk_cmd { \&Tk::radar } -Tk::Methods("add", "addtag", "anchorxy", "bbox", "bind", "cget", - "chggroup", "configure", "coords", "currentpart", "dtag", "find", +Tk::Methods("add", "addtag", "anchorxy", "bbox", "becomes", "bind", "cget", + "chggroup", "clone", "configure", "coords", "currentpart", "dtag", "find", "gettags", "group", "hasanchors", "hasfields", "hasparts", "hastag", - "itemcget", "itemconfigure", "lower", "raise", "remove", - "rotate", "scale", "tapply", "tdelete", "transform", + "itemcget", "itemconfigure", "lower", "monitor", "raise", "remove", + "rotate", "scale", "tdelete", "transform", "translate", "treset", "trestore", "tsave", "type"); 1; diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t index 3350b3f..cb95f9c 100644 --- a/Perl/t/zinc.t +++ b/Perl/t/zinc.t @@ -148,7 +148,7 @@ $radar->itemconfigure($map3,-mapinfo => "paris-w"); ################################################### -#creation rectangle, arc, multipoint +#creation rectangle, arc, curve ################################################### $rect = $radar->add(rectangle, $top, [-50, -50, 50, -80], -linecolor => bisque); @@ -167,7 +167,7 @@ print "arc tags=", join('|',$radar->gettags($arc)),"\n"; $radar->itemconfigure($arc, -startangle => 0, -extent => 360); -$mp = $radar->add(multipoint, $top, -300, 0, -250, 100, -80, 20); +$mp = $radar->add(curve, $top, -300, 0, -250, 100, -80, 20); $radar->itemconfigure($mp, -filled => 1, -linewidth => 4, -linecolor => yellow, -fillcolor => tan, -fillpattern => AlphaStipple8); $radar->itemconfigure($mp, -marker => AtcSymbol9 , -markercolor => red); |