'From Squeak3.7beta of ''1 April 2004'' [latest update: #5967] on 20 July 2004 at 12:17:09 pm'! !AbstractEvent class methodsFor: 'accessing' stamp: 'bvs 7/20/2004 12:12'! allItemKinds "self allItemKinds" ^(AbstractEvent class organization listAtCategoryNamed: #'item kinds') collect: [:sel | self perform: sel]! ! !SystemChangeNotifier methodsFor: 'public' stamp: 'bvs 7/20/2004 12:13'! notify: anObject ofSystemChangesOfChange: changeKind using: oneArgumentSelector "Notifies an object of system changes of the specified changeKind (#added, #removed, ...). Evaluate 'AbstractEvent allChangeKinds' to get the complete list." self notify: anObject ofEvents: (self systemEventsForChange: changeKind) using: oneArgumentSelector! ! !SystemChangeNotifier methodsFor: 'public' stamp: 'bvs 7/20/2004 12:13'! notify: anObject ofSystemChangesOfItem: itemKind change: changeKind using: oneArgumentSelector "Notifies an object of system changes of the specified itemKind (#class, #category, ...) and changeKind (#added, #removed, ...). This is the finest granularity possible. Evaluate 'AbstractEvent allChangeKinds' to get the complete list of change kinds, and 'AbstractEvent allItemKinds to get all the possible item kinds supported." self notify: anObject ofEvents: (Bag with: (self systemEventsForItem: itemKind change: changeKind)) using: oneArgumentSelector! ! !SystemChangeNotifier methodsFor: 'public' stamp: 'bvs 7/20/2004 12:13'! notify: anObject ofSystemChangesOfItem: itemKind using: oneArgumentSelector "Notifies an object of system changes of the specified itemKind (#class, #method, #protocol, ...). Evaluate 'AbstractEvent allItemKinds' to get the complete list." self notify: anObject ofEvents: (self systemEventsForItem: itemKind) using: oneArgumentSelector! !