equal
deleted
inserted
replaced
197 oldCodeList isNil ifFalse:[ |
197 oldCodeList isNil ifFalse:[ |
198 oldCode := oldCodeList asStringWithoutEmphasis. |
198 oldCode := oldCodeList asStringWithoutEmphasis. |
199 "textView" modified ifFalse:[ |
199 "textView" modified ifFalse:[ |
200 Screen currentScreenQuerySignal answer:codeView device |
200 Screen currentScreenQuerySignal answer:codeView device |
201 do:[ |
201 do:[ |
202 Parser::ParseError handle:[:ex | |
202 Parser parseErrorSignal handle:[:ex | |
203 |errMsg| |
203 |errMsg| |
204 |
204 |
205 errMsg := ex description asStringCollection first asString. |
205 errMsg := ex description asStringCollection first asString. |
206 |
206 |
207 "/ Transcript topView raiseDeiconified. |
207 "/ Transcript topView raiseDeiconified. |