[Zooimage-commits] r129 - pkg/zooimage/R

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

Author: romain
Date: 2009-05-07 10:38:38 +0200 (Thu, 07 May 2009)
New Revision: 129

Modified:
   pkg/zooimage/R/utilities.r
Log:
small fix to call of tk_choose.files

Modified: pkg/zooimage/R/utilities.r
===================================================================
--- pkg/zooimage/R/utilities.r	2009-05-07 08:27:09 UTC (rev 128)
+++ pkg/zooimage/R/utilities.r	2009-05-07 08:38:38 UTC (rev 129)
@@ -637,9 +637,12 @@
 	     multi = TRUE, filters = Filters,
 		 index = nrow(Filters) ){
 		
-		call <- match.call( )
-		call[[1]] <- as.name( "tk_choose.files")
-		eval( call, envir = parent.frame() )	
+		if( is.null(dim(filters) ) ){
+			filters <- matrix(filters, nc = 2 )
+		}
+		tk_choose.files( default = default, caption = caption, 
+			multi = multi, filters = filters, index = index) 
+		
 	}
 }