equal
deleted
inserted
replaced
467 applicationRegistryEntry |
467 applicationRegistryEntry |
468 "retrieve the registry entry in which (if present), any currently running application |
468 "retrieve the registry entry in which (if present), any currently running application |
469 has left its process ID" |
469 has left its process ID" |
470 |
470 |
471 |path relPathName applicationEntry softwareEntry| |
471 |path relPathName applicationEntry softwareEntry| |
|
472 |
|
473 OperatingSystem isMSWINDOWSlike ifFalse:[^ nil]. |
472 |
474 |
473 path := self applicationRegistryPath. |
475 path := self applicationRegistryPath. |
474 relPathName := path asStringWith:$\. |
476 relPathName := path asStringWith:$\. |
475 applicationEntry := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\',relPathName. |
477 applicationEntry := Win32OperatingSystem registryEntry key:'HKEY_CURRENT_USER\Software\',relPathName. |
476 applicationEntry isNil ifTrue:[ |
478 applicationEntry isNil ifTrue:[ |
1150 ! ! |
1152 ! ! |
1151 |
1153 |
1152 !StandaloneStartup class methodsFor:'documentation'! |
1154 !StandaloneStartup class methodsFor:'documentation'! |
1153 |
1155 |
1154 version |
1156 version |
1155 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.68 2012-03-06 15:26:54 stefan Exp $' |
1157 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.69 2012-08-14 08:21:54 stefan Exp $' |
1156 ! |
1158 ! |
1157 |
1159 |
1158 version_CVS |
1160 version_CVS |
1159 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.68 2012-03-06 15:26:54 stefan Exp $' |
1161 ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.69 2012-08-14 08:21:54 stefan Exp $' |
1160 ! ! |
1162 ! ! |
1161 |
1163 |
1162 StandaloneStartup initialize! |
1164 StandaloneStartup initialize! |