equal
deleted
inserted
replaced
613 ! |
613 ! |
614 |
614 |
615 displayBusyIndicator:aLabel at:aPoint during:aBlock |
615 displayBusyIndicator:aLabel at:aPoint during:aBlock |
616 "easy interface - show progress while evaluating aBlock. |
616 "easy interface - show progress while evaluating aBlock. |
617 The block is passed a valueHolder, which is to be set to values from |
617 The block is passed a valueHolder, which is to be set to values from |
618 startValue to endValue during the blocks evaluation. |
618 startValue to endValue during the block's evaluation. |
619 This is scaled to 0..100% completion. |
619 This is scaled to 0..100% completion. |
620 Set the valueHolder to nil, to get a busy-indicator" |
620 Set the valueHolder to nil, to get a busy-indicator" |
621 |
621 |
622 self |
622 self |
623 displayBusyIndicator:aLabel |
623 displayBusyIndicator:aLabel |
633 200 to:400 by:5 do:[:i | |
633 200 to:400 by:5 do:[:i | |
634 Delay waitForSeconds:0.1. |
634 Delay waitForSeconds:0.1. |
635 ] |
635 ] |
636 ]. |
636 ]. |
637 " |
637 " |
|
638 |
|
639 "Modified (comment): / 13-03-2019 / 10:26:23 / Claus Gittinger" |
638 ! |
640 ! |
639 |
641 |
640 displayBusyIndicator:aLabel message:messageString abortable:abortable at:aPoint during:aBlock |
642 displayBusyIndicator:aLabel message:messageString abortable:abortable at:aPoint during:aBlock |
641 "easy interface - show progress while evaluating aBlock. |
643 "easy interface - show progress while evaluating aBlock. |
642 The block is passed the progressIndicator as argument |
644 The block is passed the progressIndicator as argument |
695 ! |
697 ! |
696 |
698 |
697 displayBusyIndicator:aLabel message:messageString at:aPoint during:aBlock |
699 displayBusyIndicator:aLabel message:messageString at:aPoint during:aBlock |
698 "easy interface - show progress while evaluating aBlock. |
700 "easy interface - show progress while evaluating aBlock. |
699 The block is passed a valueHolder, which is to be set to values from |
701 The block is passed a valueHolder, which is to be set to values from |
700 startValue to endValue during the blocks evaluation. |
702 startValue to endValue during the block's evaluation. |
701 This is scaled to 0..100% completion. |
703 This is scaled to 0..100% completion. |
702 Set the valueHolder to nil, to get a busy-indicator" |
704 Set the valueHolder to nil, to get a busy-indicator" |
703 |
705 |
704 self |
706 self |
705 displayBusyIndicator:aLabel |
707 displayBusyIndicator:aLabel |
720 ]. |
722 ]. |
721 " |
723 " |
722 |
724 |
723 "Created: / 12-11-2010 / 19:01:12 / cg" |
725 "Created: / 12-11-2010 / 19:01:12 / cg" |
724 "Modified (comment): / 11-07-2018 / 10:40:31 / Stefan Vogel" |
726 "Modified (comment): / 11-07-2018 / 10:40:31 / Stefan Vogel" |
|
727 "Modified (comment): / 13-03-2019 / 10:26:28 / Claus Gittinger" |
725 ! |
728 ! |
726 |
729 |
727 displayProgress:aLabel at:aPoint from:startValue to:endValue during:aBlock |
730 displayProgress:aLabel at:aPoint from:startValue to:endValue during:aBlock |
728 "easy interface - show progress while evaluating aBlock. |
731 "easy interface - show progress while evaluating aBlock. |
729 The block is passed a valueHolder, which is to be set to values from |
732 The block is passed a valueHolder, which is to be set to values from |
730 startValue to endValue during the blocks evaluation. |
733 startValue to endValue during the block's evaluation. |
731 This is scaled to 0..100% completion. |
734 This is scaled to 0..100% completion. |
732 Set the valueHolder to nil, to get a busy-indicator" |
735 Set the valueHolder to nil, to get a busy-indicator" |
733 |
736 |
734 ^ self |
737 ^ self |
735 displayProgress:aLabel |
738 displayProgress:aLabel |
751 ] |
754 ] |
752 ]. |
755 ]. |
753 " |
756 " |
754 |
757 |
755 "Modified: / 12-11-2010 / 19:02:27 / cg" |
758 "Modified: / 12-11-2010 / 19:02:27 / cg" |
|
759 "Modified (comment): / 13-03-2019 / 10:26:31 / Claus Gittinger" |
756 ! |
760 ! |
757 |
761 |
758 displayProgress:aLabel message:messageString at:aPoint from:startValue to:endValue during:aBlock |
762 displayProgress:aLabel message:messageString at:aPoint from:startValue to:endValue during:aBlock |
759 "easy interface - show progress while evaluating aBlock. |
763 "easy interface - show progress while evaluating aBlock. |
760 The block is passed a valueHolder, which is to be set to values from |
764 The block is passed a valueHolder, which is to be set to values from |
761 startValue to endValue during the blocks evaluation. |
765 startValue to endValue during the block's evaluation. |
762 This is scaled to 0..100% completion. |
766 This is scaled to 0..100% completion. |
763 Set the valueHolder to nil, to get a busy-indicator" |
767 Set the valueHolder to nil, to get a busy-indicator" |
764 |
768 |
765 |p| |
769 |p| |
766 |
770 |
814 ] |
818 ] |
815 ]. |
819 ]. |
816 " |
820 " |
817 |
821 |
818 "Created: / 12-11-2010 / 19:01:38 / cg" |
822 "Created: / 12-11-2010 / 19:01:38 / cg" |
|
823 "Modified (comment): / 13-03-2019 / 10:26:34 / Claus Gittinger" |
819 ! |
824 ! |
820 |
825 |
821 displayProgressNotifications:aLabel abortable:abortable at:aPointOrNil during:aBlock |
826 displayProgressNotifications:aLabel abortable:abortable at:aPointOrNil during:aBlock |
822 "easy interface - show progress as provided by progressNotifications |
827 "easy interface - show progress as provided by progressNotifications |
823 while evaluating aBlock. |
828 while evaluating aBlock. |