author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 12 Feb 2014 14:24:58 +0000 | |
changeset 165 | c34f15fdce9c |
parent 155 | d792aed09149 |
child 176 | df6d3225d1e4 |
permissions | -rw-r--r-- |
32
658f47bc231e
Code moved to package jv:smallsense
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
29
diff
changeset
|
1 |
"{ Package: 'jv:smallsense' }" |
11 | 2 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
3 |
"{ NameSpace: SmallSense }" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
4 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
5 |
AbstractSettingsApplication subclass:#SettingsAppl |
11 | 6 |
instanceVariableNames:'smallSenseBackgroundTypingEnabled smallSenseBackgroundLintEnabled |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
7 |
smallSenseEnabled smallSenseElectricEditSupportEnabled |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
8 |
smallSenseCompleteIfUnambiguous' |
11 | 9 |
classVariableNames:'' |
10 |
poolDictionaries:'' |
|
67
020b7461b15e
Package structure reorganization.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
64
diff
changeset
|
11 |
category:'SmallSense-Core-Interface' |
11 | 12 |
! |
13 |
||
14 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
15 |
!SettingsAppl class methodsFor:'class initialization'! |
11 | 16 |
|
17 |
initialize |
|
18 |
||
19 |
NewLauncher |
|
20 |
addSettingsApplicationByClass: self name |
|
21 |
withName: 'Tools/SmallSense' |
|
22 |
icon: nil. |
|
23 |
||
24 |
"Created: / 04-02-2012 / 21:50:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
165
c34f15fdce9c
Fixes installation of SmallSense settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
155
diff
changeset
|
25 |
"Modified: / 12-02-2014 / 14:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 26 |
! ! |
27 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
28 |
!SettingsAppl class methodsFor:'help specs'! |
11 | 29 |
|
30 |
helpSpec |
|
31 |
"This resource specification was automatically generated |
|
32 |
by the UIHelpTool of ST/X." |
|
33 |
||
34 |
"Do not manually edit this!! If it is corrupted, |
|
35 |
the UIHelpTool may not be able to read the specification." |
|
36 |
||
37 |
" |
|
38 |
UIHelpTool openOnClass:SmallSenseSettingsAppl |
|
39 |
" |
|
40 |
||
41 |
<resource: #help> |
|
42 |
||
43 |
^ super helpSpec addPairsFrom:#( |
|
44 |
||
45 |
#smallSenseBackgroundLintEnabled |
|
46 |
'When enabled, a hints on code are shown based on static code analysis (SmallLint)' |
|
47 |
||
48 |
#smallSenseBackgroundTypingEnabled |
|
49 |
'When enabled, SmallSense run a type-inferencer on the code to give a more taccurate type hints and completion data' |
|
50 |
||
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
51 |
#smallSenseElectricEditSupportEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
52 |
'When enabled, closing brackets, blank lines and spaces are automatically inserted as soon as opening bracket or other tokens are typed. Honours formatting settings.' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
53 |
|
11 | 54 |
#smallSenseEnabled |
55 |
'Enable/Disable SmallSense support' |
|
56 |
||
57 |
) |
|
58 |
! ! |
|
59 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
60 |
!SettingsAppl class methodsFor:'interface specs'! |
11 | 61 |
|
62 |
windowSpec |
|
63 |
"This resource specification was automatically generated |
|
64 |
by the UIPainter of ST/X." |
|
65 |
||
66 |
"Do not manually edit this!! If it is corrupted, |
|
67 |
the UIPainter may not be able to read the specification." |
|
68 |
||
69 |
" |
|
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
70 |
UIPainter new openOnClass:SmallSense::SettingsAppl andSelector:#windowSpec |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
71 |
SmallSense::SettingsAppl new openInterface:#windowSpec |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
72 |
SmallSense::SettingsAppl open |
11 | 73 |
" |
74 |
||
75 |
<resource: #canvas> |
|
76 |
||
77 |
^ |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
78 |
#(FullSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
79 |
name: windowSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
80 |
window: |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
81 |
(WindowSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
82 |
label: 'SmallSense Settings' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
83 |
name: 'SmallSense Settings' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
84 |
min: (Point 10 10) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
85 |
bounds: (Rectangle 0 0 536 651) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
86 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
87 |
component: |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
88 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
89 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
90 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
91 |
label: 'Enable SmallSense ' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
92 |
name: 'Enable' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
93 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
94 |
activeHelpKey: smallSenseEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
95 |
model: smallSenseEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
96 |
translateLabel: true |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
97 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
98 |
(DividerSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
99 |
name: 'Separator' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
100 |
layout: (LayoutFrame 5 0 30 0 -5 1 34 0) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
101 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
102 |
(VerticalPanelViewSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
103 |
name: 'Panel' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
104 |
layout: (LayoutFrame 0 0 37 0 0 1 0 1) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
105 |
horizontalLayout: fit |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
106 |
verticalLayout: top |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
107 |
horizontalSpace: 3 |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
108 |
verticalSpace: 3 |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
109 |
component: |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
110 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
111 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
112 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
113 |
label: 'Enable Code Analysis (Lint)' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
114 |
name: 'LintEnabled' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
115 |
activeHelpKey: smallSenseBackgroundLintEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
116 |
enableChannel: smallSenseEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
117 |
model: smallSenseBackgroundLintEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
118 |
translateLabel: true |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
119 |
extent: (Point 536 22) |
11 | 120 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
121 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
122 |
label: 'Enable Background Type Inferencer' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
123 |
name: 'CheckBox2' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
124 |
activeHelpKey: smallSenseBackgroundTypingEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
125 |
enableChannel: smallSenseEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
126 |
model: smallSenseBackgroundTypingEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
127 |
translateLabel: true |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
128 |
extent: (Point 536 22) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
129 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
130 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
131 |
label: 'Enable "Electric Edit" Support' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
132 |
name: 'CheckBox3' |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
133 |
activeHelpKey: smallSenseElectricEditSupportEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
134 |
model: smallSenseElectricEditSupportEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
135 |
translateLabel: true |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
136 |
extent: (Point 536 22) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
137 |
) |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
138 |
(CheckBoxSpec |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
139 |
label: 'Auto-complete when Completion is Unambiguous' |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
140 |
name: 'CheckBox4' |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
141 |
model: smallSenseCompleteIfUnambiguous |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
142 |
extent: (Point 536 22) |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
143 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
144 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
145 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
146 |
) |
11 | 147 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
148 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
149 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
150 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
151 |
) |
11 | 152 |
! ! |
153 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
154 |
!SettingsAppl methodsFor:'aspects'! |
11 | 155 |
|
156 |
smallSenseBackgroundLintEnabled |
|
157 |
<resource: #uiAspect> |
|
158 |
||
159 |
"automatically generated by UIPainter ..." |
|
160 |
||
161 |
"*** the code below creates a default model when invoked." |
|
162 |
"*** (which may not be the one you wanted)" |
|
163 |
"*** Please change as required and accept it in the browser." |
|
164 |
"*** (and replace this comment by something more useful ;-)" |
|
165 |
||
166 |
smallSenseBackgroundLintEnabled isNil ifTrue:[ |
|
167 |
smallSenseBackgroundLintEnabled := true asValue. |
|
168 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
169 |
"/ smallSenseBackgroundLintEnabled addDependent:self. |
|
170 |
smallSenseBackgroundLintEnabled onChangeSend:#updateModifiedChannel to:self. |
|
171 |
]. |
|
172 |
^ smallSenseBackgroundLintEnabled. |
|
173 |
||
174 |
"Modified: / 04-02-2012 / 21:47:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
175 |
! |
|
176 |
||
177 |
smallSenseBackgroundTypingEnabled |
|
178 |
<resource: #uiAspect> |
|
179 |
||
180 |
"automatically generated by UIPainter ..." |
|
181 |
||
182 |
"*** the code below creates a default model when invoked." |
|
183 |
"*** (which may not be the one you wanted)" |
|
184 |
"*** Please change as required and accept it in the browser." |
|
185 |
"*** (and replace this comment by something more useful ;-)" |
|
186 |
||
187 |
smallSenseBackgroundTypingEnabled isNil ifTrue:[ |
|
188 |
smallSenseBackgroundTypingEnabled := true asValue. |
|
189 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
190 |
"/ smallSenseBackgroundTypingEnabled addDependent:self. |
|
191 |
smallSenseBackgroundTypingEnabled onChangeSend:#updateModifiedChannel to:self. |
|
192 |
]. |
|
193 |
^ smallSenseBackgroundTypingEnabled. |
|
194 |
||
195 |
"Modified: / 04-02-2012 / 21:48:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
196 |
! |
|
197 |
||
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
198 |
smallSenseCompleteIfUnambiguous |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
199 |
<resource: #uiAspect> |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
200 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
201 |
"automatically generated by UIPainter ..." |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
202 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
203 |
"*** the code below creates a default model when invoked." |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
204 |
"*** (which may not be the one you wanted)" |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
205 |
"*** Please change as required and accept it in the browser." |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
206 |
"*** (and replace this comment by something more useful ;-)" |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
207 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
208 |
smallSenseCompleteIfUnambiguous isNil ifTrue:[ |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
209 |
smallSenseCompleteIfUnambiguous := true asValue. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
210 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
211 |
"/ smallSenseBackgroundLintEnabled addDependent:self. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
212 |
smallSenseCompleteIfUnambiguous onChangeSend:#updateModifiedChannel to:self. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
213 |
]. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
214 |
^ smallSenseCompleteIfUnambiguous. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
215 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
216 |
"Created: / 18-01-2014 / 23:36:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
217 |
! |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
218 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
219 |
smallSenseElectricEditSupportEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
220 |
<resource: #uiAspect> |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
221 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
222 |
"automatically generated by UIPainter ..." |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
223 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
224 |
"*** the code below creates a default model when invoked." |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
225 |
"*** (which may not be the one you wanted)" |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
226 |
"*** Please change as required and accept it in the browser." |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
227 |
"*** (and replace this comment by something more useful ;-)" |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
228 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
229 |
smallSenseElectricEditSupportEnabled isNil ifTrue:[ |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
230 |
smallSenseElectricEditSupportEnabled := true asValue. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
231 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
232 |
"/ smallSenseElectricEditSupportEnabled addDependent:self. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
233 |
smallSenseElectricEditSupportEnabled onChangeSend:#updateModifiedChannel to:self. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
234 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
235 |
]. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
236 |
^ smallSenseElectricEditSupportEnabled. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
237 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
238 |
"Modified: / 26-07-2013 / 12:36:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
239 |
! |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
240 |
|
11 | 241 |
smallSenseEnabled |
242 |
<resource: #uiAspect> |
|
243 |
||
244 |
"automatically generated by UIPainter ..." |
|
245 |
||
246 |
"*** the code below creates a default model when invoked." |
|
247 |
"*** (which may not be the one you wanted)" |
|
248 |
"*** Please change as required and accept it in the browser." |
|
249 |
"*** (and replace this comment by something more useful ;-)" |
|
250 |
||
251 |
smallSenseEnabled isNil ifTrue:[ |
|
252 |
smallSenseEnabled := true asValue. |
|
253 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
254 |
"/ smallSenseEnabled addDependent:self. |
|
255 |
smallSenseEnabled onChangeSend:#updateModifiedChannel to:self. |
|
256 |
]. |
|
257 |
^ smallSenseEnabled. |
|
258 |
||
259 |
"Modified: / 04-02-2012 / 21:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
260 |
! ! |
|
261 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
262 |
!SettingsAppl methodsFor:'protocol'! |
11 | 263 |
|
264 |
basicAspects |
|
265 |
^#( |
|
266 |
smallSenseEnabled |
|
267 |
||
268 |
smallSenseBackgroundLintEnabled |
|
269 |
smallSenseBackgroundTypingEnabled |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
270 |
smallSenseElectricEditSupportEnabled |
155
d792aed09149
Initial support for ignoring keystrokes to avoid duplicate text when electric insert is active.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
271 |
smallSenseCompleteIfUnambiguous |
11 | 272 |
|
273 |
) |
|
274 |
||
155
d792aed09149
Initial support for ignoring keystrokes to avoid duplicate text when electric insert is active.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
154
diff
changeset
|
275 |
"Modified: / 20-01-2014 / 09:23:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 276 |
! |
277 |
||
278 |
basicReadSettings |
|
279 |
self readAspects:self basicAspects from:currentUserPrefs. |
|
280 |
||
281 |
"Modified: / 19-07-2011 / 17:11:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
282 |
! |
|
283 |
||
284 |
basicSaveSettings |
|
285 |
||
286 |
self writeAspects:self basicAspects to:currentUserPrefs. |
|
287 |
||
288 |
"Modified: / 26-07-2011 / 10:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
289 |
! |
|
290 |
||
291 |
helpFilename |
|
292 |
"subclasses must return the relative name of a helpFile |
|
293 |
in the doc/online/<language>/help directory. |
|
294 |
Or nil, if no help is available." |
|
295 |
||
296 |
^ self shouldImplement |
|
297 |
! ! |
|
298 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
299 |
!SettingsAppl methodsFor:'queries'! |
11 | 300 |
|
301 |
hasUnsavedChanges |
|
302 |
^ self |
|
303 |
hasChangedAspectIn: self basicAspects |
|
304 |
asComparedTo:currentUserPrefs |
|
305 |
||
306 |
"Modified: / 19-07-2011 / 17:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
307 |
"Modified (format): / 25-11-2011 / 15:25:16 / cg" |
|
308 |
! ! |
|
309 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
310 |
!SettingsAppl class methodsFor:'documentation'! |
11 | 311 |
|
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
312 |
version_HG |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
313 |
|
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
314 |
^ '$Changeset: <not expanded> $' |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
315 |
! |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
316 |
|
11 | 317 |
version_SVN |
12 | 318 |
^ '$Id: SmallSenseSettingsAppl.st 7872 2012-02-06 22:35:36Z vranyj1 $' |
11 | 319 |
! ! |
320 |
||
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
321 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
322 |
SettingsAppl initialize! |