AbstractTime.st
changeset 13024 089f3e80f4a3
parent 12831 97be4636cf07
child 13026 8e8e14c406cf
equal deleted inserted replaced
13023:c7b914e6ed2b 13024:089f3e80f4a3
   351     ^ endTime - startTime
   351     ^ endTime - startTime
   352 
   352 
   353     "
   353     "
   354      Time secondsToRun:[1000 factorial]  
   354      Time secondsToRun:[1000 factorial]  
   355     "
   355     "
       
   356 !
       
   357 
       
   358 timeDurationToRun:aBlock
       
   359     "evaluate the argument, aBlock; return the TimeDuration it took"
       
   360 
       
   361     ^ (self millisecondsToRun:aBlock) milliseconds
       
   362 
       
   363     "
       
   364      Time timeDurationToRun:[10000 factorial]  
       
   365     "
       
   366 
       
   367     "Created: / 18-08-2010 / 10:44:04 / cg"
   356 ! !
   368 ! !
   357 
   369 
   358 !AbstractTime methodsFor:'Compatibility-ANSI'!
   370 !AbstractTime methodsFor:'Compatibility-ANSI'!
   359 
   371 
   360 hour12
   372 hour12
   421      (Time hours:11 minutes:59 seconds:59) meridianAbbreviation  
   433      (Time hours:11 minutes:59 seconds:59) meridianAbbreviation  
   422      (Time hours:12 minutes:0 seconds:0) meridianAbbreviation    
   434      (Time hours:12 minutes:0 seconds:0) meridianAbbreviation    
   423      (Time hours:12 minutes:0 seconds:1) meridianAbbreviation  
   435      (Time hours:12 minutes:0 seconds:1) meridianAbbreviation  
   424     "
   436     "
   425 ! !
   437 ! !
   426 
       
   427 
   438 
   428 !AbstractTime methodsFor:'abstract'!
   439 !AbstractTime methodsFor:'abstract'!
   429 
   440 
   430 hours
   441 hours
   431     "return the hour of time (0..23)"
   442     "return the hour of time (0..23)"
  1153 ! !
  1164 ! !
  1154 
  1165 
  1155 !AbstractTime class methodsFor:'documentation'!
  1166 !AbstractTime class methodsFor:'documentation'!
  1156 
  1167 
  1157 version
  1168 version
  1158     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010-03-31 13:52:36 stefan Exp $'
  1169     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.69 2010-08-18 08:44:40 cg Exp $'
  1159 !
  1170 !
  1160 
  1171 
  1161 version_CVS
  1172 version_CVS
  1162     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010-03-31 13:52:36 stefan Exp $'
  1173     ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.69 2010-08-18 08:44:40 cg Exp $'
  1163 ! !
  1174 ! !