home *** CD-ROM | disk | FTP | other *** search
- /*
- ** GadTools layout toolkit
- **
- ** Copyright © 1993-1996 by Olaf `Olsen' Barthel
- ** Freely distributable.
- **
- ** :ts=4
- */
-
- #ifndef _GTLAYOUT_GLOBAL_H
- #include "gtlayout_global.h"
- #endif
-
- VOID
- LTP_PrintLabel(LayoutHandle *handle,ObjectNode *node,LONG left,LONG top)
- {
- struct RastPort *rp;
- STRPTR label;
- LONG underscore;
- LONG len;
-
- rp = &handle->RPort;
-
- LTP_SetPens(rp,node->HighLabel ? handle->DrawInfo->dri_Pens[HIGHLIGHTTEXTPEN] : handle->TextPen,0,JAM1);
-
- Move(rp,left - (node->LabelWidth + INTERWIDTH),top + rp->TxBaseline);
-
- label = node->Label;
-
- len = strlen(label);
- underscore = 0;
-
- while(label[underscore] != '_' && underscore < len)
- underscore++;
-
- if(underscore)
- Text(rp,label,underscore);
-
- if(underscore < len - 1)
- {
- ULONG OldStyle;
-
- underscore += 2;
- label += underscore;
- len -= underscore;
-
- OldStyle = rp->AlgoStyle;
-
- SetSoftStyle(rp,FSF_UNDERLINED,FSF_UNDERLINED);
-
- Text(rp,label - 1,1);
-
- SetSoftStyle(rp,OldStyle,FSF_UNDERLINED);
-
- if(len)
- Text(rp,label,len);
- }
- }
-