diff -r 893fad8d458a -r 6921627a8c27 DictionaryInspectorView.st --- a/DictionaryInspectorView.st Tue Sep 18 11:39:12 2012 +0100 +++ b/DictionaryInspectorView.st Thu Sep 27 21:08:20 2012 +0100 @@ -198,6 +198,7 @@ ). ]. + items := items , (self sortOrderItems). items := items , #( ('-') ('Update' doUpdate ) @@ -232,7 +233,7 @@ ^ m. - "Modified: / 01-07-2010 / 10:53:08 / cg" + "Modified: / 26-09-2012 / 13:20:59 / cg" ! ! !DictionaryInspectorView methodsFor:'menu actions'! @@ -528,13 +529,16 @@ ifFalse:[ k displayString] ]. + sortOrder == #alphabetical ifTrue:[ + keyList sort:[:a :b | a string < b string]. + ]. ^ keyList keysAndValuesCollect:[:idx :nm | self listEntryForName:nm value:(self indexedValueAtIndex:idx) ]. - ^ keyList + "/ ^ keyList - "Modified: / 16-05-2012 / 19:07:57 / cg" + "Modified: / 26-09-2012 / 13:22:08 / cg" "Modified: / 06-07-2012 / 10:36:20 / Jan Vrany " ! @@ -658,13 +662,13 @@ !DictionaryInspectorView class methodsFor:'documentation'! version - ^ '$Id: DictionaryInspectorView.st 8012 2012-07-06 11:44:18Z vranyj1 $' + ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp $' ! version_CVS - ^ '§Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.76 2012/05/16 17:08:54 cg Exp §' + ^ '§Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.77 2012/09/26 12:19:04 cg Exp §' ! version_SVN - ^ '$Id: DictionaryInspectorView.st 8012 2012-07-06 11:44:18Z vranyj1 $' + ^ '$Id: DictionaryInspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $' ! !