--- a/Win32OperatingSystem.st Thu Nov 13 12:29:50 2003 +0100
+++ b/Win32OperatingSystem.st Fri Nov 14 13:34:13 2003 +0100
@@ -11,6 +11,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:5.1.4 on 14-nov-2003 at 01:32:36 pm' !
+
"{ Package: 'stx:libbasic' }"
AbstractOperatingSystem subclass:#Win32OperatingSystem
@@ -58,7 +60,7 @@
privateIn:Win32OperatingSystem
!
-Win32Handle subclass:#Win32ProcessHandle
+Win32OperatingSystem::Win32Handle subclass:#Win32ProcessHandle
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -6672,7 +6674,7 @@
"
!
-timeInfoFromSeconds:osSeconds localTime:isLocalTime
+timeInfoFromSeconds:osSeconds milliseconds:osMilliSeconds localTime:isLocalTime
"return a timeInfo structure containing values for the given
OS-second value.
An internal helper"
@@ -6702,30 +6704,31 @@
wDay = __MKSMALLINT(tmPtr->tm_wday == 0 ? 7 : tmPtr->tm_wday);
if (tmPtr->tm_isdst == 0) {
- dst = false;
- utcOffset = __MKINT(TIMEZONE(tmPtr));
+ dst = false;
+ utcOffset = __MKINT(TIMEZONE(tmPtr));
} else {
- dst = true;
+ dst = true;
#ifdef HAS_ALTZONE
- utcOffset = __MKINT(altzone);
+ utcOffset = __MKINT(altzone);
#else
- utcOffset = __MKINT(TIMEZONE(tmPtr) + 3600);
+ utcOffset = __MKINT(TIMEZONE(tmPtr) + 3600);
#endif
}
%}.
info := self timeInfoClass new.
info
- year:year
- month:month
- day:day
- hours:hours
- minutes:minutes
- seconds:seconds
- utcOffset:utcOffset
- dst:dst
- dayInYear:yDay
- dayInWeek:wDay.
+ year:year
+ month:month
+ day:day
+ hours:hours
+ minutes:minutes
+ seconds:seconds
+ milliseconds:osMilliSeconds
+ utcOffset:utcOffset
+ dst:dst
+ dayInYear:yDay
+ dayInWeek:wDay.
^ info
"
@@ -8849,7 +8852,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.137 2003-10-29 09:52:52 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.138 2003-11-14 12:34:13 stefan Exp $'
! !
!Win32OperatingSystem::Win32FILEHandle methodsFor:'release'!
@@ -8876,7 +8879,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.137 2003-10-29 09:52:52 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.138 2003-11-14 12:34:13 stefan Exp $'
! !
!Win32OperatingSystem::Win32Handle methodsFor:'io'!
@@ -9263,7 +9266,7 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.137 2003-10-29 09:52:52 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.138 2003-11-14 12:34:13 stefan Exp $'
! !
Win32OperatingSystem initialize!