[Sciviews-commits] r125 - pkg/svWidgets/R

[noreply at r-forge.r-project.org]

Author: romain
Date: 2009-04-06 11:37:02 +0200 (Mon, 06 Apr 2009)
New Revision: 125

Modified:
   pkg/svWidgets/R/Tool.R
Log:
small bug : s/menu/tool/ 

Modified: pkg/svWidgets/R/Tool.R
===================================================================
--- pkg/svWidgets/R/Tool.R	2009-03-29 09:19:37 UTC (rev 124)
+++ pkg/svWidgets/R/Tool.R	2009-04-06 09:37:02 UTC (rev 125)
@@ -153,7 +153,7 @@
 			options <- T[[i]][3]
             if (is.na(options)) options <- ""
 		}
-        Litem <- data.frame(tool = I(menu), item = I(item), image = I(image),
+        Litem <- data.frame(tool = I(tool), item = I(item), image = I(image),
 			action = I(action), options = I(options))
 		# add it to the data.frame
 		L[i, ] <- Litem