Monday, November 08, 2010 at 12:03 AM.
system.verbs.builtins.html.data.standardMacros.qbullet.buildTable
local (url = html.data.standardmacros.qBullet.url); local (folder = "Internal:Apps:WebStar:images:matterform:", f); local (htmltext = ""); on add (s) { htmltext = htmltext + s}; add ("<table cellspacing=0 cellpadding=2>\r"); fileloop (f in folder) { if f endswith ".gif" { local (name = file.filefrompath (f), hw); add ("<tr>\r"); add ("<td bgcolor=\"gainsboro\"><b>" + (name - ".gif") + "</b></td>\r"); hw = html.getGifHeightWidth (f); html.data.standardmacros.qBullet.heightWidth.[name - ".gif"] = string (hw) - "{" - "}" - " "; add ("<td bgcolor=\"lemonchiffon\"><center>" + "<img src=\"" + url + name + "\" height=" + hw [1] + " width=" + hw [2] + "></center></td>\r"); add ("</tr>\r"); msg (f)}}; add ("</table>\r"); return (htmltext)
This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.