Time.st
changeset 88 81dacba7a63a
parent 77 6c38ca59927f
child 95 d22739a0c6e9
equal deleted inserted replaced
87:a0cc38a72871 88:81dacba7a63a
    16        poolDictionaries:''
    16        poolDictionaries:''
    17        category:'Magnitude-General'
    17        category:'Magnitude-General'
    18 !
    18 !
    19 
    19 
    20 Time comment:'
    20 Time comment:'
    21 
       
    22 COPYRIGHT (c) 1989 by Claus Gittinger
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    23               All Rights Reserved
    22               All Rights Reserved
       
    23 '!
    24 
    24 
    25 $Header: /cvs/stx/stx/libbasic/Time.st,v 1.8 1994-05-17 10:09:27 claus Exp $
    25 !Time class methodsFor:'documentation'!
    26 '!
    26 
       
    27 copyright
       
    28 "
       
    29  COPYRIGHT (c) 1989 by Claus Gittinger
       
    30               All Rights Reserved
       
    31 
       
    32  This software is furnished under a license and may be used
       
    33  only in accordance with the terms of that license and with the
       
    34  inclusion of the above copyright notice.   This software may not
       
    35  be provided or otherwise made available to, or used by, any
       
    36  other person.  No title to or ownership of the software is
       
    37  hereby transferred.
       
    38 "
       
    39 !
       
    40 
       
    41 version
       
    42 "
       
    43 $Header: /cvs/stx/stx/libbasic/Time.st,v 1.9 1994-06-02 16:22:29 claus Exp $
       
    44 "
       
    45 !
       
    46 
       
    47 documentation
       
    48 "
       
    49     Instances of time represent a particular time-of-day.
       
    50 "
       
    51 ! !
    27 
    52 
    28 !Time class methodsFor:'instance creation'!
    53 !Time class methodsFor:'instance creation'!
    29 
    54 
    30 now
    55 now
    31     "return an instance of Time representing this moment"
    56     "return an instance of Time representing this moment"
    35 !
    60 !
    36 
    61 
    37 fromOSTime:osTime
    62 fromOSTime:osTime
    38     "return a time, representing the time given by the operatingSystem time"
    63     "return a time, representing the time given by the operatingSystem time"
    39 
    64 
    40     ^ self basicNew setSecondsLow:(osTime at:1)
    65     ^ self basicNew setSecondsLow:(osTime at:1) and:(osTime at:2)
    41                               and:(osTime at:2)
       
    42 ! !
    66 ! !
    43 
    67 
    44 !Time class methodsFor:'ST-80 compatibility'!
    68 !Time class methodsFor:'ST-80 compatibility'!
    45 
    69 
    46 fromSeconds: seconds
    70 fromSeconds: seconds