cut back on overloading: set -> getv + setv

diff --git a/tclpkg/gv/test.php b/tclpkg/gv/test.php
index b3c003ccb3e67b2809954bc52679d339560ce96f..5fc450d6c08ebb8a978e5fc7d2df0dd98ae8aba4 100644 (file)
--- a/tclpkg/gv/test.php
+++ b/tclpkg/gv/test.php
@@ -5,17 +5,17 @@ include("gv.php")
 
 $g = Gv::digraph "G";
 
-#print gv::set($g, "aaa", "xxx"), "\n";
-#print gv::set($g, "aaa"), "\n";
+#print gv::setv($g, "aaa", "xxx"), "\n";
+#print gv::getv($g, "aaa"), "\n";
 #$n = gv::node $g, "hello";
-#print gv::set($n,"label"), "\n";
-#print gv::set($n, "aaa", "xxx"), "\n";
-#print gv::set($n, "aaa"), "\n";
+#print gv::getv($n,"label"), "\n";
+#print gv::setv($n, "aaa", "xxx"), "\n";
+#print gv::getv($n, "aaa"), "\n";
 #$m = gv::node $g, "world";
-#print gv::set($m, "aaa"), "\n";
+#print gv::getv($m, "aaa"), "\n";
 #$e = gv::edge $n, $m;
-#print gv::set($e, "aaa", "xxx"), "\n";
-#print gv::set($e, "aaa"), "\n";
+#print gv::setv($e, "aaa", "xxx"), "\n";
+#print gv::getv($e, "aaa"), "\n";
 #gv::rm $e;
 #gv::rm $n;
 #gv::rm $m;