equal
deleted
inserted
replaced
627 |
627 |
628 "Created: / 21.10.1998 / 17:35:16 / cg" |
628 "Created: / 21.10.1998 / 17:35:16 / cg" |
629 "Modified: / 21.10.1998 / 18:03:06 / cg" |
629 "Modified: / 21.10.1998 / 18:03:06 / cg" |
630 ! ! |
630 ! ! |
631 |
631 |
632 !ProgressIndicator methodsFor:'accessing - look'! |
632 !ProgressIndicator methodsFor:'accessing-behavior'! |
|
633 |
|
634 closeTopWhenDone:aBoolean |
|
635 "set/clear the close-topView-when-done flag" |
|
636 |
|
637 closeTopWhenDone := aBoolean |
|
638 |
|
639 "Created: 3.9.1996 / 14:22:03 / cg" |
|
640 "Modified: 29.3.1997 / 16:08:19 / cg" |
|
641 ! |
|
642 |
|
643 finishAction:aBlock |
|
644 "define an action to be performed when finished" |
|
645 |
|
646 finishAction := aBlock |
|
647 |
|
648 "Created: 3.9.1996 / 14:15:15 / cg" |
|
649 "Modified: 29.3.1997 / 16:08:35 / cg" |
|
650 ! ! |
|
651 |
|
652 !ProgressIndicator methodsFor:'accessing-look'! |
633 |
653 |
634 backgroundColor |
654 backgroundColor |
635 "return the percentage displays background color" |
655 "return the percentage displays background color" |
636 |
656 |
637 ^ bgColor |
657 ^ bgColor |
689 shown ifTrue:[ |
709 shown ifTrue:[ |
690 self invalidateRepairNow:true |
710 self invalidateRepairNow:true |
691 ]. |
711 ]. |
692 |
712 |
693 "Modified: / 6.6.1998 / 19:28:44 / cg" |
713 "Modified: / 6.6.1998 / 19:28:44 / cg" |
694 ! ! |
|
695 |
|
696 !ProgressIndicator methodsFor:'accessing-behavior'! |
|
697 |
|
698 closeTopWhenDone:aBoolean |
|
699 "set/clear the close-topView-when-done flag" |
|
700 |
|
701 closeTopWhenDone := aBoolean |
|
702 |
|
703 "Created: 3.9.1996 / 14:22:03 / cg" |
|
704 "Modified: 29.3.1997 / 16:08:19 / cg" |
|
705 ! |
|
706 |
|
707 finishAction:aBlock |
|
708 "define an action to be performed when finished" |
|
709 |
|
710 finishAction := aBlock |
|
711 |
|
712 "Created: 3.9.1996 / 14:15:15 / cg" |
|
713 "Modified: 29.3.1997 / 16:08:35 / cg" |
|
714 ! ! |
714 ! ! |
715 |
715 |
716 !ProgressIndicator methodsFor:'change & update'! |
716 !ProgressIndicator methodsFor:'change & update'! |
717 |
717 |
718 update:aspect with:aParameter from:changedObject |
718 update:aspect with:aParameter from:changedObject |
1026 ! ! |
1026 ! ! |
1027 |
1027 |
1028 !ProgressIndicator class methodsFor:'documentation'! |
1028 !ProgressIndicator class methodsFor:'documentation'! |
1029 |
1029 |
1030 version |
1030 version |
1031 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.40 2002-12-10 10:47:59 cg Exp $' |
1031 ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.41 2002-12-10 11:05:10 cg Exp $' |
1032 ! ! |
1032 ! ! |