OSXOperatingSystem.st
changeset 16644 c8e610a071c3
parent 16381 d47eab2e1e10
child 16647 4c196996c402
equal deleted inserted replaced
16643:4775f776440c 16644:c8e610a071c3
    18     ^ false
    18     ^ false
    19 
    19 
    20     "Modified: / 5.6.1998 / 18:35:18 / cg"
    20     "Modified: / 5.6.1998 / 18:35:18 / cg"
    21 !
    21 !
    22 
    22 
       
    23 defaultPackagePath
       
    24     "redefined to add stx.app packages and /Library stuff"
       
    25 
       
    26     |path executablePath executableDir packagesDir libDir vsnDirName vsnDir|
       
    27 
       
    28     path := super defaultPackagePath.
       
    29 
       
    30     executablePath := OperatingSystem pathOfSTXExecutable.
       
    31     executablePath notNil ifTrue:[
       
    32         executableDir := executablePath asFilename directory.
       
    33         packagesDir := executableDir directory directory / 'Packages'.
       
    34         packagesDir exists ifTrue:[
       
    35             path add:packagesDir.
       
    36         ].
       
    37         libDir := '/Library/Smalltalk-x' asFilename.
       
    38         libDir exists ifTrue:[
       
    39             vsnDirName := '%1.%2' bindWith:Smalltalk majorVersionNr
       
    40                                   with:Smalltalk minorVersionNr.
       
    41             vsnDir := libDir / vsnDirName.
       
    42             vsnDir exists ifTrue:[
       
    43                 path add:vsnDir.
       
    44             ].
       
    45         ].
       
    46     ].
       
    47 !
       
    48 
    23 getTrashDirectory
    49 getTrashDirectory
    24     "get the name of a trash folder (if the OS supports it),
    50     "get the name of a trash folder (if the OS supports it),
    25      or nil, if not.
    51      or nil, if not.
    26      Must be redefined to return non nil in concrete operating systems"
    52      Must be redefined to return non nil in concrete operating systems"
    27 
    53 
    29 ! !
    55 ! !
    30 
    56 
    31 !OSXOperatingSystem class methodsFor:'documentation'!
    57 !OSXOperatingSystem class methodsFor:'documentation'!
    32 
    58 
    33 version
    59 version
    34     ^ '$Header: /cvs/stx/stx/libbasic/OSXOperatingSystem.st,v 1.4 2014-04-19 22:50:48 cg Exp $'
    60     ^ '$Header: /cvs/stx/stx/libbasic/OSXOperatingSystem.st,v 1.5 2014-06-29 08:46:11 cg Exp $'
    35 !
    61 !
    36 
    62 
    37 version_CVS
    63 version_CVS
    38     ^ '$Header: /cvs/stx/stx/libbasic/OSXOperatingSystem.st,v 1.4 2014-04-19 22:50:48 cg Exp $'
    64     ^ '$Header: /cvs/stx/stx/libbasic/OSXOperatingSystem.st,v 1.5 2014-06-29 08:46:11 cg Exp $'
    39 ! !
    65 ! !
    40 
    66