equal
deleted
inserted
replaced
601 ! |
601 ! |
602 |
602 |
603 errorBackgroundColor |
603 errorBackgroundColor |
604 errorBgColor notNil ifTrue:[ ^ errorBgColor ]. |
604 errorBgColor notNil ifTrue:[ ^ errorBgColor ]. |
605 DefaultErrorBackgroundColor notNil ifTrue:[ ^ DefaultErrorBackgroundColor ]. |
605 DefaultErrorBackgroundColor notNil ifTrue:[ ^ DefaultErrorBackgroundColor ]. |
606 device hasColors ifTrue:[ ^ Color red ]. |
606 self graphicsDevice hasColors ifTrue:[ ^ Color red ]. |
607 |
607 |
608 ^ selectionBgColor |
608 ^ selectionBgColor |
609 ! |
609 ! |
610 |
610 |
611 errorForegroundColor |
611 errorForegroundColor |
656 simulatedSelf := anObject |
656 simulatedSelf := anObject |
657 ! |
657 ! |
658 |
658 |
659 warningBackgroundColor |
659 warningBackgroundColor |
660 DefaultWarningBackgroundColor notNil ifTrue:[ ^ DefaultWarningBackgroundColor ]. |
660 DefaultWarningBackgroundColor notNil ifTrue:[ ^ DefaultWarningBackgroundColor ]. |
661 device hasColors ifTrue:[ ^ Color orange ]. |
661 self graphicsDevice hasColors ifTrue:[ ^ Color orange ]. |
662 |
662 |
663 ^ selectionBgColor |
663 ^ selectionBgColor |
664 ! |
664 ! |
665 |
665 |
666 warningForegroundColor |
666 warningForegroundColor |
1016 self selectFromCharacterPosition:absPosition to:(codeStartPosition + (relEndPos ? 1) - 1) |
1016 self selectFromCharacterPosition:absPosition to:(codeStartPosition + (relEndPos ? 1) - 1) |
1017 ]. |
1017 ]. |
1018 expandingTop := true. "/ hack to make the top of the selection visible |
1018 expandingTop := true. "/ hack to make the top of the selection visible |
1019 self makeSelectionVisible. |
1019 self makeSelectionVisible. |
1020 |
1020 |
1021 device flush. |
1021 self flush. |
1022 |
1022 |
1023 aBlock ensure:[ |
1023 aBlock ensure:[ |
1024 " |
1024 " |
1025 undo selection color change and show cursor again |
1025 undo selection color change and show cursor again |
1026 " |
1026 " |
2203 ! ! |
2203 ! ! |
2204 |
2204 |
2205 !Workspace class methodsFor:'documentation'! |
2205 !Workspace class methodsFor:'documentation'! |
2206 |
2206 |
2207 version |
2207 version |
2208 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $' |
2208 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.314 2014-02-18 17:19:00 stefan Exp $' |
2209 ! |
2209 ! |
2210 |
2210 |
2211 version_CVS |
2211 version_CVS |
2212 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $' |
2212 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.314 2014-02-18 17:19:00 stefan Exp $' |
2213 ! ! |
2213 ! ! |
2214 |
2214 |