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

added: "EditArea" code highlighter and editing tool for WebGUI::Form::Codearea, used

Browse source 
in Template, Snippet, SQLReport, and more
This commit is contained in:
Doug Bell 2008-10-14 00:06:08 +00:00
parent 8848a71d52
commit 810c8247cc
138 changed files with 12642 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Template.pm
View file

@ -69,6 +69,7 @@ sub definition {
properties => {
template => {
fieldType => 'codearea',
syntax => "html",
defaultValue => undef,
},
isEditable => {
@ -165,6 +166,7 @@ sub getEditForm {
-name=>"template",
-label=>$i18n->get('assetName'),
-hoverHelp=>$i18n->get('template description'),
-syntax => "html",
-value=>$self->getValue("template")
);
$tabform->getTab("properties")->codearea(

14
lib/WebGUI/Asset/Wobject/SQLReport.pm
View file

@ -52,10 +52,12 @@ sub definition {
},
dbQuery1=>{
fieldType=>"codearea",
defaultValue=>undef
syntax => "sql",
defaultValue=>undef,
},
prequeryStatements1=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
preprocessMacros1=>{
@ -72,10 +74,12 @@ sub definition {
},
dbQuery2=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
prequeryStatements2=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
preprocessMacros2=>{
@ -92,10 +96,12 @@ sub definition {
},
dbQuery3=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
prequeryStatements3=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
preprocessMacros3=>{
@ -112,10 +118,12 @@ sub definition {
},
dbQuery4=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
prequeryStatements4=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
preprocessMacros4=>{
@ -132,10 +140,12 @@ sub definition {
},
dbQuery5=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
prequeryStatements5=>{
fieldType=>"codearea",
syntax => "sql",
defaultValue=>undef
},
preprocessMacros5=>{
@ -324,12 +334,14 @@ sub getEditForm {
-name => "prequeryStatements".$nr,
-label => $i18n->get('Prequery statements'),
-hoverHelp => $i18n->get('Prequery statements description'),
-syntax => "sql",
-value => $self->getValue("prequeryStatements".$nr),
);
$tabform->getTab("properties")->codearea(
-name=>"dbQuery".$nr,
-label=>$i18n->get(4),
-hoverHelp=>$i18n->get('4 description'),
-syntax => "sql",
-value=>$self->getValue("dbQuery".$nr)
);
$tabform->getTab("properties")->databaseLink(

46
lib/WebGUI/Form/Codearea.pm
View file

@ -59,6 +59,11 @@ Style attributes besides width and height which should be specified using the ab
The following additional parameters have been added via this sub class.
=head4 syntax
The type of syntax highlighting to use by default. The types available are located at
$WEBGUI_ROOT/www/extras/editarea/edit_area/reg_syntax
=cut
sub definition {
@ -75,8 +80,11 @@ sub definition {
style=>{
defaultValue => undef,
},
});
return $class->SUPER::definition($session, $definition);
syntax => {
defaultValue => "html",
},
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
@ -125,10 +133,36 @@ Renders a code area field.
=cut
sub toHtml {
my $self = shift;
$self->session->style->setScript($self->session->url->extras('TabFix.js'),{type=>"text/javascript"});
$self->set("extras", $self->get('extras').' onkeypress="return TabFix_keyPress(event)" onkeydown="return TabFix_keyDown(event)"');
return $self->SUPER::toHtml;
my $self = shift;
my $output = "";
# Do our superclass's job
my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters($self->getOriginalValue)));
my $width = $self->get('width') || 400;
my $height = $self->get('height') || 150;
my ($style, $url) = $self->session->quick(qw(style url));
my $styleAttribute = "width: ".$width."px; height: ".$height."px; ".$self->get("style");
$style->setRawHeadTags(qq|<style type="text/css">\ntextarea#|.$self->get('id').qq|{ $styleAttribute }\n</style>|);
$output = '<textarea id="'.$self->get('id').'" name="'.$self->get("name").'" '.$self->get("extras").' rows="#" cols="#" style="width: '.$width.'px; height: '.$height.'px;">'.$value.'</textarea>';
# Vars for JS below
my $id = $self->get( "id" );
my $syntax = $self->get( "syntax" );
my $editareaPath = $self->session->url->extras( 'editarea' );
$self->session->style->setScript($editareaPath . '/edit_area/edit_area_full.js',{type=>"text/javascript"});
$output .= qq~
<script type="text/javascript">
editAreaLoader.init({
id : "$id",
syntax : "$syntax",
start_highlight : true,
toolbar : "search, go_to_line, |, undo, redo, |, syntax_selection, highlight, reset_highlight, |, help"
});
</script>
~;
return $output;
}