equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1990 by Claus Gittinger |
4 COPYRIGHT (c) 1990 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
4177 |f info | |
4179 |f info | |
4178 |
4180 |
4179 Processor removeTimedBlock:checkBlock. |
4181 Processor removeTimedBlock:checkBlock. |
4180 f := changeFileName asFilename. |
4182 f := changeFileName asFilename. |
4181 (info := f info) isNil ifTrue:[ |
4183 (info := f info) isNil ifTrue:[ |
4182 self newLabel:'(unaccessable)' |
4184 self newLabel:'(unaccessible)' |
4183 ] ifFalse:[ |
4185 ] ifFalse:[ |
4184 (info modificationTime) > changeFileTimestamp ifTrue:[ |
4186 (info modificationTime) > changeFileTimestamp ifTrue:[ |
4185 self newLabel:'(outdated)'. |
4187 self newLabel:'(outdated)'. |
4186 autoUpdate value ifTrue:[ |
4188 autoUpdate value ifTrue:[ |
4187 self doUpdate |
4189 self doUpdate |
4188 ] |
4190 ] |
4189 ] ifFalse:[ |
4191 ] ifFalse:[ |
4190 self newLabel:'' |
4192 self newLabel:'' |
4191 ] |
4193 ] |
4192 ]. |
4194 ]. |
4193 Processor addTimedBlock:checkBlock afterSeconds:5. |
4195 Processor addTimedBlock:checkBlock afterSeconds:5. |
4194 |
4196 |
4195 "Created: 8.9.1995 / 19:30:19 / claus" |
4197 "Created: 8.9.1995 / 19:30:19 / claus" |
4196 "Modified: 8.9.1995 / 19:38:18 / claus" |
4198 "Modified: 8.9.1995 / 19:38:18 / claus" |