StandaloneStartup.st
changeset 15899 4dcd8c4200b0
parent 15895 5cd8d2b4e36f
child 16131 3caa8b31823f
child 18117 eb433f2c42b2
equal deleted inserted replaced
15898:5b7b19295eb9 15899:4dcd8c4200b0
   832     "Modified: / 24-05-2011 / 17:40:26 / cg"
   832     "Modified: / 24-05-2011 / 17:40:26 / cg"
   833 !
   833 !
   834 
   834 
   835 loadPatch:fileName
   835 loadPatch:fileName
   836     self verboseInfo:('loading patch: ',fileName baseName).
   836     self verboseInfo:('loading patch: ',fileName baseName).
   837     Smalltalk silentFileIn:fileName pathName.
   837     [
       
   838         Smalltalk silentFileIn:fileName pathName.
       
   839     ] on:InvalidPatchError do:[:ex|
       
   840         self verboseInfo:('invalid patch: %1 error: %2'
       
   841                                  bindWith:fileName baseName with:ex messageText).
       
   842         ^ false.
       
   843     ].
       
   844     ^ true
   838 !
   845 !
   839 
   846 
   840 loadPatches
   847 loadPatches
   841     "load all patches in the application's patches dir"
   848     "load all patches in the application's patches dir"
   842 
   849 
  1188 ! !
  1195 ! !
  1189 
  1196 
  1190 !StandaloneStartup class methodsFor:'documentation'!
  1197 !StandaloneStartup class methodsFor:'documentation'!
  1191 
  1198 
  1192 version
  1199 version
  1193     ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.81 2014-01-14 15:32:54 stefan Exp $'
  1200     ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.82 2014-01-23 14:01:49 stefan Exp $'
  1194 !
  1201 !
  1195 
  1202 
  1196 version_CVS
  1203 version_CVS
  1197     ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.81 2014-01-14 15:32:54 stefan Exp $'
  1204     ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.82 2014-01-23 14:01:49 stefan Exp $'
  1198 ! !
  1205 ! !
  1199 
  1206 
  1200 
  1207 
  1201 StandaloneStartup initialize!
  1208 StandaloneStartup initialize!