Tools__NewSystemBrowser.st
changeset 17568 2d131ef3248f
parent 17567 231a0d8d1b06
child 17569 dfe7a71ad86c
equal deleted inserted replaced
17567:231a0d8d1b06 17568:2d131ef3248f
 18820                             matches sort:[:a :b |
 18820                             matches sort:[:a :b |
 18821                                     a value < b value
 18821                                     a value < b value
 18822                                     or:[ a value = b value and:[ a key > b key]]
 18822                                     or:[ a value = b value and:[ a key > b key]]
 18823                             ].
 18823                             ].
 18824                             matches reverse.
 18824                             matches reverse.
 18825                             namesIncluding := (matches copyTo:(matches size min:50)) collect:#key
 18825                             namesIncluding := (matches copyTo:(matches size min:150)) collect:#key
 18826                         ] ifFalse:[    
 18826                         ] ifFalse:[    
 18827                             namesIncluding := (1 to:nameList size)
 18827                             namesIncluding := (1 to:nameList size)
 18828                                                 select:[:idx |
 18828                                                 select:[:idx |
 18829                                                     |nm|
 18829                                                     |nm|
 18830                                                     nm := nameList at:idx.
 18830                                                     nm := nameList at:idx.
 18912         aBlock value:className value:singleClass value:doWhat.
 18912         aBlock value:className value:singleClass value:doWhat.
 18913     ].
 18913     ].
 18914     ^ className
 18914     ^ className
 18915 
 18915 
 18916     "Modified: / 04-09-2013 / 17:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 18916     "Modified: / 04-09-2013 / 17:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 18917     "Modified: / 13-07-2017 / 23:28:28 / cg"
 18917     "Modified: / 14-07-2017 / 00:42:24 / cg"
 18918 !
 18918 !
 18919 
 18919 
 18920 enterBoxTitle:title okText:okText label:label
 18920 enterBoxTitle:title okText:okText label:label
 18921     "convenient method: setup an enterBox"
 18921     "convenient method: setup an enterBox"
 18922 
 18922