AbstractOperatingSystem.st
changeset 24645 296d85814087
parent 24465 dcc9ff604f0d
child 24725 3653b4978685
equal deleted inserted replaced
24644:55f4e9a8de61 24645:296d85814087
   656         openApplicationForDocument:aFilenameOrStringOrURLString
   656         openApplicationForDocument:aFilenameOrStringOrURLString
   657         operation:operationSymbol
   657         operation:operationSymbol
   658         mimeType:mimeTypeStringArgOrNil
   658         mimeType:mimeTypeStringArgOrNil
   659         inDirectory:nil
   659         inDirectory:nil
   660         ifNone:[
   660         ifNone:[
   661             |fn|
   661             |fn url|
   662             
   662             
   663             "/ last resort: use a fileBrowser,
   663             "/ last resort: use a fileBrowser,
   664             "/ but only if it is a valid file (not a URL)
   664             "/ but only if it is a valid file (not a URL)
   665             (fn := aFilenameOrStringOrURLString) asFilename exists ifFalse:[
   665             (fn := aFilenameOrStringOrURLString) asFilename exists ifFalse:[
   666                 (aFilenameOrStringOrURLString asURL method = 'file') ifFalse:[^ false].
   666                 url := aFilenameOrStringOrURLString asURL. 
   667                 fn := aFilenameOrStringOrURLString asURL path asFilename.
   667                 (url method = 'file') ifFalse:[^ false].
       
   668                 fn := url path asFilename.
   668                 fn exists ifFalse:[^ false].
   669                 fn exists ifFalse:[^ false].
   669             ].
   670             ].
   670             FileBrowser default openOn:fn
   671             FileBrowser default openOn:fn
   671         ].
   672         ].
   672         
   673