--- trunk/lib/Frey/Web/Design.pm	2008/07/16 14:14:18	142
+++ trunk/lib/Frey/Web/Design.pm	2008/07/16 14:17:46	143
@@ -1,7 +1,6 @@
 package Frey::Web::Design;
 use Moose;
-extends 'Frey';
-with 'Frey::Web::Item';
+extends 'Frey::Web::Item';
 with 'Frey::Web::Button';
 
 =head1 NAME
@@ -12,6 +11,29 @@
 
 use Data::Dump qw/dump/;
 
+has 'labels' => (
+	is => 'rw',
+	isa => 'HashRef[Str]',
+	default => sub { {} },
+);
+
+has 'label_count' => (
+	is => 'rw',
+	isa => 'Int',
+	default => 0,
+);
+
+around 'field_label' => sub {
+	my ($next, $self, $name) = @_;
+	my $label = $self->$next($name);
+
+	$self->labels->{ $name } = $label;
+	$self->label_count( $self->label_count + 1 );
+
+	$label = '[←]' . $label . '[→]';
+	return $label;
+};
+
 before 'main' => sub {
 	my $self = shift;