From: ellson <devnull@localhost>
Date: Thu, 3 Jan 2008 02:58:17 +0000 (+0000)
Subject: add some gv language-binding demos to the distributions
X-Git-Tag: LAST_LIBGRAPH~32^2~4925
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=dda89f7f0a6470094e2d87a8d27e34bb8c237262;p=graphviz

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
index 000000000..c82bd8007
--- /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 4958f0105..771e21cdf 100755
--- 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 fa3ac1b56..98b6a0478 100755
--- 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