oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

a few changes to the form control system before i continue making controls

Browse source
This commit is contained in:
JT Smith 2005-07-26 21:29:08 +00:00
parent 7d95169b38
commit 6ebf9c9ff3
20 changed files with 331 additions and 1199 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Form/Control.pm
View file

@ -165,6 +165,19 @@ sub definition {
return $definition;
}
#-------------------------------------------------------------------
=head2 getName ( )
Returns a human readable name for this form control type. You MUST override this method with your own when creating new form controls.
=cut
sub getName {
return "Form control not properly created."
}
#-------------------------------------------------------------------
=head2 fixMacros ( string )
@ -297,7 +310,6 @@ sub new {
unless (exists $params{value}) {
$params{value} = $params{defaultValue};
}
WebGUI::ErrorHandler::debug($class);
bless \%params, $class;
}
@ -362,7 +374,10 @@ sub toHtmlWithWrapper {
$hoverHelp = qq| onmouseover="return escape('$hoverHelp')"| if ($hoverHelp);
my $subtext = $self->{subtext};
$subtext = qq| <span class="formSubtext">$subtext</span>| if ($subtext);
return '<tr'.$rowClass.'><td'.$labelClass.$hoverHelp.' valign="top" style="width: 25%;">'.$self->{label}.'</td><td valign="top"'.$fieldClass.' style="width: 75%;">'.$self->toHtml.$subtext."</td></tr>\n";
return '<tr'.$rowClass.'>
<td'.$labelClass.$hoverHelp.' valign="top" style="width: 25%;">'.$self->{label}.'</td>
<td valign="top"'.$fieldClass.' style="width: 75%;">'.$self->toHtml().$subtext."</td>
</tr>\n";
} else {
return $self->toHtmlAsHidden;
}