Bivio::UI::HTML::Widget::File
# Copyright (c) 1999-2009 bivio Software, Inc. All rights reserved. # $Id$ package Bivio::UI::HTML::Widget::File; use strict; use Bivio::Base 'HTMLWidget.InputBase'; sub internal_attributes { return [@{shift->SUPER::internal_attributes(@_)}, qw(size)]; } sub initialize { my($self) = @_; $self->initialize_attr(class => 'b_input_file'); $self->initialize_attr(TYPE => 'file'); $self->initialize_attr('size'); return shift->SUPER::initialize(@_); } sub internal_input_base_render_attrs { my($self, $form, $field, $source, $buffer) = @_; shift->SUPER::internal_input_base_render_attrs(@_); my($size) = $self->render_simple_attr('size', $source); $$buffer .= qq{ value="@{[$form->get_field_as_html($field)]}"} . qq{ size="$size"}; return; } 1;