![\"Click](\"http://scripting.com/images/xmlIcon2.gif\")
"); indentlevel++ addlevel (adrline) add (""); indentlevel-- addlevel (adrslide) file.writetextfile (folder + getfname (slidenum, ".txt"), htmltext) radio.thread.wake () msg ("") bundle //test code build (true) q ` Arial ?' V [7aLAND win Changes 5/30/02; 1:03:11 PM by DW Runs on the user's machine, when refreshing. local (adrtable = @system.temp.radioPointSnapshot) radioPointInfo = adrtable^.info radioPointSuite = adrtable^.suite radioPointWebsite = adrtable^.website filemenu.savemyroot (@radioPointSuite) local (x = string.parseAddress (@radioPointSuite), f = x [1]) frontier.tools.install (f) dialog.notify ("Thanks for updating.") q s B Arial ?Ә H 4LAND win 5/30/02; 1:03:20 PM by DW This is the Refresh menu command. local (url = "http://radio.weblogs.com/0001015/userland/publicTools/radioPoint/codeFreshener.fttb") local (urllist = string.urlsplit (url)) local (s = tcp.httpclient (server:urllist [2], path:urllist [3])) local (f = frontier.pathstring + "codeFreshener.fttb") file.writewholefile (f, s) fatpages.importfatfile (f) thread.callscript (@system.temp.radioPointSnapshot.loader, {}) s Arial = ( K ANLAND win Changes 5/30/02; 1:01:40 PM by DW Created. radioPointInfo.releaseDate = clock.now () local (adrtable = @system.temp.radioPointSnapshot) new (tabletype, adrtable) adrtable^.info = radioPointInfo adrtable^.suite = radioPointSuite adrtable^.website = radioPointWebsite adrtable^.loader = radioPointSuite.codeFreshener.loadNewCode local (f = "C:\\Program Files\\Radio UserLand\\www\\userland\\publicTools\\radioPoint\\codeFreshener.fttb") file.surefilepath (f) export.sendobject (adrtable, f) f = "C:\\Program Files\\Radio UserLand\\www\\userland\\publicTools\\radioPoint\\radioPoint.root" target.set (this) fileMenu.saveCopy (f) radio.thread.wake () dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f))) } . R?RG $ 0 ? loadNewCode refreshCode NreleaseNewCode VArial 3x1 ] ( Arial wv ] LAND win
<%bodytext%>
<%xmlIcon%> |
")
return ("")
bundle //test code
dialog.alert (getXmlIcon ("blah.opml"))
O Arial
wdڻ < wLAND win if not defined (user.radioPoint)
new (tabletype, @user.radioPoint)
bundle //prefs
if not defined (user.radioPoint.prefs)
new (tabletype, @user.radioPoint.prefs)
if not defined (user.radioPoint.prefs.flXmlIcon)
user.radioPoint.prefs.flXmlIcon = true
if not defined (user.radioPoint.prefs.htmlFolder)
user.radioPoint.prefs.htmlFolder = user.radio.prefs.wwwfolder + "slides" + file.getpathchar ()
if not file.exists (user.radioPoint.prefs.htmlFolder)
file.newfolder (user.radioPoint.prefs.htmlFolder)
if not defined (user.radioPoint.prefs.outlineFolder)
user.radioPoint.prefs.outlineFolder = user.radioPoint.prefs.htmlFolder + "outlines" + file.getpathchar ()
if not file.exists (user.radioPoint.prefs.outlineFolder)
file.newfolder (user.radioPoint.prefs.outlineFolder)
bundle //make sure #prefs.txt with #flRender false exists in the outline folder
local (prefsFile = user.radioPoint.prefs.outlineFolder + "#prefs.txt")
if not file.exists (prefsFile)
file.sureFilePath (prefsFile)
file.writeTextFile (prefsFile, "#flRender false")
bundle //make sure the template exists
local (f = user.radioPoint.prefs.htmlFolder + "#template.txt")
if not file.exists (f)
file.surefilepath (f)
file.writetextfile (f, string (radioPointSuite.data.virginTemplate))
Arial
hy1L v ?sLAND win on main ()
local (pta = html.getpagetableaddress ())
local (adrdata = radioPointSuite.init ())
pta^.title = radioPointInfo.name
local (htmltext = "\r", indentlevel = 0)
on add (s)
htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r\n"
add ("The RadioPoint Tool turns the built-in outliner into a presentation authoring program. When you choose the Build Presentation command from the RadioPoint tool menu, the pages are rendered in the HTML rendering folder, below. A copy of the outline is placed in the outline folder, and linked into the white-on-orange XML button. The complete docs for the RadioPoint tool are here.
") if pta^.method == "POST" local (args = pta^.radioresponder.postargs) user.radioPoint.prefs.flXmlIcon = defined (args.xmliconenabled) user.radioPoint.prefs.htmlFolder = args.htmlFolder user.radioPoint.prefs.outlineFolder = args.outlineFolder scratchpad.postargs = pta^.radioresponder.postargs; edit (@scratchpad.postargs) add (""); indentlevel-- return (htmltext) bundle //test code html.setpagetableaddress (@scratchpad.params) webbrowser.displaytext (main ()) 2 Arial ka _'-LAND win radioPointSuite.menuCommands.buildPresentation () - Arial T ̗̟ J&LAND win radioPointSuite.menuCommands.editTemplate () 0 Arial T 00 J&LAND win radioPointSuite.menuCommands.viewPreferences () - Arial T Ҳ J&LAND win radioPointSuite.codeFreshener.refreshCode () 2 Arial T 00 J&LAND win radioPointSuite.menuCommands.viewDocumentation () P h p Arial kaұ _'-LAND win RadioPoint Build Presentation.. - Edit Template.. View Preferences.. - Refresh Code.. - Documentation.. @" @ A BO C P p C j6 Arial p p A Arial Pz }`sLAND win on buildPresentation () local (title = window.gettitle (window.frontmost ())) if dialog.confirm ("Generate a presentation from \"" + title + "\"?") radioPointSuite.build () A H Arial ̯ G MLAND win Changes 5/30/02; 7:43:33 PM by DW Added special code for Mac OS users, per Sam DeVore's recommendation. radioPointSuite.init () local (adreditor = @user.radio.prefs.editors.["text/plain"]) local (f = user.radioPoint.prefs.htmlFolder + "#template.txt") launch.appWithDocument (adreditor^, f) if system.environment.isMac local (appID = file.creator (adreditor^)) if sys.appIsRunning (appID) required.openDocument (appID, f) sys.bringAppToFront (appID) ' Arial M A VLAND win radioPointSuite.build (flpreview:true) A Arial 0 0w LAND win webbrowser.openurl ("http://radio.outliners.com/radioPointTool") 9 Arial J LAND win webbrowser.openurl ("http://127.0.0.1:5335/radioPoint/") B [̯ + 7 K W i u buildPresentation E editTemplate FpreviewPresentation I~viewDocumentation J/viewPreferences J ' Arial d d omLAND win new (tabletype, @radioPointData.prefs) Arial ka0 _LAND win return ("I'm a cool Tool!") w ~ kaҕ , 1 = S _ j v { build codeFreshener data * getRenderingSubfolder *U getXmlIcon -init 0 main 6$menu E menuCommands KshipIt LstatusCenterMessage MU VArial X Hx( t Arial F F 2LAND win on finalFilter (pta) pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "