[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