mirrors
/
macssh
mirror of https://github.com/macssh/macssh.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

removed dangerous SetFontInfo call 

fixed bold fonts
This commit is contained in:
chombier 2001-03-15 09:29:53 +00:00
parent 32b57158cf
commit ddd02a1858
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
macssh/source/Screens/rsinterf.c
View File

@ -1516,14 +1516,21 @@ void RSfontmetrics
{
FontInfo finforec;
GrafPtr myGP;
StyleField txFace;
GetPort(&myGP);
GetFontInfo(&finforec);
RScurrent->fascent = finforec.ascent;
RScurrent->fheight = finforec.ascent + finforec.descent + finforec.leading /* +1 */;
RScurrent->monospaced = (CharWidth('W') == CharWidth('i'));
txFace = myGP->txFace;
TextFace( 0 );
RScurrent->fwidth = CharWidth('W');
TextFace( bold );
RScurrent->boldislarger = ( CharWidth('W') != RScurrent->fwidth);
TextFace( txFace );
/* SetFontInfo(&finforec);*/
}
pascal void ScrollProc(ControlHandle control, short part)