Utilities >> startUp registration??

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Utilities >> startUp registration??

Stéphane Ducasse
does anybody know if this is of any use?


startUp
        SystemChangeNotifier uniqueInstance notify: self ofAllSystemChangesUsing: #event:.


event: anEvent
        "Hook for SystemChangeNotifier"

        (anEvent isCommented and: [anEvent itemKind = SystemChangeNotifier classKind])
                ifTrue: [self noteMethodSubmission: #Comment forClass: anEvent item].
        ((anEvent isAdded or: [anEvent isModified]) and: [anEvent itemKind = SystemChangeNotifier methodKind])
                ifTrue: [anEvent itemRequestor ifNotNil: [self noteMethodSubmission: anEvent itemSelector forClass: anEvent itemClass]].
        ((anEvent isAdded or: [anEvent isModified]) and: [anEvent itemKind = SystemChangeNotifier methodKind]) ifTrue:[
                InMidstOfFileinNotification signal
                        ifFalse: [Utilities changed: #recentMethodSubmissions].
        ].
_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: Utilities >> startUp registration??

Lukas Renggli
This is used for "Utilities recentMethodSubmissions". Some tools in
the image still use it.

The #update: part was used by Monticello to track method changes, but
is no longer active (but the code is still there).

Lukas



2009/12/31 Stéphane Ducasse <[hidden email]>:

> does anybody know if this is of any use?
>
>
> startUp
>        SystemChangeNotifier uniqueInstance notify: self ofAllSystemChangesUsing: #event:.
>
>
> event: anEvent
>        "Hook for SystemChangeNotifier"
>
>        (anEvent isCommented and: [anEvent itemKind = SystemChangeNotifier classKind])
>                ifTrue: [self noteMethodSubmission: #Comment forClass: anEvent item].
>        ((anEvent isAdded or: [anEvent isModified]) and: [anEvent itemKind = SystemChangeNotifier methodKind])
>                ifTrue: [anEvent itemRequestor ifNotNil: [self noteMethodSubmission: anEvent itemSelector forClass: anEvent itemClass]].
>        ((anEvent isAdded or: [anEvent isModified]) and: [anEvent itemKind = SystemChangeNotifier methodKind]) ifTrue:[
>                InMidstOfFileinNotification signal
>                        ifFalse: [Utilities changed: #recentMethodSubmissions].
>        ].
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>



--
Lukas Renggli
http://www.lukas-renggli.ch

_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project