CodeView.st
changeset 6265 cee20d1e21a8
parent 6216 d3bf0f1dec62
child 6411 04771f75a742
equal deleted inserted replaced
6264:3b7b675cbdf8 6265:cee20d1e21a8
   209      save cursor and selection to allow restore in case of an error
   209      save cursor and selection to allow restore in case of an error
   210      (we are typically compiling here ... and the compiler may show
   210      (we are typically compiling here ... and the compiler may show
   211      errors by highlighting them)"
   211      errors by highlighting them)"
   212 
   212 
   213     acceptEnabled == false ifTrue:[
   213     acceptEnabled == false ifTrue:[
   214         self beep.
   214         self beepInEditor.
   215         ^ self
   215         ^ self
   216     ].
   216     ].
   217 
   217 
   218     codeStartPosition := 1.
   218     codeStartPosition := 1.
   219     [
   219     [