missed one ;)
[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / Mutable / Boolean.pm
index 5293b11..633f910 100644 (file)
@@ -3,7 +3,12 @@ package Reaction::UI::ViewPort::Field::Mutable::Boolean;
 use Reaction::Class;
 
 class Boolean is 'Reaction::UI::ViewPort::Field::Boolean', which{
-  does 'Reaction::UI::ViewPort::Field::Role::Mutable';
+  does 'Reaction::UI::ViewPort::Field::Role::Mutable::Simple';
+
+  implements adopt_value_string => as {
+    my ($self) = @_;
+    $self->value($self->value_string);
+  };
 
   implements BUILD => as {
     my($self) = @_;