1 "{ Package: 'stx:goodies/monticello' }"

     2 

     3 PackageInfo subclass:#MCDirtyPackageInfo

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Monticello-Mocks'

     8 !

     9 

    10 

    11 !MCDirtyPackageInfo class methodsFor:'as yet unclassified'!

    12 

    13 initialize

    14 	[self new register] on: MessageNotUnderstood do: []

    15 !

    16 

    17 wantsChangeSetLogging

    18 	^ false

    19 ! !

    20 

    21 !MCDirtyPackageInfo methodsFor:'as yet unclassified'!

    22 

    23 classes

    24 	^ Array new: 0.

    25 !

    26 

    27 methods

    28 	^ self mockClassA selectors

    29 		select: [:ea | ea beginsWith: 'ordinal']

    30 		thenCollect:

    31 			[:ea | 

    32 				MethodReference new 

    33 					setStandardClass: MCMockClassA 

    34 					methodSymbol: ea].

    35 !

    36 

    37 packageName

    38 	^ 'MCDirtyPackage'

    39 ! !

    40 

    41 !MCDirtyPackageInfo class methodsFor:'documentation'!

    42 

    43 version

    44     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirtyPackageInfo.st,v 1.1 2006-11-22 13:18:19 cg Exp $'

    45 ! !

    46 

    47 MCDirtyPackageInfo initialize!