ftp.nice.ch/pub/next/developer/resources/libraries/libtclobjc.0.1.N.s.tar.gz#/libtclobjc-0.1.N/test.tcl

This is test.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
$mylist objectAt: 1

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.