equal
deleted
inserted
replaced
82 |
82 |
83 "Created: / 05-05-2011 / 17:20:49 / cg" |
83 "Created: / 05-05-2011 / 17:20:49 / cg" |
84 ! |
84 ! |
85 |
85 |
86 autoUpdateLoop |
86 autoUpdateLoop |
87 [true] whileTrue:[ |
87 |delay interval| |
|
88 |
|
89 [ |
88 self autoUpdate. |
90 self autoUpdate. |
89 Delay waitFor:self autoUpdateInterval |
91 interval ~= self autoUpdateInterval ifTrue:[ |
90 ]. |
92 interval := self autoUpdateInterval. |
|
93 delay := Delay forSeconds:interval. |
|
94 ]. |
|
95 delay wait. |
|
96 ] loop. |
91 |
97 |
92 "Created: / 05-05-2011 / 17:20:44 / cg" |
98 "Created: / 05-05-2011 / 17:20:44 / cg" |
|
99 "Modified: / 23-02-2017 / 14:14:24 / stefan" |
93 ! |
100 ! |
94 |
101 |
95 openAutoUpdateIntervalDialog |
102 openAutoUpdateIntervalDialog |
96 |s| |
103 |s| |
97 |
104 |