--- trunk/lib/Frey/Introspect.pm	2008/11/26 19:13:53	542
+++ trunk/lib/Frey/Introspect.pm	2008/11/26 19:43:03	543
@@ -114,7 +114,7 @@
 				join(', ',
 					map {
 						my $name = $_->meta->name;
-						qq|<a class="frey-popdown" href="/$name">$name<code>| . $_->meta->dump(2) . qq|</code></a>|;
+						$self->dropdown( $name, $_->meta )
 					}
 					#grep { $_ ne 'Moose::Object' }
 					$meta->superclasses
@@ -133,7 +133,7 @@
 				my $name = $_->name;
 				$role_method->{    $_ }->{$name} = $role_nr foreach $_->get_method_list;
 				$role_attribute->{ $_ }->{$name} = $role_nr foreach $_->get_attribute_list;
-				qq|<a class="frey-popdown" href="/$name">$name<code>| . $name->meta->dump(2) . qq|</code></a><sup>| . $role_nr++ . qq|</sup>|;
+				$self->dropdown( $name, $name->meta ) . qq|<sup>| . $role_nr++ . qq|</sup>|;
 			}
 			$meta->calculate_all_roles
 		);
@@ -170,10 +170,8 @@
 					if ( $getter eq $check ) {
 						$after .= "$check";
 					} else {
-						$after .= qq{<span class="frey-popdown">$check};
-						# we need dump here instead of $attr->$getter->dump because default can return scalar
-						$after .= '<code>' . dump( $attr->$getter ) . '</code>' if $getter ne $check;
-						$after .= '</span>';
+						# we need our dump here instead of $attr->$getter->dump because default can return scalar
+						$after .= $self->dropdown( $check, $attr->$getter );
 					}
 				}
 				$after .= ' ';