[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros platformLink,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19463

Modified Files:
	platformLink 
Log Message:
comment test code bundle

Index: platformLink
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/standardMacros/platformLink,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** platformLink	26 Mar 2005 19:43:04 -0000	1.1.1.1
--- platformLink	13 Jun 2005 21:38:09 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.data.standardMacros.platformLink
  
! on platformLink (includeVersion=false) {
	ÇGenerates a link to the operating system that a web page was built on.
		ÇNew: 10/29/97 at 2:57:06 PM by DW.
	local (url);
	case sys.os () {
		"Win95" {
			url = "http://www.microsoft.com/windows95/"};
		"WinNT" {
			url = "http://www.microsoft.com/ntworkstation/"};
		"MacOS" {
			url = "http://macos.apple.com/"}};
	
	local (s = "<a href=\"" + url + "\">" + sys.osName ()+ "</a>");
	if includeVersion {
		s = s + " v" + sys.osVersion ()};
	return (s)};
bundle { //test code
	dialog.alert (platformLink ())}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.data.standardMacros.platformLink
  
! on platformLink (includeVersion=false) {
	ÇGenerates a link to the operating system that a web page was built on.
		ÇNew: 10/29/97 at 2:57:06 PM by DW.
	local (url);
	case sys.os () {
		"Win95" {
			url = "http://www.microsoft.com/windows95/"};
		"WinNT" {
			url = "http://www.microsoft.com/ntworkstation/"};
		"MacOS" {
			url = "http://macos.apple.com/"}};
	
	local (s = "<a href=\"" + url + "\">" + sys.osName ()+ "</a>");
	if includeVersion {
		s = s + " v" + sys.osVersion ()};
	return (s)};
Çbundle //test code
	Çdialog.alert (platformLink ())
\ No newline at end of file