[LON-CAPA-cvs] cvs: loncom /homework functionplotresponse.pm
www
www at source.lon-capa.org
Fri Nov 18 14:32:48 EST 2011
www Fri Nov 18 19:32:48 2011 EDT
Modified files:
/loncom/homework functionplotresponse.pm
Log:
More elegant way of doing the point coordinates and their updates
Index: loncom/homework/functionplotresponse.pm
diff -u loncom/homework/functionplotresponse.pm:1.73 loncom/homework/functionplotresponse.pm:1.74
--- loncom/homework/functionplotresponse.pm:1.73 Fri Nov 18 18:54:21 2011
+++ loncom/homework/functionplotresponse.pm Fri Nov 18 19:32:48 2011
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# Functionplot responses
#
-# $Id: functionplotresponse.pm,v 1.73 2011/11/18 18:54:21 www Exp $
+# $Id: functionplotresponse.pm,v 1.74 2011/11/18 19:32:48 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -412,12 +412,10 @@
my $pointlabel=$label.'Point';
my $pointx=2.*($xmax-$xmin)+$xmax;
my $anglelabel=$label.'Angle';
- return(<<ENDVECTOR);
-document.ggbApplet_$id.evalCommand("$startlabel=($xs,$ys)");
-document.ggbApplet_$id.setVisible("$startlabel",false);
-document.ggbApplet_$id.setLabelVisible("$startlabel",false);
-document.ggbApplet_$id.evalCommand("$endlabel=($xe,$ye)");
-document.ggbApplet_$id.setLabelVisible("$endlabel",false);
+ return
+ &new_point_coordinate($id,$startlabel,$xs,$ys,0).
+ &new_point_coordinate($id,$endlabel,$xe,$ye,0).
+ (<<ENDVECTOR);
document.ggbApplet_$id.evalCommand("$label=Vector[$startlabel,$endlabel]");
document.ggbApplet_$id.setLabelVisible("$label",true);
document.ggbApplet_$id.setLineThickness("$label",8);
@@ -425,9 +423,6 @@
document.ggbApplet_$id.evalCommand("$anglelabel=Angle[$pointlabel,$startlabel,$endlabel]");
document.ggbApplet_$id.setLabelVisible("$anglelabel",true);
document.ggbApplet_$id.setLabelStyle("$anglelabel",VALUE=2);
-document.ggbApplet_$id.registerObjectUpdateListener('$startlabel','updatePointCoordinates_$id');
-document.ggbApplet_$id.registerObjectUpdateListener('$endlabel','updatePointCoordinates_$id');
-document.ggbApplet_$id.registerObjectUpdateListener('$anglelabel','updatePointCoordinates_$id');
ENDVECTOR
}
More information about the LON-CAPA-cvs
mailing list