# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1156414800 -7200
# Node ID d079abe6b6e6dcecd16b8cb18321e1ad7ebe586e
# Parent  aa90a58aae75f3ec2d6e62b6fe2bd9e5b2bbb894
*** empty log message ***

diff -r aa90a58aae75 -r d079abe6b6e6 AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Thu Aug 24 11:25:47 2006 +0200
+++ b/AbstractOperatingSystem.st	Thu Aug 24 12:20:00 2006 +0200
@@ -3640,6 +3640,28 @@
     ^ false
 !
 
+knownPlatformNames
+    "return a collection of strings as possibly returned by getPlatformName.
+     Should be used instead of getOSType or getSystemType if multiple choice
+     dialogs are presented to the user."
+
+    ^#(
+        win32
+        os2      "/ actually - this is no longer true
+        mac      "/ actually - this is no longer true
+        vms      "/ actually - this is no longer true
+        beos     "/ actually - this was never true
+        unix
+    )
+
+    "
+     OperatingSystem knownPlatformNames
+     OperatingSystem platformName
+    "
+
+    "Modified: 20.6.1997 / 17:37:26 / cg"
+!
+
 maxFileNameLength
     "return the max number of characters in a filename.
      CAVEAT:
@@ -3686,6 +3708,7 @@
     ^ #unix
 
     "
+     OperatingSystem knownPlatformNames
      OperatingSystem platformName
     "
 
@@ -6338,7 +6361,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.152 2006-08-07 13:13:15 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.153 2006-08-24 10:20:00 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!