Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
AbstractLauncherApplication.st
changeset 13882 212877cb97bf
parent 13761 062e30fef79c
child 13918 fc3939049f84 
--- 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 $'
 ! !
hg/stx-libtool