void put_clipboard (char *s)
{
int len, rc;
char *mem;
len = strlen (s);
if (len == 0) return;
create_pm ();
if (WinOpenClipbrd (hab0) == TRUE)
{
WinEmptyClipbrd (hab0);
rc = DosAllocSharedMem ((void **)&mem, NULL, len+1,
PAG_READ|PAG_WRITE|PAG_COMMIT|OBJ_GIVEABLE);
if (rc == 0)
{
strcpy (mem, s);
WinSetClipbrdData (hab0, (ULONG)mem, CF_TEXT, CFI_POINTER);
}
}
WinCloseClipbrd (hab0);
destroy_pm ();
}
/*
* _CopyAllLines - copy lines to clipboard
*/
void _CopyAllLines( LPWDATA w )
{
LPLDATA ld;
ULONG total;
unsigned len;
char *data;
char *ptr;
unsigned slen;
LONG rc;
/*
* get number of bytes
*/
total = 0;
for( ld = w->LineHead; ld != NULL; ld = ld->next ) {
total += strlen( ld->data ) + 2;
}
if( total > MAX_BYTES ) {
len = (unsigned) MAX_BYTES;
} else {
len = total;
}
/*
* get memory block
*/
rc = PAG_COMMIT | OBJ_GIVEABLE | PAG_WRITE;
rc = DosAllocSharedMem( (PPVOID)&data, NULL, len + 1, rc );
if( rc ) {
_Error( NULLHANDLE, "Copy to Clipboard Error", "Out of Memory" );
return;
}
/*
* copy data into block
*/
total = 0;
ptr = data;
for( ld = w->LineHead; ld != NULL; ld = ld->next ) {
slen = strlen( ld->data ) + 2;
if( total + slen > MAX_BYTES )
break;
memcpy( &ptr[total], ld->data, slen - 2 );
ptr[total + slen - 2] = 0x0d;
ptr[total + slen - 1] = 0x0a;
total += slen;
}
ptr[total] = 0;
/*
* dump data to the clipboard
*/
if( WinOpenClipbrd( _AnchorBlock ) ) {
WinEmptyClipbrd( _AnchorBlock );
WinSetClipbrdData( _AnchorBlock, (ULONG)data, CF_TEXT, CFI_POINTER );
WinCloseClipbrd( _AnchorBlock );
}
} /* _CopyAllLines */
// Go through the flavors in the transferable and either get or set them
nsresult nsClipboard::DoClipboardAction(ClipboardAction aAction)
{
nsresult rc = NS_ERROR_FAILURE;
if (WinOpenClipbrd(0/*hab*/)) {
if (aAction == Write)
WinEmptyClipbrd(0/*hab*/);
// Get the list of formats the transferable can handle
nsCOMPtr<nsISupportsArray> pFormats;
if(aAction == Read)
rc = mTransferable->FlavorsTransferableCanImport(getter_AddRefs(pFormats));
else
rc = mTransferable->FlavorsTransferableCanExport(getter_AddRefs(pFormats));
if (NS_FAILED(rc))
return NS_ERROR_FAILURE;
PRUint32 cFormats = 0;
pFormats->Count(&cFormats);
for (PRUint32 i = 0; i < cFormats; i++) {
nsCOMPtr<nsISupports> genericFlavor;
pFormats->GetElementAt(i, getter_AddRefs(genericFlavor));
nsCOMPtr<nsISupportsCString> currentFlavor(do_QueryInterface(genericFlavor));
if (currentFlavor) {
nsXPIDLCString flavorStr;
currentFlavor->ToString(getter_Copies(flavorStr));
if (aAction == Read) {
if (GetClipboardData(flavorStr))
break;
}
else
SetClipboardData(flavorStr);
}
}
WinCloseClipbrd(0/*hab*/);
rc = NS_OK;
}
return rc;
}
// nsIObserver
NS_IMETHODIMP
nsClipboard::Observe(nsISupports *aSubject, const char *aTopic,
const PRUnichar *aData)
{
// This will be called on shutdown.
// make sure we have a good transferable
if (!mTransferable)
return NS_ERROR_FAILURE;
if (WinOpenClipbrd(0/*hab*/)) {
WinEmptyClipbrd(0/*hab*/);
// get flavor list that includes all flavors that can be written (including ones
// obtained through conversion)
nsCOMPtr<nsISupportsArray> flavorList;
nsresult errCode = mTransferable->FlavorsTransferableCanExport(getter_AddRefs(flavorList));
if (NS_FAILED(errCode))
return NS_ERROR_FAILURE;
// Walk through flavors and put data on to clipboard
PRUint32 i;
PRUint32 cnt;
flavorList->Count(&cnt);
for (i = 0; i < cnt; i++) {
nsCOMPtr<nsISupports> genericFlavor;
flavorList->GetElementAt(i, getter_AddRefs(genericFlavor));
nsCOMPtr<nsISupportsCString> currentFlavor(do_QueryInterface(genericFlavor));
if (currentFlavor) {
nsXPIDLCString flavorStr;
currentFlavor->ToString(getter_Copies(flavorStr));
SetClipboardData(flavorStr);
}
}
WinCloseClipbrd(0/*hab*/);
}
return NS_OK;
}
VOID PMfrWriteClipbrdBmp(HAB hab)
{
HDC hdcClip; /* memory DC and PS to extract from the clipboard */
HPS hpsClip;
HBITMAP hbmClip;
SIZEL sizl;
BITMAPINFOHEADER bmp;
ULONG _far *alRGBColors;
LONG errorcode;
char _far *fp1;
char _far *fp2;
int i;
if (WinOpenClipbrd(hab))
{
/* get the memory DC and PS to copy the bitmap */
hdcClip = DevOpenDC (hab, OD_MEMORY, "*", 0L, NULL, NULL) ;
sizl.cx = cp.cx; sizl.cy = cp.cy;
hpsClip = GpiCreatePS (hab, hdcClip, &sizl,
PU_PELS | GPIF_DEFAULT | GPIT_MICRO | GPIA_ASSOC);
bmp.cbFix = sizeof bmp;
bmp.cx = cp.cx;
bmp.cy = cp.cy;
bmp.cPlanes = cp.cPlanes;
bmp.cBitCount = cp.cBitCount;
hbmClip = GpiCreateBitmap (hpsClip, &bmp, 0L, NULL, NULL);
GpiSetBitmap(hpsClip, hbmClip);
/* initialize and black out the bitmap */
alRGBColors = (ULONG _far *) _fmalloc(sizeof(ULONG) * cp.colors);
/* beginning of source array */
fp2 = (char _far *) &cp.pbmiMemory->argbColor[0];
/* beginning of dest array */
fp1 = (char _far *) &alRGBColors[0];
for (i = 0; i < cp.colors; i++)
{ /* copy base bytes for number of screen colors */
alRGBColors[i] = 0;
_fmemcpy(fp1, fp2, sizeof(RGB) );
fp1 += sizeof(ULONG);
fp2 += sizeof(RGB);
}
GpiSetMix ( hpsClip, FM_OVERPAINT) ;
GpiSetBackMix (hpsClip, BM_LEAVEALONE) ;
GpiCreateLogColorTable(hpsClip, LCOL_RESET | LCOL_REALIZABLE,
LCOLF_CONSECRGB, 0L, cp.colors, alRGBColors);
/* now copy the bits */
cp.pbmiMemory->cx = cp.cx;
cp.pbmiMemory->cy = cp.cy;
cp.pbmiMemory->cPlanes = cp.cPlanes;
cp.pbmiMemory->cBitCount = cp.cBitCount;
errorcode = GpiSetBitmapBits(hpsClip, 0L, (LONG) cp.cy,
cp.pixels, cp.pbmiMemory);
/* unlink the new bitmap */
GpiSetBitmap(hpsClip, (HBITMAP) NULL);
/* write to the clipboard */
WinEmptyClipbrd (hab);
WinSetClipbrdData (hab, (ULONG) hbmClip, CF_BITMAP, CFI_HANDLE);
/* now clean up */
_ffree(alRGBColors);
GpiDestroyPS(hpsClip);
DevCloseDC(hdcClip);
WinCloseClipbrd(hab);
}
}
/*********************************************************************
* Name: EditCopy
*
* Description : Processes the Edit menu's Copy item.
*
* Concepts : Called whenever Copy from the Edit menu is selected
* Sends a MLM_COPY message to the MLE control.
*
* API's : WinSendMsg
*
* Parameters : mp1 - Message parameter
* : mp2 - Message parameter
*
* Returns: Void
*
****************************************************************/
VOID EditCopy(MPARAM mp1, MPARAM mp2)
{
HAB hab;
PCHAR pchClipText, pText;
APIRET rc;
ULONG BidiAttr;
BOOL fSetClipAttr;
LONG Offset =0;
rc = DosAllocSharedMem ( (PPVOID) &pchClipText,
NULL,
sizeof(szPasteText),
(PAG_READ | PAG_WRITE | PAG_COMMIT | OBJ_GIVEABLE) );
if (rc) {
DosBeep(100,100);
return;
} /* endif */
hab = WinQueryAnchorBlock( hwndMain);
//BIDI
//
// Load the national strings from the resource file.
// These will be copied to the clipbaord.
//
if (WinQueryCp(HMQ_CURRENT) == 864) Offset = ARA_OFF;
WinLoadString( hab, NULLHANDLE, IDS_COPYVISUALTEXT+Offset,
127, szCopyVisualText);
WinLoadString( hab, NULLHANDLE, IDS_COPYIMPLICITTEXT+Offset,
127, szCopyImplicitText);
//
// Check if we have to SET the Clipboard Bidi Attribute
// and if so, with which value.
//
switch(SHORT1FROMMP(mp1)) {
case IDM_EDITCOPY_NOCONV:
BidiAttr = 0L;
pText = szCopyImplicitText;
fSetClipAttr = TRUE;
break;
case IDM_EDITCOPY_CONV_VISUAL:
BidiAttr = BDA_TEXTTYPE_VISUAL | BDA_INIT | BDA_LEVEL ;
pText = szCopyVisualText;
fSetClipAttr = TRUE;
break;
case IDM_EDITCOPY_CONV_IMPLICIT:
BidiAttr = BDA_TEXTTYPE_IMPLICIT | BDA_INIT | BDA_LEVEL;
pText = szCopyImplicitText;
fSetClipAttr = TRUE;
break;
case IDM_EDITCOPY_AUTOCONV:
default:
pText = szCopyImplicitText;
fSetClipAttr = FALSE;
break;
} /* end switch*/
//
// Copy the 'relevant' text to the memory that we are
// going to hand to the clipboard.
//
strcpy(pchClipText, pText );
/* Now, make give this text to the clipboard. */
hab = WinQueryAnchorBlock( hwndMain);
WinOpenClipbrd ( hab ) ;
WinEmptyClipbrd ( hab ) ;
WinSetClipbrdData ( hab, (ULONG) pchClipText, CF_TEXT, CFI_POINTER) ;
//
// If conversion is required, mark what kind of conversion
// (or none) is required.
//
if (fSetClipAttr)
WinSetLangInfo (NULLHANDLE,
LI_BD_CLIP_ATTR,
BidiAttr,
0L,
(ULONG)CF_TEXT,
0L);
WinCloseClipbrd ( hab ) ;
} /* End of EditCopy() */
ULONG CopyTempFileData2ClipBoard(void)
{
APIRET rc;
ULONG Result = NO_ERROR, MsgID;
PSZ pszMem, p;
FILE *fp;
int c;
if (NULL == (fp = fopen(TempOutFile, "rb")))
{
/* result handled by MainDlgProc() */
return ERROR_OPEN_FAILED;
}
else
{
rc = DosAllocSharedMem((PVOID) &pszMem,
NULL, (ULONG)FileSize(fp, NULL)+1,
PAG_WRITE | PAG_COMMIT | OBJ_GIVEABLE);
if (NO_ERROR != rc)
{
Result = ERROR_OPEN_FAILED;
}
else
{
p = pszMem;
while (EOF != (c = fgetc(fp)))
*p++ = (CHAR) c;
}
fclose(fp);
*p = 0; /* signal end of data! */
if (WinOpenClipbrd(Hab))
{
WinEmptyClipbrd(Hab);
if (FALSE == WinSetClipbrdData(Hab,
(ULONG) pszMem,
CF_TEXT,
CFI_POINTER))
Result = ERROR_ACCESS_DENIED;
WinCloseClipbrd(Hab);
}
else
Result = ERROR_ACCESS_DENIED;
}
if (NO_ERROR != Result)
{
switch(Result)
{
case ERROR_ACCESS_DENIED:
MsgID = IDS_NO_CLIPBOARD_ACCESS;
break;
default:
MsgID = IDS_GENERAL_PROCESS_FAILURE;
break;
}
Len = WinLoadString(Hab, hRessourceModule, MsgID,
MSGSTRN_MAXLEN, Msg);
WinMessageBox(HWND_DESKTOP, hwndMainDialog, Msg, NULL, 0L, MB_ERROR | MB_OK);
}
return Result;
}
MRESULT PMfrCommands (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
{
/*
These are the routnes that handle the commands issued by
the FRACTINT for PM menus.
In most cases, they call another support routine to
handle or schedule the event requested by the user.
*/
SHORT sCommand = SHORT1FROMMP(mp1);
switch (sCommand)
{
case IDM_GO:
/* fire up the subtask */
cp.fContinueCalc = TRUE ;
if (npNewParms.fNewParms)
{
CopyParmsToBase();
/* GetMemoryBitmap(); */
SetSwitchEntry (hwnd, szTitleBar,
GetFractalName(cp.iFractType) );
}
cp.sSubAction = SUB_ACT_CALC; /* we want a Calculation */
DosSemClear (&cp.ulSemTrigger) ; /* release the subthread */
sStatus = STATUS_WORKING ;
/* WinInvalidateRect (hwnd, NULL, FALSE) ; */
UpdateMenuText (hwnd, IDM_FREEZE_HALT, szHalt);
EnableMenuItem (hwnd, IDM_GO, FALSE) ;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, TRUE) ;
/* WinStartTimer (hab, hwnd, ID_TIMER, 5000); */
return 0 ;
case IDM_PAN:
/* Pan selected. Pan to where the cross hairs were */
PanNewCenter(hwnd);
fGoodPan = FALSE;
return 0;
case IDM_ZIN_WIN:
/* Zoom to the Window selected. */
EraseZoomBox(hwnd);
ZoomNewWindow(hwnd, TRUE); /* zoom in */
fGoodZoom = FALSE;
return 0;
case IDM_ZOUT_WIN:
/* Zoom to the Window selected. */
EraseZoomBox(hwnd);
ZoomNewWindow(hwnd, FALSE); /* zoom out */
fGoodZoom = FALSE;
return 0;
case IDM_FREEZE_HALT:
if (sStatus == STATUS_WORKING)
{
/* schedule the subthread to find a stopping place */
cp.fContinueCalc = FALSE ;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, FALSE) ;
}
if (sStatus == STATUS_READY)
{
/* we Freeze to play with parms repeatedly */
/* make a copy to play with. We will keep */
/* working with only this copy */
InitNewParms(NULL);
/* now change state */
sStatus = STATUS_FROZEN;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, FALSE);
}
return 0 ;
case IDM_ABOUT:
/* send up the About box */
WinDlgBox (HWND_DESKTOP, hwnd, AboutDlgProc,
(HMODULE) 0, IDD_ABOUT, NULL) ;
return 0 ;
case IDM_NEW_FRACTAL:
/*
* send up the Select Fractal Type box.
* On OK return, schedule the new parameters.
* Handle the special cases needing files or other data
* as part of exiting the initial dialog box.
*/
if (WinDlgBox (HWND_DESKTOP, hwnd, SelFractalDlgProc,
(HMODULE) 0, IDD_SET_FRACTTYPE, NULL) )
ScheduleNewParms (hwnd);
return 0 ;
case IDM_SET_PARAMS:
/*
* send up the Set Paramters box.
* On OK return, schedule the new parameters.
*/
if (WinDlgBox (HWND_DESKTOP, hwnd, SetParametersDlgProc,
(HMODULE) 0, IDD_SET_PARAMS, NULL) )
ScheduleNewParms (hwnd);
return 0 ;
case IDM_SET_OPTIONS:
/*
* send up the Set Options box.
* On OK return, schedule the new parameters.
*/
if (WinDlgBox (HWND_DESKTOP, hwnd, SetOptionsDlgProc,
(HMODULE) 0, IDD_SET_OPTIONS, NULL) )
ScheduleNewParms (hwnd);
return 0 ;
case IDM_SET_IMAGE:
/*
* send up the Set Image box.
* On OK return, schedule the new parameters.
*/
if (WinDlgBox (HWND_DESKTOP, hwnd, SetImageDlgProc,
(HMODULE) 0, IDD_SET_IMAGE, NULL) )
ScheduleNewParms (hwnd);
return 0 ;
case IDM_SET_PALETTE:
/*
* send up the Set Palette box.
* Return is not checked because effects are immediate
*/
WinDlgBox (HWND_DESKTOP, hwnd, SetPaletteDlgProc,
(HMODULE) 0, IDD_SET_PALETTE, NULL) ;
return 0 ;
case IDM_ZIN_PICK:
case IDM_ZOUT_PICK:
/*
* Send up the Zoom Value dialog box.
* On OK return, schedule the new parameters.
*/
if ( WinDlgBox (HWND_DESKTOP, hwnd, ZoomValueDlgProc,
(HMODULE) 0, IDD_NUMBER_PICK,
MPFROMP((PVOID) &COMMANDMSG(&msg)->cmd)) )
ScheduleNewParms (hwnd);
return 0 ;
case IDM_ZIN_2:
case IDM_ZIN_5:
case IDM_ZIN_10:
/*
* Zoom in by fixed value.
* Schedule the new parameters.
*/
InitNewParms(NULL);
CalcZoomValues(&npNewParms,
(double) (sCommand), TRUE );
npNewParms.fNewParms = TRUE;
ScheduleNewParms(hwnd);
return 0;
case IDM_ZOUT_2:
case IDM_ZOUT_5:
case IDM_ZOUT_10:
/*
* Zoom out by fixed value.
* Schedule the new parameters.
*/
InitNewParms(NULL);
CalcZoomValues(&npNewParms,
(double) (sCommand - 10), FALSE );
npNewParms.fNewParms = TRUE;
ScheduleNewParms(hwnd);
return 0;
case IDM_SET_EXTENTS:
/*
* Send up the Set Extents dialog box.
* On OK return, schedule the new parameters.
*/
if ( WinDlgBox (HWND_DESKTOP, hwnd, SetExtentsDlgProc,
(HMODULE) 0, IDD_SET_EXTENTS, NULL) )
ScheduleNewParms (hwnd);
return 0;
case IDM_SET_SWAP:
/* swap Mandel for Julia or vice versa.
Handle it as a parm change */
InitNewParms(NULL);
if (fractalspecific[npNewParms.iFractType].tojulia != NOFRACTAL
&& npNewParms.param[0] == 0.0
&& npNewParms.param[1] == 0.0)
{
/* switch to corresponding Julia set */
npNewParms.iFractType =
fractalspecific[npNewParms.iFractType].tojulia;
npNewParms.param[0] = npNewParms.XCenter;
npNewParms.param[1] = npNewParms.YCenter;
npNewParms.mxXL = fractalspecific[npNewParms.iFractType].xmin;
npNewParms.mxXR = fractalspecific[npNewParms.iFractType].xmax;
npNewParms.mxYB = fractalspecific[npNewParms.iFractType].ymin;
npNewParms.mxYT = fractalspecific[npNewParms.iFractType].ymax;
}
else if (fractalspecific[npNewParms.iFractType].tomandel != NOFRACTAL)
{
/* switch to corresponding Mandel set */
npNewParms.iFractType =
fractalspecific[npNewParms.iFractType].tomandel;
npNewParms.param[0] = 0.0;
npNewParms.param[1] = 0.0;
npNewParms.mxXL = fractalspecific[npNewParms.iFractType].xmin;
npNewParms.mxXR = fractalspecific[npNewParms.iFractType].xmax;
npNewParms.mxYB = fractalspecific[npNewParms.iFractType].ymin;
npNewParms.mxYT = fractalspecific[npNewParms.iFractType].ymax;
}
npNewParms.fNewParms = TRUE;
ScheduleNewParms (hwnd);
return 0;
case IDM_SET_RESET:
/* copy the work copy of the parms back from the
set used by the calculation engine.
This resets any dicking around done with the
dialogs.
Note: this is only active during FREEZE mode.
*/
CopyParmsToNew();
return 0;
case IDM_HELP_INTRO:
/* basic Introductory Help */
SimpleHelp(hab, hwnd, szTitleBar,
(HMODULE) 0, IDT_TEXT, IDT_HELP_INTRO);
return 0;
case IDM_HELP_FRACTTYPE:
/* Fractal list Help */
SimpleHelp(hab, hwnd, szTitleBar,
(HMODULE) 0, IDT_TEXT, IDT_HELP_TYPES);
return 0;
case IDM_HELP_OPERATE:
/* Menu Help */
SimpleHelp(hab, hwnd, szTitleBar,
(HMODULE) 0, IDT_TEXT, IDT_HELP_OPERATE);
return 0;
case IDM_PRINT_FILE:
/* Send up the Print Where Dialog.
On OK return, fire up the subtask */
if ( WinDlgBox(HWND_DESKTOP, hwnd, PrintOptionsDlgProc,
(HMODULE) 0, IDD_PRINT, NULL) )
{
/* fire up the subtask */
cp.sSubAction = SUB_ACT_PRINT; /* we want a Print */
cp.fContinueCalc = TRUE;
DosSemClear (&cp.ulSemTrigger) ; /* release the subthread */
sStatus = STATUS_WORKING ;
UpdateMenuText (hwnd, IDM_FREEZE_HALT, szHalt);
EnableMenuItem (hwnd, IDM_GO, FALSE) ;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, TRUE) ;
cp.fSuppressPaint = TRUE;
WinInvalidateRect(hwnd, NULL, FALSE);
}
return 0 ;
case IDM_READ_FILE:
/* Send up the Load/Save Format Dialog to find
out the format we will read.
Then send up the generic Open File dialog.
On OK return, fire up the subtask */
{
DLF dlf;
HFILE hfDummy;
PSZ pszExt;
if ( WinDlgBox(HWND_DESKTOP, hwnd, LoadSaveFmtDlgProc,
(HMODULE) 0, IDD_LOADSAVE_TYPE, szLoadWhatFmt) )
{
FileFmtExt (&pszExt);
SetupDLF (&dlf, DLG_OPENDLG, &hfDummy,
pszExt, szTitleBar,
szOpenTitle, szOpenHelp);
if (TDF_OLDOPEN == DlgFile(hwnd, &dlf) )
{
/* close the dummy file handle */
DosClose(hfDummy);
/* fire up the subtask */
cp.sSubAction = SUB_ACT_LOAD; /* we want a Load */
cp.sSubFunction = cp.sLastLoadSaveType;
_fstrcpy(cp.szFileName, dlf.szOpenFile);
cp.fContinueCalc = TRUE;
DosSemClear (&cp.ulSemTrigger) ; /* release the subthread */
sStatus = STATUS_WORKING ;
UpdateMenuText (hwnd, IDM_FREEZE_HALT, szHalt);
EnableMenuItem (hwnd, IDM_GO, FALSE) ;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, TRUE) ;
cp.fSuppressPaint = TRUE;
WinInvalidateRect(hwnd, NULL, FALSE);
}
}
return 0 ;
}
case IDM_SAVE_FILE:
/* Send up the Load/Save Format Dialog to find
out the format we will be writing.
Then send up the generic Save File dialog.
On OK return, fire up the subtask */
{
DLF dlf;
HFILE hfDummy;
PSZ pszExt;
if ( WinDlgBox(HWND_DESKTOP, hwnd, LoadSaveFmtDlgProc,
(HMODULE) 0, IDD_LOADSAVE_TYPE, szSaveWhatFmt) )
{
FileFmtExt (&pszExt);
SetupDLF (&dlf, DLG_SAVEDLG, &hfDummy,
pszExt, szTitleBar,
szOpenTitle, szOpenHelp);
_fstrcpy(dlf.szOpenFile, cp.szFileName);
if (TDF_NOSAVE != DlgFile(hwnd, &dlf) )
{
/* close the dummy file handle */
DosClose(hfDummy);
/* and delete the dummy file */
DosDelete(dlf.szOpenFile, 0);
/* fire up the subtask */
cp.sSubAction = SUB_ACT_SAVE; /* we want a Save */
cp.sSubFunction = cp.sLastLoadSaveType;
_fstrcpy(cp.szFileName, dlf.szOpenFile);
cp.fContinueCalc = TRUE;
DosSemClear (&cp.ulSemTrigger) ; /* release the subthread */
sStatus = STATUS_WORKING ;
UpdateMenuText (hwnd, IDM_FREEZE_HALT, szHalt);
EnableMenuItem (hwnd, IDM_GO, FALSE) ;
EnableMenuItem (hwnd, IDM_FREEZE_HALT, TRUE) ;
cp.fSuppressPaint = TRUE;
WinInvalidateRect(hwnd, NULL, FALSE);
}
}
return 0 ;
}
case IDM_READ_COLORMAP:
/* Send up the generic Open File dialog.
On OK return, read in the file via subroutine. */
{
DLF dlf;
HFILE hfDummy;
SetupDLF (&dlf, DLG_OPENDLG, &hfDummy,
"\\*.map", szTitleBar,
szColorMapTitle, szColorMapHelp);
if (TDF_OLDOPEN == DlgFile(hwnd, &dlf) )
{
/* close the dummy file handle */
DosClose(hfDummy);
/* throw up the hour-glass */
WinSetCapture(HWND_DESKTOP, hwnd);
WinSetPointer(HWND_DESKTOP, hptrWait);
/* read it in */
LoadColorMap(dlf.szOpenFile);
/* now clean up */
WinSetPointer(HWND_DESKTOP, hptrArrow);
WinSetCapture(HWND_DESKTOP, (HWND) NULL);
}
}
return 0;
case IDM_WRITE_COLORMAP:
/* Send up the generic Save File dialog.
On OK return, write the file via subroutine */
{
DLF dlf;
HFILE hfDummy;
SetupDLF (&dlf, DLG_SAVEDLG, &hfDummy,
"\\*.map", szTitleBar,
szColorMapTitle, szColorMapHelp);
if (TDF_NOSAVE != DlgFile(hwnd, &dlf) )
{
/* close the dummy file handle */
DosClose(hfDummy);
/* throw up the hour-glass */
WinSetCapture(HWND_DESKTOP, hwnd);
WinSetPointer(HWND_DESKTOP, hptrWait);
/* write it out */
SaveColorMap(dlf.szOpenFile);
/* now clean up */
WinSetPointer(HWND_DESKTOP, hptrArrow);
WinSetCapture(HWND_DESKTOP, (HWND) NULL);
}
}
return 0;
case IDM_CLEAR_CLPB:
/* clear the current contents of the clipboard */
WinOpenClipbrd (hab);
WinEmptyClipbrd (hab);
WinCloseClipbrd (hab);
return 0;
case IDM_PASTE:
{ /* paste from the clipboard into us */
USHORT usClipBrdInfo;
if ( WinQueryClipbrdFmtInfo(hab, CF_BITMAP, &usClipBrdInfo) )
{ /* we have a bitmap to fetch */
/* draw the curtain over the display */
cp.fSuppressPaint = TRUE;
WinInvalidateRect(hwnd, NULL, FALSE);
WinUpdateWindow(hwnd);
/* throw up the hour-glass */
WinSetCapture(HWND_DESKTOP, hwnd);
WinSetPointer(HWND_DESKTOP, hptrWait);
/* fetch the bitmap */
PMfrFetchClipbrdBmp(hab);
/* now clean up */
WinSetPointer(HWND_DESKTOP, hptrArrow);
WinSetCapture(HWND_DESKTOP, (HWND) NULL);
/* and schedule redrawing the window */
SetSwitchEntry (hwnd, szTitleBar,
GetFractalName(cp.iFractType) );
cp.fSuppressPaint = FALSE;
WinInvalidateRect(hwnd, NULL, FALSE);
}
}
return 0;
case IDM_COPY_BMP:
{ /* copy to the clipboard from us */
/* throw up the hour-glass */
WinSetCapture(HWND_DESKTOP, hwnd);
WinSetPointer(HWND_DESKTOP, hptrWait);
/* write the bitmap */
PMfrWriteClipbrdBmp(hab);
/* now clean up */
WinSetPointer(HWND_DESKTOP, hptrArrow);
WinSetCapture(HWND_DESKTOP, (HWND) NULL);
}
return 0;
}
return 0;
}
MRESULT EXPENTRY SwapProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {
static HWND hwndMenu = (HWND)0;
switch(msg) {
case WM_CREATE:
{
MRESULT mr = PFNWPStatic(hwnd,msg,mp1,mp2);
WinSendMsg(hwnd,
UM_SETUP,
MPVOID,
MPVOID);
return mr;
}
case WM_MOUSEMOVE:
break;
case WM_PRESPARAMCHANGED:
{
char *rootname = "SwapMon";
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case CLOCK_FRAME:
rootname = "Clock";
break;
case HARD_FRAME:
rootname = "Hard";
break;
case CPU_FRAME:
rootname = "CPU";
break;
case CLP_FRAME:
rootname = "ClipMon";
break;
case MEM_FRAME:
rootname = "Mem";
break;
case TSK_FRAME:
rootname = "Task";
break;
}
PresParamChanged(hwnd,
rootname,
mp1,
mp2);
PostMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
PostMsg(hwnd,
UM_REFRESH,
MPVOID,
MPFROMSHORT(TRUE));
}
break;
case WM_APPTERMINATENOTIFY:
if(WinQueryWindowUShort(hwnd,QWS_ID) == CPU_FRAME) {
if(!StartCPUThreads())
WinDestroyWindow(hwnd);
}
break;
case WM_BUTTON1MOTIONSTART:
{
POINTL ptl;
ptl.x = SHORT1FROMMP(mp1);
ptl.y = SHORT2FROMMP(mp1);
WinMapWindowPoints(hwnd,
HWND_DESKTOP,
&ptl,
1L);
PostMsg(hwndConfig,
UM_SHOWME,
MPFROM2SHORT((USHORT)ptl.x,(USHORT)ptl.y),
mp2);
}
return MRFROMSHORT(TRUE);
case WM_BUTTON2MOTIONSTART:
{
TRACKINFO TrackInfo;
SWP Position;
memset(&TrackInfo,0,sizeof(TrackInfo));
TrackInfo.cxBorder = 1 ;
TrackInfo.cyBorder = 1 ;
TrackInfo.cxGrid = 1 ;
TrackInfo.cyGrid = 1 ;
TrackInfo.cxKeyboard = 8 ;
TrackInfo.cyKeyboard = 8 ;
WinQueryWindowPos(hwnd,&Position);
TrackInfo.rclTrack.xLeft = Position.x ;
TrackInfo.rclTrack.xRight = Position.x + Position.cx ;
TrackInfo.rclTrack.yBottom = Position.y ;
TrackInfo.rclTrack.yTop = Position.y + Position.cy ;
WinQueryWindowPos(HWND_DESKTOP,&Position);
TrackInfo.rclBoundary.xLeft = Position.x ;
TrackInfo.rclBoundary.xRight = Position.x + Position.cx ;
TrackInfo.rclBoundary.yBottom = Position.y ;
TrackInfo.rclBoundary.yTop = Position.y + Position.cy ;
TrackInfo.ptlMinTrackSize.x = 0 ;
TrackInfo.ptlMinTrackSize.y = 0 ;
TrackInfo.ptlMaxTrackSize.x = Position.cx ;
TrackInfo.ptlMaxTrackSize.y = Position.cy ;
TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
if(WinTrackRect(HWND_DESKTOP,
(HPS)0,
&TrackInfo)) {
WinSetWindowPos(hwnd,
HWND_TOP,
TrackInfo.rclTrack.xLeft,
TrackInfo.rclTrack.yBottom,
0,
0,
SWP_MOVE);
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case SWAP_FRAME:
WinQueryWindowPos(hwnd,&swpSwap);
SavePrf("SwapSwp",
&swpSwap,
sizeof(SWP));
break;
case CLOCK_FRAME:
WinQueryWindowPos(hwnd,&swpClock);
SavePrf("ClockSwp",
&swpClock,
sizeof(SWP));
break;
case HARD_FRAME:
WinQueryWindowPos(hwnd,&swpHard);
SavePrf("HardSwp",
&swpHard,
sizeof(SWP));
break;
case CPU_FRAME:
WinQueryWindowPos(hwnd,&swpCPU);
SavePrf("CPUSwp",
&swpCPU,
sizeof(SWP));
break;
case CLP_FRAME:
WinQueryWindowPos(hwnd,&swpClip);
SavePrf("ClipSwp",
&swpClip,
sizeof(SWP));
break;
case MEM_FRAME:
WinQueryWindowPos(hwnd,&swpMem);
SavePrf("MemSwp",
&swpMem,
sizeof(SWP));
break;
case TSK_FRAME:
WinQueryWindowPos(hwnd,&swpTask);
SavePrf("TaskSwp",
&swpTask,
sizeof(SWP));
break;
}
}
}
return MRFROMSHORT(TRUE);
case WM_BUTTON1DOWN:
WinSetWindowPos(hwnd,
HWND_TOP,
0,
0,
0,
0,
SWP_ZORDER | SWP_DEACTIVATE);
return MRFROMSHORT(TRUE);
case WM_BUTTON1DBLCLK:
case WM_BUTTON1CLICK:
if((!fNoMonClick &&
msg == WM_BUTTON1CLICK) ||
(fNoMonClick &&
msg == WM_BUTTON1DBLCLK)) {
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case HARD_FRAME:
{
ULONG ulDriveNum,ulDriveMap,x;
ulDriveMon = min(ulDriveMon,26);
if(!DosQCurDisk(&ulDriveNum,
&ulDriveMap)) {
for(x = ulDriveMon + 1;x < 26;x++) {
if(ulDriveMap & (1 << x)) {
ulDriveMon = x;
break;
}
}
if(x >= 26) {
for(x = 3;x < ulDriveMon - 1;x++) {
if(ulDriveMap & (1 << x)) {
ulDriveMon = x;
break;
}
}
}
SavePrf("MonDrive",
&ulDriveMon,
sizeof(ULONG));
}
PostMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
}
break;
case CLP_FRAME:
case MEM_FRAME:
case TSK_FRAME:
case SWAP_FRAME:
case CLOCK_FRAME:
case CPU_FRAME:
{
USHORT cmd = CPU_PULSE;
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case MEM_FRAME:
cmd = CLOCK_CMDLINE;
break;
case TSK_FRAME:
cmd = CPU_KILLPROC;
break;
case CLP_FRAME:
cmd = CLOCK_CLIPBOARD;
break;
case SWAP_FRAME:
cmd = SWAP_LAUNCHPAD;
break;
case CLOCK_FRAME:
cmd = CLOCK_SETTINGS;
if((WinGetKeyState(HWND_DESKTOP,VK_SHIFT) & 0x8000) != 0)
cmd = CLOCK_CLOCK;
break;
}
PostMsg(hwnd,
WM_COMMAND,
MPFROM2SHORT(cmd,0),
MPVOID);
}
break;
}
return MRFROMSHORT(TRUE);
}
else
PostMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
break;
case WM_CONTEXTMENU:
WinInvalidateRect(hwnd,
NULL,
FALSE);
WinSendMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
WinSetWindowPos(hwnd,
HWND_TOP,
0,
0,
0,
0,
SWP_ZORDER | SWP_DEACTIVATE);
{
USHORT id;
id = WinQueryWindowUShort(hwnd,QWS_ID);
hwndMenu = WinLoadMenu(HWND_DESKTOP,
0,
id);
if(hwndMenu) {
POINTL ptl;
SWP swp;
ULONG ulDriveNum,ulDriveMap,x;
MENUITEM mi;
char s[80];
SetPresParams(hwndMenu,
-1,
-1,
-1,
helvtext);
switch(id) {
case CLP_FRAME:
WinSendMsg(hwndMenu,
MM_SETITEMATTR,
MPFROM2SHORT(CLP_APPEND,FALSE),
MPFROM2SHORT(MIA_CHECKED,
((fClipAppend) ? MIA_CHECKED : 0)));
break;
case HARD_FRAME:
if(!DosQCurDisk(&ulDriveNum,
&ulDriveMap)) {
mi.iPosition = 0;
mi.hwndSubMenu = (HWND)0;
mi.hItem = 0L;
mi.afStyle = MIS_TEXT | MIS_STATIC;
mi.afAttribute = MIA_FRAMED;
mi.id = -1;
sprintf(s,
"Current drive is %c:",
(char)(ulDriveMon + '@'));
WinSendMsg(hwndMenu,
MM_INSERTITEM,
MPFROMP(&mi),
MPFROMP(s));
mi.iPosition = MIT_END;
for(x = 2;x < 26;x++) {
if(ulDriveMap & (1 << x)) {
if(x != ulDriveMon - 1) {
mi.afStyle = MIS_TEXT;
mi.afAttribute = 0;
mi.id = HARD_C + (x - 2);
if(fShowFreeInMenus)
SetDriveText(x + 1,
s);
else
sprintf(s,
"%c:",
(char)(x + 'A'));
WinSendMsg(hwndMenu,
MM_INSERTITEM,
MPFROMP(&mi),
MPFROMP(s));
}
}
}
}
break;
case CLOCK_FRAME:
WinEnableMenuItem(hwndMenu,
CLOCK_VIRTUAL,
fDesktops);
WinEnableMenuItem(hwndMenu,
CLOCK_CLIPBOARD,
(ClipHwnd != (HWND)0));
break;
default:
break;
}
WinQueryWindowPos(hwnd,
&swp);
ptl.x = SHORT1FROMMP(mp1);
ptl.y = SHORT2FROMMP(mp1);
WinMapWindowPoints(hwnd,
HWND_DESKTOP,
&ptl,
1L);
ptl.y = max(ptl.y,swp.y + swp.cy + 4);
if(!WinPopupMenu(HWND_DESKTOP,
hwnd,
hwndMenu,
ptl.x - 4,
ptl.y - 4,
0,
PU_HCONSTRAIN | PU_VCONSTRAIN |
PU_KEYBOARD | PU_MOUSEBUTTON1)) {
WinDestroyWindow(hwndMenu);
hwndMenu = (HWND)0;
}
}
}
return MRFROMSHORT(TRUE);
case WM_MENUEND:
WinSetFocus(HWND_DESKTOP,
HWND_DESKTOP);
WinDestroyWindow((HWND)mp2);
if(hwndMenu == (HWND)mp2)
hwndMenu = (HWND)0;
return 0;
case UM_SETUP:
{
char *rootname = "SwapMon";
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case SWAP_FRAME:
SwapHwnd = hwnd;
swaptick = 0;
break;
case CLOCK_FRAME:
ClockHwnd = hwnd;
rootname = "Clock";
break;
case TSK_FRAME:
TaskHwnd = hwnd;
rootname = "Task";
break;
case MEM_FRAME:
MemHwnd = hwnd;
rootname = "Mem";
break;
case HARD_FRAME:
HardHwnd = hwnd;
rootname = "Hard";
break;
case CPU_FRAME:
CPUHwnd = hwnd;
rootname = "CPU";
PostMsg(hwnd,
UM_REFRESH,
MPVOID,
MPFROMSHORT(TRUE));
break;
case CLP_FRAME:
ClipMonHwnd = hwnd;
rootname = "ClipMon";
PostMsg(hwnd,
UM_REFRESH,
MPVOID,
MPFROMSHORT(TRUE));
break;
}
if(!RestorePresParams(hwnd,rootname))
SetPresParams(hwnd,
RGB_WHITE,
RGB_BLACK,
RGB_BLACK,
helvtext);
}
PostMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
return 0;
case UM_REFRESH:
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case CLP_FRAME:
{
char s[] = " Clip: [TtBbMmP] + ",*p;
ULONG fmt[] = {CF_TEXT,CF_DSPTEXT,
CF_BITMAP,CF_DSPBITMAP,
CF_METAFILE,CF_DSPMETAFILE,
CF_PALETTE,0};
ULONG x,ret;
if(WinOpenClipbrd(WinQueryAnchorBlock(hwnd))) {
p = s + 8;
for(x = 0;fmt[x];x++) {
ret = WinQueryClipbrdData(WinQueryAnchorBlock(hwnd),
fmt[x]);
if(!ret)
*p = '-';
p++;
}
p += 2;
if(!fClipAppend)
*p = 0;
WinCloseClipbrd(WinQueryAnchorBlock(hwnd));
}
else
strcpy(s + 7,
"Can't open. ");
SetMonitorSize(hwnd,
hwndMenu,
&swpClip,
s);
}
break;
case CPU_FRAME:
{
char s[32];
ULONG percent,lastaverage;
static BOOL lastavgset = 0;
*s = 0;
if(mp2) {
strcpy(s," CPU: -% ");
if(fAverage)
strcat(s,"Avg: -%) ");
}
else {
percent = ((MaxCount - (ULONG)mp1) * 100) / MaxCount;
lastaverage = AveCPU;
AveCPU = (((AveCPU * NumAveCPU) + percent) /
((ULONG)NumAveCPU + 1));
NumAveCPU++;
if(!NumAveCPU)
NumAveCPU = 65535;
if(percent != LastPercent ||
(AveCPU != lastaverage &&
fAverage) ||
NumAveCPU == 1 ||
lastavgset != fAverage) {
lastavgset = fAverage;
LastPercent = percent;
sprintf(s,
" CPU: %lu%% ",
percent);
if(fAverage)
sprintf(s + strlen(s),
"(Avg: %lu%%) ",
AveCPU);
}
}
if(*s)
SetMonitorSize(hwnd,
hwndMenu,
&swpCPU,
s);
}
break;
}
return 0;
case WM_TIMER:
if(fSwapFloat &&
!hwndMenu)
WinSetWindowPos(hwnd,
HWND_TOP,
0,
0,
0,
0,
SWP_ZORDER | SWP_SHOW);
if(WinQueryWindowUShort(hwnd,QWS_ID) == CLP_FRAME) {
if(!ClipHwnd)
WinDestroyWindow(hwnd);
else
TakeClipboard();
}
return 0;
case UM_TIMER:
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case CLP_FRAME:
ClipMonHwnd = hwnd;
WinSendMsg(hwnd,
WM_TIMER,
MPVOID,
MPVOID);
break;
case CPU_FRAME:
CPUHwnd = hwnd;
WinSendMsg(hwnd,
WM_TIMER,
MPVOID,
MPVOID);
break;
case HARD_FRAME:
{
char s[80];
HardHwnd = hwnd;
SetDriveText(ulDriveMon,
s);
SetMonitorSize(hwnd,
hwndMenu,
&swpHard,
s);
}
break;
case SWAP_FRAME:
{
FILEFINDBUF3 ffb;
ULONG nm = 1,fl = SWP_SIZE | SWP_SHOW | SWP_MOVE,
sh,sl,nh;
HDIR hdir = HDIR_CREATE;
FSALLOCATE fsa;
char s[128],ss[8],sss[8],mb,smb;
static ULONG lastcbFile = 0;
static BOOL warned = FALSE;
static char SwapperDat[CCHMAXPATH] = "";
strcpy(s,
" Unable to locate SWAPPER.DAT. ");
SwapHwnd = hwnd;
if(!*SwapperDat)
FindSwapperDat(SwapperDat);
if(*SwapperDat) {
DosError(FERR_DISABLEHARDERR);
if(!DosFindFirst(SwapperDat,
&hdir,
FILE_NORMAL | FILE_HIDDEN |
FILE_SYSTEM | FILE_ARCHIVED | FILE_READONLY,
&ffb,
sizeof(ffb),
&nm,
FIL_STANDARD)) {
DosFindClose(hdir);
if(ffb.cbFile != lastcbFile && lastcbFile)
swaptick = 9;
lastcbFile = ffb.cbFile;
DosError(FERR_DISABLEHARDERR);
if(!DosQueryFSInfo(toupper(*SwapperDat) - '@',
FSIL_ALLOC,
&fsa,
sizeof(FSALLOCATE)))
nm = fsa.cUnitAvail * (fsa.cSectorUnit * fsa.cbSector);
else
nm = 0;
if(nm <= 32768 * 1024) {
swaptick = 10;
if(!warned) {
SetPresParams(hwnd,
RGB_RED,
-1,
-1,
NULL);
warned = TRUE;
DosBeep(250,15);
}
}
else if(warned) {
PostMsg(hwnd,
UM_SETUP,
MPVOID,
MPVOID);
warned = FALSE;
}
mb = MakeNumber(nm,
&nh,
&sl);
*sss = 0;
if(sl)
sprintf(sss,
".%02lu",
sl);
smb = MakeNumber(ffb.cbFile,
&sh,
&sl);
*ss = 0;
if(sl)
sprintf(ss,
".%02lu",
sl);
sprintf(s,
" Swap: %lu%s%cb ",
sh,
ss,
smb);
if(fShowSwapFree)
sprintf(s + strlen(s),
"(%lu%s%cb free) ",
nh,
sss,
mb);
}
}
SetMonitorSize(hwnd,
hwndMenu,
&swpSwap,
s);
}
break;
case TSK_FRAME:
{
PROCESSINFO *ppi;
BUFFHEADER *pbh = NULL;
MODINFO *pmi;
long numprocs = -1,numthreads = -1;
char s[80];
if(!DosAllocMem((PVOID)&pbh,
USHRT_MAX + 4096,
PAG_COMMIT | OBJ_TILE | PAG_READ | PAG_WRITE)) {
if(!DosQProcStatus(pbh,
USHRT_MAX)) {
numprocs = numthreads = 0;
ppi = pbh->ppi;
while(ppi->ulEndIndicator != PROCESS_END_INDICATOR ) {
pmi = pbh->pmi;
while(pmi &&
ppi->hModRef != pmi->hMod)
pmi = pmi->pNext;
if(pmi) {
numprocs++;
numthreads += ppi->usThreadCount;
}
ppi = (PPROCESSINFO)(ppi->ptiFirst + ppi->usThreadCount);
}
}
DosFreeMem(pbh);
sprintf(s,
" Procs: %ld Thrds: %ld ",
numprocs,
numthreads);
SetMonitorSize(hwnd,
hwndMenu,
&swpTask,
s);
}
}
break;
case MEM_FRAME:
{
ULONG sh,sl,nh,amem;
char s[128],ss[8],sss[8],mb,smb;
strcpy(s,
"Can't check virtual memory.");
MemHwnd = hwnd;
if(!DosQuerySysInfo(QSV_TOTAVAILMEM,
QSV_TOTAVAILMEM,
&amem,
sizeof(amem))) {
mb = MakeNumber(amem,
&nh,
&sl);
*ss = 0;
if(sl)
sprintf(ss,
".%02lu",
sl);
sprintf(s,
" VMem: %lu%s%cb ",
nh,
ss,
mb);
}
if(fShowPMem) {
if(!Dos16MemAvail(&amem)) {
mb = MakeNumber(amem,
&nh,
&sl);
*ss = 0;
if(sl)
sprintf(ss,
".%02lu",
sl);
sprintf(s + strlen(s),
" PMem: %lu%s%cb ",
nh,
ss,
mb);
}
}
SetMonitorSize(hwnd,
hwndMenu,
&swpMem,
s);
}
break;
case CLOCK_FRAME:
{
char s[80];
DATETIME dt;
ClockHwnd = hwnd;
if(!DosGetDateTime(&dt)) {
sprintf(s,
" %0*u:%02u%s ",
((ampm) ? 0 : 2),
(dt.hours % ((ampm) ? 12 : 24)) +
((ampm && !(dt.hours % 12)) ? 12 : 0),
dt.minutes,
((ampm) ? (dt.hours > 11) ? "pm" : "am" : ""));
if(showdate)
sprintf(s + strlen(s),
"%02u/%02u ",
dt.month,
dt.day);
}
else
strcpy(s,"Unknown time");
SetMonitorSize(hwnd,
hwndMenu,
&swpClock,
s);
}
break;
}
return 0;
case WM_COMMAND:
{
BOOL ctrl,shift;
ctrl = ((WinGetKeyState(HWND_DESKTOP,VK_CTRL) & 0x8000) != 0);
shift = ((WinGetKeyState(HWND_DESKTOP,VK_SHIFT) & 0x8000) != 0);
switch(SHORT1FROMMP(mp1)) {
case CLP_CLEAR:
if(WinOpenClipbrd(WinQueryAnchorBlock(hwnd))) {
WinEmptyClipbrd(WinQueryAnchorBlock(hwnd));
WinCloseClipbrd(WinQueryAnchorBlock(hwnd));
PostMsg(hwnd,
UM_REFRESH,
MPVOID,
MPVOID);
}
break;
case CLP_APPEND:
fClipAppend = (fClipAppend) ? FALSE : TRUE;
SavePrf("ClipAppend",
&fClipAppend,
sizeof(BOOL));
PostMsg(hwnd,
UM_REFRESH,
MPVOID,
MPVOID);
if(ClipSetHwnd)
PostMsg(ClipSetHwnd,
UM_REFRESH,
MPVOID,
MPVOID);
break;
case MSE_HELP:
ViewHelp(hwnd,
"Monitors page");
break;
case CPU_PULSE:
{
PROGDETAILS pgd;
WinSetWindowPos(hwnd,
HWND_TOP,
0,
0,
0,
0,
SWP_ACTIVATE | SWP_FOCUSACTIVATE);
memset(&pgd,
0,
sizeof(pgd));
pgd.Length = sizeof(pgd);
pgd.swpInitial.fl = SWP_ACTIVATE | SWP_ZORDER;
pgd.swpInitial.hwndInsertBehind = HWND_TOP;
pgd.progt.fbVisible = SHE_VISIBLE;
pgd.progt.progc = PROG_DEFAULT;
pgd.pszExecutable = "PULSE.EXE";
if(WinStartApp(CPUHwnd,
&pgd,
NULL,
NULL,
0)) {
if(CPUHwnd) {
closethreads = 1;
DosSleep(1);
PostMsg(CPUHwnd,
UM_REFRESH,
MPVOID,
MPFROMSHORT(TRUE));
}
}
}
break;
case CPU_RESET:
AveCPU = 0;
NumAveCPU = 0;
break;
case CLOCK_VIRTUAL:
case CLOCK_SWITCHLIST:
case CLOCK_CMDLINE:
case CLOCK_CLIPBOARD:
case CLOCK_CALCULATOR:
case HARD_FM2:
case MSE_FRAME:
{
ULONG msg2 = UM_SHOWME;
MPARAM mp12 = 0,mp22 = 0;
HWND hwndP = hwndConfig;
switch(SHORT1FROMMP(mp1)) {
case CLOCK_CMDLINE:
mp12 = MPFROMLONG(((WinGetKeyState(HWND_DESKTOP,VK_CTRL) & 0x8000) != 0));
msg2 = UM_CMDLINE;
break;
case CLOCK_CLIPBOARD:
msg2 = UM_CLIPMGR;
hwndP = ObjectHwnd3;
break;
case CLOCK_SWITCHLIST:
msg2 = UM_SWITCHLIST;
break;
case CLOCK_VIRTUAL:
msg2 = UM_VIRTUAL;
break;
case CLOCK_CALCULATOR:
msg2 = UM_CALC;
break;
case HARD_FM2:
msg2 = UM_STARTWIN;
mp12 = MPFROM2SHORT(C_STARTFM2,0);
break;
}
PostMsg(hwndP,
msg2,
mp12,
mp22);
}
break;
case CLOCK_SETTINGS:
case CLOCK_CLOCK:
case SWAP_LAUNCHPAD:
case SWAP_WARPCENTER:
case SWAP_CONNECTIONS:
case SWAP_INFO:
case SWAP_SETTINGS:
case SWAP_SYSTEM:
case SWAP_TEMPS:
case SWAP_FM2:
case HARD_OPEN:
case CVR_COLORPALETTE:
case CVR_HICOLORPALETTE:
case CVR_FONTPALETTE:
case CPU_KILLPROC:
case CPU_HARDWARE:
{
char *p = "<WP_CLOCK>",*pp = defopen;
char s[8];
switch(SHORT1FROMMP(mp1)) {
case HARD_OPEN:
sprintf(s,
"%c:\\",
(char)(ulDriveMon + '@'));
p = s;
break;
case SWAP_FM2:
p = "<FM3_Folder>";
break;
case SWAP_TEMPS:
p = "<WP_TEMPS>";
break;
case SWAP_SYSTEM:
p = "<WP_OS2SYS>";
break;
case SWAP_SETTINGS:
p = "<WP_CONFIG>";
break;
case SWAP_INFO:
p = "<WP_INFO>";
break;
case SWAP_CONNECTIONS:
p = "<WP_CONNECTIONSFOLDER>";
break;
case SWAP_WARPCENTER:
p = "<WP_WARPCENTER>";
break;
case SWAP_LAUNCHPAD:
p = "<WP_LAUNCHPAD>";
break;
case CLOCK_SETTINGS:
pp = setopen;
break;
case CVR_COLORPALETTE:
p = "<WP_LORESCLRPAL>";
break;
case CVR_HICOLORPALETTE:
p = "<WP_HIRESCLRPAL>";
break;
case CVR_FONTPALETTE:
p = "<WP_FNTPAL>";
break;
case CPU_KILLPROC:
p = "<FM/2_KILLPROC>";
break;
case CPU_HARDWARE:
p = "<WP_HWMGR>";
break;
}
OpenObject(p,
pp);
}
break;
case HARD_VDIR:
{
PROGDETAILS pgd;
char s[36];
sprintf(s,
"/C VDIR.CMD %c:\\",
(char)(ulDriveMon + '@'));
memset(&pgd,
0,
sizeof(pgd));
pgd.Length = sizeof(pgd);
pgd.swpInitial.fl = SWP_MINIMIZE | SWP_ACTIVATE | SWP_ZORDER;
pgd.swpInitial.hwndInsertBehind = HWND_TOP;
pgd.progt.fbVisible = SHE_VISIBLE;
pgd.progt.progc = PROG_DEFAULT;
pgd.pszExecutable = "CMD.EXE";
WinStartApp((HWND)0,
&pgd,
s,
NULL,
0);
}
break;
case HARD_CHKDSK:
{
PROGDETAILS pgd;
char s[8];
WinSetWindowPos(hwnd,
HWND_TOP,
0,
0,
0,
0,
SWP_ACTIVATE | SWP_FOCUSACTIVATE);
sprintf(s,
"%c:",
(char)(ulDriveMon + '@'));
memset(&pgd,
0,
sizeof(pgd));
pgd.Length = sizeof(pgd);
pgd.swpInitial.fl = SWP_ACTIVATE | SWP_ZORDER;
pgd.swpInitial.hwndInsertBehind = HWND_TOP;
pgd.progt.fbVisible = SHE_VISIBLE;
pgd.progt.progc = PROG_DEFAULT;
pgd.pszExecutable = "PMCHKDSK.EXE";
WinStartApp((HWND)0,
&pgd,
s,
NULL,
0);
}
break;
default:
if(SHORT1FROMMP(mp1) >= HARD_C &&
SHORT1FROMMP(mp1) <= HARD_C + 24) {
ulDriveMon = (SHORT1FROMMP(mp1) - HARD_C) + 3;
PostMsg(hwnd,
UM_TIMER,
MPVOID,
MPVOID);
if(ctrl)
PostMsg(hwnd,
WM_COMMAND,
MPFROM2SHORT(HARD_OPEN,0),
MPVOID);
else if(shift)
PostMsg(hwnd,
WM_COMMAND,
MPFROM2SHORT(HARD_VDIR,0),
MPVOID);
}
break;
}
}
return 0;
case WM_DESTROY:
switch(WinQueryWindowUShort(hwnd,QWS_ID)) {
case SWAP_FRAME:
SwapHwnd = (HWND)0;
break;
case CLOCK_FRAME:
ClockHwnd = (HWND)0;
break;
case HARD_FRAME:
HardHwnd = (HWND)0;
break;
case CPU_FRAME:
closethreads = 1;
DosSleep(1);
CPUHwnd = (HWND)0;
break;
case CLP_FRAME:
ClipMonHwnd = (HWND)0;
break;
case MEM_FRAME:
MemHwnd = (HWND)0;
break;
case TSK_FRAME:
TaskHwnd = (HWND)0;
break;
}
break;
}
return PFNWPStatic(hwnd,msg,mp1,mp2);
}
// *******************************************************************************
// FUNCTION: PutBitmapInClipboard
//
// FUNCTION USE: Copies a bitmap into the system clipboard
//
// DESCRIPTION: This function is used to copy the bitmap data captured as a
// result of the tracking to status window, to the system
// clipboard.
//
// PARAMETERS: HBITMAP The bitmap handle of the bitmap to be placed
// in the clipboard.
//
// RETURNS: TRUE success
// FALSE error
//
// HISTORY:
//
// *******************************************************************************
BOOL PutBitmapInClipboard(HBITMAP hbmClipboard)
{
HAB habTemp;
BOOL rc;
// --------------------------------------------------------------------------
// Get an anchor block handle
// --------------------------------------------------------------------------
habTemp = WinQueryAnchorBlock(HWND_DESKTOP);
// --------------------------------------------------------------------------
// Attempt to open the Clipboard
// --------------------------------------------------------------------------
rc = WinOpenClipbrd(habTemp);
// --------------------------------------------------------------------------
// If we get an error opening, return FALSE and post message
// --------------------------------------------------------------------------
if (rc != TRUE)
{
DisplayMessages(NULLHANDLE, "Error Opening Clipboard", MSG_ERROR);
return rc;
}
// --------------------------------------------------------------------------
// OK, no error so let's empty the clipboard and
// place our bitmap in there!
// --------------------------------------------------------------------------
else
{
rc = WinEmptyClipbrd(habTemp);
if (rc != TRUE)
{
DisplayMessages(NULLHANDLE, "Error Emptying Data In Clipboard", MSG_ERROR);
return rc;
}
rc = WinSetClipbrdData(habTemp, // anchor block handle
hbmClipboard, // bitmap handle
CF_BITMAP, // clipboard data format
CFI_HANDLE); // format information
if (rc != TRUE)
{
DisplayMessages(NULLHANDLE, "Error Placing Data In Clipboard", MSG_ERROR);
return rc;
}
// --------------------------------------------------------------------------
// Close the clipboard
// --------------------------------------------------------------------------
rc = WinCloseClipbrd(habTemp);
if (rc != TRUE)
{
DisplayMessages(NULLHANDLE, "Error Closing Clipboard", MSG_ERROR);
return rc;
}
}
return TRUE;
}
