#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 25 Oct 2018 23:51:56 +0200
changeset 23470 bd1dde092c48
parent 23469 6d008d50351e
child 23471 a4b177b12aa8
#BUGFIX by cg class: Smalltalk class comment/format in: #getSourceFileName: changed: #initSystemPath
Smalltalk.st
--- a/Smalltalk.st	Thu Oct 25 21:32:19 2018 +0200
+++ b/Smalltalk.st	Thu Oct 25 23:51:56 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -515,7 +517,7 @@
         PackageDirName := 'packages'.
         OperatingSystem isOSXlike ifTrue:[
             PackageDirName := 'Packages'.
-            ResourceDirName := 'Resources'.
+            ResourceDirName := '../Resources'.
         ].
         OperatingSystem isMSWINDOWSlike ifTrue:[
             ResourceDirName := 'resources'.
@@ -544,7 +546,7 @@
     "
 
     "Modified: / 24-12-1999 / 00:23:35 / cg"
-    "Modified: / 24-10-2018 / 18:23:45 / Claus Gittinger"
+    "Modified: / 25-10-2018 / 23:51:35 / Claus Gittinger"
 !
 
 initUserPreferences
@@ -7836,25 +7838,26 @@
     |f|
 
     SourcePath isNil ifTrue:[
-	SourcePath := self constructPathFor:SourceDirName
+        SourcePath := self constructPathFor:SourceDirName
     ].
 
     "/ first, try a source subdir along the path.
     SourcePath notNil ifTrue:[
-	f := self searchPath:SourcePath for:aFileName in:SourceDirName.
+        f := self searchPath:SourcePath for:aFileName in:SourceDirName.
     ].
     f isNil ifTrue:[
-	"/ then, try it itself along the path.
-	f := self searchPath:self realSystemPath for:aFileName in:nil
+        "/ then, try it itself along the path.
+        f := self searchPath:self realSystemPath for:aFileName in:nil
     ].
     ^ f
 
     "
      Smalltalk getSourceFileName:'Smalltalk.st'
-     Smalltalk getSourceFileName:'ArrColl.st'
-    "
-
-    "Modified: 18.7.1996 / 15:54:07 / cg"
+     Smalltalk getSourceFileName:'stx/libbasic/ArrayedCollection.st'
+    "
+
+    "Modified: / 18-07-1996 / 15:54:07 / cg"
+    "Modified (comment): / 25-10-2018 / 23:29:01 / Claus Gittinger"
 !
 
 getSystemFileName:aFileNameOrString
@@ -8852,13 +8855,13 @@
     (lang == #de) ifTrue:[
         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
     ] ifFalse:[ (lang == #fr) ifTrue:[
-        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
+        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #it) ifTrue:[
         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #pt) ifTrue:[
-        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
+        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #no) ifTrue:[
         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
     ]]]]]].