543 "/ |
543 "/ |
544 "/ save an initial image; this will speedup the next startup |
544 "/ save an initial image; this will speedup the next startup |
545 "/ (since all autoload-stuff will already be initialized) |
545 "/ (since all autoload-stuff will already be initialized) |
546 "/ |
546 "/ |
547 |
547 |
548 "/ 'st.img' asFilename exists ifFalse:[ |
548 'st.img' asFilename exists ifFalse:[ |
549 "/ |doneWithStartupStuff| |
549 '.' asFilename isWritable ifTrue:[ |
550 "/ |
550 |doneWithStartupStuff| |
551 "/ doneWithStartupStuff := Semaphore new. |
551 |
552 "/ |
552 doneWithStartupStuff := Semaphore new. |
553 "/ Smalltalk addStartBlock:[ |
553 |
554 "/ [ |
554 Smalltalk addStartBlock:[ |
555 "/ doneWithStartupStuff wait. |
555 [ |
556 "/ 'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR. |
556 doneWithStartupStuff wait. |
557 "/ ObjectMemory primSnapShotOn:'st.img' |
557 'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR. |
558 "/ ] forkAt:1 |
558 ObjectMemory primSnapShotOn:'st.img' |
559 "/ ]. |
559 ] forkAt:1 |
560 "/ |
560 ]. |
561 "/ Smalltalk addStartBlock:[ |
561 |
562 "/ [ |
562 Smalltalk addStartBlock:[ |
563 "/ Delay waitForSeconds:10. |
563 [ |
564 "/ doneWithStartupStuff signal |
564 Delay waitForSeconds:10. |
565 "/ ] forkAt:1 |
565 doneWithStartupStuff signal |
566 "/ ]. |
566 ] forkAt:1 |
567 "/ ]. |
567 ]. |
|
568 ] |
|
569 ]. |
568 ! |
570 ! |
569 |
571 |
570 Smalltalk fileIn:'hideBanner.rc'. |
572 Smalltalk fileIn:'hideBanner.rc'. |
571 |
573 |