[rkward-cvs] SF.net SVN: rkward: [1648] trunk/rkward/rkward/plugins/plots

[tfry at users.sourceforge.net]

Revision: 1648
          http://svn.sourceforge.net/rkward/?rev=1648&view=rev
Author:   tfry
Date:     2007-03-19 15:51:39 -0700 (Mon, 19 Mar 2007)

Log Message:
-----------
Add preview to boxplot, PHP indentation

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/box_plot.php
    trunk/rkward/rkward/plugins/plots/box_plot.xml

Modified: trunk/rkward/rkward/plugins/plots/box_plot.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/box_plot.php	2007-03-19 22:44:54 UTC (rev 1647)
+++ trunk/rkward/rkward/plugins/plots/box_plot.php	2007-03-19 22:51:39 UTC (rev 1648)
@@ -1,20 +1,31 @@
 <?
-	function preprocess () {
-	}
-	
-	function calculate () {
-	}
-	
-	function printout () {
+function preprocess () {
+}
+
+function calculate () {
+}
+
+function preview () {
+	preprocess ();
+	calculate ();
+	doPrintout (false);
+}
+
+function printout () {
+	doPrintout (true);
+}
+
+function doPrintout ($final) {
 	$xvarsstring = join (", ", split ("\n", getRK_val ("x")));
+
+	if ($final) {
 ?>
-rk.header ("Boxplot", list ("Variable(s)", rk.get.description (<?echo ($xvarsstring); ?>, paste.sep=", ")))
+rk.header ("Boxplot", list ("Variable(s)", rk.get.description (<? echo ($xvarsstring); ?>, paste.sep=", ")))
 rk.graph.on()
+<?	} ?>
 try (boxplot (list (<? echo ($xvarsstring); ?>), notch = <? getRK ("notch") ?>, outline = <? getRK("outline")?>, horizontal = <? getRK("orientation") ?><? getRK ("plotoptions.code.printout"); ?>))
+<?	if ($final) { ?>
 rk.graph.off ()
-<?
-	}
-	
-	function cleanup () {
-	}
+<?	}
+}
 ?>

Modified: trunk/rkward/rkward/plugins/plots/box_plot.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/box_plot.xml	2007-03-19 22:44:54 UTC (rev 1647)
+++ trunk/rkward/rkward/plugins/plots/box_plot.xml	2007-03-19 22:51:39 UTC (rev 1648)
@@ -9,9 +9,10 @@
 	<tabbook>
 	<tab label="Variable(s)" >
 		<row>
-		<varselector id="vars" />
-		<varslot multi="true" type="numeric" source="vars" id="x" label="variable(s):" required="true" />
+			<varselector id="vars" />
+			<varslot multi="true" type="numeric" source="vars" id="x" label="variable(s):" required="true" />
 		</row>
+		<preview id="preview"/>
 	</tab>
 	<tab label="Options" >
 		<row>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.