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