equal
deleted
inserted
replaced
731 |
731 |
732 "Created: 14.1.1997 / 00:14:33 / cg" |
732 "Created: 14.1.1997 / 00:14:33 / cg" |
733 ! |
733 ! |
734 |
734 |
735 initStyle |
735 initStyle |
|
736 "setup viewStyle specifics" |
|
737 |
736 super initStyle. |
738 super initStyle. |
737 |
739 |
738 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
740 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
739 |
741 |
740 viewBackground := DefaultViewBackground. |
742 viewBackground := DefaultViewBackground. |
757 selectionBgColor := fgColor |
759 selectionBgColor := fgColor |
758 ] |
760 ] |
759 ] |
761 ] |
760 ]. |
762 ]. |
761 |
763 |
762 "Modified: 28.5.1996 / 21:14:08 / cg" |
764 "Modified: 22.1.1997 / 11:57:53 / cg" |
763 ! |
765 ! |
764 |
766 |
765 initialize |
767 initialize |
766 super initialize. |
768 super initialize. |
767 contentsWasSaved := false. |
769 contentsWasSaved := false. |
2277 ! ! |
2279 ! ! |
2278 |
2280 |
2279 !TextView class methodsFor:'documentation'! |
2281 !TextView class methodsFor:'documentation'! |
2280 |
2282 |
2281 version |
2283 version |
2282 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.78 1997-01-13 23:14:56 cg Exp $' |
2284 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.79 1997-01-22 11:03:01 cg Exp $' |
2283 ! ! |
2285 ! ! |