On Tue, Feb 9, 2010 at 11:20 AM, Edgar J. De Cleene <
edgardec2001 at yahoo.com.ar> wrote:

>
>
>
> On 2/9/10 11:58 AM, "Torsten Bergmann" <astares at gmx.de> wrote:
>
> > Shouldnt we run a script on trunk to remove empty
> > categories to clean up a little bit?
>
> Trying to see if the cleanup I have was in Squeak3.11-8931-alpha.image
> originate the attached walkback
>
> The error was with the .cs via drag and drop and selecting code browser
> Using message names tool I see no cleanup in image, so I copy paste here.
> Come from original code of Ramon Leon and IMHO should be used before any
> image go to ftp
>
> !SmalltalkImage methodsFor: 'image cleanup' stamp: 'edc 12/13/2009 08:34'!
> cleanup
>    "SmalltalkImage current cleanup"
>    | tasks |
>    Transcript open.
>    tasks := OrderedCollection new
>                add: [Smalltalk removeEmptyMessageCategories];
>
>                add: [Workspace
>                        allSubInstancesDo: [:each | each setBindings:
> Dictionary new]];
>
>                add: [Undeclared removeUnreferencedKeys];
>
>                add: [Categorizer sortAllCategories];
>
>                add: [Symbol compactSymbolTable];
>
>                add: [#(#TheWorldMenu #FileServices #AppRegistry
> #Preferences #FileList )
>                        do: [:cl | (Smalltalk at: cl) removeObsolete]];
>
>                add: [Flaps freshFlapsStart];
>
>                add: [MCFileBasedRepository flushAllCaches];
>
>                add: [HandMorph releaseCachedState; initForEvents.
>                    self fixObsoleteReferences];
>
>                add: [Smalltalk forgetDoIts.
>                    DataStream initialize.
>                    Behavior flushObsoleteSubclasses.
>                    "The pointer to currentMethod is not realy needed
>                    (anybody care to fix this) and often holds on to
>                    obsolete bindings"
>                    MethodChangeRecord
>                        allInstancesDo: [:each | each noteNewMethod: nil].
>                    Smalltalk garbageCollectMost];
>                 yourself.
>    Utilities
>        informUserDuring: [:bar | tasks
>                do: [:block |
>                    bar value: block printString.
>                    [block value]
>                        on: Error
>                        do: [:error | Transcript show: error;
>                                 cr]]].
>    SystemNavigation default obsoleteClasses isEmpty
>        ifTrue: [SmalltalkImage current saveSession]
>        ifFalse: [SystemNavigation default obsoleteClasses
>                do: [:each |
>                    self halt.
>                    [PointerFinder on: each]
>                        on: Error
>                        do: [:error | Transcript show: error;
>                                 cr]]]! !
>
> Edgar


Pedantry:
                   [block value]
                       on: Error
                       do: [:error | Transcript show: error;
                                cr]]].

is equivalent to

                   block
                       on: Error
                       do: [:error | Transcript show: error;
                                cr]]].


>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20100209/d542126b/attachment.htm