-
Notifications
You must be signed in to change notification settings - Fork 3
/
Boot_U-Fabrik.st
109 lines (108 loc) · 3.5 KB
/
Boot_U-Fabrik.st
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
"Boot a U-Fabrik development image"
SessionManager current splashShowAtStartup: false.
SmalltalkSystemShell allInstances first position: 20@50.
(TranscriptShell allInstances , #(nil)) first ifNotNil: [:shell | shell view position: 20@600; extent: 800@300; setFocus].
!
| umllist aidalist dblist |
"'UML Live Engine Views' is loaded as prerequisite of 'UML Live Engine Tests' "
umllist := #(
'UML Live Engine Tests'
'XMI Import-Export Interfase II Tests'
'UML Development Add In'
'UML Model Comparision Views'
'UML Live Engine View Composer II'
'UML Orbeon Forms Generator'
).
(Delay forMilliseconds: 200) wait.
ProgressDialog showModalWhile: [:progress |
1 to: umllist size do: [:i |
| name percent |
name := umllist at: i.
percent := (i * 100 / umllist size) asInteger.
progress
value: percent;
text: 'Loading package: ' , name;
yourself.
PackageManager current install: 'sources\uml\' , name , '.pax'.
].
].
aidalist := #(
'AIDA for UML Live Engine'
).
ProgressDialog showModalWhile: [:progress |
1 to: aidalist size do: [:i |
| name percent |
name := aidalist at: i.
percent := (i * 100 / aidalist size) asInteger.
progress
value: percent;
text: 'Loading package: ' , name;
yourself.
PackageManager current install: 'sources\aida\' , name , '.pax'.
].
].
dblist := #(
'DataBase Modeler Views'
'DataBase Migration Views'
'DataBase Modeler Comparision Views'
).
ProgressDialog showModalWhile: [:progress |
1 to: dblist size do: [:i |
| name percent |
name := dblist at: i.
percent := (i * 100 / dblist size) asInteger.
progress
value: percent;
text: 'Loading package: ' , name;
yourself.
PackageManager current install: 'sources\database\' , name , '.pax'.
].
].
!
IdeaSpaceShell allInstances isEmpty ifTrue: [
IdeaSpaceShell show
absorbCard: SmalltalkWorkspaceDocument show;
absorbCard: PackageBrowserShell show;
absorbCard: SystemBrowserShell show;
position: 50@80; extent: 1200@700;
yourself.
].
!
"Set window sizes and selection for Packages tab"
| container filterView layoutManager packagesView sources |
container := (PackageBrowserShell allInstances first view viewNamed: 'packages') referee.
filterView := container viewNamed: 'filter'.
packagesView := container viewNamed: 'packages'.
layoutManager := container layoutManager.
layoutManager arrangementOf: filterView put: 1.
layoutManager arrangementOf: packagesView put: 7.
container layout.
sources := filterView model asSet detect: [:each | each name = 'sources'].
filterView presenter selection: sources.
!
"Set window sizes and selection for System Browser tab"
| container filterView layoutManager packagesView sources |
container := (SystemBrowserShell allInstances first view viewNamed: 'packages') referee.
filterView := container viewNamed: 'filter'.
packagesView := container viewNamed: 'packages'.
layoutManager := container layoutManager.
layoutManager arrangementOf: filterView put: 2.
layoutManager arrangementOf: packagesView put: 5.
container layout.
sources := filterView model asSet detect: [:each | each name = 'sources'].
filterView presenter selection: sources.
!
ClassBrowserAbstract allSubclasses do: [:each |
(each plugins includes: DebugInfoPlugin) ifFalse: [each plugins add: DebugInfoPlugin]].
Debugger defaultExtent: 1000@600.
!
UFabrikManagerShell show
position: 50@50;
yourself.
Cursor wait showWhile: [
Transcript flush. "don't clear Transcript; we want to see any errors"
SourceManager default compressSources.
(Delay forMilliseconds: 200) wait.
SessionManager current saveImage.
].
!