Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!uhccux!munnari.oz.au!murtoa.cs.mu.oz.au!charlie!aragorn!rad
From: rad@aragorn.cm.deakin.oz.au (Robert Alan Dew)
Newsgroups: comp.lang.smalltalk
Subject: Re: Smalltalk types
Message-ID: <7793@charlie.OZ>
Date: 6 Sep 89 14:24:51 GMT
Sender: root@charlie.OZ
Reply-To: rad@aragorn.UUCP (Robert Alan Dew)
Organization: Department of Computing & Mathematics - Deakin University
Lines: 56

The discussion of types, classes, objects, etc. prompted me to find
all sets of classes, where a single set of classes would indicate that
all messages understood by an instance of any class in the set can be
understood by an instance of any other class in the set.

Let a type be associated with only such a set of classes.

Below is 24 sets of 59 classes.  I searched in Smalltalk-80 v2.3
which contained 243 classes, therefore 184 extra sets should be listed.
I decided not to list them since they only contained one class each.

Number of types is 24 + 184 = 208
1 class   per type 88.46%
2 classes per type  8.17%
3 classes per type  1.92%
4 classes per type  0.96%
5 classes per type  0.48%

{ False True Boolean }
{ Arc Circle }
{ Path Curve LinearFit }
{ Switch Button }
{ TextHolder StringHolder }
{ ContextInspector Inspector }
{ ExternalPort CShellPort }

{ IdentitySet Set }
{ Array ArrayedCollection }
{ WordArray DisplayBitmap }
{ LiteralDictionary Dictionary }

{ Change OtherChange }
{ ClassRelatedChange ClassChange }
{ ClassCommentChange ClassOtherChange } 

{ SelectionInListController ListController }
{ MouseMenuController ClockController }
{ Controller BinaryChoiceController NoController }
{ CodeController OnlyWhenSelectedCodeController AlwaysAcceptCodeController }
{ StringHolderController CRFillInTheBlankController ChangeController
	FillInTheBlankController }
{ IndicatorOnSwitchController SwitchController MenuButtonController
	LockedSwitchController }

{ SwitchView BooleanView }
{ BinaryChoiceView View }
{ InspectorView StandardSystemView }
{ ProjectView TextCollectorView FillInTheBlankView TerminalView
	StringHolderView }

Robert Dew                                rad@aragorn.cm.deakin.oz
Department of Computing and Mathematics
Deakin University
Geelong 
Victoria
Australia 3217