Switch to edit mode.
Name(s): update_hyperlist1: h = this.hyperpeople
2: this.owner:tell()
3: this.owner:tell(" ==================================================================")
4: this.owner:tell(" **************** hyperlist (by :update hyperlist) ****************")
5: this.owner:tell(" ==================================================================")
6: tmp = tmp2 = tmp3 = {}
7: for rec in (h)
8: rec = {" ", @rec}
9: tmp = {@tmp, rec}
10: endfor
11: a1 = $list_utils:slice(tmp, 1)
12: a2 = $list_utils:slice(tmp, 2)
13: a3 = $list_utils:slice(tmp, 3)
14: a4 = $list_utils:slice(tmp, 4)
15: tmp = {@a1, @a2, a3, a4}
16: item2 = ""
17: tmp3 = {}
18: for item in (tmp)
19: if (typeof(item) == $LIST)
20: for critter in (item)
21: tmp3 = {@tmp3, toliteral(critter)}
22: endfor
23: else
24: tmp3 = {@tmp3, item}
25: endif
26: endfor
27: tmp = tmp3
28: tmp = $string_utils:columnize(tmp, 4)
29: for line in (tmp)
30: this.owner:tell(":update_hyperlist line -> ", line)
31: endfor
32: this.owner:tell(" ==================================================================")
33: this.owner:tell()
34: "Last modified by Dax (#789) on Tue May 3 13:45:06 2005 MDT."