SystemOrganization addCategory: #'Bogus-Base'! SystemOrganization addCategory: #'Bogus-Formats'! SystemOrganization addCategory: #'Bogus-Pools'! SharedPool subclass: #BogusPool instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Pools'! Object subclass: #BogusA instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Base'! !BogusA commentStamp: 'cwp 5/30/2004 09:27' prior: 0! Comment for BogusA! !BogusA class methodsFor: 'capitals' stamp: 'cwp 4/1/2006 22:57'! a ^ $B! ! !BogusA class methodsFor: 'capitals' stamp: ''! b ^ $B! ! !BogusA class methodsFor: 'testing' stamp: 'cwp 4/1/2006 23:02'! isCompletelyUseless ^ true! ! !BogusA methodsFor: 'letters' stamp: ''! a ^ $A! ! !BogusA methodsFor: 'letters' stamp: ''! b ^ $B! ! !BogusA methodsFor: 'other' stamp: ''! bogusHopefullyUniqueSelector self bogusOtherUniqueSelector! ! !BogusA methodsFor: 'other' stamp: ''! bogusOtherUniqueSelector ^ self! ! !BogusA methodsFor: 'other' stamp: 'cwp 12/11/2006 22:19'! bogusUnsentSelector ^ self! ! !BogusA methodsFor: 'numbers' stamp: ''! five ^ self two + self three! ! !BogusA methodsFor: 'other' stamp: ''! isString ^ false! ! !BogusA methodsFor: 'numbers' stamp: ''! one ^ 1! ! !BogusA methodsFor: 'numbers' stamp: ''! three ^ 3! ! !BogusA methodsFor: 'numbers' stamp: ''! two ^ 2! ! BogusA subclass: #BogusE instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Base'! Object subclass: #BogusB instanceVariableNames: 'firstInstanceVariableB secondInstanceVariableB' classVariableNames: 'FirstClassVariableB SecondClassVariableB' poolDictionaries: 'BogusPool' category: 'Bogus-Base'! BogusB class instanceVariableNames: 'firstClassInstanceVariableB secondClassInstanceVariableB'! BogusB class instanceVariableNames: 'firstClassInstanceVariableB secondClassInstanceVariableB'! !BogusB class methodsFor: 'accessing' stamp: ''! accessesCVarAlso ^ FirstClassVariableB! ! !BogusB methodsFor: 'accessing' stamp: ''! accessesCVar ^ FirstClassVariableB! ! !BogusB methodsFor: 'accessing' stamp: ''! accessesIvar ^ firstInstanceVariableB! ! !BogusB methodsFor: 'accessing' stamp: ''! foo ^ self! ! !BogusB methodsFor: 'senders' stamp: ''! sendsAccessesIvar self accessesIvar! ! !BogusB methodsFor: 'senders' stamp: ''! sendsSendsAccessesIvar self sendsAccessesIvar! ! Object subclass: #BogusC instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Base'! !BogusC methodsFor: 'testing' stamp: 'cwp 6/2/2004 11:47'! hasTimestamp ^ true! ! Object subclass: #BogusF instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Formats'! Object variableByteSubclass: #BogusG instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Formats'! Object variableSubclass: #BogusH instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Formats'! Object variableWordSubclass: #BogusI instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Formats'! Object weakSubclass: #BogusJ instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Bogus-Formats'!