home *** CD-ROM | disk | FTP | other *** search
- /***********************************************************/
- /* File Id. Wframe.C */
- /* Author. Stan Milam. */
- /* Date Written. 11/13/88. */
- /* Modifications. */
- /* */
- /* (c) Copyright 1989-90 by Stan Milam */
- /* */
- /* Comments: This module will save (wpush), color(wfill), */
- /* frame (wbox) with the current border type & color, a */
- /* single window. */
- /***********************************************************/
-
- #include "pcw.i"
- #include "pcwproto.h"
- #define NULL 0
-
- WNDPTR *wframe(int ur,int uc,int lr,int lc,int fclr,int bclr) {
-
- WNDPTR *temp;
-
- if ((temp = wpush(ur,uc,lr,lc)) == (WNDPTR *) NULL)
- return (NULL);
- qfill(temp->urow,temp->ucol,temp->lrow,temp->lcol,fclr,bclr,32);
- qbox (temp->urow,temp->ucol,temp->lrow,temp->lcol);
- temp->attr = (char) ((bclr << 4) + fclr);
- set_cursor_pos(ur+1,uc+1);
- return(temp);
- }
-