equal
deleted
inserted
replaced
1790 self searchDirectoryHolder value:(self getDirWithoutFileName:file). |
1790 self searchDirectoryHolder value:(self getDirWithoutFileName:file). |
1791 |
1791 |
1792 file isDirectory ifTrue:[ |
1792 file isDirectory ifTrue:[ |
1793 newPattern := '*'. |
1793 newPattern := '*'. |
1794 ] ifFalse:[ |
1794 ] ifFalse:[ |
1795 newPattern := '*.', anItem suffix. |
1795 anItem suffix isEmptyOrNil ifTrue:[ |
|
1796 newPattern := '*'. |
|
1797 ] ifFalse:[ |
|
1798 newPattern := '*.', anItem suffix. |
|
1799 ]. |
1796 ]. |
1800 ]. |
1797 self namePatternHolder value:newPattern. |
1801 self namePatternHolder value:newPattern. |
1798 ^ true. |
1802 ^ true. |
1799 |
1803 |
1800 "Modified: / 12-01-2012 / 01:38:14 / cg" |
1804 "Modified: / 12-01-2012 / 01:38:14 / cg" |
1818 ! ! |
1822 ! ! |
1819 |
1823 |
1820 !FindFileApplication class methodsFor:'documentation'! |
1824 !FindFileApplication class methodsFor:'documentation'! |
1821 |
1825 |
1822 version |
1826 version |
1823 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.107 2013-03-20 19:57:16 cg Exp $' |
1827 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.108 2013-05-04 15:33:09 cg Exp $' |
1824 ! |
1828 ! |
1825 |
1829 |
1826 version_CVS |
1830 version_CVS |
1827 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.107 2013-03-20 19:57:16 cg Exp $' |
1831 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.108 2013-05-04 15:33:09 cg Exp $' |
1828 ! ! |
1832 ! ! |
1829 |
1833 |