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.
fix setSeconds:
authorStefan Vogel <sv@exept.de>
Wed, 20 Dec 1995 17:23:02 +0100
changeset 795 ff477bad0f2d
parent 794 d713b6c04379
child 796 28cde02334c8
fix setSeconds:
AbsTime.st file | annotate | diff | comparison | revisions
AbsoluteTime.st file | annotate | diff | comparison | revisions
Timestamp.st file | annotate | diff | comparison | revisions 
--- a/AbsTime.st	Wed Dec 20 14:17:33 1995 +0100
+++ b/AbsTime.st	Wed Dec 20 17:23:02 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 AbstractTime subclass:#AbsoluteTime
-	 instanceVariableNames:'osTime'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Magnitude-General'
+	instanceVariableNames:'osTime'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Magnitude-General'
 !
 
 !AbsoluteTime class methodsFor:'documentation'!
@@ -449,7 +449,9 @@
 setSeconds:secs
     "strictly private: set the seconds (since whatever)"
 
-    osTime := Array with:(secs // 16r10000) with:(secs \\ 16r10000)
+    osTime := Array with:(secs \\ 16r10000) with:(secs // 16r10000)
+
+    "Modified: 20.12.1995 / 11:46:36 / stefan"
 !
 
 setSecondsLow:secsLow and:secsHi
@@ -461,5 +463,5 @@
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.18 1995-12-07 21:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsTime.st,v 1.19 1995-12-20 16:23:02 stefan Exp $'
 ! !
--- a/AbsoluteTime.st	Wed Dec 20 14:17:33 1995 +0100
+++ b/AbsoluteTime.st	Wed Dec 20 17:23:02 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 AbstractTime subclass:#AbsoluteTime
-	 instanceVariableNames:'osTime'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Magnitude-General'
+	instanceVariableNames:'osTime'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Magnitude-General'
 !
 
 !AbsoluteTime class methodsFor:'documentation'!
@@ -449,7 +449,9 @@
 setSeconds:secs
     "strictly private: set the seconds (since whatever)"
 
-    osTime := Array with:(secs // 16r10000) with:(secs \\ 16r10000)
+    osTime := Array with:(secs \\ 16r10000) with:(secs // 16r10000)
+
+    "Modified: 20.12.1995 / 11:46:36 / stefan"
 !
 
 setSecondsLow:secsLow and:secsHi
@@ -461,5 +463,5 @@
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.18 1995-12-07 21:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/AbsoluteTime.st,v 1.19 1995-12-20 16:23:02 stefan Exp $'
 ! !
--- a/Timestamp.st	Wed Dec 20 14:17:33 1995 +0100
+++ b/Timestamp.st	Wed Dec 20 17:23:02 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 AbstractTime subclass:#AbsoluteTime
-	 instanceVariableNames:'osTime'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Magnitude-General'
+	instanceVariableNames:'osTime'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Magnitude-General'
 !
 
 !AbsoluteTime class methodsFor:'documentation'!
@@ -449,7 +449,9 @@
 setSeconds:secs
     "strictly private: set the seconds (since whatever)"
 
-    osTime := Array with:(secs // 16r10000) with:(secs \\ 16r10000)
+    osTime := Array with:(secs \\ 16r10000) with:(secs // 16r10000)
+
+    "Modified: 20.12.1995 / 11:46:36 / stefan"
 !
 
 setSecondsLow:secsLow and:secsHi
@@ -461,5 +463,5 @@
 !AbsoluteTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.18 1995-12-07 21:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.19 1995-12-20 16:23:02 stefan Exp $'
 ! !
hg/stx-libbasic