#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Fri, 22 Feb 2019 17:51:52 +0100
changeset 18617 fd6e8526d8a5
parent 18616 a50b116213fa
child 18618 df647f9b7f9d
#BUGFIX by stefan class: Tools::ProjectLoader class removed: #update:with:from: changed: #installInLauncher
Tools__ProjectLoader.st
--- a/Tools__ProjectLoader.st	Fri Feb 22 17:03:47 2019 +0100
+++ b/Tools__ProjectLoader.st	Fri Feb 22 17:51:52 2019 +0100
@@ -69,43 +69,36 @@
 !ProjectLoader class methodsFor:'initialization'!
 
 initialize
-    <resource: #todo>
-"/ not yet: DNU when loading resources and StyleSheet not set
-"/    ObjectMemory addDependent:self.     "/ inform me, for second level initialization
-
-    "
-        self initialize 
-    "
+    Smalltalk addStartBlock:[
+        "Delay this until Display/StyleSheet/Resources are available"
+        self installInLauncher.
+    ].
 
     "Created: / 22-11-2008 / 09:58:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 26-11-2008 / 10:00:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified (comment): / 22-02-2019 / 17:02:51 / Stefan Vogel"
+    "Modified: / 22-02-2019 / 17:23:49 / Stefan Vogel"
 !
 
-update:anAspect with:anArgument from:sender
+installInLauncher
     | item |
 
-    anAspect == #initialized ifTrue:[
-        ObjectMemory removeDependent:self.
-
-        item := (MenuItem label:(self classResources 
-                                        string:'Load Project from Web...'))
-                    nameKey:'LoadProject';
-                    value:[(Smalltalk at: self fullName asSymbol) open].
+    item := (MenuItem label:(self classResources 
+                                    string:'Load Project from Web...'))
+                nameKey:'LoadProject';
+                value:[(Smalltalk at: self fullName asSymbol) open].
 
-        NewLauncher
-            addMenuItem: item
-            from: nil
-            in: 'menu.file'
-            position: #(#after #fileBrowser)
-            space: true.
-    ].
+    NewLauncher
+        addMenuItem: item
+        from: nil
+        in: 'menu.file'
+        position: #(after fileLoadPackage)
+        space: true.
 
     "
-        self update:#initialized with:nil from:self 
+        self installInLauncher 
     "
 
-    "Created: / 22-02-2019 / 16:52:13 / Stefan Vogel"
+    "Created: / 22-02-2019 / 17:21:22 / Stefan Vogel"
 ! !
 
 !ProjectLoader class methodsFor:'accessing'!