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

[kapatp at users.sourceforge.net]

Revision: 4210
          http://rkward.svn.sourceforge.net/rkward/?rev=4210&view=rev
Author:   kapatp
Date:     2012-04-23 04:29:22 +0000 (Mon, 23 Apr 2012)
Log Message:
-----------
Start implementing par () attributes

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/plots/plot_options.js
    trunk/rkward/rkward/plugins/plots/plot_options.xml

Modified: trunk/rkward/rkward/plugins/plots/plot_options.js
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_options.js	2012-04-19 20:26:27 UTC (rev 4209)
+++ trunk/rkward/rkward/plugins/plots/plot_options.js	2012-04-23 04:29:22 UTC (rev 4210)
@@ -39,6 +39,8 @@
 	var type = "";
 	var col = "";
 	var asp = "";
+	var las = "";
+	var cexaxis = "";
 	var options = "";
 
 	xvars = getValue ("xvar").split ("\n");
@@ -102,6 +104,15 @@
 	}
 
 
+	// las : axis tick label orientation
+	las = getValue ("ticklblrot")
+	if (las == "") las = getValue ("default_ticklblrot");
+	if (las != "") las = ", las=" + las;
+
+	// cex.axis : axis tick label scale
+	cexaxis = getValue ("cexaxis")
+	if (cexaxis != "") cexaxis = ", cex.axis=" + cexaxis;
+
 	// final touches
 	if (log != "") log = ", log=\"" + log + "\"";
 
@@ -122,7 +133,7 @@
 	else asp = "";
 
 	// make option string
-	options = type + col + xaxt + yaxt + log + xlim + ylim + xlab + ylab + main + sub + asp;
+	options = type + col + xaxt + yaxt + log + xlim + ylim + xlab + ylab + main + sub + asp + las + cexaxis;
 
 	echo (options);
 }

Modified: trunk/rkward/rkward/plugins/plots/plot_options.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_options.xml	2012-04-19 20:26:27 UTC (rev 4209)
+++ trunk/rkward/rkward/plugins/plots/plot_options.xml	2012-04-23 04:29:22 UTC (rev 4210)
@@ -12,6 +12,7 @@
 		<external id="default_sub" default="" />
 		<external id="default_xlab" default="" />
 		<external id="default_ylab" default="" />
+		<external id="default_ticklblrot" default="" />
 
 		<external id="allow_log" default="true" />
 		<external id="allow_type" default="true" />
@@ -65,6 +66,9 @@
 		<connect client="tab_grid.visible" governor="allow_grid"/>
 		<convert id="grid_enable" sources="tab_grid.visible;add_grid.state" mode="and"/>
 		<connect client="grid_options.enabled" governor="grid_enable" />
+
+		<external id="allow_ann" default="true" />
+		<connect client="tab_ann.visible" governor="allow_ann"/>
 	</logic>
 	<dialog label="Default plot options" >
 		<tabbook>
@@ -117,6 +121,19 @@
 					<stretch/>
 				</column>
 			</tab>
+			<tab id="tab_ann" label="Annotations" >
+				<dropdown id="ticklblrot" label="Tick label orientation" >
+					<option value="" label="default" checked="true" />
+					<option value="0" label="Always parallel to the axis " />
+					<option value="1" label="Always horizontal " />
+					<option value="2" label="Always perpendicular to the axis " />
+					<option value="3" label="Always vertical " />
+				</dropdown>
+						<row>
+							<input id="cexaxis" label="Tick label scale (relative to cex))" />
+						</row>
+				<stretch/>
+			</tab>
 			<tab id="pointtypepage" label="Points / Lines">
 				<dropdown id="pointtype" label="Type of points/lines" >
 					<option value="" label="default" checked="true" />

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