[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/macros imageTag,NONE,1.1 frontierLink,NONE,1.1 glossarypatcher,NONE,1.1 gifRef,NONE,1.1 spacelines,NONE,1.1 globalGifRef,NONE,1.1 amazonISBN,NONE,1.1 daveNetLink,NONE,1.1 randomFortune,NONE,1.1 renderScript,NONE,1.1 figure,NONE,1.1 storyList,NONE,1.1 relGifRef,NONE,1.1 circumference,NONE,1.1

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

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

Added Files:
	imageTag frontierLink glossarypatcher gifRef spacelines 
	globalGifRef amazonISBN daveNetLink randomFortune renderScript 
	figure storyList relGifRef circumference 
Log Message:
user table leftovers, some of the objects will probably need a new home, and should be set at first root run and/or startup

--- NEW FILE: circumference ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.macros.circumference

on circumference(diameter)
	if {real, integer} contains class of diameter then
		return (diameter * 3.14159)
	end if
end circumference
--- NEW FILE: figure ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: daveNetLink ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: randomFortune ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.macros.randomFortune

local (s);
target.set (@scratchpad.fortunes);
op.firstsummit ();
op.go (down, random (0, 4));
s = op.getlinetext ();
target.clear ();
return (s)
--- NEW FILE: glossarypatcher ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: storyList ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: renderScript ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: imageTag ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.macros.imageTag

on imageTag (gifname, alt = gifname, hspace = "", align = "", usemap = "", height = -1, width = -1) {
	return (bbSite.tools.imageTag (gifname, alt, hspace, align, usemap, height, width))}
--- NEW FILE: globalGifRef ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: spacelines ---
FrontierVcsFile:1:scpt:system.verbs.builtins.Frontier.data.userTableLeftovers.html.macros.spacelines

on spacelines (ctlines) {
	local (s = "", i);
	for i = 1 to ctlines {
		s = s + "<br>"};
	return (s)}
--- NEW FILE: amazonISBN ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: frontierLink ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: relGifRef ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: gifRef ---
(This appears to be a binary file; contents omitted.)