Category : OS/2 Files
Archive : PMF202.ZIP
Filename : COPYDLGS.C
Output of file : COPYDLGS.C contained in archive : PMF202.ZIP
copydlgs.c
dialog box routines for pmfloppy
Copyright G. Bryant, 1990
Change Log
6-Jun-90 Change ParseFileName to return different value for empty
file Name -vs- invalid file name. change SELECT to ENTER
for IDD_DI_DIRS field in load and save.
8-Jun-90 Correct the busy check for Write
*/
#define INCL_PM
#define INCL_DOSERRORS
#define INCL_BASE
#include
#include
#include
#include
#include "pmfloppy.h"
#include "DskIm.h"
// external function prototypes
extern VOID PutBox(PSZ, PSZ);
// global function prototypes
MRESULT EXPENTRY ReadDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY WriteDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY DeleteDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY LoadDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY SaveDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY CompDlgProc(HWND, USHORT, MPARAM, MPARAM);
MRESULT EXPENTRY AboutDlgProc(HWND, USHORT, MPARAM, MPARAM);
// local function prototypes
VOID GetImageList(HWND, USHORT, USHORT);
VOID GetDirList(HWND, CHAR *);
VOID GetFileList(HWND);
USHORT SetBox(HWND, MPARAM);
USHORT SetEdit(HWND, USHORT);
BOOL SetDrive(HWND, USHORT);
BOOL ParseFileName (CHAR *, CHAR *);
BOOL CheckLSParms(HWND, USHORT);
// PM vbls
extern HWND hWndFrame ;
// User response vbls
extern DskImage ImageBuffers[NUM_IMAGES];
extern USHORT BufferNum;
extern USHORT CompNum;
// set up image list and edit boxes
VOID GetImageList(HWND hwnd, USHORT EditB, USHORT ListB) {
USHORT curBuff;
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0');
curBuff++) {
WinSendDlgItemMsg(hwnd,
ListB,
LM_INSERTITEM,
MPFROM2SHORT(LIT_END,0),
MPFROMP(ImageBuffers[curBuff].BufferName));
}
curBuff = 0;
WinSendDlgItemMsg(hwnd,
EditB,
EM_SETTEXTLIMIT,
MPFROM2SHORT(BUFFERNMSZ,0),
NULL);
WinSetDlgItemText(hwnd, EditB, ImageBuffers[curBuff].BufferName);
return;
} // GetImageList
//
// return the buffer number of the selected image
//
USHORT SetBox(HWND hwnd, MPARAM mp1) {
USHORT curBuff;
SHORT Select;
CHAR curBuffName[BUFFERNMSZ];
// get the selection number
Select = (USHORT) WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYSELECTION,
0L,
0L);
// get the selection text
WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYITEMTEXT,
MPFROM2SHORT(Select,BUFFERNMSZ),
MPFROMP(curBuffName));
// get the buffer number
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++) ;
return(curBuff);
} // SetBox
// Set the drive letter - returns true if illegal value
BOOL SetDrive(HWND hwnd, USHORT curBuff) {
WinQueryDlgItemText(hwnd,
IDD_DI_DRV,
2,
ImageBuffers[curBuff].DriveID);
ImageBuffers[curBuff].DriveID[0] = (CHAR) toupper(ImageBuffers[curBuff].DriveID[0]);
if (!isupper((USHORT) ImageBuffers[curBuff].DriveID[0])) {
PutBox("Destination Drive must be a drive letter","e.g. A");
return(TRUE);
}
return(FALSE);
} // SetDrive
// ReadDlgProc -- Disk Read dialog procedure.
//
// Output: ReadDrive -- Global name of selected drive
MRESULT CALLBACK ReadDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT curChar;
USHORT curBuff;
CHAR curBuffName[BUFFERNMSZ];
USHORT NameLen;
switch (id) {
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
WinSendDlgItemMsg(hwnd,
IDD_DI_DRV,
EM_SETTEXTLIMIT,
MPFROM2SHORT(1,0),
NULL);
return(0);
case WM_CONTROL: // get the button that was clicked
if (SHORT1FROMMP(mp1) == IDD_DI_BOX) {
curBuff = SetBox(hwnd, mp1);
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
if (SetDrive(hwnd, curBuff)) return(0);
if (ImageBuffers[curBuff].Busy) {
PutBox("That image is busy -","please select another");
}
else {
ImageBuffers[curBuff].Busy = BUSY_READ;
BufferNum = curBuff;
WinDismissDlg(hwnd, TRUE);
}
return(0);
}
}
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
NameLen = WinQueryDlgItemText(hwnd,
IDD_DI_FLD,
BUFFERNMSZ,
curBuffName);
if (NameLen == 0) {
PutBox("You must enter a buffer name,","or select 'Cancel'");
return(0);
}
for (curChar=0;curChar < BUFFERNMSZ;curChar++)
curBuffName[curChar] = (CHAR) toupper(curBuffName[curChar]);
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0') &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++) ;
if (curBuff < NUM_IMAGES) {
if (SetDrive(hwnd, curBuff)) return(0);
if (ImageBuffers[curBuff].Busy) {
PutBox("That image is busy -","please select another");
}
else {
ImageBuffers[curBuff].Busy = BUSY_READ;
strncpy(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ);
BufferNum = curBuff;
WinDismissDlg(hwnd, TRUE);
}
}
else {
PutBox("No image buffers left","(try deleting some)");
}
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // ReadDlgProc
// WriteDlgProc -- Disk Write dialog procedure.
//
// Output: WriteDrive -- Global name of selected drive
MRESULT CALLBACK WriteDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT NameLen;
USHORT curChar;
USHORT curBuff;
static CHAR curBuffName[BUFFERNMSZ];
static USHORT FormOpt;
switch (id)
{
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
WinSendDlgItemMsg(hwnd,
IDD_DI_DRV,
EM_SETTEXTLIMIT,
MPFROM2SHORT(1,0),
NULL);
WinSendDlgItemMsg(hwnd,
IDD_WRF_MAYBE,
BM_SETCHECK,
MPFROMSHORT(1),
NULL);
FormOpt = IDD_WRF_MAYBE;
return(0);
case WM_CONTROL: // get the button that was clicked
if (SHORT1FROMMP(mp1) == IDD_DI_BOX) {
curBuff = SetBox(hwnd, mp1);
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
if (SetDrive(hwnd, curBuff)) return(0);
if (ImageBuffers[curBuff].Busy) {
PutBox("That image is busy -","please select another");
}
else {
ImageBuffers[curBuff].Busy = BUSY_WRITE;
ImageBuffers[curBuff].FormatOptions = FormOpt;
BufferNum = curBuff;
WinDismissDlg(hwnd, TRUE);
}
return(0);
}
}
else if ((SHORT1FROMMP(mp1) == IDD_WRF_NEVER) ||
(SHORT1FROMMP(mp1) == IDD_WRF_MAYBE) ||
(SHORT1FROMMP(mp1) == IDD_WRF_ALWAYS))
FormOpt = SHORT1FROMMP(mp1);
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
NameLen = WinQueryDlgItemText(hwnd,
IDD_DI_FLD,
BUFFERNMSZ,
curBuffName);
for (curChar=0;curChar < BUFFERNMSZ;curChar++)
curBuffName[curChar] = (CHAR) toupper(curBuffName[curChar]);
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++) ;
if ((curBuff < NUM_IMAGES) && (NameLen > 0)) {
if (SetDrive(hwnd, curBuff)) return(0);
if (ImageBuffers[curBuff].Busy) {
PutBox("That image is busy -","please select another");
}
else {
ImageBuffers[curBuff].Busy = BUSY_WRITE;
strncpy(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ);
ImageBuffers[curBuff].FormatOptions = FormOpt;
BufferNum = curBuff;
WinDismissDlg(hwnd, TRUE);
}
}
else {
PutBox("You must select an existing","image buffer");
}
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // WriteDlgProc
// DeleteDlgProc -- Image Buffer Delete dialog procedure.
//
MRESULT CALLBACK DeleteDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT NameLen;
USHORT curChar;
USHORT curBuff;
CHAR curBuffName[BUFFERNMSZ];
switch (id)
{
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
return(0);
case WM_CONTROL: // get the button that was clicked
if (SHORT1FROMMP(mp1) == IDD_DI_BOX) {
curBuff = SetBox(hwnd, mp1);
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
if (ImageBuffers[curBuff].Busy)
PutBox("That buffer is in use.","");
else {
// free the memory used by that buffer and coalesce the list
DosFreeSeg(ImageBuffers[curBuff].DskSel);
free(ImageBuffers[curBuff].DskLayout);
while (((curBuff+1) < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0')) {
ImageBuffers[curBuff] = ImageBuffers[curBuff+1];
curBuff++;
}
WinDismissDlg(hwnd, TRUE);
}
}
}
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
NameLen = WinQueryDlgItemText(hwnd,
IDD_DI_FLD,
BUFFERNMSZ,
curBuffName);
for (curChar=0;curChar < BUFFERNMSZ;curChar++)
curBuffName[curChar] = (CHAR) toupper(curBuffName[curChar]);
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++) ;
if ((curBuff < NUM_IMAGES) && (NameLen > 0)) {
if (ImageBuffers[curBuff].Busy)
PutBox("That buffer is in use.","");
else {
// free the memory used by that buffer and coalesce the list
DosFreeSeg(ImageBuffers[curBuff].DskSel);
free(ImageBuffers[curBuff].DskLayout);
while (((curBuff+1) < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0')) {
ImageBuffers[curBuff] = ImageBuffers[curBuff+1];
curBuff++;
}
WinDismissDlg(hwnd, TRUE);
}
}
else {
PutBox("You must select an existing","image buffer");
}
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // DeleteDlgProc
VOID GetDirList(HWND hwnd, CHAR *pcCurrentPath) {
static CHAR szDrive [] = " :" ;
FILEFINDBUF findbuf ;
HDIR hDir = 1 ;
SHORT sDrive ;
USHORT usDriveNum, usCurPathLen, usSearchCount = 1 ;
ULONG ulDriveMap ;
DosQCurDisk (&usDriveNum, &ulDriveMap) ;
pcCurrentPath[0] = (CHAR) usDriveNum + '@' ;
pcCurrentPath[1] = ':' ;
pcCurrentPath[2] = '\\' ;
usCurPathLen = 64 ;
DosQCurDir(0, pcCurrentPath + 3, &usCurPathLen) ;
WinSetDlgItemText (hwnd, IDD_DI_PATH, pcCurrentPath) ;
WinSendDlgItemMsg (hwnd, IDD_DI_DIRS, LM_DELETEALL, NULL, NULL) ;
for (sDrive = 0 ; sDrive < 26 ; sDrive++)
if (ulDriveMap & 1L << sDrive) {
szDrive [1] = (CHAR) sDrive + 'A' ;
WinSendDlgItemMsg(hwnd,
IDD_DI_DIRS,
LM_INSERTITEM,
MPFROM2SHORT (LIT_END, 0),
MPFROMP (szDrive)) ;
}
DosFindFirst("*.*",&hDir,0x0017,&findbuf,sizeof findbuf,&usSearchCount,0L) ;
while (usSearchCount) {
if ((findbuf.attrFile & 0x0010) &&
(findbuf.achName [0] != '.' || findbuf.achName [1]))
WinSendDlgItemMsg (hwnd, IDD_DI_DIRS, LM_INSERTITEM,
MPFROM2SHORT (LIT_SORTASCENDING, 0),
MPFROMP (findbuf.achName)) ;
DosFindNext (hDir, &findbuf, sizeof findbuf, &usSearchCount) ;
}
} // GetDirList
VOID GetFileList(HWND hwnd) {
FILEFINDBUF findbuf ;
HDIR hDir = 1 ;
USHORT usSearchCount = 1 ;
WinSendDlgItemMsg (hwnd, IDD_DI_FILES, LM_DELETEALL, NULL, NULL) ;
DosFindFirst("*.*",&hDir,0x0007,&findbuf,sizeof findbuf,&usSearchCount,0L);
while (usSearchCount) {
WinSendDlgItemMsg(hwnd,
IDD_DI_FILES,
LM_INSERTITEM,
MPFROM2SHORT (LIT_SORTASCENDING, 0),
MPFROMP (findbuf.achName)) ;
DosFindNext(hDir, &findbuf, sizeof findbuf, &usSearchCount) ;
}
} // GetFileList
// In: pcOut -- Pointer to parsed file spec
// pcIn -- Pointer to raw file spec
// Returns 0 if bad file name
// 1 if nothing
// else ok
//
// Note: Changes current drive and directory to pcIn
//
BOOL ParseFileName (CHAR *pcOut, CHAR *pcIn) {
CHAR *pcLastSlash;
CHAR *pcFileOnly;
ULONG ulDriveMap ;
USHORT usDriveNum;
USHORT usDirLen = 64;
strupr(pcIn);
if (pcIn[0] == '\0') return(1);
// Get drive from input string or current drive
if (pcIn[1] == ':') {
if (DosSelectDisk(pcIn[0] - '@')) return(0);
pcIn += 2 ;
}
DosQCurDisk(&usDriveNum, &ulDriveMap) ;
*pcOut++ = (CHAR) usDriveNum + '@' ;
*pcOut++ = ':' ;
*pcOut++ = '\\' ;
// If rest of string is empty, return error
if (pcIn[0] == '\0') return(1);
// Search for last backslash. If none, could be directory.
if (NULL == (pcLastSlash = strrchr(pcIn, '\\'))) {
if (!DosChDir(pcIn, 0L)) return(1);
// Otherwise, get current dir & attach input filename
DosQCurDir(0, pcOut, &usDirLen);
if (*(pcOut + strlen(pcOut) - 1) != '\\') strcat(pcOut++, "\\");
strcat(pcOut, pcIn) ;
return(2);
}
// If the only backslash is at beginning, change to root
if (pcIn == pcLastSlash) {
DosChDir("\\", 0L) ;
if (pcIn[1] == '\0') return(1);
strcpy(pcOut, pcIn + 1);
return(2);
}
// Attempt to change directory -- Get current dir if OK
*pcLastSlash = '\0';
if (DosChDir(pcIn, 0L)) return(0);
DosQCurDir(0, pcOut, &usDirLen);
// Append input filename, if any
pcFileOnly = pcLastSlash + 1;
if (*pcFileOnly == '\0') return(1);
if (*(pcOut + strlen(pcOut) - 1) != '\\') strcat(pcOut++, "\\");
strcat(pcOut, pcFileOnly);
return(2);
} // ParseFileName
// return true if everything is okay
BOOL CheckLSParms(HWND hwnd, USHORT Mode) {
CHAR szBuffer[FILENMSZ];
USHORT curBuff;
CHAR curBuffName[BUFFERNMSZ];
USHORT NameLen;
USHORT curChar;
CHAR szFileName[FILENMSZ];
NameLen = WinQueryDlgItemText(hwnd,
IDD_DI_FNAME,
FILENMSZ,
szBuffer);
switch (ParseFileName(szFileName, szBuffer)) {
case 0:
PutBox("Illegal file name.","");
return(FALSE);
case 1: // no error, just don't do anything
return(FALSE);
}
NameLen = WinQueryDlgItemText(hwnd,
IDD_DI_FLD,
BUFFERNMSZ,
curBuffName);
if (NameLen == 0) {
PutBox("You must enter a buffer name,","or select 'Cancel'");
return(FALSE);
}
for (curChar=0;curChar < BUFFERNMSZ;curChar++)
curBuffName[curChar] = (CHAR) toupper(curBuffName[curChar]);
// set the current buffer - must base on mode 'cause save can only use
// existing buffers while load can create new ones
if (Mode == BUSY_LOAD)
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0') &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++);
else
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++);
if (NameLen < 1) {
PutBox("You must select an","image buffer");
return(FALSE);
}
if (curBuff < NUM_IMAGES) {
if (ImageBuffers[curBuff].Busy)
PutBox("That buffer is in use.","");
else {
strcpy(ImageBuffers[curBuff].FileName,szFileName);
strncpy(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ);
ImageBuffers[curBuff].DriveID[0] = ' ';
ImageBuffers[curBuff].Busy = Mode;
BufferNum = curBuff;
return(TRUE);
}
}
else
PutBox("You must select an existing","image buffer");
return(FALSE);
} // CheckLSParms
// LoadDlgProc -- Image Buffer Load dialog procedure.
//
MRESULT CALLBACK LoadDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT curBuff;
static CHAR szCurrentPath[FILENMSZ];
static CHAR szBuffer[FILENMSZ];
SHORT Select;
switch (id)
{
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
GetDirList(hwnd, szCurrentPath) ;
GetFileList(hwnd) ;
WinSendDlgItemMsg(hwnd,
IDD_DI_FNAME,
EM_SETTEXTLIMIT,
MPFROM2SHORT (FILENMSZ, 0),
NULL) ;
WinSetFocus(HWND_DESKTOP,WinWindowFromID(hwnd,IDD_DI_FNAME));
return(0);
case WM_CONTROL: // get the button that was clicked
switch (SHORT1FROMMP(mp1)) {
case IDD_DI_DIRS:
Select = (USHORT) WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYSELECTION,
0L,
0L) ;
WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYITEMTEXT,
MPFROM2SHORT(Select, sizeof szBuffer),
MPFROMP(szBuffer)) ;
switch (SHORT2FROMMP(mp1)) {
case LN_ENTER:
if (szBuffer[0] == ' ') DosSelectDisk(szBuffer[1] - '@');
else DosChDir (szBuffer, 0L);
GetDirList(hwnd, szCurrentPath);
GetFileList(hwnd);
WinSetDlgItemText(hwnd, IDD_DI_FNAME, "");
return(0);
}
break;
case IDD_DI_FILES:
Select = (USHORT) WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYSELECTION,
0L,
0L) ;
WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYITEMTEXT,
MPFROM2SHORT(Select, sizeof szBuffer),
MPFROMP(szBuffer)) ;
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd, IDD_DI_FNAME, szBuffer);
return(0);
case LN_ENTER:
if (CheckLSParms(hwnd, BUSY_LOAD)) {
WinDismissDlg(hwnd, TRUE);
}
return(0);
}
break ;
case IDD_DI_BOX:
curBuff = SetBox(hwnd, mp1);
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
if (ImageBuffers[curBuff].Busy)
PutBox("That buffer is in use.","");
else {
if (CheckLSParms(hwnd, BUSY_LOAD)) {
WinDismissDlg(hwnd, TRUE);
}
}
}
}
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
if (CheckLSParms(hwnd, BUSY_LOAD)) {
WinDismissDlg(hwnd, TRUE);
}
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // LoadDlgProc
// SaveDlgProc -- Image Buffer Save dialog procedure.
//
MRESULT CALLBACK SaveDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT curBuff;
static CHAR szCurrentPath [FILENMSZ];
static CHAR szBuffer [FILENMSZ];
SHORT Select;
switch (id)
{
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
GetDirList(hwnd, szCurrentPath) ;
GetFileList(hwnd) ;
WinSendDlgItemMsg(hwnd,
IDD_DI_FNAME,
EM_SETTEXTLIMIT,
MPFROM2SHORT (FILENMSZ, 0),
NULL) ;
return(0);
case WM_CONTROL: // get the button that was clicked
switch (SHORT1FROMMP(mp1)) {
case IDD_DI_DIRS:
Select = (USHORT) WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYSELECTION,
0L,
0L) ;
WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYITEMTEXT,
MPFROM2SHORT(Select, sizeof szBuffer),
MPFROMP(szBuffer)) ;
switch (SHORT2FROMMP(mp1)) {
case LN_ENTER:
if (szBuffer[0] == ' ') DosSelectDisk(szBuffer[1] - '@');
else DosChDir (szBuffer, 0L);
GetDirList(hwnd, szCurrentPath);
GetFileList(hwnd);
WinSetDlgItemText(hwnd, IDD_DI_FNAME, "");
return(0);
}
break;
case IDD_DI_FILES:
Select = (USHORT) WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYSELECTION,
0L,
0L) ;
WinSendDlgItemMsg(hwnd,
SHORT1FROMMP(mp1),
LM_QUERYITEMTEXT,
MPFROM2SHORT(Select, sizeof szBuffer),
MPFROMP(szBuffer)) ;
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd, IDD_DI_FNAME, szBuffer);
return(0);
case LN_ENTER:
if (CheckLSParms(hwnd, BUSY_SAVE)) {
WinDismissDlg(hwnd, TRUE);
}
return(0);
}
break ;
case IDD_DI_BOX:
curBuff = SetBox(hwnd, mp1);
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
if (ImageBuffers[curBuff].Busy)
PutBox("That buffer is in use.","");
else {
if (CheckLSParms(hwnd, BUSY_SAVE)) {
WinDismissDlg(hwnd, TRUE);
}
}
}
} // switch for CONTROL
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
if (CheckLSParms(hwnd, BUSY_SAVE)) {
WinDismissDlg(hwnd, TRUE);
}
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // SaveDlgProc
//
// return the buffer number of the field in the edit box
//
USHORT SetEdit(HWND hwnd, USHORT EditB) {
USHORT curBuff;
USHORT curChar;
CHAR curBuffName[BUFFERNMSZ];
USHORT NameLen;
NameLen = WinQueryDlgItemText(hwnd,
EditB,
BUFFERNMSZ,
curBuffName);
if (NameLen == 0) {
PutBox("You must enter an image name,"," or select 'Cancel'");
return(NUM_IMAGES+1);
}
for (curChar=0;curChar < BUFFERNMSZ;curChar++)
curBuffName[curChar] = (CHAR) toupper(curBuffName[curChar]);
for (curBuff=0;
(curBuff < NUM_IMAGES) &&
(ImageBuffers[curBuff].BufferName[0] != '\0') &&
(strncmp(ImageBuffers[curBuff].BufferName,curBuffName,BUFFERNMSZ));
curBuff++) ;
if (curBuff == NUM_IMAGES) {
PutBox("You must select an existing","image buffer");
return(NUM_IMAGES+1);
}
if (ImageBuffers[curBuff].Busy) {
PutBox("The image is busy -","please select another");
return(NUM_IMAGES+1);
}
return(curBuff);
}
// CompDlgProc -- Image Buffer Compare dialog procedure.
//
MRESULT CALLBACK CompDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2) {
USHORT curBuff;
switch (id)
{
case WM_INITDLG:
GetImageList(hwnd, IDD_DI_FLD, IDD_DI_BOX);
GetImageList(hwnd, IDD_CM_FLD, IDD_CM_BOX);
BufferNum = NUM_IMAGES+1;
CompNum = NUM_IMAGES+1;
return(0);
case WM_CONTROL: // get the button that was clicked
curBuff = SetBox(hwnd, mp1);
switch (SHORT1FROMMP(mp1)) {
case IDD_DI_BOX:
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_DI_FLD,
ImageBuffers[curBuff].BufferName);
return(0);
case LN_ENTER:
BufferNum = SetEdit(hwnd, IDD_DI_FLD);
CompNum = SetEdit(hwnd, IDD_CM_FLD);
if ((CompNum == NUM_IMAGES+1) ||
(CompNum == BufferNum))
PutBox("You must select two","different (and existing) images");
else {
ImageBuffers[BufferNum].Busy = BUSY_COMP;
ImageBuffers[CompNum].Busy = BUSY_COMP;
WinDismissDlg(hwnd, TRUE);
}
}
break;
case IDD_CM_BOX:
switch (SHORT2FROMMP(mp1)) {
case LN_SELECT:
WinSetDlgItemText(hwnd,
IDD_CM_FLD,
ImageBuffers[curBuff].BufferName);
CompNum = curBuff;
return(0);
case LN_ENTER:
BufferNum = SetEdit(hwnd, IDD_DI_FLD);
CompNum = SetEdit(hwnd, IDD_CM_FLD);
if ((BufferNum == NUM_IMAGES+1) ||
(BufferNum == CompNum))
PutBox("You must select two","different (and existing) images");
else {
ImageBuffers[BufferNum].Busy = BUSY_COMP;
ImageBuffers[CompNum].Busy = BUSY_COMP;
WinDismissDlg(hwnd, TRUE);
}
}
break;
} // switch for CONTROL
return(0);
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
BufferNum = SetEdit(hwnd, IDD_DI_FLD);
CompNum = SetEdit(hwnd, IDD_CM_FLD);
ImageBuffers[BufferNum].Busy = BUSY_COMP;
ImageBuffers[CompNum].Busy = BUSY_COMP;
WinDismissDlg(hwnd, TRUE);
return(0);
case DID_CANCEL:
WinDismissDlg(hwnd, FALSE);
return(0);
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // CompDlgProc
// AboutDlgProc -- About box dialog procedure.
//
MRESULT CALLBACK AboutDlgProc(HWND hwnd, USHORT id, MPARAM mp1, MPARAM mp2)
{
switch (id)
{
case WM_COMMAND:
switch (COMMANDMSG(&id)->cmd)
{
case DID_OK:
case DID_CANCEL:
WinDismissDlg(hwnd, TRUE);
return 0;
} // switch on commandID
break;
} // switch on msgID
return(WinDefDlgProc(hwnd, id, mp1, mp2));
} // AboutDlgProc
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/