-
Notifications
You must be signed in to change notification settings - Fork 2
/
BootJade.st
95 lines (94 loc) · 3.06 KB
/
BootJade.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
"Boot a Jade 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].
!
| list |
list := #(
'JGF Dolphin'
'GemStone C Interface'
'GemStone Objects'
'GemStone Session'
'VisualWorks Component'
'Jade UI Base'
'Jade Class Browser'
'Jade Method Browser'
'Jade Inspector'
'Jade User Browser'
'Monticello'
'Jade UI'
'Jade Autocompletation'
'Jade Test Browser'
'Jade System Browser'
'Jade Transcript'
'Jade Process Browser'
'Object Log Browser'
'Jade Login'
'Jade Deployment'
'Contacts Demo'
'Jade in Dolphin'
'Jade Tests'
'Jade Tutorial'
).
(Delay forMilliseconds: 200) wait.
ProgressDialog showModalWhile: [:progress |
1 to: list size do: [:i |
| name percent |
name := list at: i.
percent := (i * 100 / list size) asInteger.
progress
value: percent;
text: 'Loading package: ' , name;
yourself.
PackageManager current install: 'sources\' , 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.
!
JadeLoginShell show
position: 50@20;
yourself.
Cursor wait showWhile: [
Object recompileAll. "https://github.com/dolphinsmalltalk/Dolphin/issues/852#issuecomment-623143858"
Transcript flush. "don't clear Transcript; we want to see any errors"
SourceManager default compressSources.
(Delay forMilliseconds: 200) wait.
SessionManager current saveImage.
].
!