Use "swig -php5" so that we can use gv:: class methods as advertised

diff --git a/tclpkg/gv/test.php b/tclpkg/gv/test.php
index f1520baeb342719449be2f14c7d86856d7ee2673..25fcf6b322d75b01c79bf41fbccd5d806126a375 100644 (file)
--- a/tclpkg/gv/test.php
+++ b/tclpkg/gv/test.php
@@ -6,40 +6,40 @@
 
 include("gv.php");
 
-$g = digraph("G");
+$g = gv::digraph("G");
 
-print setv($g, "aaa", "xxx");
+print gv::setv($g, "aaa", "xxx");
 print "\n";
-print getv($g, "aaa");
+print gv::getv($g, "aaa");
 print "\n";
-$n = node($g, "hello");
-print getv($n,"label");
+$n = gv::node($g, "hello");
+print gv::getv($n,"label");
 print "\n";
-print setv($n, "aaa", "xxx");
+print gv::setv($n, "aaa", "xxx");
 print "\n";
-print getv($n, "aaa");
+print gv::getv($n, "aaa");
 print "\n";
-$m = node($g, "world");
-print getv($m, "aaa");
+$m = gv::node($g, "world");
+print gv::getv($m, "aaa");
 print "\n";
-$e = edge($n, $m);
-print setv($e, "aaa", "xxx");
+$e = gv::edge($n, $m);
+print gv::setv($e, "aaa", "xxx");
 print "\n";
-print getv($e, "aaa");
+print gv::getv($e, "aaa");
 print "\n";
-rm($e);
-rm($n);
-rm($m);
-rm($g);
+gv::rm($e);
+gv::rm($n);
+gv::rm($m);
+gv::rm($g);
 
-$g = readstring("digraph G {a->b}");
-layout($g, "dot");
-render($g, "png", "ab.png");
-rm($g);
+$g = gv::readstring("digraph G {a->b}");
+gv::layout($g, "dot");
+gv::render($g, "png", "ab.png");
+gv::rm($g);
 
-$g = read("hello.dot");
-layout($g, "dot");
-render($g, "png", "hello.png");
-rm($g);
+$g = gv::read("hello.dot");
+gv::layout($g, "dot");
+gv::render($g, "png", "hello.png");
+gv::rm($g);
 
 ?>