[rkward-cvs] SF.net SVN: rkward:[3046] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ public_graphics.R

[kapatp at users.sourceforge.net]

Revision: 3046
          http://rkward.svn.sourceforge.net/rkward/?rev=3046&view=rev
Author:   kapatp
Date:     2010-09-18 02:42:05 +0000 (Sat, 18 Sep 2010)

Log Message:
-----------
Minor things

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-17 07:44:27 UTC (rev 3045)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-18 02:42:05 UTC (rev 3046)
@@ -489,7 +489,7 @@
 		on.exit (.rk.update.hist.actions ())
 		if (missing (n))
 			return (invisible (rk.show.message ("Position missing", "Replay error", FALSE)))
-		if (is.na (n) || n < 0 || n > sP.length)
+		if (is.na (n) || n <= 0 || n > sP.length)
 			return (invisible (rk.show.message(paste ("replay: 'n' not in valid range: ", n), "Replay error", FALSE)))
 		
 		devId <- as.character (devId)
@@ -570,7 +570,7 @@
 	}
 	showPlotInfo <- function (devId = dev.cur ())
 	{
-		rk.show.message (.get.plot.info.str (devId), caption = "Plot properties")
+		rk.show.message (.get.plot.info.str (devId), caption = "Plot properties", FALSE)
 	}
 	
 	## Utility / print functions:


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