equal
deleted
inserted
replaced
4660 |
4660 |
4661 | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse| |
4661 | aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse| |
4662 |
4662 |
4663 aSymbol := instanceName asSymbol. |
4663 aSymbol := instanceName asSymbol. |
4664 self sortBlockProperty setValue:instanceName asSymbol. |
4664 self sortBlockProperty setValue:instanceName asSymbol. |
|
4665 sortCaselessLocal := self sortCaseless value. |
4665 currentSortOrder := self currentSortOrder value. |
4666 currentSortOrder := self currentSortOrder value. |
4666 currentSortOrder isEmpty ifTrue:[ |
4667 currentSortOrder isEmpty ifTrue:[ |
4667 currentSortOrder at:#column put:aSymbol. |
4668 currentSortOrder at:#column put:aSymbol. |
4668 currentSortOrder at:#reverse put:false. |
4669 currentSortOrder at:#reverse put:false. |
4669 currentSortOrder at:#sortCaseless put:sortCaselessLocal. |
4670 currentSortOrder at:#sortCaseless put:sortCaselessLocal. |
4684 currentSortOrder at:#column put:aSymbol. |
4685 currentSortOrder at:#column put:aSymbol. |
4685 ] |
4686 ] |
4686 ] |
4687 ] |
4687 ]. |
4688 ]. |
4688 self currentSortOrder changed. |
4689 self currentSortOrder changed. |
4689 sortCaselessLocal := self sortCaseless value. |
|
4690 (currentSortOrder at:#reverse) ifTrue:[ |
4690 (currentSortOrder at:#reverse) ifTrue:[ |
4691 cmpOp := #'>' |
4691 cmpOp := #'>' |
4692 ] ifFalse:[ |
4692 ] ifFalse:[ |
4693 cmpOp := #'<' |
4693 cmpOp := #'<' |
4694 ]. |
4694 ]. |
5112 ! ! |
5112 ! ! |
5113 |
5113 |
5114 !AbstractFileBrowser class methodsFor:'documentation'! |
5114 !AbstractFileBrowser class methodsFor:'documentation'! |
5115 |
5115 |
5116 version |
5116 version |
5117 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.45 2002-11-04 11:00:23 penk Exp $' |
5117 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.46 2002-11-04 13:39:26 penk Exp $' |
5118 ! ! |
5118 ! ! |