novarobot
/
webperl-for
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use ->val instead of ->text for textareas

Browse Source
master
Hauke D 7 years ago
parent 6b62b8a6a3
commit 9222eeb340
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File

13
web/regex_tester.html
Unescape Escape View File

@ -253,7 +253,7 @@ $jq->('#re_debug')->click(sub {
$err .= "\n### Please see the JavaScript console! ###\n" $err .= "\n### Please see the JavaScript console! ###\n"
if $RUN_CODE_IN_IFRAME; if $RUN_CODE_IN_IFRAME;
$ta_debugout->text($err); $ta_debugout->val($err);
$ta_debugout->show; $ta_debugout->show;
$re_debug_hide->show; $re_debug_hide->show;
}); });
@ -299,7 +299,7 @@ $precodebtn->click(sub{
update(); update();
}); });
sub precode_show { sub precode_show {
$precode_ta->text(shift) if @_; $precode_ta->val(shift) if @_;
$precode_ta->show; $precode_ta->show;
$precodebtn->text("Disable Preamble Code"); $precodebtn->text("Disable Preamble Code");
} }
@ -428,7 +428,7 @@ sub actual_update {
} }
$sampcode =~ s/__REGEX__/$re/; $sampcode =~ s/__REGEX__/$re/;
$sampcode .= "}\n"; $sampcode .= "}\n";
$samplecode_ta->text($sampcode); $samplecode_ta->val($sampcode);
} }
my $i=1; my $i=1;
@ -437,7 +437,7 @@ sub actual_update {
( $samplecode_ta->is(':visible') ? (showsampcode=>1) : () ), ( $samplecode_ta->is(':visible') ? (showsampcode=>1) : () ),
map { "samp".$i++ => $_ } @samps } ); map { "samp".$i++ => $_ } @samps } );
my $baseurl = js('window.location')->{href} =~ s/#.*\z//r; my $baseurl = js('window.location')->{href} =~ s/#.*\z//r;
$thisurl_ta->text( $baseurl . $hash ); $thisurl_ta->val( $baseurl . $hash );
} }
sub run_code_callback { sub run_code_callback {
my $rv = shift; my $rv = shift;
@ -502,10 +502,9 @@ sub hashchange {
$res{ $decode->($k=~tr/+/ /r) } = $decode->($v=~tr/+/ /r); $res{ $decode->($k=~tr/+/ /r) } = $decode->($v=~tr/+/ /r);
} }
if (exists $res{regex} && exists $res{flags}) { if (exists $res{regex} && exists $res{flags}) {
#TODO: need to use ->val for textareas everywhere! $ta_regex->val($res{regex});
$ta_regex->text($res{regex});
$ta_regex->height($ta_regex->[0]->{scrollHeight}); $ta_regex->height($ta_regex->[0]->{scrollHeight});
$ta_flags->text($res{flags}); $ta_flags->val($res{flags});
sampcode_show() if $res{showsampcode}; sampcode_show() if $res{showsampcode};
precode_show($res{pre}) if exists $res{pre}; precode_show($res{pre}) if exists $res{pre};
if (exists $res{samp1}) { if (exists $res{samp1}) {

Write Preview
Loading…
Cancel
Save