This is check.tcl in view mode; [Download] [Up]
set mylist [[List alloc] init] $mylist name set myobject [[Object alloc] init] $mylist count $mylist addObject: $myobject $mylist count $mylist addObject: $myobject $mylist count $mylist addObjectIfAbsent: $myobject $mylist count
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.