equal
deleted
inserted
replaced
1181 connectedLabel := label |
1181 connectedLabel := label |
1182 ! |
1182 ! |
1183 |
1183 |
1184 startBusyIndicationProcess |
1184 startBusyIndicationProcess |
1185 busyIndicationProcess isNil ifTrue:[ |
1185 busyIndicationProcess isNil ifTrue:[ |
1186 busyPosition := 0. |
1186 busyPosition := 0. |
1187 busyDelta := 5. |
1187 busyDelta := 3. |
1188 busyIndicationProcess := [ |
1188 busyIndicationProcess := [ |
1189 [self realized] whileTrue:[ |
1189 [self realized] whileTrue:[ |
1190 Delay waitForSeconds:0.2. |
1190 Delay waitForSeconds:0.1. |
1191 self shown ifTrue:[ |
1191 self shown ifTrue:[ |
1192 self updateBusyIndicatorPosition. |
1192 self updateBusyIndicatorPosition. |
1193 ] |
1193 ] |
1194 ]. |
1194 ]. |
1195 busyIndicationProcess := nil. |
1195 busyIndicationProcess := nil. |
1196 ] fork. |
1196 ] fork. |
1197 ]. |
1197 ]. |
1198 |
1198 |
1199 "Created: / 21.10.1998 / 18:02:35 / cg" |
1199 "Created: / 21.10.1998 / 18:02:35 / cg" |
1200 "Modified: / 21.10.1998 / 18:03:49 / cg" |
1200 "Modified: / 21.10.1998 / 18:03:49 / cg" |
1201 ! |
1201 ! |
1209 "Created: / 21.10.1998 / 17:30:19 / cg" |
1209 "Created: / 21.10.1998 / 17:30:19 / cg" |
1210 ! |
1210 ! |
1211 |
1211 |
1212 updateBusyIndicatorPosition |
1212 updateBusyIndicatorPosition |
1213 busyPosition := busyPosition + busyDelta. |
1213 busyPosition := busyPosition + busyDelta. |
1214 busyPosition >= 80 ifTrue:[ |
1214 busyPosition >= 95 ifTrue:[ |
1215 busyDelta > 0 ifTrue:[ |
1215 busyPosition := -15. |
1216 busyDelta := busyDelta negated. |
1216 ]. |
1217 ] |
1217 "/ busyPosition >= 80 ifTrue:[ |
1218 ] ifFalse:[ |
1218 "/ busyDelta > 0 ifTrue:[ |
1219 busyPosition <= 0 ifTrue:[ |
1219 "/ busyDelta := busyDelta negated. |
1220 busyDelta < 0 ifTrue:[ |
1220 "/ ] |
1221 busyDelta := busyDelta negated. |
1221 "/ ] ifFalse:[ |
1222 ] |
1222 "/ busyPosition <= 0 ifTrue:[ |
1223 ] |
1223 "/ busyDelta < 0 ifTrue:[ |
1224 ]. |
1224 "/ busyDelta := busyDelta negated. |
1225 self invalidate |
1225 "/ ] |
|
1226 "/ ] |
|
1227 "/ ]. |
|
1228 self invalidateRepairNow:true |
1226 |
1229 |
1227 "Created: / 21.10.1998 / 17:33:28 / cg" |
1230 "Created: / 21.10.1998 / 17:33:28 / cg" |
1228 "Modified: / 21.10.1998 / 17:58:58 / cg" |
1231 "Modified: / 21.10.1998 / 17:58:58 / cg" |
1229 ! ! |
1232 ! ! |
1230 |
1233 |
1699 ! ! |
1702 ! ! |
1700 |
1703 |
1701 !ProgressIndicator class methodsFor:'documentation'! |
1704 !ProgressIndicator class methodsFor:'documentation'! |
1702 |
1705 |
1703 version |
1706 version |
1704 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $' |
1707 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.73 2013-05-07 16:33:34 cg Exp $' |
1705 ! |
1708 ! |
1706 |
1709 |
1707 version_CVS |
1710 version_CVS |
1708 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $' |
1711 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.73 2013-05-07 16:33:34 cg Exp $' |
1709 ! ! |
1712 ! ! |
|
1713 |