From dda89f7f0a6470094e2d87a8d27e34bb8c237262 Mon Sep 17 00:00:00 2001
From: ellson <devnull@localhost>
Date: Thu, 3 Jan 2008 02:58:17 +0000
Subject: [PATCH] add some gv language-binding demos to the distributions

---
 tclpkg/gv/demo/Makefile.am | 8 ++++++++
 tclpkg/gv/demo/modgraph.pl | 3 +--
 tclpkg/mkpkgindex.sh       | 2 +-
 3 files changed, 10 insertions(+), 3 deletions(-)
 create mode 100644 tclpkg/gv/demo/Makefile.am

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
-- 
2.50.1