cut back on overloading: set -> getv + setv

diff --git a/tclpkg/gv/test.pl b/tclpkg/gv/test.pl
index f4d3d8d89a23f14072a0b3d5177947ed2ecc613e..7a6b3348e8ba0895938664ae3ecfa46b98f46bd3 100644 (file)
--- a/tclpkg/gv/test.pl
+++ b/tclpkg/gv/test.pl
@@ -3,17 +3,17 @@
 use gv;
 
 $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;

diff --git a/tclpkg/gv/test.py b/tclpkg/gv/test.py
index a9869f2981d984b0bd6a83f7e6d8cc58d5fbfce1..8e824f7e68efc824e2c836713f42c5d885b36992 100644 (file)
--- a/tclpkg/gv/test.py
+++ b/tclpkg/gv/test.py
@@ -3,17 +3,17 @@
 import gv
 
 g = gv.digraph("G")
-print gv.set(g,"aaa","xxx")
-print gv.set(g,"aaa")
+print gv.setv(g,"aaa","xxx")
+print gv.getv(g,"aaa")
 n = gv.node(g,"hello")
-print gv.set(n,"label")
-print gv.set(n,"aaa","xxx")
-print gv.set(n,"aaa")
+print gv.getv(n,"label")
+print gv.setv(n,"aaa","xxx")
+print gv.getv(n,"aaa")
 m = gv.node(g,"world")
-print gv.set(m,"aaa")
+print gv.getv(m,"aaa")
 e = gv.edge(n,m)
-print gv.set(e,"aaa","xxx")
-print gv.set(e,"aaa")
+print gv.setv(e,"aaa","xxx")
+print gv.getv(e,"aaa")
 gv.rm(e)
 gv.rm(m)
 gv.rm(n)