equal
deleted
inserted
replaced
1788 Q: is it a good idea to preserve the last searchstring between views ? |
1788 Q: is it a good idea to preserve the last searchstring between views ? |
1789 " |
1789 " |
1790 |
1790 |
1791 |searchBox patternHolder caseHolder |
1791 |searchBox patternHolder caseHolder |
1792 pattern fwd ign initialString |
1792 pattern fwd ign initialString |
1793 bindings bldr searchAction modal| |
1793 bindings bldr search modal| |
1794 |
1794 |
1795 searchAction := nil. |
1795 searchAction := nil. |
1796 |
1796 |
1797 modal := (UserPreferences current searchDialogIsModal). "/ thats experimental |
1797 modal := (UserPreferences current searchDialogIsModal). "/ thats experimental |
1798 |
1798 |
1817 patternHolder value:initialString. |
1817 patternHolder value:initialString. |
1818 ]. |
1818 ]. |
1819 |
1819 |
1820 fwd := true. |
1820 fwd := true. |
1821 |
1821 |
1822 searchAction := [:fwd | |
1822 search := [:fwd | |
1823 pattern := patternHolder value. |
1823 pattern := patternHolder value. |
1824 pattern := pattern string withoutSeparators. "/ is that a good idea ? |
1824 pattern := pattern string withoutSeparators. "/ is that a good idea ? |
1825 pattern notEmpty ifTrue:[ |
1825 pattern notEmpty ifTrue:[ |
1826 self rememberSearchPattern:pattern. |
1826 self rememberSearchPattern:pattern. |
1827 |
1827 |
1842 bindings at:#searchPattern put:patternHolder. |
1842 bindings at:#searchPattern put:patternHolder. |
1843 modal ifTrue:[ |
1843 modal ifTrue:[ |
1844 bindings at:#nextAction put:[searchBox doAccept.]. |
1844 bindings at:#nextAction put:[searchBox doAccept.]. |
1845 bindings at:#prevAction put:[fwd := false. searchBox doAccept.]. |
1845 bindings at:#prevAction put:[fwd := false. searchBox doAccept.]. |
1846 ] ifFalse:[ |
1846 ] ifFalse:[ |
1847 bindings at:#nextAction put:[searchAction value:true. "searchBox doAccept."]. |
1847 bindings at:#nextAction put:[search value:true. "searchBox doAccept."]. |
1848 bindings at:#prevAction put:[searchAction value:false. "fwd := false. searchBox doAccept."]. |
1848 bindings at:#prevAction put:[search value:false. "fwd := false. searchBox doAccept."]. |
1849 ]. |
1849 ]. |
1850 bindings at:#ignoreCase put:caseHolder. |
1850 bindings at:#ignoreCase put:caseHolder. |
1851 bindings at:#patternList put:LastSearchPatterns. |
1851 bindings at:#patternList put:LastSearchPatterns. |
1852 |
1852 |
1853 modal ifTrue:[ |
1853 modal ifTrue:[ |
1866 (bldr componentAt:#prevButton) cursor:(Cursor thumbsUp). |
1866 (bldr componentAt:#prevButton) cursor:(Cursor thumbsUp). |
1867 (bldr componentAt:#cancelButton) cursor:(Cursor thumbsDown). |
1867 (bldr componentAt:#cancelButton) cursor:(Cursor thumbsDown). |
1868 |
1868 |
1869 modal ifTrue:[ |
1869 modal ifTrue:[ |
1870 searchBox openDialog. |
1870 searchBox openDialog. |
1871 searchBox accepted ifTrue:[ searchAction value:fwd ]. |
1871 searchBox accepted ifTrue:[ search value:fwd ]. |
1872 ] ifFalse:[ |
1872 ] ifFalse:[ |
1873 (bldr componentAt:#nextButton) isReturnButton:false. |
1873 (bldr componentAt:#nextButton) isReturnButton:false. |
1874 (bldr componentAt:#cancelButton) |
1874 (bldr componentAt:#cancelButton) |
1875 label:(resources string:'Close'); |
1875 label:(resources string:'Close'); |
1876 action:[searchBox closeRequest]. |
1876 action:[searchBox closeRequest]. |
3710 ! ! |
3710 ! ! |
3711 |
3711 |
3712 !TextView class methodsFor:'documentation'! |
3712 !TextView class methodsFor:'documentation'! |
3713 |
3713 |
3714 version |
3714 version |
3715 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.212 2003-09-23 17:49:46 cg Exp $' |
3715 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.213 2003-09-23 17:51:13 cg Exp $' |
3716 ! ! |
3716 ! ! |
3717 |
3717 |
3718 TextView initialize! |
3718 TextView initialize! |