[rkward-cvs] SF.net SVN: rkward:[3960] trunk/rkward/packages/rkwarddev

m-eik at users.sourceforge.net m-eik at users.sourceforge.net
Mon Oct 17 20:09:29 UTC 2011


Revision: 3960
          http://rkward.svn.sourceforge.net/rkward/?rev=3960&view=rev
Author:   m-eik
Date:     2011-10-17 20:09:29 +0000 (Mon, 17 Oct 2011)
Log Message:
-----------
rkwarddev: added support for checkable frames

Modified Paths:
--------------
    trunk/rkward/packages/rkwarddev/ChangeLog
    trunk/rkward/packages/rkwarddev/DESCRIPTION
    trunk/rkward/packages/rkwarddev/R/rk.XML.frame.R
    trunk/rkward/packages/rkwarddev/R/rkwarddev-package.R
    trunk/rkward/packages/rkwarddev/inst/CITATION
    trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
    trunk/rkward/packages/rkwarddev/man/rk.XML.frame.Rd
    trunk/rkward/packages/rkwarddev/man/rkwarddev-package.Rd

Modified: trunk/rkward/packages/rkwarddev/ChangeLog
===================================================================
--- trunk/rkward/packages/rkwarddev/ChangeLog	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/ChangeLog	2011-10-17 20:09:29 UTC (rev 3960)
@@ -1,5 +1,8 @@
 ChangeLog for package rkwarddev
 
+## 0.03-7 (2011-10-17)
+  - added "checkable" and "checked" options to rk.XML.frame()
+
 ## 0.03-6 (2011-10-13)
   - lifted rkward package dependecies to 0.5.7 (needed for rk.load.pluginmaps())
   - rk.XML.menu() and rk.plugin.skeleton() can now recursively generate deeper menu structures if you provide it with a list

Modified: trunk/rkward/packages/rkwarddev/DESCRIPTION
===================================================================
--- trunk/rkward/packages/rkwarddev/DESCRIPTION	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/DESCRIPTION	2011-10-17 20:09:29 UTC (rev 3960)
@@ -14,8 +14,8 @@
 URL: http://rkward.sourceforge.net
 Authors at R: c(person(given="Meik", family="Michalke",
     email="meik.michalke at hhu.de", role=c("aut", "cre")))
-Version: 0.03-6
-Date: 2011-10-13
+Version: 0.03-7
+Date: 2011-10-17
 Collate:
     'echo.R'
     'id.R'

Modified: trunk/rkward/packages/rkwarddev/R/rk.XML.frame.R
===================================================================
--- trunk/rkward/packages/rkwarddev/R/rk.XML.frame.R	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/R/rk.XML.frame.R	2011-10-17 20:09:29 UTC (rev 3960)
@@ -2,6 +2,8 @@
 #'
 #' @param ... Objects of class \code{XiMpLe.node}.
 #' @param label Character string, a text label for this plugin element.
+#' @param checkable Logical, if \code{TRUE} the frame can be switched on and off.
+#' @param chk Logical, if \code{TRUE} and \code{checkable=TRUE} the frame is checkable and active by default.
 #' @param id.name Character string, a unique ID for this plugin element.
 #'		If \code{"auto"} and a label was provided, an ID will be generated automatically from the label
 #'		if presen, otherwise from the objects in the frame.
@@ -16,7 +18,7 @@
 #'   "Second Option"=c(val="val2", chk=TRUE)))
 #' cat(pasteXMLNode(rk.XML.frame(test.dropdown, label="Some options")))
 
-rk.XML.frame <- function(..., label=NULL, id.name="auto"){
+rk.XML.frame <- function(..., label=NULL, checkable=FALSE, chk=FALSE, id.name="auto"){
 	nodes <- list(...)
 
 	if(!is.null(label)){
@@ -25,6 +27,15 @@
 		attr.list <- list()
 	}
 
+	if(isTRUE(checkable)){
+		attr.list[["checkable"]] <- "true"
+		if(isTRUE(chk)){
+			attr.list[["checked"]] <- "true"
+		} else {}
+	} else {
+		attr.list[["checkable"]] <- "false"
+	}
+
 	if(identical(id.name, "auto")){
 		if(!is.null(label)){
 			attr.list[["id"]] <- auto.ids(label, prefix=ID.prefix("frame"))

Modified: trunk/rkward/packages/rkwarddev/R/rkwarddev-package.R
===================================================================
--- trunk/rkward/packages/rkwarddev/R/rkwarddev-package.R	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/R/rkwarddev-package.R	2011-10-17 20:09:29 UTC (rev 3960)
@@ -3,8 +3,8 @@
 #' \tabular{ll}{
 #' Package: \tab rkwarddev\cr
 #' Type: \tab Package\cr
-#' Version: \tab 0.03-6\cr
-#' Date: \tab 2011-10-13\cr
+#' Version: \tab 0.03-7\cr
+#' Date: \tab 2011-10-17\cr
 #' Depends: \tab R (>= 2.9.0),XiMpLe,rkward (>= 0.5.7)\cr
 #' Enhances: \tab rkward\cr
 #' Encoding: \tab UTF-8\cr

Modified: trunk/rkward/packages/rkwarddev/inst/CITATION
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/CITATION	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/inst/CITATION	2011-10-17 20:09:29 UTC (rev 3960)
@@ -2,12 +2,12 @@
 		title="rkwarddev: A collection of tools for RKWard plugin development",
 		author="Meik Michalke",
 		year="2011",
-		note="(Version 0.03-6)",
+		note="(Version 0.03-7)",
 		url="http://rkward.sourceforge.net",
 
 		textVersion =
 		paste("Michalke, M. (2011). ",
-				"rkwarddev: A collection of tools for RKWard plugin development (Version 0.03-6). ",
+				"rkwarddev: A collection of tools for RKWard plugin development (Version 0.03-7). ",
 				"Available from http://rkward.sourceforge.net",
 				sep=""),
 

Modified: trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
===================================================================
(Binary files differ)

Modified: trunk/rkward/packages/rkwarddev/man/rk.XML.frame.Rd
===================================================================
--- trunk/rkward/packages/rkwarddev/man/rk.XML.frame.Rd	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/man/rk.XML.frame.Rd	2011-10-17 20:09:29 UTC (rev 3960)
@@ -2,7 +2,8 @@
 \alias{rk.XML.frame}
 \title{Create XML node "column" for RKWard plugins}
 \usage{
-  rk.XML.frame(..., label = NULL, id.name = "auto")
+  rk.XML.frame(..., label = NULL, checkable = FALSE, chk =
+  FALSE, id.name = "auto")
 }
 \arguments{
   \item{...}{Objects of class \code{XiMpLe.node}.}
@@ -10,6 +11,13 @@
   \item{label}{Character string, a text label for this
   plugin element.}
 
+  \item{checkable}{Logical, if \code{TRUE} the frame can be
+  switched on and off.}
+
+  \item{chk}{Logical, if \code{TRUE} and
+  \code{checkable=TRUE} the frame is checkable and active
+  by default.}
+
   \item{id.name}{Character string, a unique ID for this
   plugin element. If \code{"auto"} and a label was
   provided, an ID will be generated automatically from the

Modified: trunk/rkward/packages/rkwarddev/man/rkwarddev-package.Rd
===================================================================
--- trunk/rkward/packages/rkwarddev/man/rkwarddev-package.Rd	2011-10-17 18:01:57 UTC (rev 3959)
+++ trunk/rkward/packages/rkwarddev/man/rkwarddev-package.Rd	2011-10-17 20:09:29 UTC (rev 3960)
@@ -8,8 +8,8 @@
 }
 \details{
   \tabular{ll}{ Package: \tab rkwarddev\cr Type: \tab
-  Package\cr Version: \tab 0.03-6\cr Date: \tab
-  2011-10-13\cr Depends: \tab R (>= 2.9.0),XiMpLe,rkward
+  Package\cr Version: \tab 0.03-7\cr Date: \tab
+  2011-10-17\cr Depends: \tab R (>= 2.9.0),XiMpLe,rkward
   (>= 0.5.7)\cr Enhances: \tab rkward\cr Encoding: \tab
   UTF-8\cr License: \tab GPL (>= 3)\cr LazyLoad: \tab
   yes\cr URL: \tab http://rkward.sourceforge.net\cr }

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