#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Fri, 01 Sep 2017 14:27:28 +0200
changeset 3485 2105ccafc068
parent 3484 cc691402a3de
child 3486 b831d1299848
#REFACTORING by cg class: Tools::ProjectBuilderAssistantApplication changed: #doBrowseApplication #doBrowseProject #doBrowseProjectDefinitionClass #doBrowseProjectDefinitionClassForPrereqs #doBrowseStartupClass
Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Fri Sep 01 14:27:15 2017 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Fri Sep 01 14:27:28 2017 +0200
@@ -2070,9 +2070,11 @@
 
     self hasApplicationSelected ifTrue:[
         appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
-        UserPreferences systemBrowserClass 
+        SystemBrowser default
             openInClass:appClass class selector:#windowSpec.
     ].
+
+    "Modified: / 01-09-2017 / 14:23:06 / cg"
 !
 
 doBrowseBuildDirectory
@@ -2094,7 +2096,9 @@
 doBrowseProject
     <resource: #uiCallback>
 
-    UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package.
+    SystemBrowser default openOnPackage:selectedProjectDefinition package.
+
+    "Modified: / 01-09-2017 / 14:23:09 / cg"
 !
 
 doBrowseProjectDefinitionClass
@@ -2104,9 +2108,11 @@
 
     self hasProjectSelected ifTrue:[
         defClass := self selectedProjectDefinition.
-        UserPreferences systemBrowserClass 
+        SystemBrowser default
             openInClass:defClass class selector:#classNamesAndAttributes.
     ].
+
+    "Modified: / 01-09-2017 / 14:23:12 / cg"
 !
 
 doBrowseProjectDefinitionClassForPrereqs
@@ -2116,9 +2122,11 @@
 
     self hasProjectSelected ifTrue:[
         defClass := self selectedProjectDefinition.
-        UserPreferences systemBrowserClass 
+        SystemBrowser default
             openInClass:defClass class selector:#referencedPreRequisites "/ #mandatoryPreRequisites.
     ].
+
+    "Modified: / 01-09-2017 / 14:23:15 / cg"
 !
 
 doBrowseStartupClass
@@ -2128,9 +2136,11 @@
 
     self hasStartupClassSelected ifTrue:[
         startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
-        UserPreferences systemBrowserClass 
+        SystemBrowser default
             openInClass:startupClass class selector:#main:.
     ].
+
+    "Modified: / 01-09-2017 / 14:23:18 / cg"
 !
 
 doCheckin