From a988f66d26a4e5d852dcdae2e6ffc5cfdc4b615f Mon Sep 17 00:00:00 2001
From: Yann Dirson <ydirson@altern.org>
Date: Tue, 7 Feb 2006 21:47:01 +0000
Subject: [PATCH] Fixed tulip renderer to use current renderer API Was broken
 by the API change introduced when adding stylers.

---
 NEWS                                | 2 ++
 lib/graphincludes/renderer/tulip.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 197d999..1c0f154 100644
--- a/NEWS
+++ b/NEWS
@@ -14,6 +14,8 @@ Version 0.13 - UNRELEASED
  * The root graph can now be included in arguments to
    Transform::Consolidate, and "--consolidate 0-<N>" is now valid.
 
+ * The tulip renderer had been broken by an API change in 0.12.
+
  * Ingredientable::ingredients() method now always returns a list,
    even in scalar context when there is only one ingredient.
 
diff --git a/lib/graphincludes/renderer/tulip.pm b/lib/graphincludes/renderer/tulip.pm
index af161d5..d8b23fd 100644
--- a/lib/graphincludes/renderer/tulip.pm
+++ b/lib/graphincludes/renderer/tulip.pm
@@ -24,7 +24,8 @@ sub new {
 
 sub printgraph {
   my $self = shift;
-  my ($graph, $nodestylers, $edgestylers) = @_;
+  my ($graphnode, $nodestylers, $edgestylers) = @_;
+  my $graph = eval { defined $graphnode->{DATA} } ? $graphnode->{DATA} : $graphnode;
 
   # give unique numeric IDs to nodes, starting at 1
 
-- 
2.11.4.GIT