--- a/ToolApplicationModel.st Tue Jul 06 00:00:33 1999 +0200
+++ b/ToolApplicationModel.st Tue Jul 06 11:43:08 1999 +0200
@@ -907,6 +907,58 @@
self valueOfCanPaste value: anEditObject notNil
! !
+!ToolApplicationModel methodsFor:'clock handling'!
+
+startClock
+ "/ start the time-block
+ self startClockOnTimedBlock:[self updateTime].
+!
+
+startClockOnTimedBlock: aBlock
+ "sets and starts the (optional) time block"
+
+ timeBlock := aBlock.
+ aBlock value.
+
+ "Modified: / 31.7.1998 / 18:46:28 / cg"
+!
+
+stopClock
+ "/ stop the time-block
+
+ timeBlock notNil ifTrue:[
+ Processor removeTimedBlock:timeBlock.
+ timeBlock := nil.
+ ].
+ self valueOfTimeLabel value:''
+!
+
+updateTime
+ "update my time-field"
+
+ |now hours minutes suffix|
+
+ now := Time now.
+
+ hours := now hours.
+ minutes := now minutes printString.
+ suffix := ' '.
+
+ (resources at:'TIME_FORMAT' ifAbsent:12) == 12 ifTrue:[
+ suffix := ' am '.
+ hours > 12 ifTrue: [hours := hours - 12. suffix := ' pm '].
+ ].
+
+ minutes size = 1 ifTrue: [minutes := '0', minutes].
+
+ self valueOfTimeLabel value:(hours printString, ':', minutes, suffix).
+
+ timeBlock notNil ifTrue:[
+ Processor removeTimedBlock:timeBlock.
+ Processor addTimedBlock:timeBlock afterSeconds:5
+ ]
+! !
+
!ToolApplicationModel methodsFor:'defaults'!
aboutImage
@@ -1159,15 +1211,6 @@
"Modified: / 31.7.1998 / 18:17:34 / cg"
!
-startClockOnTimedBlock: aBlock
- "sets and starts the (optional) time block"
-
- timeBlock := aBlock.
- aBlock value.
-
- "Modified: / 31.7.1998 / 18:46:28 / cg"
-!
-
uninitialize
"stops active help for this tool and (if defined) removes the time block"
@@ -1180,5 +1223,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.88 1999-05-06 18:53:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.89 1999-07-06 09:43:08 cg Exp $'
! !