[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