author | Claus Gittinger <cg@exept.de> |
Thu, 10 Aug 2017 10:05:49 +0200 | |
branch | cvs_MAIN |
changeset 1041 | 4413bae59f15 |
parent 990 | 355fbc81c06c |
child 1109 | e07daafc5d15 |
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 |
990 | 91 |
'When 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
|
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 |
|
939 | 107 |
"This resource specification was automatically generated |
108 |
by the UIPainter of ST/X." |
|
11 | 109 |
|
110 |
"Do not manually edit this!! If it is corrupted, |
|
111 |
the UIPainter may not be able to read the specification." |
|
112 |
||
113 |
" |
|
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
114 |
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
|
115 |
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
|
116 |
SmallSense::SettingsAppl open |
11 | 117 |
" |
118 |
||
939 | 119 |
<resource: #canvas> |
11 | 120 |
|
939 | 121 |
^ |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
122 |
#(FullSpec |
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: windowSpec |
939 | 124 |
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
|
125 |
(WindowSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
126 |
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
|
127 |
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
|
128 |
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
|
129 |
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
|
130 |
) |
939 | 131 |
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
|
132 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
133 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
134 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
135 |
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
|
136 |
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
|
137 |
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
|
138 |
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
|
139 |
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
|
140 |
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
|
141 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
142 |
(DividerSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
143 |
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
|
144 |
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
|
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 |
(VerticalPanelViewSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
147 |
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
|
148 |
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
|
149 |
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
|
150 |
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
|
151 |
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
|
152 |
verticalSpace: 3 |
939 | 153 |
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
|
154 |
(SpecCollection |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
155 |
collection: ( |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
156 |
(CheckBoxSpec |
414 | 157 |
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
|
158 |
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
|
159 |
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
|
160 |
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
|
161 |
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
|
162 |
translateLabel: true |
939 | 163 |
extent: (Point 536 30) |
11 | 164 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
165 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
166 |
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
|
167 |
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
|
168 |
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
|
169 |
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
|
170 |
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
|
171 |
translateLabel: true |
939 | 172 |
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
|
173 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
174 |
(CheckBoxSpec |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
175 |
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
|
176 |
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
|
177 |
activeHelpKey: smallSenseElectricEditSupportEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
178 |
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
|
179 |
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
|
180 |
translateLabel: true |
939 | 181 |
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
|
182 |
) |
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
183 |
(CheckBoxSpec |
410 | 184 |
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
|
185 |
name: 'CheckBox4' |
939 | 186 |
activeHelpKey: smallSenseCompletionEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
187 |
enableChannel: smallSenseEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
188 |
model: smallSenseCompletionEnabled |
410 | 189 |
translateLabel: true |
939 | 190 |
extent: (Point 536 30) |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
191 |
) |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
192 |
(CheckBoxSpec |
410 | 193 |
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
|
194 |
name: 'CheckBox5' |
939 | 195 |
activeHelpKey: smallSenseCompleteIfUnambiguous |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
196 |
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
|
197 |
model: smallSenseCompleteIfUnambiguous |
410 | 198 |
translateLabel: true |
939 | 199 |
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
|
200 |
) |
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
201 |
) |
939 | 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 |
) |
11 | 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 |
) |
939 | 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 |
) |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
208 |
) |
11 | 209 |
! ! |
210 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
211 |
!SettingsAppl methodsFor:'aspects'! |
11 | 212 |
|
213 |
smallSenseBackgroundLintEnabled |
|
214 |
||
215 |
||
216 |
smallSenseBackgroundLintEnabled isNil ifTrue:[ |
|
217 |
smallSenseBackgroundLintEnabled := true asValue. |
|
306 | 218 |
smallSenseBackgroundLintEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 219 |
]. |
220 |
^ smallSenseBackgroundLintEnabled. |
|
221 |
||
306 | 222 |
"Modified: / 04-02-2012 / 21:47:56 / Jan Vrany " |
11 | 223 |
! |
224 |
||
225 |
smallSenseBackgroundTypingEnabled |
|
226 |
||
227 |
||
228 |
smallSenseBackgroundTypingEnabled isNil ifTrue:[ |
|
229 |
smallSenseBackgroundTypingEnabled := true asValue. |
|
306 | 230 |
smallSenseBackgroundTypingEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 231 |
]. |
232 |
^ smallSenseBackgroundTypingEnabled. |
|
233 |
||
306 | 234 |
"Modified: / 04-02-2012 / 21:48:02 / Jan Vrany " |
11 | 235 |
! |
236 |
||
154
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
237 |
smallSenseCompleteIfUnambiguous |
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 |
|
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
240 |
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
|
241 |
smallSenseCompleteIfUnambiguous := true asValue. |
306 | 242 |
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
|
243 |
]. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
244 |
^ smallSenseCompleteIfUnambiguous. |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
245 |
|
306 | 246 |
"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
|
247 |
! |
b96fbde91144
Support for auto-completion of unambigous items (such as instvars)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
67
diff
changeset
|
248 |
|
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
249 |
smallSenseCompletionEnabled |
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 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
252 |
smallSenseCompletionEnabled isNil ifTrue:[ |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
253 |
smallSenseCompletionEnabled := true asValue. |
306 | 254 |
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
|
255 |
]. |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
256 |
^ smallSenseCompletionEnabled. |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
257 |
|
306 | 258 |
"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
|
259 |
! |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
260 |
|
41
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
261 |
smallSenseElectricEditSupportEnabled |
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 |
|
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 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
|
265 |
smallSenseElectricEditSupportEnabled := true asValue. |
306 | 266 |
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
|
267 |
]. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
268 |
^ smallSenseElectricEditSupportEnabled. |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
269 |
|
306 | 270 |
"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
|
271 |
! |
6bbd154db308
Added preference to enable/disable 'electric edit' support (disabled bu default)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
32
diff
changeset
|
272 |
|
11 | 273 |
smallSenseEnabled |
274 |
||
275 |
||
276 |
smallSenseEnabled isNil ifTrue:[ |
|
277 |
smallSenseEnabled := true asValue. |
|
306 | 278 |
smallSenseEnabled onChangeSend:#updateModifiedChannel to:self. |
11 | 279 |
]. |
280 |
^ smallSenseEnabled. |
|
281 |
||
306 | 282 |
"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
|
283 |
! |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
284 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
285 |
smallSenseEnabledAndCompletionEnabled |
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
286 |
^ 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
|
287 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
288 |
"Created: / 27-02-2014 / 09:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 289 |
! ! |
290 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
291 |
!SettingsAppl methodsFor:'protocol'! |
11 | 292 |
|
293 |
basicAspects |
|
294 |
^#( |
|
295 |
smallSenseEnabled |
|
296 |
||
297 |
smallSenseBackgroundLintEnabled |
|
298 |
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
|
299 |
smallSenseElectricEditSupportEnabled |
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
300 |
|
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
301 |
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
|
302 |
smallSenseCompleteIfUnambiguous |
11 | 303 |
|
304 |
) |
|
305 |
||
177
be588b60f4b2
Added preference to enable/disable SmallSense completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
176
diff
changeset
|
306 |
"Modified: / 27-02-2014 / 09:32:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 | 307 |
! |
308 |
||
309 |
basicReadSettings |
|
310 |
self readAspects:self basicAspects from:currentUserPrefs. |
|
311 |
||
312 |
"Modified: / 19-07-2011 / 17:11:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
313 |
! |
|
314 |
||
315 |
basicSaveSettings |
|
316 |
||
317 |
self writeAspects:self basicAspects to:currentUserPrefs. |
|
318 |
||
319 |
"Modified: / 26-07-2011 / 10:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
320 |
! |
|
321 |
||
322 |
helpFilename |
|
323 |
"subclasses must return the relative name of a helpFile |
|
324 |
in the doc/online/<language>/help directory. |
|
325 |
Or nil, if no help is available." |
|
326 |
||
410 | 327 |
^ (self class packageDirectory) / 'resources/doc/%(lang)/SmallSenseSettings.html' |
328 |
||
329 |
" |
|
330 |
self classResources |
|
331 |
" |
|
11 | 332 |
! ! |
333 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
334 |
!SettingsAppl methodsFor:'queries'! |
11 | 335 |
|
336 |
hasUnsavedChanges |
|
337 |
^ self |
|
338 |
hasChangedAspectIn: self basicAspects |
|
339 |
asComparedTo:currentUserPrefs |
|
340 |
||
341 |
"Modified: / 19-07-2011 / 17:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
342 |
"Modified (format): / 25-11-2011 / 15:25:16 / cg" |
|
343 |
! ! |
|
344 |
||
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
345 |
!SettingsAppl class methodsFor:'documentation'! |
11 | 346 |
|
410 | 347 |
version |
899 | 348 |
^ '$Header$' |
410 | 349 |
! |
350 |
||
351 |
version_CVS |
|
899 | 352 |
^ '$Header$' |
410 | 353 |
! |
354 |
||
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
355 |
version_HG |
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
356 |
|
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
357 |
^ '$Changeset: <not expanded> $' |
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 |
|
11 | 360 |
version_SVN |
899 | 361 |
^ '$Id$' |
11 | 362 |
! ! |
363 |
||
29
fe650a6e5704
Moved NavigationState>>selectedClasses to package stx:libtool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
12
diff
changeset
|
364 |
|
64
2257d7223898
All classes moved to namespace SmallSense.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
41
diff
changeset
|
365 |
SettingsAppl initialize! |