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

[kapatp at users.sourceforge.net]

Revision: 2994
          http://rkward.svn.sourceforge.net/rkward/?rev=2994&view=rev
Author:   kapatp
Date:     2010-09-03 22:43:03 +0000 (Fri, 03 Sep 2010)

Log Message:
-----------
Fixed a typo and updated using rk.show.question

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-03 22:24:28 UTC (rev 2993)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-03 22:43:03 UTC (rev 2994)
@@ -235,8 +235,8 @@
 			# length (n) can be > 1: see .verify.hist.limits ()
 			
 			len.n <- length (n)
-			recorded[[n]] <<- NULL
-			gType[[n]] <<- NULL
+			recorded[n] <<- NULL
+			gType[n] <<- NULL
 			len.r <- length (recorded)
 			
 			printPars () # DEBUG
@@ -445,14 +445,9 @@
 		
 		ans <- 'no'
 		if (len.max < len.r) {
-			## TODO: implement using rk.ask.yesnocancel ()
-			ans <- as.numeric (system (paste ("kdialog --warningcontinuecancel ",
-				"\"Current screen history has more plots than the maximum number specified in the settings. ",
-				len.r - len.max," of the foremost plots will be removed.",
-				"\n\nIf you agree hit Continue.",
-				"\nIf you prefer to remove them yourself hit Cancel.\"",
-				" --title \"Plot history length\" --icon rkward; echo $?", sep = ""), intern = TRUE))
-			if (ans == 0)
+			ans <- rk.show.question (paste ("Current plot history has more plots than the maximum number specified in the settings.\n",
+				10 - 5, " of the foremost plots will be removed.\n\nDo you want to Continue?", sep =""))
+			if (!is.null(ans) && ans)
 				remove (deviceId = NULL, pos = 1:(len.r - len.max))
 		}
 		


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