equal
deleted
inserted
replaced
726 highlightingErrorPosition:relPos to:relEndPos |
726 highlightingErrorPosition:relPos to:relEndPos |
727 withForeground:fg andBackground:bg |
727 withForeground:fg andBackground:bg |
728 do:[ |
728 do:[ |
729 |box lbl doNotShowAgainHolder l1 y1 y2 l2| |
729 |box lbl doNotShowAgainHolder l1 y1 y2 l2| |
730 |
730 |
731 Warning isHandled ifTrue:[ |
731 "/ Warning isHandled ifTrue:[ |
732 Warning raiseErrorString:aString. |
732 "/ Warning raiseErrorString:aString. |
733 ^ false |
733 "/ ^ false |
734 ]. |
734 "/ ]. |
735 |
735 |
736 " |
736 " |
737 ask if we should abort or continue |
737 ask if we should abort or continue |
738 " |
738 " |
739 box := YesNoBox |
739 box := YesNoBox |
770 answer ifFalse:[ |
770 answer ifFalse:[ |
771 AbortOperationRequest raise. |
771 AbortOperationRequest raise. |
772 ]. |
772 ]. |
773 ^ false |
773 ^ false |
774 |
774 |
775 "Created: / 24.11.1995 / 22:56:34 / cg" |
775 "Created: / 24-11-1995 / 22:56:34 / cg" |
776 "Modified: / 16.11.2001 / 17:39:31 / cg" |
776 "Modified: / 22-09-2010 / 11:59:54 / cg" |
777 ! |
777 ! |
778 |
778 |
779 highlightingErrorLine:lineNr do:aBlock |
779 highlightingErrorLine:lineNr do:aBlock |
780 "evaluate aBlock while some selection is shown highlighted with error colors." |
780 "evaluate aBlock while some selection is shown highlighted with error colors." |
781 |
781 |
1801 ! ! |
1801 ! ! |
1802 |
1802 |
1803 !Workspace class methodsFor:'documentation'! |
1803 !Workspace class methodsFor:'documentation'! |
1804 |
1804 |
1805 version |
1805 version |
1806 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.219 2010-08-06 09:10:42 cg Exp $' |
1806 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.220 2010-09-22 12:22:56 cg Exp $' |
1807 ! |
1807 ! |
1808 |
1808 |
1809 version_CVS |
1809 version_CVS |
1810 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.219 2010-08-06 09:10:42 cg Exp $' |
1810 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.220 2010-09-22 12:22:56 cg Exp $' |
1811 ! ! |
1811 ! ! |