#BUGFIX by stefan
class: Tools::ProjectLoader class
removed: #update:with:from:
changed: #installInLauncher
--- 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'!