Filename.st
changeset 23837 219d06bf9d6d
parent 23740 c9bcb6904e07
child 23867 3c002c21cc88
equal deleted inserted replaced
23836:8b734f62058f 23837:219d06bf9d6d
  1189      filename representing the directory (where the match was done) as argument.
  1189      filename representing the directory (where the match was done) as argument.
  1190      (this may be different from the inDirectory argument, if aString is absolute
  1190      (this may be different from the inDirectory argument, if aString is absolute
  1191       or starts with ../)"
  1191       or starts with ../)"
  1192 
  1192 
  1193     self isAbstract ifTrue:[
  1193     self isAbstract ifTrue:[
  1194 	^ ConcreteClass
  1194         ^ ConcreteClass
  1195 	    filenameCompletionFor:aString
  1195             filenameCompletionFor:aString
  1196 	    directory:inDirectory
  1196             directory:inDirectory
  1197 	    directoriesOnly:directoriesOnly
  1197             directoriesOnly:directoriesOnly
  1198 	    filesOnly:filesOnly
  1198             filesOnly:filesOnly
  1199 	    ifMultiple:aBlock
  1199             ifMultiple:aBlock
  1200     ].
  1200     ].
  1201     ^ self filenameCompletionFor:aString directory:inDirectory directoriesOnly:directoriesOnly filesOnly:filesOnly ifMultiple:aBlock forMultipleDo:nil
  1201     ^ self 
       
  1202         filenameCompletionFor:aString 
       
  1203         directory:inDirectory 
       
  1204         directoriesOnly:directoriesOnly 
       
  1205         filesOnly:filesOnly 
       
  1206         ifMultiple:aBlock 
       
  1207         forMultipleDo:nil
       
  1208 
       
  1209     "
       
  1210      self 
       
  1211         filenameCompletionFor:'/tm' 
       
  1212         directory:nil 
       
  1213         directoriesOnly:true 
       
  1214         filesOnly:false 
       
  1215         ifMultiple:[]
       
  1216     "
       
  1217 
       
  1218     "Modified (comment): / 04-03-2019 / 15:43:52 / Claus Gittinger"
  1202 !
  1219 !
  1203 
  1220 
  1204 filenameCompletionFor:aString directory:inDirectory directoriesOnly:directoriesOnly filesOnly:filesOnly ifMultiple:aBlock forMultipleDo:aMultipleBlock
  1221 filenameCompletionFor:aString directory:inDirectory directoriesOnly:directoriesOnly filesOnly:filesOnly ifMultiple:aBlock forMultipleDo:aMultipleBlock
  1205     "perform filename completion on aString in some directory;
  1222     "perform filename completion on aString in some directory;
  1206      return the longest matching filename prefix as a string.
  1223      return the longest matching filename prefix as a string.