STXInstaller.st
changeset 1150 a3879a40eb37
parent 1139 c5940bfd4ce2
child 1151 4e43271cc266
equal deleted inserted replaced
1149:00b17864e6ef 1150:a3879a40eb37
   888 
   888 
   889     (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
   889     (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
   890     and:[(here asLowercase endsWith:'stx\binbc') not
   890     and:[(here asLowercase endsWith:'stx\binbc') not
   891     and:[(here asLowercase endsWith:'projects\smalltalk') not
   891     and:[(here asLowercase endsWith:'projects\smalltalk') not
   892     ]]) ifTrue:[
   892     ]]) ifTrue:[
   893         self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
   893         "/ double - check if some of my expected files exists here ...
   894         ^ self
   894         ('../libbasic' asFilename exists
       
   895         and:['../libbasic' asFilename isDirectory]) ifTrue:[
       
   896             self warn:(resources string:'Oops - current directories name seems to not end with ''/projects/smalltalk''\\Assume its OK.' withCRs).
       
   897         ] ifFalse:[
       
   898             self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
       
   899             ^ self
       
   900         ]
   895     ].
   901     ].
   896 
   902 
   897     answer := self askForFullInstallation.
   903     answer := self askForFullInstallation.
   898     answer ifFalse:[^ self].
   904     answer ifFalse:[^ self].
   899 
   905