[Sciviews-commits] r550 - in pkg: SciViews/R svDialogs svDialogs/R svDialogs/man svDialogstcltk svDialogstcltk/man svGUI svGUI/R svGUI/man svIDE svIDE/man svMisc/R svMisc/man svSocket svSocket/R svSocket/man svUnit svUnit/R svUnit/man svWidgets svWidgets/man tcltk2 tcltk2/R tcltk2/man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Sun Mar 2 11:05:51 CET 2014


Author: phgrosjean
Date: 2014-03-02 11:05:51 +0100 (Sun, 02 Mar 2014)
New Revision: 550

Modified:
   pkg/SciViews/R/SciViews-internal.R
   pkg/svDialogs/DESCRIPTION
   pkg/svDialogs/NEWS
   pkg/svDialogs/R/svDialogs-internal.R
   pkg/svDialogs/man/svDialogs-package.Rd
   pkg/svDialogstcltk/DESCRIPTION
   pkg/svDialogstcltk/NEWS
   pkg/svDialogstcltk/man/svDialogstcltk-package.Rd
   pkg/svGUI/DESCRIPTION
   pkg/svGUI/NEWS
   pkg/svGUI/R/svGUI-internal.R
   pkg/svGUI/man/svGUI-package.Rd
   pkg/svIDE/DESCRIPTION
   pkg/svIDE/NEWS
   pkg/svIDE/man/svIDE-package.Rd
   pkg/svMisc/R/TempEnv.R
   pkg/svMisc/man/batch.Rd
   pkg/svMisc/man/progress.Rd
   pkg/svSocket/DESCRIPTION
   pkg/svSocket/NEWS
   pkg/svSocket/R/startSocketServer.R
   pkg/svSocket/man/svSocket-package.Rd
   pkg/svUnit/DESCRIPTION
   pkg/svUnit/NEWS
   pkg/svUnit/R/svUnit-internal.R
   pkg/svUnit/man/svUnit-package.Rd
   pkg/svWidgets/DESCRIPTION
   pkg/svWidgets/NEWS
   pkg/svWidgets/man/svWidgets-package.Rd
   pkg/tcltk2/DESCRIPTION
   pkg/tcltk2/NEWS
   pkg/tcltk2/R/tcltk2-Internal.R
   pkg/tcltk2/R/tk2fonts.R
   pkg/tcltk2/man/tcltk2-package.Rd
Log:
Further rework of DESCRIPTION files
Workaround a NOTE for using attach()

Modified: pkg/SciViews/R/SciViews-internal.R
===================================================================
--- pkg/SciViews/R/SciViews-internal.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/SciViews/R/SciViews-internal.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -58,7 +58,8 @@
 	pos <-  match("SciViews:TempEnv", search())
 	if (is.na(pos)) { # Must create it
 	    `SciViews:TempEnv` <- list()
-	    attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+		Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
 	    rm(`SciViews:TempEnv`)
 	    pos <- match("SciViews:TempEnv", search())
 	}

Modified: pkg/svDialogs/DESCRIPTION
===================================================================
--- pkg/svDialogs/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogs/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svDialogs
 Type: Package
-Version: 0.9-54
-Date: 2013-01-27
+Version: 0.9-55
+Date: 2014-03-02
 Title: SciViews GUI API - Dialog boxes
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svDialogs/NEWS
===================================================================
--- pkg/svDialogs/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogs/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,9 @@
 = svDialogs News
 
+== Changes in scDialogs 0.9-55
+
+* Rework of Author and Authors at R fileds in the DESCRIPTION file.
+
 == Changes in scDialogs 0.9-54
 
 * Dependencies to tcltk and svMisc are eliminated. Consequently, all functions

Modified: pkg/svDialogs/R/svDialogs-internal.R
===================================================================
--- pkg/svDialogs/R/svDialogs-internal.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogs/R/svDialogs-internal.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -31,7 +31,8 @@
     pos <-  match("SciViews:TempEnv", search())
     if (is.na(pos)) { # Must create it
         `SciViews:TempEnv` <- list()
-        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+        Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
         rm(`SciViews:TempEnv`)
         pos <- match("SciViews:TempEnv", search())
     }

Modified: pkg/svDialogs/man/svDialogs-package.Rd
===================================================================
--- pkg/svDialogs/man/svDialogs-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogs/man/svDialogs-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -12,8 +12,8 @@
   \tabular{ll}{
     Package: \tab svDialogs\cr
     Type: \tab Package\cr
-    Version: \tab 0.9-54\cr
-    Date: \tab 2013-01-27\cr
+    Version: \tab 0.9-55\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   % TODO: add description of main functions here. Also add examples

Modified: pkg/svDialogstcltk/DESCRIPTION
===================================================================
--- pkg/svDialogstcltk/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogstcltk/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svDialogstcltk
 Type: Package
 Version: 0.9-4
-Date: 2013-11-30
+Date: 2014-03-02
 Title: SciViews GUI API - Dialog boxes using Tcl/Tk
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svDialogstcltk/NEWS
===================================================================
--- pkg/svDialogstcltk/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogstcltk/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -4,7 +4,9 @@
 
 * Removed svDialogs in Enhances field, because already in Depends.
 
+* Rework of Author and Authors at R fields in the DESCRIPTION file.
 
+
 == Changes in svDialogstcltk 0.9-3
 
 * NEWS file reworked to support new Rd format.

Modified: pkg/svDialogstcltk/man/svDialogstcltk-package.Rd
===================================================================
--- pkg/svDialogstcltk/man/svDialogstcltk-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svDialogstcltk/man/svDialogstcltk-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -11,8 +11,8 @@
   \tabular{ll}{
     Package: \tab svDialogstcltk\cr
     Type: \tab Package\cr
-    Version: \tab 0.9-3\cr
-    Date: \tab 2012-04-02\cr
+    Version: \tab 0.9-4\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   

Modified: pkg/svGUI/DESCRIPTION
===================================================================
--- pkg/svGUI/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svGUI/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svGUI
 Type: Package
-Version: 0.9-54
-Date: 2013-01-27
+Version: 0.9-55
+Date: 2014-03-02
 Title: SciViews GUI API - Functions to manage GUIs
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svGUI/NEWS
===================================================================
--- pkg/svGUI/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svGUI/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,10 @@
 = svGUI News
 
+== Changes in svGUI 0.9-55
+
+* Author and Authors at R fields reworked in the DESCRIPTION file.
+
+
 == Changes in svGUI 0.9-54
 
 * The package now store temporary data in SciViews:TempEnv instead of TempEnv

Modified: pkg/svGUI/R/svGUI-internal.R
===================================================================
--- pkg/svGUI/R/svGUI-internal.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svGUI/R/svGUI-internal.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -18,7 +18,8 @@
     pos <-  match("SciViews:TempEnv", search())
     if (is.na(pos)) { # Must create it
         `SciViews:TempEnv` <- list()
-        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+        Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
         rm(`SciViews:TempEnv`)
         pos <- match("SciViews:TempEnv", search())
     }

Modified: pkg/svGUI/man/svGUI-package.Rd
===================================================================
--- pkg/svGUI/man/svGUI-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svGUI/man/svGUI-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -14,8 +14,8 @@
   \tabular{ll}{
     Package: \tab svGUI\cr
     Type: \tab Package\cr
-    Version: \tab 0.9-54\cr
-    Date: \tab 2013-01-27\cr
+    Version: \tab 0.9-55\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   % TODO: add description of main functions here. Also add examples

Modified: pkg/svIDE/DESCRIPTION
===================================================================
--- pkg/svIDE/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svIDE/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svIDE
 Type: Package
-Version: 0.9-50
-Date: 2010-09-25
+Version: 0.9-51
+Date: 2014-03-02
 Title: SciViews GUI API - IDE and code editor functions
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svIDE/NEWS
===================================================================
--- pkg/svIDE/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svIDE/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,10 @@
 = svIDE News
 
+== Changes in svIDE 0.9-51
+
+* Rework of the Author and Athours at R fields in the DESCRIPTION file.
+
+
 == Changes in svIDE 0.9-50
 
 * Addition of a pckage man page.

Modified: pkg/svIDE/man/svIDE-package.Rd
===================================================================
--- pkg/svIDE/man/svIDE-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svIDE/man/svIDE-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -11,8 +11,8 @@
   \tabular{ll}{
     Package: \tab svIDE\cr
     Type: \tab Package\cr
-    Version: \tab 0.9-50\cr
-    Date: \tab 2010-09-25\cr
+    Version: \tab 0.9-52\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   % TODO: add description of main functions here. Also add examples

Modified: pkg/svMisc/R/TempEnv.R
===================================================================
--- pkg/svMisc/R/TempEnv.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svMisc/R/TempEnv.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -3,7 +3,8 @@
     pos <-  match("SciViews:TempEnv", search())
     if (is.na(pos)) { # Must create it
         `SciViews:TempEnv` <- list()
-        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+        Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
         rm(`SciViews:TempEnv`)
         pos <- match("SciViews:TempEnv", search())
     }

Modified: pkg/svMisc/man/batch.Rd
===================================================================
--- pkg/svMisc/man/batch.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svMisc/man/batch.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -35,7 +35,7 @@
 fakeProc <- function (file) {
     message("Processing ", file, "...")
     flush.console()
-    Sys.sleep(1)
+    Sys.sleep(0.5)
     if (runif(1) > 0.7) { # Fails
         warning("fakeProc was unable to process ", file)
         return(invisible(FALSE))

Modified: pkg/svMisc/man/progress.Rd
===================================================================
--- pkg/svMisc/man/progress.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svMisc/man/progress.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -70,28 +70,28 @@
 ## 1) A simple progress indicator in percent
 for (i in 0:101) {
 	progress(i)
-	Sys.sleep(0.05)
+	Sys.sleep(0.01)
 	if (i == 101) cat("Done!\n")
 }
 
 ## 2) A progress indicator with 'x on y'
 for (i in 0:31) {
 	progress(i, 30)
-	Sys.sleep(0.2)
+	Sys.sleep(0.02)
 	if (i == 31) cat("Done!\n")
 }
 
 ## 3) A progress bar in percent
 for (i in 0:101) {
 	progress(i, progress.bar = TRUE)
-	Sys.sleep(0.05)
+	Sys.sleep(0.01)
 	if (i == 101) cat("Done!\n")
 }
 
 ## 4) A progress indicator with 'x on y'
 for (i in 0:21) {
 	progress(i, 20, progress.bar = TRUE)
-	Sys.sleep(0.2)
+	Sys.sleep(0.03)
 	if (i == 21) cat("Done!\n")
 }
 
@@ -144,7 +144,7 @@
     ## Test it...
     for (i in 0:101) {
     	progress(i) # Could also set console = FALSE for using the GUI only
-    	Sys.sleep(0.1)
+    	Sys.sleep(0.05)
     	## The code to stop long calc when user presses "Cancel"
     	if (existsTemp("guiProgressCancel")) {
     	    progress(101, console = FALSE) # Make sure to clean up everything

Modified: pkg/svSocket/DESCRIPTION
===================================================================
--- pkg/svSocket/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svSocket/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svSocket
 Type: Package
-Version: 0.9-55
-Date: 2013-01-28
+Version: 0.9-56
+Date: 2014-03-02
 Title: SciViews GUI API - R Socket Server
 Author: Philippe Grosjean [aut, cre],
   Matthew Dowle [ctb]

Modified: pkg/svSocket/NEWS
===================================================================
--- pkg/svSocket/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svSocket/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,10 @@
 = svSocket News
 
+== Changes in svSocket 0.9-56
+
+* Author and Authors at R fields reworked in the DESCRIPTION file.
+  
+
 == Changes in svSocket 0.9-55
 
 * evalServer now can pass objects that contain pointers as attributes (e.g.,

Modified: pkg/svSocket/R/startSocketServer.R
===================================================================
--- pkg/svSocket/R/startSocketServer.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svSocket/R/startSocketServer.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -71,7 +71,8 @@
 				pos <-  match("SciViews:TempEnv", search())
 				if (is.na(pos)) {  # Must create it
 					`SciViews:TempEnv` <- list()
-					attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+					Attach <- function (...) get("attach", mode = "function")(...)
+					Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
 					rm(`SciViews:TempEnv`)
 					pos <- match("SciViews:TempEnv", search())
 				}

Modified: pkg/svSocket/man/svSocket-package.Rd
===================================================================
--- pkg/svSocket/man/svSocket-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svSocket/man/svSocket-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -37,8 +37,8 @@
   \tabular{ll}{
     Package: \tab svSocket\cr
     Type: \tab Package\cr
-    Version: \tab 0.9-55\cr
-    Date: \tab 2013-01-28\cr
+    Version: \tab 0.9-56\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   % TODO: add description of main functions here. Also add examples

Modified: pkg/svUnit/DESCRIPTION
===================================================================
--- pkg/svUnit/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svUnit/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svUnit
 Type: Package
-Version: 0.7-11
-Date: 2013-01-27
+Version: 0.7-12
+Date: 2014-03-02
 Title: SciViews GUI API - Unit testing
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svUnit/NEWS
===================================================================
--- pkg/svUnit/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svUnit/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,10 @@
 = svUnit News
 
+== svUnit 0.7-12
+
+* Rework of Author field in DESCRIPTION file.
+
+
 == svUnit 0.7-11
 
 * Temporary objects are now saved in SciViews:TempEnv instead of TempEnv.

Modified: pkg/svUnit/R/svUnit-internal.R
===================================================================
--- pkg/svUnit/R/svUnit-internal.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svUnit/R/svUnit-internal.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -428,7 +428,8 @@
     pos <-  match("SciViews:TempEnv", search())
     if (is.na(pos)) { # Must create it
         `SciViews:TempEnv` <- list()
-        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+        Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
         rm(`SciViews:TempEnv`)
         pos <- match("SciViews:TempEnv", search())
     }

Modified: pkg/svUnit/man/svUnit-package.Rd
===================================================================
--- pkg/svUnit/man/svUnit-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svUnit/man/svUnit-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -16,8 +16,8 @@
   \tabular{ll}{
     Package: \tab svUnit\cr
     Type: \tab Package\cr
-    Version: \tab 0.7-11\cr
-    Date: \tab 2013-01-27\cr
+    Version: \tab 0.7-12\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
 

Modified: pkg/svWidgets/DESCRIPTION
===================================================================
--- pkg/svWidgets/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svWidgets/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: svWidgets
 Type: Package
 Version: 0.9-44
-Date: 2013-11-30
+Date: 2014-03-02
 Title: SciViews GUI API - Widgets & Windows
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/svWidgets/NEWS
===================================================================
--- pkg/svWidgets/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svWidgets/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -8,7 +8,9 @@
 * Idem for MenuXXX(), ToolsXXX() and WinXXX() functions that become menuXXX(),
   toolsXXX() and winXXX(), respectively.
 
+* Reworked Author fiel in the DESCRIPTION file.
 
+
 == Changes in svWidgets 0.9-43
 
 * Temporary objects are now stored in SciViews:TempEnv instead of TempEnv, and

Modified: pkg/svWidgets/man/svWidgets-package.Rd
===================================================================
--- pkg/svWidgets/man/svWidgets-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/svWidgets/man/svWidgets-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -12,7 +12,7 @@
     Package: \tab svWidgets\cr
     Type: \tab Package\cr
     Version: \tab 0.9-44\cr
-    Date: \tab 2013-11-30\cr
+    Date: \tab 2014-03-02\cr
     License: \tab GPL 2 or above, at your convenience\cr
   }
   % TODO: add description of main functions here. Also add examples

Modified: pkg/tcltk2/DESCRIPTION
===================================================================
--- pkg/tcltk2/DESCRIPTION	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/tcltk2/DESCRIPTION	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,7 +1,7 @@
 Package: tcltk2
 Type: Package
-Version: 1.2-9
-Date: 2013-12-11
+Version: 1.2-10
+Date: 2014-03-02
 Title: Tcl/Tk Additions
 Author: Philippe Grosjean [aut, cre]
 Authors at R: c(person("Philippe", "Grosjean", role = c("aut", "cre"),

Modified: pkg/tcltk2/NEWS
===================================================================
--- pkg/tcltk2/NEWS	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/tcltk2/NEWS	2014-03-02 10:05:51 UTC (rev 550)
@@ -1,5 +1,10 @@
 = tcltk2 news
 
+== Version 1.2-10
+
+* Reworked Author field in the DESCRIPTION file.
+
+
 == Version 1.2-9
 
 * New theme handling introduced in version 1.2-8 resulted in an invisible caret

Modified: pkg/tcltk2/R/tcltk2-Internal.R
===================================================================
--- pkg/tcltk2/R/tcltk2-Internal.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/tcltk2/R/tcltk2-Internal.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -278,7 +278,8 @@
     pos <-  match("SciViews:TempEnv", search())
     if (is.na(pos)) {  # Must create it
         `SciViews:TempEnv` <- list()
-        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+        Attach <- function (...) get("attach", mode = "function")(...)
+        Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
         rm(`SciViews:TempEnv`)
         pos <- match("SciViews:TempEnv", search())
     }

Modified: pkg/tcltk2/R/tk2fonts.R
===================================================================
--- pkg/tcltk2/R/tk2fonts.R	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/tcltk2/R/tk2fonts.R	2014-03-02 10:05:51 UTC (rev 550)
@@ -126,7 +126,8 @@
 	    pos <-  match("SciViews:TempEnv", search())
 	    if (is.na(pos)) { # Must create it
 	        `SciViews:TempEnv` <- list()
-	        attach(`SciViews:TempEnv`, pos = length(search()) - 1)
+	        Attach <- function (...) get("attach", mode = "function")(...)
+			Attach(`SciViews:TempEnv`, pos = length(search()) - 1)
 	        rm(`SciViews:TempEnv`)
 	        pos <- match("SciViews:TempEnv", search())
 	    }

Modified: pkg/tcltk2/man/tcltk2-package.Rd
===================================================================
--- pkg/tcltk2/man/tcltk2-package.Rd	2014-03-02 08:46:50 UTC (rev 549)
+++ pkg/tcltk2/man/tcltk2-package.Rd	2014-03-02 10:05:51 UTC (rev 550)
@@ -16,8 +16,8 @@
 \tabular{ll}{
 Package: \tab tcltk2\cr
 Type: \tab Package\cr
-Version: \tab 1.2-9\cr
-Date: \tab 2013-12-11\cr
+Version: \tab 1.2-10\cr
+Date: \tab 2014-03-02\cr
 License: \tab LGPL-3 plus see LICENSE file\cr
 LazyLoad: \tab yes\cr
 }



More information about the Sciviews-commits mailing list