Mantis - tweak
Viewing Issue Advanced Details
1306 Any minor always 06-04-05 03:58 06-04-05 04:40
bert  
 
normal  
resolved  
fixed  
none    
none  
0001306: CProjectMorph bootstrapping
I tried to add a ticking method to CProjectBuilder but it never gets executed when run in CProjectMorph. Inspecting the builder's scripts reveals the TickMessageSend's process is nil. This is the method I wanted to have (for debugging, we're seeing way too many full GCs).

indicateGC
    | gcCount lastCount |
    <ticking: 1>
    gcCount _ SmalltalkImage current vmParameterAt: 7.
    (lastCount _ self propertyValueAt: #gcCount) ~= gcCount ifTrue: [
        lastCount ifNotNil:
            [lastCount+1 to: gcCount do: [:i |
                (PluckedSound pitch: 2000 dur: 0.2 loudness: 0.1) play.
                self wait: 0.5]].
        self propertyValueAt: #gcCount put: gcCount.
    ].

Notes
(0001579)
andreas   
06-04-05 04:40   
Interesting bug. Turns out worlds were never informed that they appeared in a world and thusly the ticking scripts were never activated. Now fixed.