Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: COLOR of textarea

by liverpole (Monsignor)
on Nov 14, 2011 at 18:10 UTC ( #937998=note: print w/ replies, xml ) Need Help??


in reply to COLOR of textarea

Hi tarunkhanna,

As other have noted, this hasn't anything to do with perl.

But since you're pretty close, try doing this:

#!/usr/bin/perl -w use strict; use warnings; use CGI; my $co = new CGI; my $color = 'red'; print $co->header; print $co->start_html(); print $co->start_form; print $co->radio_group( -name => 'color', -id => 'color', -values => ['red','yellow','green'], -default => 'red', -onClick => "return select_color(this)" ).$co->p; print $co->textarea( -id => "textarea", -style=> "background-color:$color; color:blue", ); print $co->end_form; print $co->end_html; print <<COLOR_SCRIPT; <script language="JavaScript"> function select_color(rb_obj) { var color = rb_obj.value; var ta_obj = document.getElementById('textarea'); ta_obj.style.background = color; return color; } </script> COLOR_SCRIPT

Note that it passes "this" to the function select_color, so that the value will change with the color. The id of the text_area object is then looked up, and its style.background is assigned to the current color.


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/


Comment on Re: COLOR of textarea
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://937998]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2014-10-22 15:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (119 votes), past polls