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

Sat Jan 7 22:38:46 UTC 2012

Revision: 4142
          http://rkward.svn.sourceforge.net/rkward/?rev=4142&view=rev
Author:   m-eik
Date:     2012-01-07 22:38:45 +0000 (Sat, 07 Jan 2012)
Log Message:
-----------
added "Got to top" link to HTML output

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/rk.filename-functions.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================

--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2012-01-07 21:45:42 UTC (rev 4141)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2012-01-07 22:38:45 UTC (rev 4142)
@@ -358,6 +358,7 @@
 }
 
 ".rk.make.hr" <- function () {
+	.rk.cat.output ("<a href=\"#top\">Go to top</a>\n");
 	.rk.cat.output ("<hr>\n");
 }
 

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/rk.filename-functions.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/rk.filename-functions.R	2012-01-07 21:45:42 UTC (rev 4141)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/rk.filename-functions.R	2012-01-07 22:38:45 UTC (rev 4142)
@@ -90,9 +90,9 @@
 		}\n\t</script>\n", sep=""))
 		.rk.cat.output (paste ("</head>\n<body>\n", sep=""))
 		# This initial output mostly to indicate the output is really there, just empty for now
-		.rk.cat.output (paste ("<pre>RKWard output initialized on", date (), "</pre>\n"))
+		.rk.cat.output (paste ("<a name=\"top\"></a>\n<pre>RKWard output initialized on", date (), "</pre>\n"))
 		# an empty <div> where the menu gets added to dynamically
-		.rk.cat.output (paste ("<div id=\"RKWardResultsMenu\"><!-- the menu goes here --></div>", sep=""))
+		.rk.cat.output (paste ("<div id=\"RKWardResultsMenu\"><!-- the menu goes here --></div>\n", sep=""))
 	}
 
 	# needs to come after initialization, so initialization alone does not trigger an update during startup

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



