Category : Files from Magazines
Archive : PJ76.ZIP
Filename : WNTFNS.C
Output of file : WNTFNS.C contained in archive : PJ76.ZIP
* WNTERM function support module
*
* Written by
* William S. Hall
* 3665 Benton Street, #66
* Santa Clara, CA 95051
*/
#define NOKANJI
#define NOATOM
#define NOSOUND
#include
#include
#include
#include "ttycls.h"
#include "wnterm.h"
/* paint the main window */
void NEAR MainWndPaint(hWnd, lpps)
HWND hWnd;
LPPAINTSTRUCT lpps;
{
HDC hDC = lpps->hdc;
// if the window is iconic, draw in the icon area
if (IsIconic(hWnd)) {
RECT rIcon;
GetClientRect(hWnd, (LPRECT)&rIcon);
Rectangle(hDC, 0,0,rIcon.right, rIcon.bottom);
TextOut(hDC,2,rIcon.bottom/3,(LPSTR)szIconTitle,strlen(szIconTitle));
}
// otherwise update the text in the window
else
TTYWndPaint(&MWnd, lpps->hdc, lpps->rcPaint.top, lpps->rcPaint.bottom);
}
/* come here to handle menu items */
void NEAR WndCommand(hWnd, menuitem, param)
HWND hWnd;
WORD menuitem;
LONG param;
{
HMENU hMenu;
FARPROC fp;
switch (menuitem) {
case IDM_ABOUT: // create the about box
fp = MakeProcInstance((FARPROC)AboutBoxProc, hInst);
DialogBox(hInst, MAKEINTRESOURCE(DT_ABOUT),hWnd,fp);
FreeProcInstance(fp);
break;
case IDM_OFFLINE:
// if currently offline, then change the window proc
// over to the subclass window procedure.
SetWindowLong(hWnd, GWL_WNDPROC, (LONG)MainWndSubProc);
// rewrite the menu bar.
hMenu = GetMenu(hWnd);
ChangeMenu(hMenu,IDM_OFFLINE,(LPSTR)szOnLine,IDM_ONLINE,
MF_BYCOMMAND | MF_CHANGE);
DrawMenuBar(hWnd);
// indicate that we are online.
LineState = IDM_ONLINE;
break;
case IDM_ONLINE:
// if currently online, reset the window proc.
SetWindowLong(hWnd, GWL_WNDPROC, (LONG)MainWndProc);
// redraw the menu.
hMenu = GetMenu(hWnd);
ChangeMenu(hMenu,IDM_ONLINE,(LPSTR)szOffLine,IDM_OFFLINE,
MF_BYCOMMAND | MF_CHANGE);
DrawMenuBar(hWnd);
// show new state.
LineState = IDM_OFFLINE;
break;
case IDM_COMM: // make communications settings.
fp = MakeProcInstance((FARPROC)SetCommParams, hInst);
DialogBox(hInst, MAKEINTRESOURCE(DT_COMM),hWnd, fp);
FreeProcInstance(fp);
break;
case IDM_LOCAL: // set local echo.
hMenu = GetMenu(hWnd);
if (MWnd.LocalEcho) {
MWnd.LocalEcho = FALSE;
CheckMenuItem(hMenu, menuitem, MF_UNCHECKED);
}
else {
MWnd.LocalEcho = TRUE;
CheckMenuItem(hMenu, menuitem, MF_CHECKED);
}
break;
case IDM_CLEAR: // clear the screen.
HideCaret(hWnd);
TTYClear(&MWnd);
SetCaretPos(MWnd.Pos.x, MWnd.Pos.y);
ShowCaret(hWnd);
break;
}
}
/* come here to read the communications buffer if no messages to process */
void NEAR ProcessComm()
{
COMSTAT ComStatus;
int num;
int result = 0;
int room = BUFSIZE - Buflen; // check for space
if ((LineState == IDM_ONLINE) && (!ScrollLock)) {
if (room > 0) {
GetCommError(cid, (COMSTAT FAR *)&ComStatus);
if (num = ComStatus.cbInQue) { // read number in comm queue.
num = min(num, room); // select the smaller value
if ((result = ReadComm(cid,(LPSTR)(Buffer + Buflen), num)) < 0)
result = -result;
Buflen += result;
// note, we ignore read errors
// so result is set to its absolute value.
}
}
}
if (Buflen)
PostMessage(MWnd.hWnd, WM_USER, Buflen, 0L);
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/