View/Edit #52:tabbar

Name(s): tabbar

1:  ":tabbar(active, text1, URL1, text2, URL2, etc...)"
2:  active = args[1]
3:  args = listdelete(args, 1)
4:  html = "<td width=15>&nbsp;</td>"
5:  for count in [1..length(args) / 2]
6:    text = args[count * 2 - 1]
7:    url = args[count * 2]
8:    if (count == active)
9:      html = tostr(html, "<td bgcolor=#cc0030 align=center width=95 nowrap><font color=#ffffff><b>", text, "</b></font></td>")
10:   else
11:     html = tostr(html, "<td bgcolor=#efefef align=center width=95 nowrap onClick=\"location='", url, "'\" style='cursor:pointer;cursor:hand;'><a style='text-decoration:none;color:#0000ff' href=\"", url, "\">", text, "</a></td>")
12:   endif
13:   html = html + "<td width=15>&nbsp;</td>"
14: endfor
15: html = tostr("<table border=0 cellspacing=0 cellpadding=0><tr>", html, "</tr><tr><td colspan=", count * 2 + 1, " bgcolor=#cc0030><img width=1 height=1 alt=\"\"></td></tr></table>")
16: return html
17: "Last modified by Dax (#789) on Thu Sep 26 07:08:16 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.