equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
|
3 COPYRIGHT (c) 2021 LabWare |
3 All Rights Reserved |
4 All Rights Reserved |
4 |
5 |
5 This software is furnished under a license and may be used |
6 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
7 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
8 inclusion of the above copyright notice. This software may not |
110 !FileApplicationNoteBook class methodsFor:'documentation'! |
111 !FileApplicationNoteBook class methodsFor:'documentation'! |
111 |
112 |
112 copyright |
113 copyright |
113 " |
114 " |
114 COPYRIGHT (c) 2002 by eXept Software AG |
115 COPYRIGHT (c) 2002 by eXept Software AG |
|
116 COPYRIGHT (c) 2021 LabWare |
115 All Rights Reserved |
117 All Rights Reserved |
116 |
118 |
117 This software is furnished under a license and may be used |
119 This software is furnished under a license and may be used |
118 only in accordance with the terms of that license and with the |
120 only in accordance with the terms of that license and with the |
119 inclusion of the above copyright notice. This software may not |
121 inclusion of the above copyright notice. This software may not |
6333 editView cursorMovementWhenUpdating:nil. |
6335 editView cursorMovementWhenUpdating:nil. |
6334 |
6336 |
6335 self itemChanged value ifTrue:[ |
6337 self itemChanged value ifTrue:[ |
6336 text := editView contents. |
6338 text := editView contents. |
6337 self fileContentsModel |
6339 self fileContentsModel |
6338 value:(text asText emphasizeAllWith:UserPreferences current emphasisForChangedCode). |
6340 value:(text asText emphasizeAllWith:SystemBrowser emphasisForChangedCode). |
6339 editView pushEvent:#flash. |
6341 editView pushEvent:#flash. |
6340 ] ifFalse:[ |
6342 ] ifFalse:[ |
6341 "/ self fileContentsModel value:text string. |
6343 "/ self fileContentsModel value:text string. |
6342 ]. |
6344 ]. |
6343 editView cursorMovementWhenUpdating:prevCursorBehavior. |
6345 editView cursorMovementWhenUpdating:prevCursorBehavior. |
6344 "/ self fileContentsModel changed:#value. |
6346 "/ self fileContentsModel changed:#value. |
|
6347 |
|
6348 "Modified (comment): / 15-09-2021 / 13:46:12 / Jan Vrany <jan.vrany@labware.com>" |
6345 ! |
6349 ! |
6346 |
6350 |
6347 editorOperationsToolBarVisibilityChanged |
6351 editorOperationsToolBarVisibilityChanged |
6348 |editorToolBar editorOperationsToolBar editor topOffset editorOperationsToolBarVisible| |
6352 |editorToolBar editorOperationsToolBar editor topOffset editorOperationsToolBarVisible| |
6349 |
6353 |
7507 ^ '$Header$' |
7511 ^ '$Header$' |
7508 ! |
7512 ! |
7509 |
7513 |
7510 version_CVS |
7514 version_CVS |
7511 ^ '$Header$' |
7515 ^ '$Header$' |
7512 ! ! |
7516 ! |
7513 |
7517 |
|
7518 version_HG |
|
7519 |
|
7520 ^ '$Changeset: <not expanded> $' |
|
7521 ! ! |
|
7522 |