Win32OperatingSystem.st
changeset 21144 a7c819d80c1a
parent 21120 b930eee62bd2
child 21180 88b19a6dc9c1
child 21243 f0ac467b9ade
equal deleted inserted replaced
21143:89370f05de89 21144:a7c819d80c1a
   976     "Modified: 22.4.1996 / 13:10:43 / cg"
   976     "Modified: 22.4.1996 / 13:10:43 / cg"
   977     "Created: 15.6.1996 / 15:22:37 / cg"
   977     "Created: 15.6.1996 / 15:22:37 / cg"
   978     "Modified: 7.1.1997 / 19:36:11 / stefan"
   978     "Modified: 7.1.1997 / 19:36:11 / stefan"
   979 ! !
   979 ! !
   980 
   980 
   981 
       
   982 !Win32OperatingSystem class methodsFor:'OS signal constants'!
   981 !Win32OperatingSystem class methodsFor:'OS signal constants'!
   983 
   982 
   984 sigABRT
   983 sigABRT
   985     "return the signal number for SIGABRT - 0 if not supported by OS
   984     "return the signal number for SIGABRT - 0 if not supported by OS
   986      (the numeric value is not the same across unix-systems)"
   985      (the numeric value is not the same across unix-systems)"
  9564 osName
  9563 osName
  9565     |osVersion|
  9564     |osVersion|
  9566 
  9565 
  9567     osVersion := OperatingSystem osVersion.
  9566     osVersion := OperatingSystem osVersion.
  9568     ^ 'Windows ',
  9567     ^ 'Windows ',
  9569 	(#('2000' 'XP' 'Server2003' 'VISTA' '7' '8')
  9568         (#('2000' 'XP' 'Server2003' 'VISTA' '7' '8' '8.1' '10')
  9570 	    at: (#('5.0' '5.1' '5.2' '6.0' '6.1' '6.2') indexOf:osVersion)
  9569             at: (#('5.0' '5.1' '5.2' '6.0' '6.1' '6.2' '6.3' '10.0') indexOf:osVersion)
  9571 	    ifAbsent:osVersion).
  9570             ifAbsent:osVersion).
  9572 
  9571 
  9573     "
  9572     "
  9574      self osName
  9573      self osName
  9575     "
  9574     "
  9576 
  9575