diff -r ceebd29ba8f6 -r 212877cb97bf AbstractLauncherApplication.st --- a/AbstractLauncherApplication.st Wed Feb 05 20:09:08 2014 +0100 +++ b/AbstractLauncherApplication.st Wed Feb 05 20:09:11 2014 +0100 @@ -14,7 +14,8 @@ ToolApplicationModel subclass:#AbstractLauncherApplication instanceVariableNames:'transcript' classVariableNames:'NotifyingEmergencyHandler OpenLaunchers RegisteredMenuHandlers - OpenSettingsDialog LastSettingsPageName' + OpenSettingsDialog SettingsList UserSettingsList + LastSettingsPageName' poolDictionaries:'' category:'Interface-Smalltalk' ! @@ -2037,7 +2038,7 @@ allTopViewsDo:aBlock |setOfViews currentScreen| - setOfViews := Project current views asNewIdentitySet. + setOfViews := Project current views asIdentitySet. setOfViews addAll:(Project defaultProject views). currentScreen := Screen current. @@ -3794,8 +3795,8 @@ mappings := Screen current keyboardMap. - listOfRawKeys := (mappings keys collect:[:key | key asString]) asArray sort. - listOfFunctions := (mappings values asSet collect:[:key | key asString]) asArray sort. + listOfRawKeys := (mappings keys collect:[:key | key asString] as:Array) sort. + listOfFunctions := (mappings values asSet collect:[:key | key asString] as:Array) sort. selectionForwarder := Plug new. selectionForwarder respondTo:#showFunction @@ -6943,14 +6944,14 @@ !AbstractLauncherApplication class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.446 2014-02-05 19:09:11 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.446 2014-02-05 19:09:11 cg Exp $' ! version_SVN - ^ '$Id: AbstractLauncherApplication.st,v 1.445 2014-01-16 14:31:22 stefan Exp $' + ^ '$Id: AbstractLauncherApplication.st,v 1.446 2014-02-05 19:09:11 cg Exp $' ! !