Archive of UserLand's first discussion group, started October 5, 1998.

---

Re: Global glossary

Author:	Dave Winer
Posted:	9/21/1999; 3:40:59 PM
Topic:	Global glossary
Msg #:	11320 (In response to 11319)
Prev/Next:	11319 / 11321

Ooooooops. Fixed.

http://glossary.userland.com/

You're right I'm using MSIE5 which works around the bug.

BTW, to Frontier users, I'm using the new indexOf verb in 6.1.

local (adrtable = @user.html.glossary);
local (htmltext = "", indentlevel = 0);
on add (s) {
	htmltext = htmltext + string.filledString ("\t", indentlevel) + s + "\r"};
local (pta = html.getpagetableaddress ());
local (ctperpage = number (pta^.ctperpage));
local (pagenum = number (pta^.pathargs));
if pagenum < 1 {
	pagenum = 1};
local (ctpages = sizeof (adrtable^) / ctperpage);
if sizeof (adrtable^) > (ctpages * ctperpage) {
	ctpages++};
local (i);
add (""); indentlevel++;
add ("
UserLand Global Glossary
");
add ("Pages: ");
for i = 1 to ctpages {
	if i == pagenum {
		add ("" + i + " ")}
	else {
		add ("" + i + " ")}};
add ("
");
add (""); indentlevel++;
add ("");
local (ixlast = (pagenum * ctperpage));
if ixlast > sizeof (adrtable^) {
	ixlast = sizeof (adrtable^)};
local (ixfirst = ((pagenum - 1) * ctperpage) + 1);
if ixfirst < 1 {
	ixfirst = 1};
for i = ixfirst to ixlast {
	adritem = @adrtable^ [i];
	add ("")};
add ("
#
Shortcut
Value
" + indexof (adritem^) + ".
\\"" + nameof (adritem^) + "\\\"
" + adritem^ + "
"); indentlevel--;
add (""); indentlevel--;
add (string (glossarywebsite.whatisthis));
pta^.title = "Browser Page " + pagenum + " of " + ctpages;
return (htmltext)

---

This page was archived on 6/13/2001; 4:52:45 PM.

© Copyright 1998-2001 UserLand Software, Inc.