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

[kapatp at users.sourceforge.net]

Revision: 2998
          http://rkward.svn.sourceforge.net/rkward/?rev=2998&view=rev
Author:   kapatp
Date:     2010-09-05 20:47:28 +0000 (Sun, 05 Sep 2010)

Log Message:
-----------
Turn off debug messages for now.

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-04 13:22:33 UTC (rev 2997)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/public_graphics.R	2010-09-05 20:47:28 UTC (rev 2998)
@@ -61,14 +61,14 @@
 	rk.record.plot$.set.isDuplicate (TRUE)
 	dev.copy (device = x11)
 	rk.record.plot$.set.isDuplicate (FALSE)
-	rk.record.plot$printPars () # DEBUG
+	#rk.record.plot$printPars () # DEBUG
 }
 
 "rk.activate.device" <- function (deviceId = dev.cur ())
 {
 	dev.set (deviceId)
 	rk.record.plot$.set.trellis.last.object (deviceId)
-	rk.record.plot$printPars () # DEBUG
+	#rk.record.plot$printPars () # DEBUG
 }
 
 # A global history of various graphics calls;
@@ -133,7 +133,7 @@
 			histPositions [[deviceId]] <<- NULL
 			replacePositions [[deviceId]] <<- NULL
 		}
-		printPars () # DEBUG
+		#printPars () # DEBUG
 	}
 	.grow.history <- function (deviceId, np.gT)
 	{
@@ -216,7 +216,7 @@
 			
 			dev.set (cur.deviceId)
 			.rk.graph.history.gui ()
-			printPars () # DEBUG
+			#printPars () # DEBUG
 			return (invisible ())
 		}
 	}
@@ -239,14 +239,14 @@
 			gType[n] <<- NULL
 			len.r <- length (recorded)
 			
-			printPars () # DEBUG
+			#printPars () # DEBUG
 			for (d in names (histPositions)[-1]) {
 				m <- min (histPositions [[d]] - len.n + 1, len.r)
 				histPositions [[d]] <<- replacePositions [[d]] <<- m
 				message ("d: ", d, ", m: ", m)  # DEBUG
 				replay (m, d)
 			}
-			printPars () # DEBUG
+			#printPars () # DEBUG
 			.rk.graph.history.gui ()
 		}
 		
@@ -336,7 +336,7 @@
 		gType <<- list ()
 		histPositions [names (histPositions)] <<- 0
 		replacePositions [names (replacePositions)] <<- 0
-		printPars () # DEBUG
+		#printPars () # DEBUG
 		.rk.graph.history.gui ()
 	}
 	printPars <- function ()
@@ -364,7 +364,7 @@
 			positions [1 + 2 * (1:ndevs)] <- unlist (histPositions[deviceIds], use.names = FALSE)
 			.rk.do.call ("updateDeviceHistory", positions);
 		}
-		print (positions) # DEBUG
+		#print (positions) # DEBUG
 		invisible (NULL)
 	}
 	.get.oldplot.call.std <- function (n)


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