Bivio::UI::Widget::Not
# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::UI::Widget::Not;
use strict;
use Bivio::Base 'UI.Widget';
sub initialize {
my($self) = @_;
$self->initialize_attr('value');
return;
}
sub internal_new_args {
my(undef, $value, $attributes) = @_;
return {
value => $value,
($attributes ? %$attributes : ()),
};
}
sub render {
my($self, $source, $buffer) = @_;
$$buffer .= '1'
unless $self->render_simple_attr('value', $source);
return;
}
1;