add some gv language-binding demos to the distributions

diff --git a/tclpkg/gv/demo/Makefile.am b/tclpkg/gv/demo/Makefile.am
new file mode 100644 (file)
index 0000000..c82bd80
--- /dev/null
+++ b/tclpkg/gv/demo/Makefile.am
@@ -0,0 +1,8 @@
+# $Id$ $Revision$
+## Process this file with automake to produce Makefile.in
+
+demodir = $(pkgdatadir)/demo
+
+demo_SCRIPTS = modgraph.lua modgraph.php modgraph.pl modgraph.py modgraph.rb modgraph.tcl
+
+EXTRA_DIST = modgraph.*

diff --git a/tclpkg/gv/demo/modgraph.pl b/tclpkg/gv/demo/modgraph.pl
index 4958f01052dac111eed6ecefaa5d31cb1f5f98ad..771e21cdfb8c7bd527002c40566b163533bf8e31 100755 (executable)
--- a/tclpkg/gv/demo/modgraph.pl
+++ b/tclpkg/gv/demo/modgraph.pl
@@ -4,7 +4,6 @@
 
 # author: John Ellson <ellson@research.att.com>
 
-use lib "/usr/lib/graphviz/perl";
 use gv;
 
 $G = gv::digraph("G");
@@ -40,4 +39,4 @@ gv::setv($E, "arrowsize", ".4");
 #f.close
 
 gv::layout($G, "dot");
-gv::render($G, "gtk");
+gv::render($G, "xlib");

diff --git a/tclpkg/mkpkgindex.sh b/tclpkg/mkpkgindex.sh
index fa3ac1b5686992d8ed3989e425a44d81b09f1123..98b6a0478e9078ab904f77ae8af9771712da6ea0 100755 (executable)
--- a/tclpkg/mkpkgindex.sh
+++ b/tclpkg/mkpkgindex.sh
@@ -22,4 +22,4 @@ case "$1" in
     echo "     package require Tk 8.3" >>pkgIndex.tcl
     ;;
 esac
-echo " load [file join \$dir tcl $lib] $2\"" >>pkgIndex.tcl
+echo " load [file join \$dir $lib] $2\"" >>pkgIndex.tcl