67 ! ! |
67 ! ! |
68 |
68 |
69 !ProjectLoader class methodsFor:'initialization'! |
69 !ProjectLoader class methodsFor:'initialization'! |
70 |
70 |
71 initialize |
71 initialize |
72 <resource: #todo> |
72 Smalltalk addStartBlock:[ |
73 "/ not yet: DNU when loading resources and StyleSheet not set |
73 "Delay this until Display/StyleSheet/Resources are available" |
74 "/ ObjectMemory addDependent:self. "/ inform me, for second level initialization |
74 self installInLauncher. |
75 |
75 ]. |
76 " |
|
77 self initialize |
|
78 " |
|
79 |
76 |
80 "Created: / 22-11-2008 / 09:58:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
77 "Created: / 22-11-2008 / 09:58:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
81 "Modified: / 26-11-2008 / 10:00:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
78 "Modified: / 26-11-2008 / 10:00:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
82 "Modified (comment): / 22-02-2019 / 17:02:51 / Stefan Vogel" |
79 "Modified: / 22-02-2019 / 17:23:49 / Stefan Vogel" |
83 ! |
80 ! |
84 |
81 |
85 update:anAspect with:anArgument from:sender |
82 installInLauncher |
86 | item | |
83 | item | |
87 |
84 |
88 anAspect == #initialized ifTrue:[ |
85 item := (MenuItem label:(self classResources |
89 ObjectMemory removeDependent:self. |
86 string:'Load Project from Web...')) |
90 |
87 nameKey:'LoadProject'; |
91 item := (MenuItem label:(self classResources |
88 value:[(Smalltalk at: self fullName asSymbol) open]. |
92 string:'Load Project from Web...')) |
89 |
93 nameKey:'LoadProject'; |
90 NewLauncher |
94 value:[(Smalltalk at: self fullName asSymbol) open]. |
91 addMenuItem: item |
95 |
92 from: nil |
96 NewLauncher |
93 in: 'menu.file' |
97 addMenuItem: item |
94 position: #(after fileLoadPackage) |
98 from: nil |
95 space: true. |
99 in: 'menu.file' |
96 |
100 position: #(#after #fileBrowser) |
97 " |
101 space: true. |
98 self installInLauncher |
102 ]. |
99 " |
103 |
100 |
104 " |
101 "Created: / 22-02-2019 / 17:21:22 / Stefan Vogel" |
105 self update:#initialized with:nil from:self |
|
106 " |
|
107 |
|
108 "Created: / 22-02-2019 / 16:52:13 / Stefan Vogel" |
|
109 ! ! |
102 ! ! |
110 |
103 |
111 !ProjectLoader class methodsFor:'accessing'! |
104 !ProjectLoader class methodsFor:'accessing'! |
112 |
105 |
113 projectSites |
106 projectSites |