equal
deleted
inserted
replaced
959 "/ aStream nextPutAll:aLine. |
959 "/ aStream nextPutAll:aLine. |
960 "/ ]. |
960 "/ ]. |
961 "/ aStream cr |
961 "/ aStream cr |
962 "/ ] |
962 "/ ] |
963 |
963 |
|
964 ! |
|
965 |
|
966 getFontParameters |
|
967 "get some info of the used font. They are cached since we use them often .. |
|
968 This is redefined here, to use the fonts maxHeight/maxAscent for |
|
969 line separation. This is required, to allow for proper handling of |
|
970 national characters, such as A-dieresis ..." |
|
971 |
|
972 font := font on:device. |
|
973 includesNonStrings == true ifTrue:[ |
|
974 "/ for now, we do not support variable height entries ... |
|
975 fontHeight := list first heightOn:self |
|
976 ] ifFalse:[ |
|
977 fontHeight := font maxHeight. |
|
978 ]. |
|
979 fontHeight := fontHeight + lineSpacing. |
|
980 fontAscent := font maxAscent. |
|
981 fontWidth := font width. |
|
982 fontIsFixedWidth := font isFixedWidth. |
|
983 |
|
984 "Modified: 22.5.1996 / 12:02:47 / cg" |
|
985 "Created: 22.5.1996 / 12:18:34 / cg" |
964 ! |
986 ! |
965 |
987 |
966 scrollSelectDown |
988 scrollSelectDown |
967 "auto scroll action; scroll and reinstall timed-block" |
989 "auto scroll action; scroll and reinstall timed-block" |
968 |
990 |
2183 ! ! |
2205 ! ! |
2184 |
2206 |
2185 !TextView class methodsFor:'documentation'! |
2207 !TextView class methodsFor:'documentation'! |
2186 |
2208 |
2187 version |
2209 version |
2188 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.52 1996-05-18 09:39:53 cg Exp $' |
2210 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.53 1996-05-22 11:30:33 cg Exp $' |
2189 ! ! |
2211 ! ! |