equal
deleted
inserted
replaced
240 "/ |
240 "/ |
241 "/ startBlocks will be evaluated after the thread-scheduler have been started |
241 "/ startBlocks will be evaluated after the thread-scheduler have been started |
242 "/ and the displays event dispatcher is running. |
242 "/ and the displays event dispatcher is running. |
243 "/ |
243 "/ |
244 Smalltalk addStartBlock:[ |
244 Smalltalk addStartBlock:[ |
245 "/ ca's private preferences... |
|
246 (OperatingSystem getLoginName = 'ca' |
|
247 and:[OperatingSystem getHostName = 'IDEFIX']) ifTrue:[ |
|
248 'private.rc [info]: changing keyboard mapping...' infoPrintCR. |
|
249 Smalltalk fileIn:'d_win32_visualAge.rc'. |
|
250 ]. |
|
251 |
|
252 "/ |
245 "/ |
253 "/ start some views ... |
246 "/ start some views ... |
254 "/ you can add all stuff you'd like to come up by default |
247 "/ you can add all stuff you'd like to come up by default |
255 "/ the first time. |
248 "/ the first time. |
256 "/ |
249 "/ |