--- 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!