Return to calcutil.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / calc

Microsoft OS/2 SDK PM 08-08-1988

/****************************** Module Header ******************************\
* Module Name:	calcutil.c - Calc application
*
* OS/2 Presentation Manager version of Calc, ported from Windows version
*
* Created by Microsoft Corporation, 1987
*
\***************************************************************************/

#define INCL_PM
#define INCL_DDIMISC
#include <os2.h>
#include <string.h>
#include "calc.h"

extern HAB hab;
extern HWND hwndCalcFrame;


VOID CalcTextOut(HPS, INT, INT, PCH, INT);
VOID FarStrcpy(PSZ, PSZ);

VOID CalcTextOut(hps, x, y, lpch, cch)
HPS hps;
INT x, y;
PCH  lpch;
INT cch;
{
    POINTL ptl;

    ptl.x = x;
    ptl.y = y;

    GpiSetColor( hps, CLR_BLACK);
    GpiCharStringAt( hps, (PPOINTL)&ptl, (LONG)cch, (PSZ)lpch);
}


VOID FarStrcpy(lpszDest, lpszSrc)
PSZ  lpszDest, lpszSrc;
{
    while(*lpszDest++ = *lpszSrc++);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.