Bivio::UI::Widget::If
# Copyright (c) 2001-2005 bivio Software, Inc. All rights reserved. # $Id$ package Bivio::UI::Widget::If; use strict; use Bivio::Base 'Widget.ControlBase'; sub NEW_ARGS { return [qw(control control_on_value ?control_off_value)]; } sub control_on_render { my($self, $source, $buffer) = @_; $self->render_attr('control_on_value', $source, $buffer); return; } sub initialize { my($self) = shift; $self->initialize_attr('control_on_value'); return $self->SUPER::initialize(@_); } 1;