equal
deleted
inserted
replaced
286 self sendCommand:('openPath:', pathName) toWindowId:aWindowId. |
286 self sendCommand:('openPath:', pathName) toWindowId:aWindowId. |
287 ! |
287 ! |
288 |
288 |
289 writeCurrentIDIntoRegistry: currentID |
289 writeCurrentIDIntoRegistry: currentID |
290 |
290 |
291 |dapasXEntry currentIDEntry| |
291 |applicationEntry currentIDEntry| |
292 |
292 |
293 dapasXEntry := self applicationRegistryEntry. |
293 applicationEntry := self applicationRegistryEntry. |
294 dapasXEntry isNil ifTrue:[^ false.]. |
294 applicationEntry isNil ifTrue:[^ false.]. |
295 |
295 |
296 currentIDEntry := dapasXEntry createSubKeyNamed:(self currentIDKeyInRegistry). |
296 currentIDEntry := applicationEntry createSubKeyNamed:(self currentIDKeyInRegistry). |
297 currentIDEntry isNil ifTrue:[ |
297 currentIDEntry isNil ifTrue:[ |
298 Transcript showCR: 'Failed to create CurrentID entry in registry'. |
298 Transcript showCR: 'Failed to create CurrentID entry in registry'. |
299 ^ false. |
299 ^ false. |
300 ]. |
300 ]. |
301 |
301 |
302 ^ dapasXEntry valueNamed:(self currentIDKeyInRegistry) put:(currentID printString). |
302 ^ applicationEntry valueNamed:(self currentIDKeyInRegistry) put:(currentID printString). |
303 |
303 |
304 " |
304 " |
305 | currentID returnedCurrentID | |
305 | currentID returnedCurrentID | |
306 currentID := 999. |
306 currentID := 999. |
307 DapasXStartup writeCurrentIDIntoRegistry: currentID. |
307 DapasXStartup writeCurrentIDIntoRegistry: currentID. |
517 ! ! |
517 ! ! |
518 |
518 |
519 !StandaloneStartup class methodsFor:'documentation'! |
519 !StandaloneStartup class methodsFor:'documentation'! |
520 |
520 |
521 version |
521 version |
522 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.12 2008-07-31 13:47:03 fm Exp $' |
522 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.13 2008-07-31 14:12:22 fm Exp $' |
523 ! ! |
523 ! ! |
524 |
524 |
525 StandaloneStartup initialize! |
525 StandaloneStartup initialize! |