SmallSense__SmalltalkEditSupport.st
changeset 110 5ee9a90dbed5
parent 108 71471dc81e77
child 117 441529422c2f
equal deleted inserted replaced
109:59448a46a48f 110:5ee9a90dbed5
    26     | line col |
    26     | line col |
    27 
    27 
    28     textView undoableDo:[
    28     textView undoableDo:[
    29         textView insertStringAtCursor: (openText ? '') , Character cr , Character cr, closeText , Character cr.
    29         textView insertStringAtCursor: (openText ? '') , Character cr , Character cr, closeText , Character cr.
    30         line := textView cursorLine - 1.
    30         line := textView cursorLine - 1.
    31         col := textView cursorCol  + 3.
    31         col := textView cursorCol  + 2.
    32         textView cursorLine: line col: col.
    32         textView cursorLine: line col: col.
    33     ].
    33     ].
    34 
    34 
    35     "Created: / 25-07-2013 / 10:41:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    35     "Created: / 25-07-2013 / 10:41:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    36     "Modified: / 30-09-2013 / 11:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    36 ! !
    37 ! !
    37 
    38 
    38 !SmalltalkEditSupport methodsFor:'event handling'!
    39 !SmalltalkEditSupport methodsFor:'event handling'!
    39 
    40 
    40 computeCompletion
    41 computeCompletion