1a2,3
> library(tcltk)
> rWISHPROG <- "wish83"
16c18
<   if(!missing(info)) return("rrevive-Funktionen, pw200211012000")
---
>   if(!missing(info)) return("rrevive-Funktionen, pw200211012000/14112000")
34c36,38
< .First.lib<-function(rr.pfad,name){
---
> # .First.lib<-function(rr.pfad,name)
> rREADME<-function()
> {
44,45c48,53
<   cat("   ist die Funktion  rtcl  zu starten. Eingabe:  \n")
<   cat("\n     rtcl() \n                                 \n")
---
>   cat("   ist die Funktion  rtcl  zu starten. \n")
>   cat("Eingabe:   rtcl() \n")
>   cat("ACHTUNG: rtcl setzt die Existenz von Tcl/Tk voraus!\n")
>   cat("         auf rWISHPROG muss die vorhandene Wish stehen!\n")
>   cat("         aktuelle Setzung: \"wish83\",  siehe auch:\n")
>   cat("         http://www.scriptics.com/products/tcltk\n\n")
51a60,61
>   print( rversion("info") )
>   return()
1240c1250,1251
<         ,"R-win"  ="..\\bin\\rrtcl\\bin\\wish80"
---
>       #  ,"R-win"  ="..\\bin\\rrtcl\\bin\\wish80"
>         ,"R-win"  = rWISHPROG
1517a1529
> rREADME()