Monday, November 08, 2010 at 12:01 AM.

---

system.verbs.apps.cardEditor.web.nineCoolButtons

local (adr = @system.verbs.apps.netscape.examples.coolSites);

local (gridOn, gridVisible, gridUnits);
cardEditor.getCardGrid (@gridOn, @gridVisible, @gridUnits);
local (buttonheight = 2 * gridUnits);
local (buttonwidth = 10 * gridUnits);

local (i, j, t, l, b, r, ct = 1);
for j = 0 to 2 {
	t = gridUnits + ((buttonheight + gridUnits) * j);
	b = t + buttonheight;
	for i = 0 to 2 {
		l = gridUnits + ((buttonwidth + gridUnits) * i);
		r = l + buttonwidth;
		local (ixtable = random (1, sizeof (adr^)));
		local (webaddress = adr^ [ixtable]);
		local (buttontext = nameof (adr^ [ixtable]));
		local (buttonname = "button" + ct++);
		local (rect = rectangle.set (t, l, b, r));
		cardEditor.web.siteInButton (rect, buttonname, buttontext, webaddress)}}

---

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.