version 1.50, 2011/01/14 01:56:32
|
version 1.52, 2011/01/26 20:20:50
|
Line 108 sub init_script {
|
Line 108 sub init_script {
|
$script.="if (param=='applet_$id') { loaded_$id=true; }\n"; |
$script.="if (param=='applet_$id') { loaded_$id=true; }\n"; |
} |
} |
$script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)). |
$script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)). |
") { setTimeout('ggbInitAll()',20) }"; |
") { setTimeout('ggbInitAll()',200) }"; |
my $calls=join("\n",map { "ggbInit_$_();" } (@Apache::functionplotresponse::callscripts)); |
my $calls=join("\n",map { "ggbInit_$_();" } (@Apache::functionplotresponse::callscripts)); |
return (<<ENDGGBINIT); |
return (<<ENDGGBINIT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 184 sub set_slope_coordinate {
|
Line 184 sub set_slope_coordinate {
|
my $mult=($fixed?'a*':''); |
my $mult=($fixed?'a*':''); |
return (<<ENDSETSVARIABLE); |
return (<<ENDSETSVARIABLE); |
document.ggbApplet_$id.evalCommand("a=1"); |
document.ggbApplet_$id.evalCommand("a=1"); |
document.ggbApplet_$id.evalCommand("$xvariable=Slider[0,$domain,$xinterval]"); |
document.ggbApplet_$id.evalCommand("$xvariable=Slider[$xinterval,$domain,$xinterval]"); |
document.ggbApplet_$id.setVisible("$xvariable", false); |
document.ggbApplet_$id.setVisible("$xvariable", false); |
document.ggbApplet_$id.evalCommand("$xvariable=$xrel"); |
document.ggbApplet_$id.evalCommand("$xvariable=$xrel"); |
document.ggbApplet_$id.evalCommand("$yvariable=Slider[-$range,$range,$yinterval]"); |
document.ggbApplet_$id.evalCommand("$yvariable=Slider[-$range,$range,$yinterval]"); |