From 34db864664eebef8d387d1eef1663d53e9d80cc0 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Fri, 22 Dec 2000 17:06:05 +0000 Subject: Ajoute l'option -localrender comme speciale a la creation --- Perl/Zinc.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm index 5b93743..4ea3b43 100644 --- a/Perl/Zinc.pm +++ b/Perl/Zinc.pm @@ -16,6 +16,11 @@ bootstrap Tk::Zinc $Tk::VERSION; sub Tk_cmd { \&Tk::zinc } +sub CreateOptions +{ + return (shift->SUPER::CreateOptions,'-localrender') +} + Tk::Methods("add", "addtag", "anchorxy", "bbox", "becomes", "bind", "cget", "chggroup", "clone", "configure", "contour", "coords", "currentpart", "cursor", "dchars", "dtag", "find", "fit", "focus", "gettags", -- cgit v1.1