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

kapatp at users.sourceforge.net kapatp at users.sourceforge.net
Thu Mar 1 10:25:06 UTC 2007


Revision: 1518
          http://svn.sourceforge.net/rkward/?rev=1518&view=rev
Author:   kapatp
Date:     2007-03-01 02:25:05 -0800 (Thu, 01 Mar 2007)

Log Message:
-----------

* Added a grid plugin under Device > View > Draw Grid (could add this plot_options instead)
* Added a plot_stepfun_options plugin providing the graphical parameters for plot.stepfun
* More or less completed the binomial_clt plugin. Not going to add qqplot.
* plot_stepfun_options is used in binomial_clt using the ecdf function.

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.php
    trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.rkh
    trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.xml
    trunk/rkward/rkward/plugins/under_development.pluginmap

Added Paths:
-----------
    trunk/rkward/rkward/plugins/plots/plot_stepfun_options.php
    trunk/rkward/rkward/plugins/plots/plot_stepfun_options.rkh
    trunk/rkward/rkward/plugins/plots/plot_stepfun_options.xml
    trunk/rkward/rkward/plugins/x11device/grid.php
    trunk/rkward/rkward/plugins/x11device/grid.rkh
    trunk/rkward/rkward/plugins/x11device/grid.xml

Modified: trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.php	2007-02-28 23:49:30 UTC (rev 1517)
+++ trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.php	2007-03-01 10:25:05 UTC (rev 1518)
@@ -43,11 +43,35 @@
 	 $normSigma = sqrt($distVar);
 	}
 
+	$plotoptions = getRK_val("plotoptions.code.printout");
 	if ($fun == "hist") {
+		$normFun = "dnorm";
 		$histcalcoptions = getRK_val ("histogram_opt.code.calculate");
 		$histplotoptions = getRK_val ("histogram_opt.code.printout");
-		$histplotoptions .= getRK_val("plotoptions.code.printout");
+		$histplotoptions .= $plotoptions;
+	} elseif ($fun == "dist") {
+		$ecdfoptions = "";
+		$col_y0 = getRK_val ("col_y0.code.printout");
+		$col_y1 = getRK_val ("col_y1.code.printout");
+		if (($col_y0 != "") && ($col_y1 != "")) {
+			$ecdfoptions .= ", col.01line=c({$col_y0},{$col_y1})";
+		} elseif (($col_y0 != "") || ($col_y1 != "")) {
+			$ecdfoptions .= ", col.01line={$col_y0}{$col_y1}";
+		}
+
+		$addRugtoplot = getRK_val ("addRugtoplot");
+		if ($addRugtoplot) {
+			$rugoptions  = ', ticksize=' . round(getRK_val ("rug_ticksize"),2);
+			$rugoptions .= ', lwd=' . round(getRK_val ("rug_lwd"),2);
+			$rugoptions .= ', side=' . getRK_val ("rug_side");
+			$rugoptions .= getRK_val ("col_rug.code.printout");
+		}
+
+		$normFun = "pnorm";
+		$plotoptions .= $ecdfoptions . getRK_val ("dist_stepfun.code.printout");
 	}
+
+	$yLim = "";
 ?>
 rk.temp.cltdistrib <- list()
 rk.temp.cltdistrib$data <- matrix(rbinom(n=<? echo ($nAvg*$nDist); ?>, size = <? echo ($size); ?>, prob=<? echo ($prob); ?>), nrow=<? echo ($nAvg); ?>);
@@ -56,25 +80,29 @@
 rk.temp.cltdistrib$var <- <? echo ($distVar); ?>;
 <? if ($scalenorm) { ?>
 rk.temp.cltdistrib$avg <- (rk.temp.cltdistrib$avg - rk.temp.cltdistrib$mean)/sqrt(rk.temp.cltdistrib$var);
-<? } ?>
+<? }
+ if ($drawnorm) { ?>
 rk.temp.cltdistrib$normX <- seq(from=min(rk.temp.cltdistrib$avg), to=max(rk.temp.cltdistrib$avg), length=<? echo ($nDist); ?>);
-rk.temp.cltdistrib$normY <- dnorm (rk.temp.cltdistrib$normX, mean = <? echo ($normMu); ?>, sd = <? echo ($normSigma); ?>);
-<?
+rk.temp.cltdistrib$normY <- <? echo ($normFun); ?> (rk.temp.cltdistrib$normX, mean = <? echo ($normMu); ?>, sd = <? echo ($normSigma); ?>);
+<? }
 	if ($final) { ?>
 rk.graph.on ()
 <? }
   if ($fun == "hist") {
 ?>
 rk.temp.cltdistrib$hist <- hist(rk.temp.cltdistrib$avg, plot=FALSE<? echo ($histcalcoptions); ?>);
+<? if ($drawnorm) { ?>
 rk.temp.cltdistrib$ylim <- c(0,max(c(rk.temp.cltdistrib$hist$density, rk.temp.cltdistrib$normY)));
-try( plot(rk.temp.cltdistrib$hist, ylim=rk.temp.cltdistrib$ylim<? echo ($histplotoptions); ?>) );
-<?
-  }
-?>
-<? if ($drawnorm) { ?>
+<? $yLim = ', ylim=rk.temp.cltdistrib$ylim'; } ?>
+try( plot(rk.temp.cltdistrib$hist<? echo ($yLim); echo ($histplotoptions); ?>) );
+<?  } elseif ($fun == "dist") {?>
+try( plot(ecdf(rk.temp.cltdistrib$avg)<? echo ($plotoptions); ?>) );
+<?	if ($addRugtoplot) { ?>	rug (rk.temp.cltdistrib$avg<? echo ($rugoptions); ?>)
+<? } }
+ if ($drawnorm) { ?>
   try (lines (x=rk.temp.cltdistrib$normX, y=rk.temp.cltdistrib$normY, type="<? getRK ("normpointtype"); ?>"<? getRK ("normlinecol.code.printout"); ?>));
-<? } ?>
-<?	if ($final) { ?>
+<? }
+	if ($final) { ?>
 rk.graph.off ()
 <? }
 }

Modified: trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.rkh
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.rkh	2007-02-28 23:49:30 UTC (rev 1517)
+++ trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.rkh	2007-03-01 10:25:05 UTC (rev 1518)
@@ -19,7 +19,13 @@
 		<setting id="plotoptions">Various plot options.</setting>
 		<setting id="preview">Preview button.</setting>
 		<caption id="tab_histoptions"/>
-		<setting id="histogram_opt">The 'Frequency' checkbox has been disabled because, in this situation, drawing the histogram with <i>freq=TRUE</i> doesnot make sense. Also, since histogram is the main plot, 'Add to current plot' checkbox has also been disabled. See RkWard help on <link href="rkward://component/histogram_options"/> for other histogram centric details.</setting>
+		<setting id="histogram_opt">The 'Frequency' checkbox is unavailable because, in this situation, drawing the histogram with <i>freq=TRUE</i> doesnot make sense. Also, since histogram is the main plot, 'Add to current plot' checkbox has also been disabled. See RkWard help on <link href="rkward://component/histogram_options"/> for other histogram centric details.</setting>
+		<caption id="tab_distfunction"/>
+		<setting id="dist_stepfun" label="Stepfunction options">See the help on step-function options plugin. The 'Add to current plot' option is unavailable.</setting>
+		<setting id="frame_col_y0"></setting>
+		<setting id="frame_col_y1"> The above two options are used to set the color for the horizontal lines at y = 0 and y = 1 respectively. Specifically, this is the <i>col.01line</i> argument to <b>ecdf</b>. If only the one is provided (i.e the other is set as 'Default') then both the line are of the specified color. Otherwise (i.e., when both the colors are provided) both the colors are provided as a character vector.</setting>
+		<caption id="frame_rug"/>
+		<setting id="addRugtoplot"> Check this option to add a <b>rug</b> to the current plot. See the R reference on 'rug' for more detials. All the available options, namely, 'Side of Rug', 'Tick size', Tick width' and 'Color' are self evident.</setting>
 	</settings>
 	<related>
 		<ul>
@@ -28,6 +34,8 @@
 			<li><link href="rkward://rhelp/Normal"/></li>
 			<li><link href="rkward://rhelp/hist"/></li>
 			<li><link href="rkward://rhelp/rect"/></li>
+			<li><link href="rkward://component/plot_stepfun_options"/></li>
+			<li><link href="rkward://rhelp/rug"/></li>
 		</ul>
 	</related>
 </document>

Modified: trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.xml	2007-02-28 23:49:30 UTC (rev 1517)
+++ trunk/rkward/rkward/plugins/distributions/plot_binomial_clt.xml	2007-03-01 10:25:05 UTC (rev 1518)
@@ -5,8 +5,8 @@
 	<logic>
 		<set id="plotoptions.allow_log" to="false"/>
 		<set id="plotoptions.allow_type" to="false"/>
-		<set id="plotoptions.main.text" to="Histogram for Binomial"/>
-		<set id="plotoptions.xlab.text" to="Samples"/>
+		<set id="plotoptions.main.text" to="Binomial"/>
+		<set id="plotoptions.xlab.text" to="Sample Averages"/>
 
 		<set id="normlinecol.default_color" to="red" />
 
@@ -23,7 +23,18 @@
 
 		<connect client="normpointtype.enabled" governor="drawnorm.state"/>
 		<connect client="normlinecol.color.enabled" governor="drawnorm.state"/>
-	</logic>
+
+		<set id="dist_stepfun.allow_addtoplot" to="false" />
+		<set id="dist_stepfun.default_verticals" to="false" />
+
+		<connect client="rug_side.enabled" governor="addRugtoplot.state" />
+		<connect client="rug_ticksize.enabled" governor="addRugtoplot.state"/>
+		<connect client="rug_lwd.enabled" governor="addRugtoplot.state"/>
+		<connect client="col_rug.color.enabled" governor="addRugtoplot.state"/>
+
+		<set id="col_y0.argument" to=""/>
+		<set id="col_y1.argument" to=""/>
+</logic>
 	<dialog label="Central Limit Theorem: Binomial to Normal" >
 		<tabbook>
 			<tab id="tab_plot_distrib_clt" label="Parameters" >
@@ -40,9 +51,8 @@
 					</column>
 					<column>
 						<radio id="function" label="Choose type of function plot" >
-							<option value="hist" label="Plot Histogram" />
-							<option value="dist" label="Plot distribution" />
-							<option value="qq" label="Plot QQ-plot" />
+							<option value="hist" label="Histogram and Density" />
+							<option value="dist" label="ECDF and Distribution" />
 						</radio>
 						<checkbox id="scalenorm" label="Use normalised random variable" value="1" value_unchecked="0"/>
 						<frame id="frame_lineoptions" label="Nomral Curve Options">
@@ -66,12 +76,42 @@
 					<preview id="preview" label="Preview"/>
 				</row>
 			</tab>
+
 			<tab id="tab_histoptions" label="Histogram">
 				<embed id="histogram_opt" component="rkward::histogram_options" label="Histogram Options"/>
 			</tab>
-			<tab id="tab_distfunction" label="Distribution function">
-				<checkbox id="dist_lowertail" label="Lower tail" checked="true"/>
+
+			<tab id="tab_distfunction" label="ECDF options">
+				<embed id="dist_stepfun" component="rkward::plot_stepfun_options" label=""/>
+				<row>
+					<frame id="frame_rug" label="Rug options">
+						<row>
+							<column>
+								<checkbox id="addRugtoplot" label="Add Rug" />
+								<radio id="rug_side" label="Side of Rug">
+									<option value="1" label="Bottom" />
+									<option value="3" label="Top" />
+								</radio>
+							</column>
+							<column>
+								<spinbox id="rug_ticksize" min="0" initial="0.03" label="Tick size"/>
+								<spinbox id="rug_lwd" min="0" initial="0.5" label="Tick width" />
+								<embed id="col_rug" component="rkward::color_chooser" label="Color"/>
+							</column>
+						</row>
+					</frame>
+					<column>
+						<frame id="frame_col_y0" label="For y = 0 line">
+							<embed id="col_y0" component="rkward::color_chooser" label="Color"/>
+						</frame>
+						<frame id="frame_col_y1" label="For y = 1 line">
+							<embed id="col_y1" component="rkward::color_chooser" label="Color"/>
+						</frame>
+					</column>
+				</row>
+				<stretch/>
 			</tab>
+
 		</tabbook>
 	</dialog>
 </document>

Added: trunk/rkward/rkward/plugins/plots/plot_stepfun_options.php
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_stepfun_options.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/plot_stepfun_options.php	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,35 @@
+<?
+function preprocess () {
+}
+
+function calculate () {
+}
+
+function printout () {
+	$options = "";
+
+	$addtoplot = getRK_val ("addtoplot");
+	if ($addtoplot) $options .= ', add=TRUE';
+
+	$lty = getRK_val ("linetype");
+	if (!($lty == "")) $options .= ", lty=\"{$lty}\"";
+
+	$verticals = getRK_val ("verticals");
+	if ($verticals) {
+		$options .= ', verticals=TRUE' . getRK_val ("col_vert.code.printout");
+	} else $options .= ', verticals=FALSE';
+
+	$do_points = getRK_val ("do_points");
+	if ($do_points) {
+		$options .= getRK_val ("col_points.code.printout");
+	} else $options .= ', do.points=FALSE';
+
+	$col_hor = getRK_val ("col_hor.code.printout");
+	if (!($col_hor == "")) $options .= getRK_val ("col_hor.code.printout");
+
+	echo ($options);
+}
+
+function cleanup () {
+}
+?>

Added: trunk/rkward/rkward/plugins/plots/plot_stepfun_options.rkh
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_stepfun_options.rkh	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/plot_stepfun_options.rkh	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,24 @@
+<!DOCTYPE rkhelp>
+<document>
+	<summary>
+		Various graphical parameters for <b>plot.stepfun</b>. For detailed description of the individual parameters see the R reference on 'plot.stepfun'.
+	</summary>
+	<usage>
+		This is supposed to be used as an embeded plugin. All the elements are arguments to the plot.stepfun function. This plugin is useful in constructing <b>ecdf</b> plots.
+	</usage>
+	<settings>
+		<setting id="addtoplot">This is the <i>add</i> argument. This option might be disabled by the embedding plugin.</setting>
+		<setting id="linetype">This is the <i>lty</i> argument.</setting>
+		<setting id="do_points">This is the <i>do.points</i> argument. Uncheck this option if points are NOT to be drawn.</setting>
+		<setting id="col_points">This is the <i>col.points</i> argument. Leave this as 'default' for using the standard color settings from par().</setting>
+		<setting id="col_horiz">This is the <i>col.hor</i> argument.</setting>
+		<setting id="verticals">This is the <i>verticals</i> arguments. Uncheck this option if vertical lines are NOT to be drawn.</setting>
+		<setting id="col_vert">This is the <i>col.vert</i> argument.</setting>
+	</settings>
+	<related>
+		<ul>
+			<li><link href="rkward://rhelp/plot.stepfun"/></li>
+		</ul>
+	</related>
+</document>
+

Added: trunk/rkward/rkward/plugins/plots/plot_stepfun_options.xml
===================================================================
--- trunk/rkward/rkward/plugins/plots/plot_stepfun_options.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/plots/plot_stepfun_options.xml	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,48 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="plot_stepfun_options.php"/>
+	<help file="plot_stepfun_options.rkh"/>
+	<logic>
+		<external id="varname" default=""/>
+		<external id="allow_addtoplot" default="true"/>
+		<external id="default_verticals" default="true"/>
+
+		<set id="col_vert.argument" to=", col.vert="/>
+		<set id="col_points.argument" to=", col.points="/>
+		<set id="col_hor.argument" to=", col.hor="/>
+
+		<connect client="addtoplot.visible" governor="allow_addtoplot"/>
+
+		<connect client="col_vert.color.enabled" governor="verticals.state"/>
+		<connect client="col_points.color.enabled" governor="do_points.state"/>
+	</logic>
+	<dialog label="Step function plot options">
+		<row>
+			<frame id="frame_opt" label="Options">
+				<checkbox id="addtoplot" label="Add to current plot" checked="false"/>
+				<dropdown id="linetype" label="Line type for all lines" >
+					<option value="" label="Default" checked="true"/>
+					<option value="solid" label="Solid"/>
+					<option value="dashed" label="Dashed" />
+					<option value="dotted" label="Dotted" />
+					<option value="dotdash" label="Dot-Dash" />
+					<option value="longdash" label="Long-dash" />
+					<option value="twodash" label="Two-dash" />
+				</dropdown>
+			</frame>
+			<frame id="frame_points" label="Points">
+				<checkbox id="do_points" label="Draw points" checked="true"/>
+				<embed id="col_points" component="rkward::color_chooser" label="Color"/>
+			</frame>
+		</row>
+		<row>
+			<frame id="frame_col_horiz" label="Horizontal Lines">
+				<embed id="col_hor" component="rkward::color_chooser" label="Color"/>
+			</frame>
+			<frame id="frame_vert" label="Vertical lines">
+				<checkbox id="verticals" label="Draw vertical lines" />
+				<embed id="col_vert" component="rkward::color_chooser" label="Color"/>
+			</frame>
+		</row>
+	</dialog>
+</document>

Modified: trunk/rkward/rkward/plugins/under_development.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/under_development.pluginmap	2007-02-28 23:49:30 UTC (rev 1517)
+++ trunk/rkward/rkward/plugins/under_development.pluginmap	2007-03-01 10:25:05 UTC (rev 1518)
@@ -31,6 +31,9 @@
 
 		<component type="standard" id="stem" file="plots/stem.xml" label="Stem-and-Leaf Plot" />
 
+		<component type="standard" id="plot_stepfun_options" file="plots/plot_stepfun_options.xml" label="Step Function plot options" />
+		<component type="standard" id="x11grid" file="x11device/grid.xml" label="Draw Grid" />
+
 	</components>
 
 	<hierarchy>
@@ -89,6 +92,9 @@
     <menu id="device" label="device" index="1">
       <entry component="export_x11_device_new" />
     </menu>
+    <menu id="view" label="View" index="2">
+      <entry component="x11grid" />
+    </menu>
   </context>
 </document>
 

Added: trunk/rkward/rkward/plugins/x11device/grid.php
===================================================================
--- trunk/rkward/rkward/plugins/x11device/grid.php	                        (rev 0)
+++ trunk/rkward/rkward/plugins/x11device/grid.php	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,30 @@
+<?php
+function preprocess () {
+}
+function calculate () {
+	$nx = getRK_val ("nx");
+	if ($nx == "other") $gridoptions = 'nx=' . getRK_val ("nx_cells");
+	else $gridoptions = 'nx=' . $nx;
+
+	$ny = getRK_val ("ny");
+	if ($ny == "other") $gridoptions .= ', ny=' . getRK_val ("ny_cells");
+	else $gridoptions .= ', ny=' . $ny;
+
+	$gridoptions .= getRK_val ("col.code.printout");
+
+	if (getRK_val("custlwd")) $gridoptions .= ', lwd=' . round(getRK_val ("lwd"),1);
+
+	$lty = getRK_val("linetype");
+	if ($lty != "") $gridoptions .= ", lty=\"{$lty}\"";
+
+	if (!getRK_val("equilogs")) $gridoptions .= ', equilogs=FALSE';
+?>
+dev.set (<? getRK ("devnum"); ?>)
+grid(<? echo ($gridoptions); ?>);
+<?
+}
+function printout () {
+}
+function cleanup () {
+}
+?>
\ No newline at end of file

Added: trunk/rkward/rkward/plugins/x11device/grid.rkh
===================================================================
--- trunk/rkward/rkward/plugins/x11device/grid.rkh	                        (rev 0)
+++ trunk/rkward/rkward/plugins/x11device/grid.rkh	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,26 @@
+<!DOCTYPE rkhelp>
+<document>
+	<summary>
+		Various parameters for the <b>grid</b>. For detailed description of the individual parameters see the R reference on 'plot.stepfun'.
+	</summary>
+	<usage>
+		This may or maynot be used as an embeded plugin.
+	</usage>
+	<settings>
+		<setting id="nx">This is the <i>nx</i> argument. The default is NULL, in which case, the vertical lines are drawn at the xaxis ticks. Select None to not draw the vertical lines. Select 'Specify below' to provide the required number of vertical lines in the grid.</setting>
+		<setting id="nx_cells">This is the <i>nx</i> argument, when 'Specify below' was selected in the above option list.</setting>
+		<setting id="ny">This is the <i>ny</i> argument. See above.</setting>
+		<setting id="ny_cells">This is the <i>ny</i> argument. See above.</setting>
+		<setting id="custlwd">Check this option to use a custom line width. In which case, provide the width below.</setting>
+		<setting id="lwd">This is the <i>lwd</i> arguments. Check the above option to use this.</setting>
+		<setting id="linetype">This is the <i>lty</i> argument.</setting>
+		<setting id="col">This is the <i>col</i> argument.</setting>
+		<setting id="equilogs">This is the <i>equilogs</i> argument. Uncheck this option to set <i>equilogs=FALSE</i>.</setting>
+	</settings>
+	<related>
+		<ul>
+			<li><link href="rkward://rhelp/plot.stepfun"/></li>
+		</ul>
+	</related>
+</document>
+

Added: trunk/rkward/rkward/plugins/x11device/grid.xml
===================================================================
--- trunk/rkward/rkward/plugins/x11device/grid.xml	                        (rev 0)
+++ trunk/rkward/rkward/plugins/x11device/grid.xml	2007-03-01 10:25:05 UTC (rev 1518)
@@ -0,0 +1,52 @@
+<!DOCTYPE rkplugin>
+<document>
+	<code file="grid.php" />
+	<help file="grid.rkh" />
+	<logic>
+		<external id="devnum"/>
+
+		<convert id="nx_other" sources="nx.string" mode="equals" standard="other"/>
+		<connect client="nx_cells.enabled" governor="nx_other"/>
+		<convert id="ny_other" sources="ny.string" mode="equals" standard="other"/>
+		<connect client="ny_cells.enabled" governor="ny_other"/>
+
+		<connect client="lwd.enabled" governor="custlwd.state"/>
+	</logic>
+	<dialog label="Grid options">
+		<row>
+			<column>
+				<radio id="nx" label="Number of X cells">
+					<option value="NULL" label="At the ticks"/>
+					<option value="NA" label="None"/>
+					<option value="other" label="Specify below"/>
+				</radio>
+				<spinbox id="nx_cells" label="X Cells" type="integer" min="0" initial="5"/>
+			</column>
+			<column>
+				<radio id="ny" label="Number of Y cells">
+					<option value="NULL" label="At the ticks"/>
+					<option value="NA" label="None"/>
+					<option value="other" label="Specify below"/>
+				</radio>
+				<spinbox id="ny_cells" label="Y Cells" type="integer" min="0" initial="5" />
+			</column>
+		</row>
+		<row>
+				<checkbox id="custlwd" label="Custom Line width" checked="false"/>
+				<checkbox id="equilogs" label="Equilogs" checked="true"/>
+		</row>
+		<row>
+				<spinbox id="lwd" label="Line width" min="0" initial="0.1"/>
+				<dropdown id="linetype" label="Line type" >
+					<option value="" label="Default" checked="true"/>
+					<option value="solid" label="Solid"/>
+					<option value="dashed" label="Dashed" />
+					<option value="dotted" label="Dotted" />
+					<option value="dotdash" label="Dot-Dash" />
+					<option value="longdash" label="Long-dash" />
+					<option value="twodash" label="Two-dash" />
+				</dropdown>
+				<embed id="col" component="rkward::color_chooser" label="Color"/>
+		</row>
+	</dialog>
+</document>


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




More information about the rkward-tracker mailing list