equal
deleted
inserted
replaced
176 |
176 |
177 |
177 |
178 key == $^ ifTrue:[ |
178 key == $^ ifTrue:[ |
179 ^ self keyPressReturnToken |
179 ^ self keyPressReturnToken |
180 ]. |
180 ]. |
181 key == #Return ifTrue:[ |
181 key == #Return ifTrue: [ |
182 ^ self keyPressReturn |
182 ^ self keyPressReturn |
183 ]. |
183 ]. |
184 |
184 |
185 key == $: ifTrue:[ |
185 key == $: ifTrue: [ |
186 ^ self keyPressDoubleColon. |
186 ^ self keyPressDoubleColon. |
187 ]. |
187 ]. |
188 |
188 |
|
189 key == $= ifTrue: [ |
|
190 ^ self keyPressEqual |
|
191 ]. |
|
192 |
189 ^ super keyPress: key x:x y:y in: view |
193 ^ super keyPress: key x:x y:y in: view |
190 |
194 |
191 "Created: / 07-03-2010 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
195 "Created: / 07-03-2010 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
192 "Modified: / 22-10-2013 / 03:08:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
196 "Modified: / 22-10-2013 / 11:09:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
193 ! |
197 ! |
194 |
198 |
195 keyPressDoubleColon |
199 keyPressDoubleColon |
196 ^ self insertElectricSnippetAfterDoubleColon |
200 ^ self insertElectricSnippetAfterDoubleColon |
197 |
201 |
198 "Created: / 22-10-2013 / 03:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
202 "Created: / 22-10-2013 / 03:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
203 ! |
|
204 |
|
205 keyPressEqual |
|
206 | line | |
|
207 |
|
208 line := textView listAt:textView cursorLine. |
|
209 line isNil ifTrue:[ ^ false ]. |
|
210 line := line string. |
|
211 line size > textView cursorCol ifTrue: [ ^ false ]. |
|
212 line size < (textView cursorCol - 1) ifTrue: [ ^ false ]. |
|
213 (line at: textView cursorCol - 1) == $: ifTrue: [ |
|
214 self insertElectric:'= '. |
|
215 ^ true |
|
216 ]. |
|
217 ^ false |
|
218 |
|
219 "Created: / 22-10-2013 / 11:01:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
199 ! |
220 ! |
200 |
221 |
201 keyPressReturn |
222 keyPressReturn |
202 | line tokens i t | |
223 | line tokens i t | |
203 |
224 |