--- trunk/lib/Frey/Introspect.pm	2008/12/06 00:43:28	733
+++ trunk/lib/Frey/Introspect.pm	2008/12/06 12:22:36	735
@@ -111,7 +111,7 @@
 
 	my $introspect_path = "var/introspect/$class.yaml";
 	$self->mkbasepath( $introspect_path );
-	my $introspect = $self->load( $introspect_path );
+	my $introspect; # FIXME update with = $self->load( $introspect_path );
 
 	my ( $superclasses, $roles ) = ( '<b>Role</b>', '' );
 	if ( ! $is_role ) {
@@ -201,7 +201,19 @@
 				$name .= qq|<sup title="$role_name">$nr</sup>|;
 			}
 
-			eval { $properties = $attr->documentation . ' ' . $properties };
+			if ( my $doc = eval { $attr->documentation } ) {
+				$properties = qq|
+					$properties
+					<span class="documentation">$doc</span>
+				|;
+				$self->add_css(qq|
+					span.documentation {
+						background: #eee;
+						padding: 0.25em;
+					}
+				|);
+				$introspect->{action}->{$name}->{documentation} = $doc;
+			}
 
 			qq|<td class="a">$html_name</td><td class="t">$type</td><td>$properties</td>|
 		} sort $meta->get_attribute_list