equal
deleted
inserted
replaced
760 matchBlock:filterBlock |
760 matchBlock:filterBlock |
761 |
761 |
762 matchBlock := filterBlock. |
762 matchBlock := filterBlock. |
763 ! |
763 ! |
764 |
764 |
|
765 updateColumnsTask |
|
766 "return the value of the instance variable 'updateColumnsTask' (automatically generated)" |
|
767 |
|
768 ^ updateColumnsTask |
|
769 ! |
|
770 |
765 updateColumnsTask:something |
771 updateColumnsTask:something |
766 "set the value of the instance variable 'updateColumnsTask' (automatically generated)" |
772 "set the value of the instance variable 'updateColumnsTask' (automatically generated)" |
767 |
773 |
768 updateColumnsTask := something. |
774 updateColumnsTask := something. |
769 ! |
775 ! |
1704 updateChangesFor:aItem |
1710 updateChangesFor:aItem |
1705 |
1711 |
1706 aItem resetItemForChanges. |
1712 aItem resetItemForChanges. |
1707 ! |
1713 ! |
1708 |
1714 |
1709 updateColumnsTask |
|
1710 |somethingToDo| |
|
1711 |
|
1712 [true] whileTrue:[ |
|
1713 somethingToDo := false. |
|
1714 (self directory notNil) ifTrue:[ |
|
1715 somethingToDo := self updateColumnsTaskCycle. |
|
1716 Processor yield. |
|
1717 ]. |
|
1718 somethingToDo ifFalse:[ |
|
1719 Delay waitForSeconds:5 |
|
1720 ]. |
|
1721 ] |
|
1722 ! |
|
1723 |
|
1724 updateColumnsTaskCycle |
1715 updateColumnsTaskCycle |
1725 |
1716 |
1726 " update items in the foolowing order |
1717 " update items in the foolowing order |
1727 - update item if item properties are changed |
1718 - update item if item properties are changed |
1728 - update icon for visible items by suffix |
1719 - update icon for visible items by suffix |
1833 ]. |
1824 ]. |
1834 ]. |
1825 ]. |
1835 ^ false |
1826 ^ false |
1836 ! |
1827 ! |
1837 |
1828 |
|
1829 updateColumnsTaskProcedure |
|
1830 |somethingToDo| |
|
1831 |
|
1832 [true] whileTrue:[ |
|
1833 somethingToDo := false. |
|
1834 (self directory notNil) ifTrue:[ |
|
1835 somethingToDo := self updateColumnsTaskCycle. |
|
1836 Processor yield. |
|
1837 ]. |
|
1838 somethingToDo ifFalse:[ |
|
1839 Delay waitForSeconds:5 |
|
1840 ]. |
|
1841 ] |
|
1842 ! |
|
1843 |
1838 updateColumnsTaskStart |
1844 updateColumnsTaskStart |
1839 |process| |
1845 |process| |
1840 |
1846 |
1841 self directory notNil ifTrue:[ |
1847 self directory notNil ifTrue:[ |
1842 process := [ |
1848 process := [ |
1843 [ |
1849 [ |
1844 self updateColumnsTask |
1850 self updateColumnsTaskProcedure |
1845 ] valueNowOrOnUnwindDo:[ |
1851 ] valueNowOrOnUnwindDo:[ |
1846 self updateColumnsTask:nil. |
1852 self updateColumnsTask:nil. |
1847 ] |
1853 ] |
1848 ] newProcess. |
1854 ] newProcess. |
1849 "/ p priority:(Processor systemBackgroundPriority). |
1855 "/ p priority:(Processor systemBackgroundPriority). |
2756 ! ! |
2762 ! ! |
2757 |
2763 |
2758 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2764 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2759 |
2765 |
2760 version |
2766 version |
2761 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.57 2002-11-19 17:48:12 cg Exp $' |
2767 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.58 2002-11-19 17:49:56 cg Exp $' |
2762 ! ! |
2768 ! ! |