Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 09 Mar 2003 16:32:10 +0100
changeset 7111 3cc2963786e2
parent 7110 808437ea66af
child 7112 6299f5d9129c
*** empty log message ***
AbsoluteTime.st file | annotate | diff | comparison | revisions
Timestamp.st file | annotate | diff | comparison | revisions 
--- a/AbsoluteTime.st	Tue Mar 04 09:00:26 2003 +0100
+++ b/AbsoluteTime.st	Sun Mar 09 16:32:10 2003 +0100
@@ -538,11 +538,14 @@
     "set time from elapsed seconds since 1-1-1970, 0:0:0.
      This is the format used in the UNIX world"
 
-    ^ self year:1970 month:1 day:1 hour:0 minute:0 second:sec.
+    ^ self year:1970 month:1 day:1 hour:(sec // 3600) minute:0 second:(sec \\ 3600).
+
+"/    ^ self year:1970 month:1 day:1 hour:0 minute:0 second:sec.
 
     "
-	AbsoluteTime secondsSince1970:0
-	AbsoluteTime secondsSince1970:3600
+     AbsoluteTime secondsSince1970:0      
+     AbsoluteTime secondsSince1970:3600
+     AbsoluteTime secondsSince1970:3600*24
     "
 
     "Created: / 21.10.1996 / 17:48:30 / stefan"
@@ -1167,5 +1170,5 @@
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.75 2003-03-02 20:39:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.76 2003-03-09 15:32:10 cg Exp $'
 ! !
--- a/Timestamp.st	Tue Mar 04 09:00:26 2003 +0100
+++ b/Timestamp.st	Sun Mar 09 16:32:10 2003 +0100
@@ -538,11 +538,14 @@
     "set time from elapsed seconds since 1-1-1970, 0:0:0.
      This is the format used in the UNIX world"
 
-    ^ self year:1970 month:1 day:1 hour:0 minute:0 second:sec.
+    ^ self year:1970 month:1 day:1 hour:(sec // 3600) minute:0 second:(sec \\ 3600).
+
+"/    ^ self year:1970 month:1 day:1 hour:0 minute:0 second:sec.
 
     "
-	AbsoluteTime secondsSince1970:0
-	AbsoluteTime secondsSince1970:3600
+     AbsoluteTime secondsSince1970:0      
+     AbsoluteTime secondsSince1970:3600
+     AbsoluteTime secondsSince1970:3600*24
     "
 
     "Created: / 21.10.1996 / 17:48:30 / stefan"
@@ -1167,5 +1170,5 @@
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.75 2003-03-02 20:39:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.76 2003-03-09 15:32:10 cg Exp $'
 ! !
hg/stx-libbasic