equal
deleted
inserted
replaced
4555 |
4555 |
4556 retriever := self retrieverClass. |
4556 retriever := self retrieverClass. |
4557 |
4557 |
4558 filter := [:sel | true]. |
4558 filter := [:sel | true]. |
4559 (selectorFilterString := selectorFilterHolder value) notEmptyOrNil ifTrue:[ |
4559 (selectorFilterString := selectorFilterHolder value) notEmptyOrNil ifTrue:[ |
4560 selectorFilterString includesMatchCharacters ifTrue:[ |
4560 selectorFilterString includesMatchCharacters ifTrue:[ |
4561 filter := [:sel | selectorFilterString match:sel ignoreCase:true]. |
4561 filter := [:sel | selectorFilterString match:sel caseSensitive:false]. |
4562 ] ifFalse:[ |
4562 ] ifFalse:[ |
4563 filter := [:sel | sel includesString:selectorFilterString]. |
4563 filter := [:sel | sel includesString:selectorFilterString caseSensitive:false]. |
4564 ]. |
4564 ]. |
4565 ]. |
4565 ]. |
4566 |
4566 |
4567 imageList root updateFromClass:retriever selectorFilter:filter. |
4567 imageList root updateFromClass:retriever selectorFilter:filter. |
4568 |
4568 |
4569 "Created: / 03-08-2011 / 10:56:41 / cg" |
4569 "Created: / 03-08-2011 / 10:56:41 / cg" |
|
4570 "Modified: / 27-03-2017 / 12:54:00 / stefan" |
4570 ! |
4571 ! |
4571 |
4572 |
4572 updateSelectedImage |
4573 updateSelectedImage |
4573 "provider or selector has changed; select it in the list" |
4574 "provider or selector has changed; select it in the list" |
4574 |
4575 |