d X FFFF000000060001001777AA00000000006C000000001001710000001-7FFF6FBE18000004800480611200-106060611222FFFF01037000010000003100000001048840611222028E00061116E000020000004D00000000 48,Renders any frontmost Radio outline or script using user.html.renderers.0004000000090000000204A00005000000090000000204A0000600000031000000010920FFFF0900000
30 0007000000190000000102018000080000009A00000001 40,Verdana 40, 401C230 100009000000150000000239C17D39C17D000A0000001500000002611222611222000B00000005000000020000C0000001600000001481022101682000F0000005200000000400 10 4,77A 4,C 4,C 4, 4,C 4,C 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA 3¸{x H 3x A & " V 3v " 5
A M Y author Andy Fragen authorEmail afragen@mac.com description homePageUrl :http://radio.weblogs.com/0001017/publicTools/printOutline/name
Print Outline releaseDateversion 3.1 & 3tR Verdana 3uv ' LAND mac This script runs every hour.
Verdana 3u3u ' LAND mac This script runs every minute.
Verdana 3uM ! ' LAND mac This script runs every night.
{ w . 3u3u
" .
9 everyHour p everyMinute p Z
everyNight p { c Verdana *>V7 '}LAND mac on brOutline (adrOutline)
return (html.getOutlineHtml (adroutline, "", "", "
", "
", true))
` Geneva
/ LAND mac on buildRendererListMenu ()
local
localMenu = printOutlineSuite.initialMenus.virginRendererListMenu
oldTarget = target.get ()
target.set (@localMenu)
on addMenuCommand (command, script)
menu.addMenuCommand (@localMenu, "Renderers", command, script)
local (adrRenderer, rendererName)
for adrRenderer in @user.html.renderers
rendererName = nameOf (adrRenderer^)
addMenuCommand (rendererName, "printOutlineSuite.renderOutline ([nameOf(this)])")
addMenuCommand (rendererName, "printOutlineSuite.render ([nameOf(this)])")
menu.addSubMenu (@printOutlineSuite.menu, "PrintOutline", @localMenu)
try {target.set (oldTarget)}
bundle//test code
buildRendererListMenu ()
3u Verdana 3L U @ LAND mac printOutlineSuite.init ()
6 2 3uz>
startup P
6 R N $ 3u3u
fileMenu p
user p R Verdana '?LAND mac Changes
Created from installCodeFreshener script by AJF on 10/10/2004; 1:56:03 PM.
9/26/02; 12:23:22 AM by AJF
Add new tool tables.
1/15/02; 5:21:20 PM by DW
Runs on the user's machine, when refreshing.
local (adrtable = @system.temp.printOutlineSnapshot)
printOutlineData = adrtable^.data
printOutlineInfo = adrtable^.info
printOutlineNodeTypes = adrtable^.nodetypes
printOutlineSuite = adrtable^.suite
printOutlineThread = adrtable^.thread
printOutlineWebsite = adrtable^.website
filemenu.savemyroot (@printOutlineSuite)
local (x=string.parseAddress (@printOutlineSuite), f = x[1])
frontier.tools.install (f)
dialog.notify ("Thanks for updating to version " + printOutlineInfo.version + " of printOutline.root Tool!")
N Verdana '?LAND mac Changes
Created from installCodeFreshener script by AJF on 10/10/2004; 1:56:04 PM.
1/15/02; 5:18:06 PM by DW
This is the Refresh menu command.
local (url = "http://radio.weblogs.com/0001017/publicTools/printOutline/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.printOutlineSnapshot.loader, {})
u Verdana '?LAND mac if dialog.confirm ("Get the newest code for printOutline.root Tool?")
printOutlineSuite.codeFreshener.refreshCode()
_ " Verdana $ $ '?LAND mac Changes
Created from installCodeFreshener script by AJF on 10/10/2004; 1:56:06 PM.
1/15/02; 5:08:55 PM by DW
Created. I run this on my machine to create a package for refreshCode to load.
Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it.
local (oldprintOutlineData)
bundle //get printOutlineData ready for ship
oldprintOutlineData = printOutlineData
new (tabletype, @printOutlineData)
printOutlineThread.enabled = true
printOutlineThread.ct = 0
printOutlineInfo.releaseDate = clock.now()
local (adrtable = @system.temp.printOutlineSnapshot)
new (tabletype, adrtable)
adrtable^.data = printOutlineData
adrtable^.info = printOutlineInfo
adrtable^.nodetypes = printOutlineNodeTypes
adrtable^.suite = printOutlineSuite
adrtable^.thread = printOutlineThread
adrtable^.website = printOutlineWebsite
adrtable^.loader = printOutlineSuite.codeFreshener.loadNewCode
local (f = radio.file.getSubFolder ("publicTools/printOutline") + "codeFreshener.fttb")
file.surefilepath (f)
export.sendobject (adrtable, f)
f = radio.file.getSubFolder ("publicTools/printOutline") + "printOutline.root"
target.set (this)
fileMenu.saveCopy (f)
printOutlineData = oldprintOutlineData
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
_ 8
$ 0
@ L
[ loadNewCode p refreshCode p refreshCodeMenu p releaseNewCode p @ Verdana 4` %5LAND mac #title "Print Outline Tool"
#renderOutlineWith "printOutlineSuite.brOutline"
Latest release date
11/9/02; 9:57:50 PM by AJF
Rewrote most of the code to utilize Radio's builtin scripts. I did have to fix the scripts first. I'm taking out the multiple templates rendering. It should be simple enough to just render it twice.
2/1/02; 12:14:26 AM by AJF
Added some initialization code to prevent errors from delete prefs and found better command to reload only this tool for menu rebuilding. Moved some stuff out of the data table.
1/28/02; 10:18:42 PM by AJF
Added DW's codeFreshener and changed a few things around.
12/19/01; 10:59:31 PM by AJF
Fixed stupid error with Extra Templates.
12/5/01; 3:09:43 PM by AJF
Updated with new Tool data
Tue, Dec 12, 2000 at 10:49:39 AM by AJF
Changed Extra Template rendering to menu selection
Fri, Nov 17, 2000 at 11:23:39 AM by AJF
Modified - Sun, Oct 22, 2000 at 11:09:08 AM by AJF
Extra templates need to be placed in user.html.templates
Rendered html will be saved at printOutlineWebsite.renderedHTML so you can do with it as you will.
Modified as a Tool on Wed, Oct 4, 2000 at 8:08:57 AM by AJF
Created by Andy Fragen on Thu, Sep 14, 2000 at 8:46:59 AM.
version: <%printOutlineInfo.version%>
This tool is meant to be used from within the Radio application.
Use it to convert any outline or script to HTML so that it can be shared or printed.
This tool provides for a quick and convenient way to render and therefore print any outline. It utilizes the renderers listed in the user.html.renderers table and rebuilds the submenu at every startup or on command from the PrintOutline menu. It also makes use of the pikeRenderer so XML and OPML files can use rules to be rendered. Also see Andy Sylvester's Rules in Radio UserLand. If you want an exact representation of what is in your outline or script then use the sampleScriptRenderer.
There is an option for Default Renderer. If your outline has <rules> then the pikeRenderer is used, otherwise it is rendered as an unordered list. This is the same as using Radio > File > View in Browser.
What happens is the frontmost outline is copied to a temporary odb item and then rendered using your choice of renderer. It is then opened in your web browser to be printed.
There will be html files created on your drive in the "View in Browser" folder that is in the same folder as your application.
If you are getting errors when using this then you may have to fix 2 of the scripts in the Radio.root. Instructions are as follows. BTW, these changes should also make your Radio > File > Save As HTML and Radio > File > View in Browser work correctly.
Frontier.tools.windowTypes.commands.saveAsHtml
Add following to beginning of script.
local (pta = html.setPageTableAddress(@websites.["#data"]))
Frontier.tools.data.windowTypes.outlinerFile.saveAsHtml
Change:
if string (adrOutline) contains "<rules>" \//rules?
To:
if string (adrOutline^) contains "<rules>" \//rules?
Further instructions about fixing the "View in Browser" and "Save As HTML" commands can be found here. It is necessary to make these changes if the Print Outline tool is not working. Hopefully these changes have already made it into the Radio.root via updates. ";->"
< l X Verdana 3M g qy?LAND mac bundle //make sure prefs exist
if not defined (printOutlineData.prefs)
new (tabletype, @printOutlineData.prefs)
if not defined (printOutlineData.prefs.showPage)
printOutlineData.prefs.showPage = true
if not defined (printOutlineData.prefs.rendeExtraTemplates)
printOutlineData.prefs.renderExtraTemplates = false
if not defined (printOutlineData.extraTemplates)
new (listtype, @printOutlineData.extraTemplates)
printOutlineData.extraTemplates = {"bbedit", "normal"}
bundle //create menus
if not defined (printOutlineSuite.menu)
new (menubarType, @printOutlineSuite.menu)
printOutlineSuite.menu = printOutlineSuite.initialMenus.virginMenu
menu.deleteSubMenu (@printOutlineSuite.menu, "Renderers") //clear renderers
printOutlineSuite.buildRendererListMenu ()
printOutlineSuite.reInstallTool ()
filemenu.savemyroot (this) //save this root
< Verdana T ' LAND mac printOutlineSuite.render ()
Verdana T ClC} ' LAND mac printOutlineSuite.init ()
& 1 Verdana {u_A 9 ' LAND mac PrintOutline
Default Renderer
Reload Renderers
1
2 p 36 6d Verdana S p
Lucida Grande 瞼 t &?LAND mac Renderers
p 4 5$ Geneva
t p b $ oC
.
virginMenu p 4virginRendererListMenu p 5+ VVerdana 2 f Z Verdana '?LAND mac if dialog.confirm ("Get the newest code?"){printOutlineSuite.codeFreshener.refreshCode()}
Verdana T ' LAND mac printOutlineSuite.render ()
Verdana BCW ' LAND mac printOutlineSuite.init ()
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
* Geneva
~~ '?LAND mac printOutlineSuite.render ([nameOf(this)])
> Verdana {u_~ 1 ' LAND mac PrintOutline
Refresh Code...
Default Renderer
Reload Renderers
Renderers
bqOutliner
brOutline
bsoRenderer
cadillac
davenetoutline
dlOutline
docServerSite
dtddOutline
fatHeadlines
ideaListRenderer
justText
newCulture
newSiteOutliner
notespagerenderer
pikeRenderer
preRenderer
prettyOutline
ptaTableOutliner
sampleHomeRenderer
sampleScriptRenderer
siteOutliner
sjvOutline
tableOutliner
testRenderer
twoLevelOutline
ulOutliner
6o
7S
7
8
9Q
:
:
;m
=
>
?
@Y
A
A
Bu
C)
C
D
EE
E
F
Ga
H
H
I}
J1 > p J 6d Verdana U&Y p * & Verdana u1 LAND mac bundle//delete renderedHTML files
try {delete (@printOutlineWebsite.renderedHTML)}
for i = 1 to 10
local (renderedHTML = "renderedHTML")
try{delete (@printOutlineWebsite.[renderedHTML+i])}
bundle//empty printOutlineWebsite.#glossary
table.emptyTable (@printOutlineWebsite.["#glossary"])
B = Geneva
r & mLAND mac on escapeRules ()
local (adrItem, adrRule, adrOpenClose, s)
for adrItem in @printOutlineSuite.ruleTags
adrRule = adrItem^
for adrOpenClose in @adrRule
s = adrOpenClose^
user.prefs.search.searchFor = "<" + s
user.prefs.search.replaceWith = "<" + s
search.replaceAll()
bundle //test
escapeRules ()
A
Verdana 4`7 d uLAND mac #title "Print Outline Tool"
#renderOutlineWith "brOutline"
Latest release date
2/1/02; 12:14:26 AM by AJF
Added some initialization code to prevent errors from delete prefs and found better command to reload only this tool for menu rebuilding. Moved some stuff out of the data table.
1/28/02; 10:18:42 PM by AJF
Added DW's codeFreshener and changed a few things around.
12/19/01; 10:59:31 PM by AJF
Fixed stupid error with Extra Templates.
12/5/01; 3:09:43 PM by AJF
Updated with new Tool data
Tue, Dec 12, 2000 at 10:49:39 AM by AJF
Changed Extra Template rendering to menu selection
Fri, Nov 17, 2000 at 11:23:39 AM by AJF
Modified - Sun, Oct 22, 2000 at 11:09:08 AM by AJF
Extra templates need to be placed in user.html.templates
Rendered html will be saved at printOutlineWebsite.renderedHTML so you can do with it as you will.
Modified as a Tool on Wed, Oct 4, 2000 at 8:08:57 AM by AJF
Created by Andy Fragen on Thu, Sep 14, 2000 at 8:46:59 AM.
version: <%printOutlineInfo.version%>
This tool is meant to be used from within the Radio application.
Use it to convert any outline or script to HTML so that it can be shared or printed.
This tool provides for a quick and convenient way to render and therefore print any outline. It utilizes the renderers listed in the user.html.renderers table and rebuilds the submenu at every startup. It also makes use of the pikeRenderer so XML and OPML files can use rules to be rendered. Also see Andy Sylvester's Rules in Radio UserLand. If you want an exact representation of what is in your outline or script then use the sampleScriptRenderer.
What happens is the frontmost outline is copied to a temporary odb item and then rendered using your choice of renderer. It is then opened in your web browser to be printed.
There will be html files created on your drive in the Websites folder that is in the same folder as your application.
Multiple templates
Additional templates must be stored at user.html.templates
The names of the extra templates that you wish to render must be added to the list at printOutlineData.extraTemplates
Rendered html will be saved at printOutlineWebsite.renderedHTML so you can do with it as you will. It will also be placed in the clipboard. But it will be deleted at startup.
Download Print Outline (.root)
A > Arial
B B }?jLAND mac on menuCheckText (s, pref)
if pref
s = "!" + s
return (s)
u l Verdana o?BC @ WLAND mac bundle //make sure prefs exist
if not defined (printOutlineData.prefs)
new (tabletype, @printOutlineData.prefs)
if not defined (printOutlineData.prefs.showPage)
printOutlineData.prefs.showPage = true
if not defined (printOutlineData.prefs.rendeExtraTemplates)
printOutlineData.prefs.renderExtraTemplates = false
if not defined (printOutlineData.extraTemplates)
new (listtype, @printOutlineData.extraTemplates)
printOutlineData.extraTemplates = {"bbedit", "normal"}
bundle //make sure menu exists
if not defined (printOutlineSuite.menu)
new (menubarType, @printOutlineSuite.menu)
printOutlineSuite.menu = printOutlineSuite.initialMenus.virginMenu
bundle //install brOutline renderer
table.copy (@printOutlineSuite.commands.brOutline, @user.html.renderers)
bundle //install saveAsHtml
table.copy (@Frontier.tools.data.windowTypes.outlinerFile.saveAsHtml, @printOutlineWindowTypes.outlinerFile)
u * Geneva
Qb+ ) ' LAND mac Setting html.data.flPreview true alerts the website framework that this is a page preview.
html.data.flPreview = true //set the preview flag
printOutlineSuite.releaseRenderedPage2 () //build the page
try {delete (@html.data.flPreview)} //delete the preview flag
7 Geneva
$'P H + ]LAND mac on releaseRenderedPage2 (adrObject = table.getCursorAddress ())
Changes notes:
Allow binary items in any table -- images, for example -- to be published.
Tue, Aug 11, 1998 at 8:50:23 PM by PBS
local (flShiftKey = kb.shiftKey ()) //sample it before we build the page
local (s, adrPageTable = @websites.["#data"], url)
local (flDisplayEachRendering = false)
bundle //Don't publish certain objects as pages. PBS 5/3/98
on noPageError ()
dialog.alert ("Can't publish \"" + nameOf (adrObject^) + "\" because it's not a page.")
on checkParent (adr)
Check if this object is enclosed by a table whose name begins with #
If so, this isn't a page, but a tool, glossary item, filter, or ftpSite element.
local (nomad = adr)
loop
if nomad == nil or nomad == @root
break
if nameOf (nomad^) beginsWith "#"
return (false)
nomad = parentOf (nomad^)
return (true)
if typeOf (adrObject^) != binaryType
case true
adrObject == nil //no page is selected
typeOf (adrObject^) == unknownType //it's an object with no type or content
checkParent (adrObject) == false //it's a #template or #prefs table, etc.
noPageError ()
return (false)
on buildPage (templateName=nil)
local (flDisplay = true)
Call file writer startup script.
Tuesday, April 14, 1998 at 3:41:48 PM by PBS
html.callFileWriterStartup (adrObject, adrPageTable, templateName)
Build the page.
s = html.buildObject (adrObject, adrPageTable, templateName)
Write the page to disk (or upload via ftp, etc.)
html.ftpText (s, adrPageTable)
Call file writer shutdown script.
html.callFileWriterShutdown (adrObject, adrPageTable, templateName)
Should this page be displayed in the browser?
if templateName != nil
if not flDisplayEachRendering
flDisplay = false
Added for printOutline
bundle //Create wpObject with rendered html
local (templateList = html.getExtraTemplates (adrObject))
if !templateList
wp.newTextObject (s, @printOutlineWebsite.renderedHTML)
frontier.bringToFront ()
clipboard.putValue (s)
bundle //Show in browser.
if printOutlineData.prefs.showPage
if flDisplay
if (string.lower (adrPageTable^.fileWriter) == "file") and (not flShiftKey)
webBrowser.openDocument (adrPageTable^.f)
else
webBrowser.openURL (adrPageTable^.url)
if user.webBrowser.bringToFrontOnPreview
webBrowser.bringToFront ()
bundle //are there additional templates that should be used?
local (templateList = html.getExtraTemplates (adrObject))
if templateList
Get the displayEachRendering pref.
flDisplayEachRendering = html.getPagePref ("displayEachRendering", parentOf (adrObject^), adrPageTable)
Loop through list of templates.
local (i)
Stuff added for printOutline
for i = 1 to sizeOf (templateList)
buildPage (templateList [i])
local (renderedHTML = "renderedHTML")
wp.newTextObject (s, @printOutlineWebsite.[renderedHTML+i])
frontier.bringToFront ()
clipboard.putValue (s)
buildPage () //build page with default template last
return (true)
m Geneva
=q} d U ULAND mac on renderOutline (renderer)
op.fullCollapse ()
editMenu.selectAll ()
editMenu.copy ()
local
s = clipboard.getValue ('TEXT')
adrObject = @printOutlineWebsite
printMe = "printMe", i
if !printOutlineData.prefs.renderExtraTemplates
printOutlineWebsite.["#extraTemplates"] = ""
printOutlineWebsite.["#extraTemplates"] = list (printOutlineWebsite.["#extraTemplates"])
printOutlineData.prefs.showPage = true
op.newOutlineObject (s, @printOutlineWebsite.[printMe+i])
else
printOutlineWebsite.["#extraTemplates"] = printOutlineData.extraTemplates
printOutlineWebsite.["#extraTemplates"] = list (printOutlineWebsite.["#extraTemplates"])
printOutlineData.prefs.showPage = false
local (templateList = html.getExtraTemplates (adrObject))
if templateList != nil
for i = 1 to sizeOf (templateList)
op.newOutlineObject (s, @printOutlineWebsite.[printMe+i])
target.set (@printOutlineWebsite.[printMe+i])
op.insert ("#title " + "\""+ renderer + "\"", up)
op.insert ("#renderOutlineWith " + "\""+ renderer + "\"", up)
op.insert ("#template \"bbedit\"", up)
if renderer != "pikeRenderer"
try //Escape curly braces for rendering
user.prefs.search.searchFor = "{"
user.prefs.search.replaceWith = "\\{"
search.replaceAll ()
printOutlineSuite.escapeRules ()
else
op.insert ("#pikeRendererDriver \"html\"", down)
edit (@printOutlineWebsite.[printMe+i])
printOutlineSuite.previewPage2 ()
if templateList != nil
for i = 1 to sizeOf (templateList)
delete (@printOutlineWebsite.[printMe+i])
else {delete (@printOutlineWebsite.printMe)}
bundle //test
renderOutline ("cadillac")
renderOutline ("pikeRenderer")
T $ g close
/internalLinkopen internalLink VGeneva
2 .= L $ A" close /labelingopen labeling VGeneva
2 .= P $ % close /leftIndentopen
leftIndent VGeneva
2 .= X $ յ( close /outlineSpacingopen outlineSpacing VGeneva
2 .= D $ Q close /ruleopen rule VGeneva
2 p3 F $ ' close /rulesopen rules VGeneva
2 (@ R N $ close
/textColoropen textColor R P L $ close /textFaceopen textFace P P L $ U close /textSizeopen textSize P R N $ , close
/textStyleopen textStyle R Q t
" .
9 E
T `
e q
w
internalLink P |labeling P }M
leftIndent P }outlineSpacing P ~rule P srules P textColor P textFace P 'textSize P textStyle P VGeneva
Hh9< Verdana T ' LAND mac printOutlineSuite.render ()
Verdana T ClC} ' LAND mac printOutlineSuite.init ()
[ Geneva
FD &?LAND mac printOutlineData.prefs.renderExtraTemplates = !printOutlineData.prefs.renderExtraTemplates
K 6 Verdana {u_Cl : ' LAND mac PrintOutline
Default Renderer
Reload Renderers
=printOutlineSuite.commands.menuCheckText ("Extra Templates", printOutlineData.prefs.renderExtraTemplates)
> K p # 6d Verdana ! + p o t AC
,
9 E
S _
h t
cleanUp d O escapeRules d Q indexPageOld d S
menuCheckText d ^old_init d _ previewPage2 d d*releaseRenderedPage2 d e
renderOutline d truleTags d =
virginMenuOld d z VVerdana 2@x X H Verdana IK 'LAND mac Changes
11/9/02; 11:25:53 PM by AJF
Modified for use in Print Outline tool
1/15/02; 8:18:48 AM by DW
Created. A developer working on a Tool needs a way to cause all the relevant parts of the Tool, its menu, RPC handlers, etc, to be re-installed. Luckily there's a single script that does this, so this new command is just a user interface on to that script. Bring a Tool the front and choose the Re-Install Frontmost Tool command from the Developers sub-menu of the Tools menu. After confirmation, the tool is re-installed. A big developer time-saver.
local (adr = window.frontmost ())
local (adr = @printOutlineSuite)
if not table.inGuestDatabase (adr)
scriptError ("Can't re-install the Tool because the frontmost window does not contain a guest database.")
local (x = string.parseAddress (adr), f = x [1])
if dialog.confirm ("Re-install the \"" + file.filefrompath (f) + "\" Tool?")
frontier.tools.install (f)
X l Verdana 2e a XLAND mac on render (renderer = nil)
local (adrOutline = table.getCursorAddress (), localOutline)
bundle //work with a copy of the outline
localOutline = adrOutline^
local (title = window.getTitle (adrOutline))
adrOutline = @localOutline
edit (adrOutline)
window.setTitle (adrOutline, title)
if renderer != nil
if typeOf(adrOutline^) != scriptType
if string (adrOutline^) contains ""
renderer = "pikeRenderer"
user.tools.renderOutline = @user.html.renderers.[renderer]
dialog.notify(user.tools.renderOutline)
Frontier.tools.windowTypes.commands.viewInBrowser (adrOutline)
try {delete (@user.tools.renderOutline)}
bundle //test
render ("brOutline")
Verdana 3u=* ' LAND mac This script returns a string which appears in the Status Center on the Radio UserLand home page.
return ("Renders outlines & scripts in Radio!")
" 3u
! -
C O
Y e
s
&
background brOutline 2buildRendererListMenu
% callbacks
codeFreshener O indexPage init - initialMenus 5menu O/oldStuff
reInstallTool render /statusCenterMessage VVerdana f =@x " * Verdana 3uN > BVLAND mac Changes
1/28/02; 9:13:50 PM by AJF
Copied idea from ManilaBloggerBridge, only needs to run once.
printOutlineThread.enabled = false
printOutlineSuite.init ()
filemenu.savemyroot (this) //save this root
never run again!
T P . 3u
ctenabledscript T t Arial
F F + 2LAND mac on finalFilter (pta)
pta^.renderedText = string.replace (pta^.renderedText, "[[title]]", "")
return (true)
- Geneva Eu`Q 2LAND mac on firstFilter (adrPageTable)
return (true)
* [ Geneva Eu7a L 3*lLAND mac on pageFilter (pta)
if typeOf (pta^.template) == outlineType or typeOf (pta^.template) == wpTextType
table.assign (@pta^.template, string (pta^.template))
if typeOf (pta^.template) == stringType and not pta^.indirectTemplate
pta^.template = string.replace (pta^.template, "<title>", "[[title]]")
html.addPageToGlossary (pta)
return (true)
y . EF
$ 0
; finalFilter p firstFilter p
pagefilter p VGeneva P E $ M I 7N? url #http://127.0.0.1:5335/printOutline/ M 4Y V
Lucida Grande E + W Arial } | ' LAND mac bsoRenderer
cadillac
Home
ideaListRenderer
justText
pikeRenderer
linetext
path
prettyOutline
PrintOutline Home
linetext
path
PrintOutline Tool
linetext
path
sampleScriptRenderer
tableOutliner
twoLevelOutline
j3| j3| j3| j3| j3| j3| j38 j38 j3| j3| j3` j3` j3| j3t j3t j3| j3| j3| W space /GIFfGIF89a ! , D ; VArial V " + 0 : C L Q [ aalink 008000bgcolor FFFFFFflRenderlink 0000FFspaceGif spacetext 000000vlink 800080 VArial n M VArial n 4 Verdana {iq:C + cGDLAND mac return (renderObject(@printOutlineSuite.indexPage))
` 7
#extraTemplates Verdana zz ' LAND mac
#filters #ftpSite #glossary #images #prefs #tools index L VVerdana ? V 3t
&
7 C
Y e
w
#enabledprintOutlineData XprintOutlineInfo UprintOutlineNodeTypes printOutlineSuite printOutlineThread printOutlineWebsite
V
Lucida Grande < = r + * q
Verdana UO % ' LAND mac #enabled
printOutlineData
printOutlineInfo
printOutlineNodeTypes
printOutlineSuite
background
brOutline
buildRendererListMenu
callbacks
codeFreshener
loadNewCode
refreshCode
refreshCodeMenu
releaseNewCode
indexPage
init
initialMenus
menu
oldStuff
reInstallTool
render
statusCenterMessage
printOutlineThread
ct
enabled
script
printOutlineWebsite
{a {a {a {a $ $ $ @x
Lucida Grande
Lucida Grande A Geneva ^}
Lucida Grande mn
Lucida Grande
Lucida Grande