equal
deleted
inserted
replaced
1538 p := [ |
1538 p := [ |
1539 [ |
1539 [ |
1540 WindowGroup windowGroupQuerySignal handle:[:ex | |
1540 WindowGroup windowGroupQuerySignal handle:[:ex | |
1541 ex proceedWith:self topView windowGroup |
1541 ex proceedWith:self topView windowGroup |
1542 ] do:[ |
1542 ] do:[ |
1543 AbortSignal handle:[:ex | |
1543 AbortOperationRequest handle:[:ex | |
1544 aborted := true |
1544 aborted := true |
1545 ] do:[ |
1545 ] do:[ |
1546 aBlock value:progressValue value:labelValue |
1546 aBlock value:progressValue value:labelValue |
1547 ] |
1547 ] |
1548 ] |
1548 ] |
1561 p resume. |
1561 p resume. |
1562 self topView show. |
1562 self topView show. |
1563 ]. |
1563 ]. |
1564 p notNil ifTrue:[p terminate]. |
1564 p notNil ifTrue:[p terminate]. |
1565 aborted ifTrue:[ |
1565 aborted ifTrue:[ |
1566 AbortSignal raiseRequest |
1566 AbortOperationRequest raiseRequest |
1567 ]. |
1567 ]. |
1568 |
1568 |
1569 " |
1569 " |
1570 |p| |
1570 |p| |
1571 |
1571 |
1721 ! ! |
1721 ! ! |
1722 |
1722 |
1723 !ProgressIndicator class methodsFor:'documentation'! |
1723 !ProgressIndicator class methodsFor:'documentation'! |
1724 |
1724 |
1725 version |
1725 version |
1726 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $' |
1726 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.76 2014-01-23 16:11:43 stefan Exp $' |
1727 ! |
1727 ! |
1728 |
1728 |
1729 version_CVS |
1729 version_CVS |
1730 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.75 2013-07-04 15:47:59 cg Exp $' |
1730 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.76 2014-01-23 16:11:43 stefan Exp $' |
1731 ! ! |
1731 ! ! |
1732 |
1732 |