equal
deleted
inserted
replaced
3817 I.e. it is much less specific than getOSType or getSystemType." |
3817 I.e. it is much less specific than getOSType or getSystemType." |
3818 |
3818 |
3819 |os| |
3819 |os| |
3820 |
3820 |
3821 os := self getSystemType. |
3821 os := self getSystemType. |
3822 os = 'win32' ifTrue:[ ^ #win32]. |
3822 os = #win32 ifTrue:[ ^ #win32]. |
3823 os = 'os2' ifTrue:[ ^ #os2]. |
3823 os = #os2 ifTrue:[ ^ #os2]. |
3824 os = 'macos' ifTrue:[ ^ #macos]. |
3824 os = #macos ifTrue:[ ^ #macos]. |
3825 os = 'VMS' ifTrue:[ ^ #vms]. |
3825 os = #VMS ifTrue:[ ^ #vms]. |
3826 os = 'openVMS' ifTrue:[ ^ #vms]. |
3826 os = #openVMS ifTrue:[ ^ #vms]. |
3827 ^ #unix |
3827 ^ #unix |
3828 |
3828 |
3829 " |
3829 " |
3830 OperatingSystem knownPlatformNames |
3830 OperatingSystem knownPlatformNames |
3831 OperatingSystem platformName |
3831 OperatingSystem platformName |
6555 ! ! |
6555 ! ! |
6556 |
6556 |
6557 !AbstractOperatingSystem class methodsFor:'documentation'! |
6557 !AbstractOperatingSystem class methodsFor:'documentation'! |
6558 |
6558 |
6559 version |
6559 version |
6560 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.177 2008-09-11 12:58:27 stefan Exp $' |
6560 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.178 2008-09-19 10:44:17 stefan Exp $' |
6561 ! ! |
6561 ! ! |
6562 |
6562 |
6563 AbstractOperatingSystem initialize! |
6563 AbstractOperatingSystem initialize! |