Changeset 320 in Sophya for trunk/SophyaPI

Timestamp:

Jun 16, 1999, 6:22:11 PM (26 years ago)

Author:

ercodmgr

Message:

Suite introduction PIFont - Reza 16/6/99

Location:

trunk/SophyaPI/PI

Files:

• pi.rsc (modified) (1 diff)
• picons.cc (modified) (1 diff)
• pifontx.cc (modified) (2 diffs)
• piwdgx.cc (modified) (1 diff)

trunk/SophyaPI/PI/pi.rsc

@@ -20 +20 @@
 PeidaInt*DefMenubar*XtNheight:          30
 
-PeidaInt*fontList:           -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-ISO8859-1
-PeidaInt*default*fontList:    -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-ISO8859-1
+PeidaInt*fontList:           -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-ISO8859-1
+PeidaInt*default*fontList:    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-ISO8859-1
 
 # Attention, ne pas mettre de blanc a la fin du nom de fonte
-PeidaInt*fontFamilyName:   *-helvetica
+PeidaInt*fontFamilyName:   *-courier
 
 PeidaInt*XmToggleButton*selectColor:                  Red

trunk/SophyaPI/PI/picons.cc

@@ -171 +171 @@
 mWGrC->SelFont(sz);
 mFTaille = sz;
-mFHaut = mWGrC->GetFontHeight(asc, desc);
+mFHaut = mWGrC->GetFont().GetFontHeight(asc, desc);
 mFLarg = (int)mWGrC->CalcStringWidth("ABCDEFGHIJ")/10;
 mWSzL = YSize()/mFHaut - 1;

trunk/SophyaPI/PI/pifontx.cc

@@ -107 +107 @@
 XTextExtents(mFSt, a, 0, &hd, &fa, &fd, &ovr);
 asc = fa; desc = fd; 
-return(fa+fd-1);
+return(fa+fd);
 }
 
@@ -349 +349 @@
 HugeFontIndex = NMAXFONTSZ-1;
 
-// printf("PIFontX::Init()-DBG- FontIndex= %d %d %d (%d) \n", 
+// printf("PIFontX::Init()-DBG- FontIndex= %d %d %d (SzF=%d) \n", 
 //       SmallFontIndex, NormalFontIndex, BigFontIndex, szf);
 

trunk/SophyaPI/PI/piwdgx.cc

@@ -628 +628 @@
 XtGetApplicationResources(top, &fntname, res, XtNumber(res), NULL, 0);
 // scr = XDefaultScreen(dpy);
+// printf("-DBG-F= %s \n", fntname);
 int count;
 char **list;