Return to calcutil.c CVS log

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

Annotation of pmsdk/samples/calc/calcutil.c, revision 1.1

1.1     ! root        1: /****************************** Module Header ******************************\
        !             2: * Module Name: calcutil.c - Calc application
        !             3: *
        !             4: * OS/2 Presentation Manager version of Calc, ported from Windows version
        !             5: *
        !             6: * Created by Microsoft Corporation, 1987
        !             7: *
        !             8: \***************************************************************************/
        !             9: 
        !            10: #define INCL_PM
        !            11: #define INCL_DDIMISC
        !            12: #include <os2.h>
        !            13: #include <string.h>
        !            14: #include "calc.h"
        !            15: 
        !            16: extern HAB hab;
        !            17: extern HWND hwndCalcFrame;
        !            18: 
        !            19: 
        !            20: VOID CalcTextOut(HPS, INT, INT, PCH, INT);
        !            21: VOID FarStrcpy(PSZ, PSZ);
        !            22: 
        !            23: VOID CalcTextOut(hps, x, y, lpch, cch)
        !            24: HPS hps;
        !            25: INT x, y;
        !            26: PCH  lpch;
        !            27: INT cch;
        !            28: {
        !            29:     POINTL ptl;
        !            30: 
        !            31:     ptl.x = x;
        !            32:     ptl.y = y;
        !            33: 
        !            34:     GpiSetColor( hps, CLR_BLACK);
        !            35:     GpiCharStringAt( hps, (PPOINTL)&ptl, (LONG)cch, (PSZ)lpch);
        !            36: }
        !            37: 
        !            38: 
        !            39: VOID FarStrcpy(lpszDest, lpszSrc)
        !            40: PSZ  lpszDest, lpszSrc;
        !            41: {
        !            42:     while(*lpszDest++ = *lpszSrc++);
        !            43: }

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