1742 "/ also, don't want a callback (selectionChangedByClick) |
1740 "/ also, don't want a callback (selectionChangedByClick) |
1743 sav := listView action. |
1741 sav := listView action. |
1744 listView action:nil. |
1742 listView action:nil. |
1745 self classNameList value:newNameList. |
1743 self classNameList value:newNameList. |
1746 ] ensure:[ |
1744 ] ensure:[ |
1747 listView action:sav. |
1745 MessageNotUnderstood handle:[:ex | |
1748 self selectedClassNameIndices addDependent:self. |
1746 "if #scrolledView inside #listView has been released (set to nil) ignore the DNU" |
1749 listView scrollWhenUpdating:prevMode. |
1747 listView scrolledView notNil ifTrue:[ |
|
1748 ex reject. |
|
1749 ]. |
|
1750 ] do:[ |
|
1751 listView action:sav. |
|
1752 ]. |
|
1753 |
|
1754 self selectedClassNameIndices addDependent:self. |
|
1755 |
|
1756 MessageNotUnderstood handle:[:ex | |
|
1757 "if #scrolledView inside #listView has been released (set to nil) ignore the DNU" |
|
1758 listView scrolledView notNil ifTrue:[ |
|
1759 ex reject. |
|
1760 ]. |
|
1761 ] do:[ |
|
1762 listView scrollWhenUpdating:prevMode. |
|
1763 ]. |
1750 ]. |
1764 ]. |
1751 ] |
1765 ] |
1752 ]. |
1766 ]. |
1753 |
1767 |
1754 "Modified: / 31.10.2001 / 11:33:21 / cg" |
1768 "Modified: / 31-10-2001 / 11:33:21 / cg" |
|
1769 "Modified: / 11-07-2019 / 10:32:57 / Stefan Reise" |
1755 ! |
1770 ! |
1756 |
1771 |
1757 updateClassesIn:aCollection |
1772 updateClassesIn:aCollection |
1758 "replace any obsolete class in aCollection; |
1773 "replace any obsolete class in aCollection; |
1759 return true, if any was found" |
1774 return true, if any was found" |