forked from glassdb/webEditionHome
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathloadSeaside3.0.10.tpz
39 lines (37 loc) · 1.07 KB
/
loadSeaside3.0.10.tpz
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
run
| project version repository |
project := 'Seaside3'.
version := '3.0.10'.
repository := 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main'.
GsDeployer
deploy: [
[
Metacello new
configuration: project;
version: version;
repository: repository;
get.
[
Metacello new
configuration: project;
version: version;
repository: repository;
onConflict: [ :ex | ex allow ];
load: 'ALL'
] on: MCPerformPostloadNotification do: [:ex |
(#("class names that need to have their #initialization method run during upgrade")
includes: ex postloadClass theNonMetaClass name)
ifTrue: [
"perform initialization"
ex resume: true ]
ifFalse: [
GsFile gciLogServer: ' Skip ', ex postloadClass name asString, ' initialization.'.
ex resume: false ] ]
] on: Warning do: [:ex |
Transcript
cr;
show: ex description.
ex resume ].
].
true
%