author | Claus Gittinger <cg@exept.de> |
Tue, 10 Dec 2019 14:59:54 +0100 | |
branch | cvs_MAIN |
changeset 1115 | 2182c6e411dc |
parent 1109 | e07daafc5d15 |
permissions | -rw-r--r-- |
1109 | 1 |
"{ Encoding: utf8 }" |
2 |
||
252
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
3 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
4 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
5 |
Copyright (C) 2013-2014 Jan Vrany |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
6 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
7 |
This library is free software; you can redistribute it and/or |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
8 |
modify it under the terms of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
9 |
License as published by the Free Software Foundation; either |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
10 |
version 2.1 of the License. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
11 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
12 |
This library is distributed in the hope that it will be useful, |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
13 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
14 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
15 |
Lesser General Public License for more details. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
16 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
17 |
You should have received a copy of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
18 |
License along with this library; if not, write to the Free Software |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
19 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
20 |
" |
249
8bc64027b189
Package renamed to stx:goodies/smallsense
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
177
diff
changeset
|
21 |
"{ Package: 'stx:goodies/smallsense' }" |
11 | 22 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
23 |
"{ NameSpace: SmallSense }" |
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
24 |
|
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
25 |
AbstractSettingsApplication subclass:#SettingsAppl |
11 | 26 |
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
|
27 |
smallSenseEnabled smallSenseElectricEditSupportEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
28 |
smallSenseCompleteIfUnambiguous smallSenseCompletionEnabled' |
11 | 29 |
classVariableNames:'' |
30 |
poolDictionaries:'' |
|
67
020b7461b15e
Package structure reorganization.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
64
diff
changeset
|
31 |
category:'SmallSense-Core-Interface' |
11 | 32 |
! |
33 |
||
252
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
34 |
!SettingsAppl class methodsFor:'documentation'! |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
35 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
36 |
copyright |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
37 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
38 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
39 |
Copyright (C) 2013-2014 Jan Vrany |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
40 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
41 |
This library is free software; you can redistribute it and/or |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
42 |
modify it under the terms of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
43 |
License as published by the Free Software Foundation; either |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
44 |
version 2.1 of the License. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
45 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
46 |
This library is distributed in the hope that it will be useful, |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
47 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
48 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
49 |
Lesser General Public License for more details. |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
50 |
|
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
51 |
You should have received a copy of the GNU Lesser General Public |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
52 |
License along with this library; if not, write to the Free Software |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
53 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
54 |
" |
feba6ee5c814
Added copyright notice and license information (LGPL2)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
249
diff
changeset
|
55 |
! ! |
11 | 56 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
57 |
!SettingsAppl class methodsFor:'class initialization'! |
11 | 58 |
|
59 |
initialize |
|
60 |
||
61 |
NewLauncher |
|
62 |
addSettingsApplicationByClass: self name |
|
63 |
withName: 'Tools/SmallSense' |
|
64 |
icon: nil. |
|
65 |
||
66 |
"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
|
67 |
"Modified: / 12-02-2014 / 14:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 68 |
! ! |
69 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
70 |
!SettingsAppl class methodsFor:'help specs'! |
11 | 71 |
|
72 |
helpSpec |
|
306 | 73 |
"This resource specification was automatically generated by the UIHelpTool of ST/X." |
11 | 74 |
|
75 |
"Do not manually edit this!! If it is corrupted, |
|
76 |
the UIHelpTool may not be able to read the specification." |
|
77 |
||
78 |
" |
|
306 | 79 |
UIHelpTool openOnClass:SmallSenseSettingsAppl |
11 | 80 |
" |
81 |
||
306 | 82 |
|
11 | 83 |
|
84 |
^ super helpSpec addPairsFrom:#( |
|
85 |
||
86 |
#smallSenseBackgroundLintEnabled |
|
1109 | 87 |
'If enabled, hints are shown next to the line number,\based on a static code analysis (SmallLint).\See the SmallLint settings for which rules are to be applied' |
11 | 88 |
|
89 |
#smallSenseBackgroundTypingEnabled |
|
1109 | 90 |
'If enabled, SmallSense runs a type-inferencer on the code to give more accurate type hints and completion data' |
11 | 91 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
92 |
#smallSenseElectricEditSupportEnabled |
1109 | 93 |
'If enabled, closing brackets, blank lines and spaces are automatically inserted,\as soon as opening bracket or other tokens are typed. Honors formatting settings.' |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
94 |
|
11 | 95 |
#smallSenseEnabled |
306 | 96 |
'General enable/disable the SmallSense support package' |
11 | 97 |
|
306 | 98 |
#smallSenseCompletionEnabled |
99 |
'Enable the SmallSense completion algorithm, instead of the default one.\It is currently a matter of personal taste, which one provides better completions' |
|
100 |
||
101 |
#smallSenseCompleteIfUnambiguous |
|
102 |
'Enable automatic completion if unambigious.\Will automatically insert the completion, if there only one possible completion is found.\This may be somewhat disturbing, as it makes blind typing a little tricky.' |
|
11 | 103 |
) |
104 |
! ! |
|
105 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
106 |
!SettingsAppl class methodsFor:'interface specs'! |
11 | 107 |
|
108 |
windowSpec |
|
939 | 109 |
"This resource specification was automatically generated |
110 |
by the UIPainter of ST/X." |
|
11 | 111 |
|
112 |
"Do not manually edit this!! If it is corrupted, |
|
113 |
the UIPainter may not be able to read the specification." |
|
114 |
||
115 |
" |
|
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
116 |
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
|
117 |
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
|
118 |
SmallSense::SettingsAppl open |
11 | 119 |
" |
120 |
||
939 | 121 |
<resource: #canvas> |
11 | 122 |
|
939 | 123 |
^ |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
124 |
#(FullSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
125 |
name: windowSpec |
939 | 126 |
window: |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
127 |
(WindowSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
128 |
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
|
129 |
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
|
130 |
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
|
131 |
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
|
132 |
) |
939 | 133 |
component: |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
134 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
135 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
136 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
137 |
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
|
138 |
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
|
139 |
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
|
140 |
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
|
141 |
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
|
142 |
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
|
143 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
144 |
(DividerSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
145 |
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
|
146 |
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
|
147 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
148 |
(VerticalPanelViewSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
149 |
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
|
150 |
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
|
151 |
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
|
152 |
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
|
153 |
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
|
154 |
verticalSpace: 3 |
939 | 155 |
component: |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
156 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
157 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
158 |
(CheckBoxSpec |
414 | 159 |
label: 'Enable "as you type" Code Analysis (Lint)' |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
160 |
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
|
161 |
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
|
162 |
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
|
163 |
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
|
164 |
translateLabel: true |
939 | 165 |
extent: (Point 536 30) |
11 | 166 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
167 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
168 |
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
|
169 |
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
|
170 |
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
|
171 |
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
|
172 |
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
|
173 |
translateLabel: true |
939 | 174 |
extent: (Point 536 30) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
175 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
176 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
177 |
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
|
178 |
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
|
179 |
activeHelpKey: smallSenseElectricEditSupportEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
180 |
enableChannel: smallSenseEnabled |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
181 |
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
|
182 |
translateLabel: true |
939 | 183 |
extent: (Point 536 30) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
184 |
) |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
185 |
(CheckBoxSpec |
410 | 186 |
label: 'Code Completion using SmallSense Completion Engine' |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
187 |
name: 'CheckBox4' |
939 | 188 |
activeHelpKey: smallSenseCompletionEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
189 |
enableChannel: smallSenseEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
190 |
model: smallSenseCompletionEnabled |
410 | 191 |
translateLabel: true |
939 | 192 |
extent: (Point 536 30) |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
193 |
) |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
194 |
(CheckBoxSpec |
410 | 195 |
label: 'Auto-Complete when Unambiguous' |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
196 |
name: 'CheckBox5' |
939 | 197 |
activeHelpKey: smallSenseCompleteIfUnambiguous |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
198 |
enableChannel: smallSenseEnabledAndCompletionEnabled |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
199 |
model: smallSenseCompleteIfUnambiguous |
410 | 200 |
translateLabel: true |
939 | 201 |
extent: (Point 536 30) |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
202 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
203 |
) |
939 | 204 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
205 |
) |
11 | 206 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
207 |
) |
939 | 208 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
209 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
210 |
) |
11 | 211 |
! ! |
212 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
213 |
!SettingsAppl methodsFor:'aspects'! |
11 | 214 |
|
215 |
smallSenseBackgroundLintEnabled |
|
216 |
||
217 |
||
218 |
smallSenseBackgroundLintEnabled isNil ifTrue:[ |
|
219 |
smallSenseBackgroundLintEnabled := true asValue. |
|
306 | 220 |
smallSenseBackgroundLintEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 221 |
]. |
222 |
^ smallSenseBackgroundLintEnabled. |
|
223 |
||
306 | 224 |
"Modified: / 04-02-2012 / 21:47:56 / Jan Vrany " |
11 | 225 |
! |
226 |
||
227 |
smallSenseBackgroundTypingEnabled |
|
228 |
||
229 |
||
230 |
smallSenseBackgroundTypingEnabled isNil ifTrue:[ |
|
231 |
smallSenseBackgroundTypingEnabled := true asValue. |
|
306 | 232 |
smallSenseBackgroundTypingEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 233 |
]. |
234 |
^ smallSenseBackgroundTypingEnabled. |
|
235 |
||
306 | 236 |
"Modified: / 04-02-2012 / 21:48:02 / Jan Vrany " |
11 | 237 |
! |
238 |
||
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
239 |
smallSenseCompleteIfUnambiguous |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
240 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
241 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
242 |
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
|
243 |
smallSenseCompleteIfUnambiguous := true asValue. |
306 | 244 |
smallSenseCompleteIfUnambiguous onChangeSend:#updateModifiedChannel to:self. |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
245 |
]. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
246 |
^ smallSenseCompleteIfUnambiguous. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
247 |
|
306 | 248 |
"Created: / 18-01-2014 / 23:36:58 / Jan Vrany " |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
249 |
! |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
250 |
|
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
251 |
smallSenseCompletionEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
252 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
253 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
254 |
smallSenseCompletionEnabled isNil ifTrue:[ |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
255 |
smallSenseCompletionEnabled := true asValue. |
306 | 256 |
smallSenseCompletionEnabled onChangeSend:#updateModifiedChannel to:self. |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
257 |
]. |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
258 |
^ smallSenseCompletionEnabled. |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
259 |
|
306 | 260 |
"Modified: / 27-02-2014 / 09:33:53 / Jan Vrany " |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
261 |
! |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
262 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
263 |
smallSenseElectricEditSupportEnabled |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
264 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
265 |
|
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
266 |
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
|
267 |
smallSenseElectricEditSupportEnabled := true asValue. |
306 | 268 |
smallSenseElectricEditSupportEnabled onChangeSend:#updateModifiedChannel to:self. |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
269 |
]. |
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. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
271 |
|
306 | 272 |
"Modified: / 26-07-2013 / 12:36:25 / Jan Vrany " |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
273 |
! |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
274 |
|
11 | 275 |
smallSenseEnabled |
276 |
||
277 |
||
278 |
smallSenseEnabled isNil ifTrue:[ |
|
279 |
smallSenseEnabled := true asValue. |
|
306 | 280 |
smallSenseEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 281 |
]. |
282 |
^ smallSenseEnabled. |
|
283 |
||
306 | 284 |
"Modified: / 04-02-2012 / 21:48:11 / Jan Vrany " |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
285 |
! |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
286 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
287 |
smallSenseEnabledAndCompletionEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
288 |
^ BlockValue forLogical: self smallSenseEnabled and: self smallSenseCompletionEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
289 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
290 |
"Created: / 27-02-2014 / 09:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 291 |
! ! |
292 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
293 |
!SettingsAppl methodsFor:'protocol'! |
11 | 294 |
|
295 |
basicAspects |
|
296 |
^#( |
|
297 |
smallSenseEnabled |
|
298 |
||
299 |
smallSenseBackgroundLintEnabled |
|
300 |
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
|
301 |
smallSenseElectricEditSupportEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
302 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
303 |
smallSenseCompletionEnabled |
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
|
304 |
smallSenseCompleteIfUnambiguous |
11 | 305 |
|
306 |
) |
|
307 |
||
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
308 |
"Modified: / 27-02-2014 / 09:32:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 309 |
! |
310 |
||
311 |
basicReadSettings |
|
312 |
self readAspects:self basicAspects from:currentUserPrefs. |
|
313 |
||
314 |
"Modified: / 19-07-2011 / 17:11:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
315 |
! |
|
316 |
||
317 |
basicSaveSettings |
|
318 |
||
319 |
self writeAspects:self basicAspects to:currentUserPrefs. |
|
320 |
||
321 |
"Modified: / 26-07-2011 / 10:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
322 |
! |
|
323 |
||
324 |
helpFilename |
|
325 |
"subclasses must return the relative name of a helpFile |
|
326 |
in the doc/online/<language>/help directory. |
|
327 |
Or nil, if no help is available." |
|
328 |
||
410 | 329 |
^ (self class packageDirectory) / 'resources/doc/%(lang)/SmallSenseSettings.html' |
330 |
||
331 |
" |
|
332 |
self classResources |
|
333 |
" |
|
11 | 334 |
! ! |
335 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
336 |
!SettingsAppl methodsFor:'queries'! |
11 | 337 |
|
338 |
hasUnsavedChanges |
|
339 |
^ self |
|
340 |
hasChangedAspectIn: self basicAspects |
|
341 |
asComparedTo:currentUserPrefs |
|
342 |
||
343 |
"Modified: / 19-07-2011 / 17:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
344 |
"Modified (format): / 25-11-2011 / 15:25:16 / cg" |
|
345 |
! ! |
|
346 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
347 |
!SettingsAppl class methodsFor:'documentation'! |
11 | 348 |
|
410 | 349 |
version |
899 | 350 |
^ '$Header$' |
410 | 351 |
! |
352 |
||
353 |
version_CVS |
|
899 | 354 |
^ '$Header$' |
410 | 355 |
! |
356 |
||
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
357 |
version_HG |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
358 |
|
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
359 |
^ '$Changeset: <not expanded> $' |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
360 |
! |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
361 |
|
11 | 362 |
version_SVN |
899 | 363 |
^ '$Id$' |
11 | 364 |
! ! |
365 |
||
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
366 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
367 |
SettingsAppl initialize! |