|
1 " |
|
2 jv:vdb - Visual / VM Debugger |
|
3 Copyright (C) 2015-now Jan Vrany |
|
4 |
|
5 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
|
6 |
|
7 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
|
8 " |
|
9 "{ Package: 'jv:vdb' }" |
|
10 |
|
11 "{ NameSpace: Smalltalk }" |
|
12 |
|
13 AbstractSettingsApplication subclass:#VDBSettingsApplication |
|
14 instanceVariableNames:'infoPanel vdbPrettyPrintingEnabled vdbFrameFiltersEnabled' |
|
15 classVariableNames:'' |
|
16 poolDictionaries:'' |
|
17 category:'VDB-UI-Others' |
|
18 ! |
|
19 |
|
20 !VDBSettingsApplication class methodsFor:'documentation'! |
|
21 |
|
22 copyright |
|
23 " |
|
24 jv:vdb - Visual / VM Debugger |
|
25 Copyright (C) 2015-now Jan Vrany |
|
26 |
|
27 This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License' |
|
28 |
|
29 You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/ |
|
30 " |
|
31 ! ! |
|
32 |
|
33 !VDBSettingsApplication class methodsFor:'initialization'! |
|
34 |
|
35 initialize |
|
36 |
|
37 self installInSettings |
|
38 |
|
39 "Created: / 23-06-2005 / 09:27:10 / masca" |
|
40 ! |
|
41 |
|
42 installInSettings |
|
43 |
|
44 Smalltalk addStartBlock:[ |
|
45 AbstractLauncherApplication |
|
46 addSettingsApplicationByClass:self name withName:'Tools/Visual VM Debugger' icon:self defaultIcon |
|
47 ] |
|
48 |
|
49 "Created: / 23-06-2005 / 09:27:10 / masca" |
|
50 "Modified: / 10-04-2018 / 16:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
51 ! ! |
|
52 |
|
53 !VDBSettingsApplication class methodsFor:'interface specs'! |
|
54 |
|
55 windowSpec |
|
56 "This resource specification was automatically generated |
|
57 by the UIPainter of ST/X." |
|
58 |
|
59 "Do not manually edit this!! If it is corrupted, |
|
60 the UIPainter may not be able to read the specification." |
|
61 |
|
62 " |
|
63 UIPainter new openOnClass:VDBSettingsApplication andSelector:#windowSpec |
|
64 VDBSettingsApplication new openInterface:#windowSpec |
|
65 VDBSettingsApplication open |
|
66 " |
|
67 |
|
68 <resource: #canvas> |
|
69 |
|
70 ^ |
|
71 #(FullSpec |
|
72 name: windowSpec |
|
73 uuid: '10c0dbf0-3cd7-11e8-882f-0021ccd5e3d3' |
|
74 window: |
|
75 (WindowSpec |
|
76 label: 'Java Settings' |
|
77 name: 'Java Settings' |
|
78 uuid: '10c0dbf1-3cd7-11e8-882f-0021ccd5e3d3' |
|
79 min: (Point 10 10) |
|
80 bounds: (Rectangle 0 0 695 627) |
|
81 ) |
|
82 component: |
|
83 (SpecCollection |
|
84 collection: ( |
|
85 (LabelSpec |
|
86 label: ' Visual/VM Debugger Settings' |
|
87 name: 'SettingsTitle' |
|
88 layout: (LayoutFrame 0 0 0 0 0 1 66 0) |
|
89 style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil) |
|
90 uuid: '10c0dbf2-3cd7-11e8-882f-0021ccd5e3d3' |
|
91 backgroundColor: (Color 100.0 100.0 100.0) |
|
92 translateLabel: true |
|
93 adjust: left |
|
94 ) |
|
95 (LabelSpec |
|
96 label: 'Icon' |
|
97 name: 'Icon' |
|
98 layout: (LayoutFrame -75 1 0 0 0 1 66 0) |
|
99 uuid: '10c10300-3cd7-11e8-882f-0021ccd5e3d3' |
|
100 hasCharacterOrientedLabel: false |
|
101 backgroundColor: (Color 100.0 100.0 100.0) |
|
102 translateLabel: true |
|
103 labelChannel: libjavaCupIcon |
|
104 ) |
|
105 (SubCanvasSpec |
|
106 name: 'InfoPanel' |
|
107 layout: (LayoutFrame 0 0 67 0 0 1 107 0) |
|
108 uuid: '10c10301-3cd7-11e8-882f-0021ccd5e3d3' |
|
109 level: 0 |
|
110 initiallyInvisible: true |
|
111 hasHorizontalScrollBar: false |
|
112 hasVerticalScrollBar: false |
|
113 clientKey: infoPanel |
|
114 createNewBuilder: false |
|
115 ) |
|
116 (VerticalPanelViewSpec |
|
117 name: 'Controls' |
|
118 layout: (LayoutFrame 0 0 70 0 0 1 0 1) |
|
119 uuid: '10c10302-3cd7-11e8-882f-0021ccd5e3d3' |
|
120 horizontalLayout: fit |
|
121 verticalLayout: top |
|
122 horizontalSpace: 3 |
|
123 verticalSpace: 3 |
|
124 component: |
|
125 (SpecCollection |
|
126 collection: ( |
|
127 (CheckBoxSpec |
|
128 label: 'Enable Pretty Printers' |
|
129 name: 'EnablePrettyPrinters' |
|
130 uuid: '10c10303-3cd7-11e8-882f-0021ccd5e3d3' |
|
131 model: vdbPrettyPrintingEnabled |
|
132 translateLabel: true |
|
133 extent: (Point 695 22) |
|
134 ) |
|
135 (CheckBoxSpec |
|
136 label: 'Enable Frame Filters' |
|
137 name: 'EnableFrameFilters' |
|
138 uuid: '10c10304-3cd7-11e8-882f-0021ccd5e3d3' |
|
139 model: vdbFrameFiltersEnabled |
|
140 translateLabel: true |
|
141 extent: (Point 695 22) |
|
142 ) |
|
143 ) |
|
144 |
|
145 ) |
|
146 ) |
|
147 ) |
|
148 |
|
149 ) |
|
150 ) |
|
151 ! ! |
|
152 |
|
153 !VDBSettingsApplication methodsFor:'aspects'! |
|
154 |
|
155 aspects |
|
156 ^ #(vdbPrettyPrintingEnabled vdbFrameFiltersEnabled) |
|
157 |
|
158 "Created: / 10-04-2018 / 16:53:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
159 ! |
|
160 |
|
161 infoPanel |
|
162 infoPanel isNil ifTrue:[ |
|
163 infoPanel := Tools::InlineMessageDialog new. |
|
164 ]. |
|
165 ^ infoPanel |
|
166 |
|
167 "Created: / 10-04-2018 / 16:52:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
168 ! |
|
169 |
|
170 vdbFrameFiltersEnabled |
|
171 <resource: #uiAspect> |
|
172 |
|
173 "automatically generated by UIPainter ..." |
|
174 |
|
175 "*** the code below creates a default model when invoked." |
|
176 "*** (which may not be the one you wanted)" |
|
177 "*** Please change as required and accept it in the browser." |
|
178 "*** (and replace this comment by something more useful ;-)" |
|
179 |
|
180 vdbFrameFiltersEnabled isNil ifTrue:[ |
|
181 vdbFrameFiltersEnabled := false asValue. |
|
182 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
183 "/ vdbFrameFiltersEnabled addDependent:self. |
|
184 vdbFrameFiltersEnabled onChangeSend:#updateModifiedChannel to:self. |
|
185 ]. |
|
186 ^ vdbFrameFiltersEnabled. |
|
187 |
|
188 "Modified: / 10-04-2018 / 16:53:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
189 ! |
|
190 |
|
191 vdbPrettyPrintingEnabled |
|
192 <resource: #uiAspect> |
|
193 |
|
194 "automatically generated by UIPainter ..." |
|
195 |
|
196 "*** the code below creates a default model when invoked." |
|
197 "*** (which may not be the one you wanted)" |
|
198 "*** Please change as required and accept it in the browser." |
|
199 "*** (and replace this comment by something more useful ;-)" |
|
200 |
|
201 vdbPrettyPrintingEnabled isNil ifTrue:[ |
|
202 vdbPrettyPrintingEnabled := false asValue. |
|
203 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
204 "/ vdbPrettyPrintingEnabled addDependent:self. |
|
205 vdbPrettyPrintingEnabled onChangeSend:#updateModifiedChannel to:self. |
|
206 ]. |
|
207 ^ vdbPrettyPrintingEnabled. |
|
208 |
|
209 "Modified: / 10-04-2018 / 16:53:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
210 ! ! |
|
211 |
|
212 |
|
213 VDBSettingsApplication initialize! |