--- trunk/lib/Frey/Web/Button.pm	2008/07/11 12:47:50	96
+++ trunk/lib/Frey/Web/Button.pm	2008/07/11 13:11:36	97
@@ -17,26 +17,13 @@
 =cut
 
 use Data::Dump qw/dump/;
-use Data::UUID;
 use Moose;
-with 'Frey::Web::Coro';
+with 'Frey::Web::Field';
 
 # List of callbacks, buttons for now
 has callback => ( is => 'rw', default => sub {{}} );
 has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] });
 
-has 'uuid'   => (
-  is      => 'ro', 
-  isa     => 'Str', 
-  default => sub { Data::UUID->new->create_str }
-);
-
-# Given a name generate a unique field ID
-sub field_name {
-  my ($self, $name) = @_;
-  return $self->uuid . '-' . $name;
-}
-
 sub set_from_hash {
 	my ($self, $f) = @_;
 	my %attrmap = %{ $self->meta->get_attribute_map };