equal
deleted
inserted
replaced
1991 updateInfo := |
1991 updateInfo := |
1992 [ |
1992 [ |
1993 self |
1993 self |
1994 changeInformationTo:('%1 found - searching %2' |
1994 changeInformationTo:('%1 found - searching %2' |
1995 bindWith:resultList size |
1995 bindWith:resultList size |
1996 with:((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1))) |
1996 with:(((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1)) |
|
1997 contractTo:80)) |
1997 toTab:false. |
1998 toTab:false. |
1998 ]. |
1999 ]. |
1999 |
2000 |
2000 self window shown ifTrue:[ |
2001 self window shown ifTrue:[ |
2001 updateInfo value. |
2002 updateInfo value. |
2048 in:dir |
2049 in:dir |
2049 ]. |
2050 ]. |
2050 ] |
2051 ] |
2051 |
2052 |
2052 "Modified: / 22-05-2015 / 11:42:17 / cg" |
2053 "Modified: / 22-05-2015 / 11:42:17 / cg" |
2053 "Modified: / 13-03-2019 / 21:17:24 / Claus Gittinger" |
2054 "Modified: / 23-03-2019 / 12:27:35 / Claus Gittinger" |
2054 ! |
2055 ! |
2055 |
2056 |
2056 fileSizeWrapperFor:aFileMatchBlock |
2057 fileSizeWrapperFor:aFileMatchBlock |
2057 "possibly wrap the search-match block into a file-size matcher block" |
2058 "possibly wrap the search-match block into a file-size matcher block" |
2058 |
2059 |