Win32OperatingSystem.st
changeset 7534 9cc58f3d3469
parent 7533 3d6e54708528
child 7535 9bcb9a436394
--- a/Win32OperatingSystem.st	Fri Jul 25 22:13:35 2003 +0200
+++ b/Win32OperatingSystem.st	Fri Jul 25 22:15:54 2003 +0200
@@ -6330,11 +6330,9 @@
      OS-second value.
      An internal helper"
 
-    |low hi year month day hours minutes seconds millis utcOffset 
-     dst yDay wDay osSeconds info|
-
-    millis := osTime \\ 1000.
-    osSeconds := osTime // 1000.
+    |low hi year month day hours minutes seconds utcOffset 
+     dst yDay wDay info|
+
 %{
     struct tm *tmPtr;
     struct tm *gmTmPtr;
@@ -6381,7 +6379,6 @@
 	dst:dst
 	dayInYear:yDay
 	dayInWeek:wDay.
-	info milliseconds:millis.
     ^ info
 
     "
@@ -8892,7 +8889,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.130 2003-07-25 20:13:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.131 2003-07-25 20:15:54 cg Exp $'
 ! !
 
 !Win32OperatingSystem::Win32FILEHandle methodsFor:'release'!
@@ -8919,7 +8916,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.130 2003-07-25 20:13:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.131 2003-07-25 20:15:54 cg Exp $'
 ! !
 
 !Win32OperatingSystem::Win32Handle methodsFor:'io'!
@@ -9306,7 +9303,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.130 2003-07-25 20:13:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.131 2003-07-25 20:15:54 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!