125 "/ However, if many images are to be displayed simulatiously, images displayed |
125 "/ However, if many images are to be displayed simulatiously, images displayed |
126 "/ first may steal too many colors required in images displayed later. |
126 "/ first may steal too many colors required in images displayed later. |
127 "/ In this case, it is better to preallocate some colors, and dither all images |
127 "/ In this case, it is better to preallocate some colors, and dither all images |
128 "/ using theese. Of course, while making the worst case better, this makes |
128 "/ using theese. Of course, while making the worst case better, this makes |
129 "/ the best case worse. You can decide ... |
129 "/ the best case worse. You can decide ... |
130 "/ |
130 "/ Display depth == 8 ifTrue:[ |
131 "/ Color getColors6x6x4. |
131 "/ Color getColors6x6x4. |
132 |
132 "/ ] |
133 |
133 |
134 "/ claus: |
134 "/ claus: |
135 "/ The history manager automatically adds a history line to changed |
135 "/ The history manager automatically adds a history line to changed |
136 "/ methods and optionally to a classes history method. |
136 "/ methods and optionally to a classes history method. |
137 "/ if you dont like this, comment the following lines. |
137 "/ if you dont like this, comment the following lines. |
192 "/ |
192 "/ |
193 Smalltalk fileIn:('p_' , OperatingSystem getLoginName , '.rc'). |
193 Smalltalk fileIn:('p_' , OperatingSystem getLoginName , '.rc'). |
194 |
194 |
195 (Smalltalk commandLine includes:'-q') ifFalse:[ |
195 (Smalltalk commandLine includes:'-q') ifFalse:[ |
196 "/ |
196 "/ |
197 "/ this turns off/on information messages from classes |
197 "/ Object infoPrinting: |
198 "/ (such as 'D8IMAGE: allocating colors ...' |
198 "/ this turns off/on information messages from classes |
199 "/ |
199 "/ (such as 'D8IMAGE: allocating colors ...' |
|
200 "/ |
|
201 "/ ObjectMemory infoPrinting |
|
202 "/ this turns off/on information messages from the VM |
|
203 "/ (such as 'MEM: chitty chatty ...' |
|
204 "/ |
|
205 |
200 "/ Object infoPrinting:false. |
206 "/ Object infoPrinting:false. |
|
207 "/ ObjectMemory infoPrinting:false. |
201 OperatingSystem hasConsole ifTrue:[ |
208 OperatingSystem hasConsole ifTrue:[ |
202 Object infoPrinting:true. |
209 Object infoPrinting:true. |
203 ]. |
|
204 |
|
205 "/ |
|
206 "/ this turns off/on information messages from the VM |
|
207 "/ (such as 'MEM: chitty chatty ...' |
|
208 "/ |
|
209 "/ ObjectMemory infoPrinting:false. |
|
210 OperatingSystem hasConsole ifTrue:[ |
|
211 ObjectMemory infoPrinting:true. |
210 ObjectMemory infoPrinting:true. |
212 ] |
211 ] |
213 ]. |
212 ]. |
214 |
213 |
215 "/ |
214 "/ |
223 "/ you can add all stuff you'd like to come up by default |
222 "/ you can add all stuff you'd like to come up by default |
224 "/ the first time. |
223 "/ the first time. |
225 "/ |
224 "/ |
226 |
225 |
227 'private.rc [info]: starting Launcher...' infoPrintCR. |
226 'private.rc [info]: starting Launcher...' infoPrintCR. |
228 Text new. "/ to avoid visible messages in minitalks Transcript |
227 Text new. "/ to avoid visible messages in minitalk's Transcript |
229 NewLauncher open. |
228 NewLauncher open. |
230 |
229 |
231 ((Smalltalk commandLineArguments includes:'--quick') |
230 ((Smalltalk commandLineArguments includes:'--quick') |
232 or:[(Smalltalk commandLineArguments includes:'--faststart') |
231 or:[(Smalltalk commandLineArguments includes:'--faststart') |
233 or:[(Smalltalk commandLineArguments includes:'--fastStart')]]) |
232 or:[(Smalltalk commandLineArguments includes:'--fastStart')]]) |