Context Navigation

source: trunk/dll/datamin.c@ 593

Visit:

Last change on this file since 593 was 593, checked in by Gregg Young, 18 years ago
Changes to remove GetPString from window class names
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 26.3 KB

Rev	Line
[30]	1
	2	/***********************************************************************
	3
	4	$Id: datamin.c 593 2007-03-31 19:13:59Z gyoung $
	5
	6	Minimized data bar
	7
	8	Copyright (c) 1993-98 M. Kimes
[346]	9	Copyright (c) 2001, 2006 Steven H. Levine
[30]	10
[130]	11	14 Sep 02 SHL Handle large partitions
	12	16 Oct 02 SHL Handle large partitions better
	13	23 May 05 SHL Use QWL_USER
[136]	14	23 May 05 SHL Avoid delays for inaccessible drives
[162]	15	25 May 05 SHL Use ULONGLONG and CommaFmtULL
[204]	16	06 Jun 05 SHL Drop unused code
[346]	17	22 Jul 06 SHL Check more run time errors
[552]	18	02 Jan 07 GKY Changed drive information string formating to accomodate 6 char FS names
	19	07 Jan 07 GKY Move error strings etc. to string file
[593]	20	30 Mar 07 GKY Remove GetPString for window class names
[30]	21
	22	***********************************************************************/
	23
[2]	24	#define INCL_DOS
[136]	25	#define INCL_DOSERRORS
[2]	26	#define INCL_WIN
	27	#define INCL_GPI
[162]	28	#define INCL_LONGLONG
	29	#include <os2.h>
[2]	30
	31	#include <stdio.h>
	32	#include <stdlib.h>
	33	#include <string.h>
	34	#include <ctype.h>
	35	#include <limits.h>
[136]	36
[2]	37	#include "fm3dll.h"
	38	#include "fm3dlg.h"
	39	#include "fm3str.h"
	40	#include "procstat.h"
[136]	41	#include "datamin.h"
[2]	42
	43	#pragma data_seg(DATA2)
[346]	44
	45	static PSZ pszSrcFile = __FILE__;
	46
[2]	47	#pragma alloc_text(DATAMIN,DataDlgProc,MiniTimeProc)
	48
[136]	49	APIRET16 APIENTRY16 Dos16MemAvail(PULONG pulAvailMem);
[2]	50
[136]	51	static volatile HEV G_hevDataMin = NULLHANDLE;
	52	static volatile HWND G_hwndSingle = NULLHANDLE;
[2]	53
[551]	54	static VOID dataminThread(VOID * pv);
[2]	55
[136]	56	long MINI_X = 208, MINI_Y = 16;
[2]	57
[136]	58	//=== MiniTimeProc - time, swap and drive status mini windows procedure ===
[2]	59
[136]	60	MRESULT EXPENTRY MiniTimeProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
	61	{
	62	APIRET rc;
[551]	63
	64	switch (msg) {
[136]	65	case WM_CREATE:
	66	{
[551]	67	PVOID pv = xmalloc(sizeof(tDataMin), pszSrcFile, __LINE__);
	68
[136]	69	WinSetWindowPtr(hwnd, QWL_DATAMIN_PTR, pv);
	70	}
	71	break;
[2]	72
[136]	73	case WM_BUTTON1CLICK:
	74	{
	75	USHORT id = WinQueryWindowUShort(hwnd, QWS_ID);
	76
[551]	77	if (id >= MINI_DRIVEA) {
	78	if (G_hevDataMin != NULLHANDLE) {
[136]	79	G_hwndSingle = hwnd;
	80	rc = DosPostEventSem(G_hevDataMin);
[551]	81	if (rc) {
[552]	82	Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
	83	GetPString(IDS_POSTSEMFAILED));
[136]	84	}
	85	}
	86	}
	87	else if (id == MINI_TIME)
[551]	88	PostMsg(WinQueryWindow(hwnd, QW_PARENT), UM_SETUP6, // Up time
	89	MPVOID, MPVOID);
[136]	90	else if (id == MINI_PROC)
	91	WinSendMsg(WinQueryWindow(hwnd, QW_PARENT),
[551]	92	WM_SYSCOMMAND, MPFROM2SHORT(SC_TASKMANAGER, 0), MPVOID);
[136]	93	}
	94	break;
[2]	95
[136]	96	case WM_BUTTON1DBLCLK:
	97	{
	98	USHORT id = WinQueryWindowUShort(hwnd, QWS_ID);
[2]	99
[551]	100	if (id >= MINI_DRIVEA && !hwndMain) {
[136]	101	CHAR s[] = " :\\";
[2]	102
[136]	103	*s = (CHAR) (id - MINI_DRIVEA) + 'A';
[551]	104	OpenDirCnr((HWND) 0, HWND_DESKTOP, (HWND) 0, FALSE, s);
[136]	105	return MRFROMLONG(1L);
	106	}
[551]	107	else if (id == MINI_TIME) {
[136]	108	OpenObject("<WP_CLOCK>",
[551]	109	(SHORT2FROMMP(mp2) & KC_SHIFT) ? Default : Settings, hwnd);
[136]	110	return MRFROMLONG(1L);
	111	}
[2]	112
	113	#ifdef NEVER
[551]	114	else if (id == MINI_MEM) {
[136]	115	WinDlgBox(HWND_DESKTOP,
	116	HWND_DESKTOP,
[551]	117	SysInfoDlgProc, FM3ModHandle, SYS_FRAME, NULL);
[136]	118	return MRFROMLONG(1L);
	119	}
[2]	120	#endif
	121
[551]	122	else if (id == MINI_PROC \|\| id == MINI_MEM) {
[136]	123	WinDlgBox(HWND_DESKTOP,
[551]	124	hwnd, KillDlgProc, FM3ModHandle, KILL_FRAME, NULL);
[136]	125	return MRFROMLONG(1L);
	126	}
[551]	127	else if (id == MINI_SWAP && *SwapperDat) {
[2]	128
[136]	129	char s[5];
[2]	130
[136]	131	strncpy(s, SwapperDat, 4);
	132	s[3] = 0;
	133	WinDlgBox(HWND_DESKTOP,
	134	hwndMain,
[551]	135	UndeleteDlgProc, FM3ModHandle, UNDEL_FRAME, MPFROMP(s));
[136]	136	return MRFROMLONG(1L);
[2]	137	}
[136]	138	}
	139	break;
[2]	140
[136]	141	case WM_BUTTON1MOTIONSTART:
	142	PostMsg(WinQueryWindow(hwnd, QW_PARENT),
[551]	143	UM_BUTTON1MOTIONSTART, MPVOID, MPVOID);
[136]	144	break;
[2]	145
[136]	146	case WM_CONTEXTMENU:
[551]	147	PostMsg(WinQueryWindow(hwnd, QW_PARENT), UM_CONTEXTMENU, MPVOID, MPVOID);
[136]	148	break;
[2]	149
[136]	150	case WM_PAINT:
	151	{
	152	MRESULT mr = 0;
	153	USHORT id;
	154
	155	id = WinQueryWindowUShort(hwnd, QWS_ID);
[551]	156	if (id >= MINI_DRIVEA) {
[136]	157	HPS hps = WinBeginPaint(hwnd, (HPS) 0, NULL);
[551]	158
	159	if (hps) {
[136]	160	mr = WinSendMsg(WinQueryWindow(hwnd, QW_PARENT),
[551]	161	UM_PAINT, MPFROM2SHORT(id, 0), MPFROMLONG(hps));
[136]	162	WinEndPaint(hps);
[551]	163	return mr; // Bypass default paint
[136]	164	}
	165	}
	166	}
	167	break;
[2]	168
[551]	169	case WM_DESTROY:
	170	{
	171	PVOID pv = WinQueryWindowPtr(hwnd, QWL_DATAMIN_PTR);
	172
	173	xfree(pv);
	174	}
	175	break;
[2]	176	}
[136]	177	return PFNWPStatic(hwnd, msg, mp1, mp2);
[2]	178
[551]	179	} // MiniTimeProc
[2]	180
[136]	181	//=== DataProc - databar client window procedure ===
[2]	182
[136]	183	MRESULT EXPENTRY DataProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
	184	{
	185	APIRET rc;
	186
[2]	187	static ULONG counter;
[136]	188	static BOOL NoFloat, noqproc = FALSE, Positioned;
[551]	189	static HWND hwndMenu = (HWND) 0;
[2]	190
[551]	191	switch (msg) {
[136]	192	case WM_CREATE:
[377]	193	if (DataHwnd) {
[551]	194	WinSetWindowPos(DataHwnd, HWND_TOP, 0, 0, 0, 0, SWP_ZORDER \| SWP_SHOW);
[136]	195	return MRFROMLONG(1L);
	196	}
	197	DataHwnd = WinQueryWindow(hwnd, QW_PARENT);
	198	NoFloat = FALSE;
	199	Positioned = FALSE;
	200	SetPresParams(hwnd,
[551]	201	&RGBGREY, &RGBBLACK, &RGBBLACK, GetPString(IDS_8HELVTEXT));
[136]	202	{
	203	int c;
	204	long x = 3;
[551]	205	USHORT ids[] = { MINI_TIME, MINI_MEM, MINI_SWAP, MINI_PROC, 0 };
[136]	206	POINTL aptl[TXTBOX_COUNT];
	207	HPS hps;
	208
	209	hps = WinGetPS(hwnd);
[551]	210	if (hps) {
[136]	211	GpiQueryTextBox(hps,
	212	34,
	213	" -=03:08:22 SMW 1998/08/02=- ",
[551]	214	TXTBOX_COUNT, aptl);
[136]	215	WinReleasePS(hps);
	216	MINI_X = aptl[TXTBOX_TOPRIGHT].x + 6;
	217	MINI_Y = aptl[TXTBOX_TOPRIGHT].y + 6;
[2]	218	}
[551]	219	for (c = 0; ids[c]; c++) {
[377]	220	if (!WinCreateWindow(hwnd,
[593]	221	WC_MINITIME,
[551]	222	NullStr,
	223	SS_TEXT \| DT_CENTER \| DT_VCENTER \| WS_VISIBLE,
	224	x,
	225	3,
	226	MINI_X,
	227	MINI_Y, hwnd, HWND_TOP, ids[c], NULL, NULL)) {
	228	Win_Error2(hwnd, hwnd, pszSrcFile, __LINE__, IDS_WINCREATEWINDOW);
[377]	229	}
[136]	230	x += (MINI_X + 4);
[2]	231	}
[136]	232	}
[551]	233	if (!hwndMain) {
[136]	234	SWCNTRL swctl;
[2]	235
[136]	236	memset(&swctl, 0, sizeof(swctl));
	237	swctl.hwnd = WinQueryWindow(hwnd, QW_PARENT);
	238	swctl.uchVisibility = SWL_VISIBLE;
	239	swctl.fbJump = (fDataToFore) ? SWL_NOTJUMPABLE : SWL_JUMPABLE;
	240	swctl.bProgType = PROG_PM;
[551]	241	strcpy(swctl.szSwtitle, GetPString(IDS_DATABARTITLETEXT));
	242	WinCreateSwitchEntry(WinQueryAnchorBlock(hwnd), &swctl);
[136]	243	}
[551]	244	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
[136]	245	return 0;
[2]	246
[136]	247	case WM_MENUEND:
	248	NoFloat = FALSE;
[551]	249	if (hwndMenu == (HWND) mp2) {
[136]	250	WinDestroyWindow(hwndMenu);
[551]	251	hwndMenu = (HWND) 0;
[136]	252	}
	253	break;
	254
	255	case UM_RESTORE:
	256	WinSetWindowPtr(hwnd, QWL_USER, mp1);
	257	return 0;
	258
	259	case UM_SETUP:
	260	{
	261	long x, y;
	262	SWP swp, swpD;
	263	int c;
	264	ULONG size = sizeof(SWP);
	265	ULONG numdrives = 0;
	266	ULONG drivestyle = (DRIVE_REMOVABLE \| DRIVE_INVALID \|
[553]	267	DRIVE_IGNORE \| DRIVE_ZIPSTREAM \| DRIVE_NOSTATS);
[136]	268	ULONG ulDriveNum, ulDriveMap;
	269
	270	if (!fDataInclRemote)
[553]	271	drivestyle \|= DRIVE_REMOTE \|\| DRIVE_VIRTUAL \|\| DRIVE_RAMDISK;
[551]	272	if (fDataShowDrives) {
[136]	273	DosError(FERR_DISABLEHARDERR);
	274	DosQCurDisk(&ulDriveNum, &ulDriveMap);
	275	x = 3;
	276	y = MINI_Y + 4;
	277	// Drive status windows
[551]	278	for (c = 2; c < 26; c++) {
	279	if ((ulDriveMap & (1L << c)) && !(driveflags[c] & drivestyle)) {
[377]	280	if (!WinCreateWindow(hwnd,
[593]	281	WC_MINITIME,
[551]	282	NullStr,
	283	SS_TEXT \| DT_CENTER \| DT_VCENTER \|
	284	WS_VISIBLE, x, y, MINI_X, MINI_Y, hwnd,
	285	HWND_TOP, MINI_DRIVEA + c, NULL, NULL)) {
	286	Win_Error2(hwnd, hwnd, pszSrcFile, __LINE__,
	287	IDS_WINCREATEWINDOW);
[377]	288	}
[136]	289	numdrives++;
	290	x += (MINI_X + 4);
[551]	291	if ((numdrives % 4) == 0) {
[136]	292	y += (MINI_Y + 4);
	293	x = 3;
	294	}
	295	}
	296	}
[2]	297	}
[136]	298	x = (MINI_X * 4) + 18;
	299	y = (MINI_Y + 4) + ((numdrives / 4) * (MINI_Y + 4)) +
	300	(((numdrives % 4) != 0) * (MINI_Y + 4));
[551]	301	if (!Positioned) {
	302	if (PrfQueryProfileData(fmprof, appname, "DataMinPos", &swp, &size)) {
[136]	303	WinQueryWindowPos(HWND_DESKTOP, &swpD);
	304	if (swp.x > swpD.cx - 16)
	305	swp.x = swpD.cx - 16;
	306	if (swp.y > swpD.cy - 16)
	307	swp.y = swpD.cy - 16;
	308	WinSetWindowPos(WinQueryWindow(hwnd, QW_PARENT),
	309	HWND_TOP,
	310	swp.x,
	311	swp.y,
[551]	312	x, y, SWP_SIZE \| SWP_MOVE \| SWP_SHOW \| SWP_ZORDER);
[136]	313	}
	314	else
	315	WinSetWindowPos(WinQueryWindow(hwnd, QW_PARENT),
	316	HWND_TOP,
	317	0,
	318	0,
[551]	319	x, y, SWP_SHOW \| SWP_SIZE \| SWP_MOVE \| SWP_ZORDER);
[136]	320	Positioned = TRUE;
	321	}
	322	else
	323	WinSetWindowPos(WinQueryWindow(hwnd, QW_PARENT),
	324	HWND_TOP,
[551]	325	0, 0, x, y, SWP_SHOW \| SWP_SIZE \| SWP_ZORDER);
	326	WinShowWindow(WinQueryWindow(hwnd, QW_PARENT), TRUE);
[136]	327	if (numdrives) {
[551]	328	if (_beginthread(dataminThread, NULL, 32768, (PVOID) hwnd) == -1) {
	329	Runtime_Error(pszSrcFile, __LINE__,
	330	GetPString(IDS_COULDNTSTARTTHREADTEXT));
	331	PostMsg(hwnd, WM_CLOSE, MPVOID, MPVOID);
[136]	332	}
	333	}
	334	counter = 0;
[551]	335	PostMsg(hwnd, UM_TIMER, MPVOID, MPVOID);
[136]	336	}
[551]	337	return 0; // UM_SETUP
[136]	338
	339	case WM_BUTTON1DBLCLK:
	340	if (hwndMain)
[551]	341	PostMsg(hwnd, WM_CLOSE, MPVOID, MPVOID);
[136]	342	break;
	343
	344	case UM_CONTEXTMENU:
	345	case WM_CONTEXTMENU:
	346	if (!hwndMenu)
[551]	347	hwndMenu = WinLoadMenu(HWND_DESKTOP, FM3ModHandle, MINI_FRAME);
	348	if (hwndMenu) {
	349	WinCheckMenuItem(hwndMenu, MINI_FLOAT, fDataToFore);
	350	WinCheckMenuItem(hwndMenu, MINI_SHOW, fDataShowDrives);
	351	WinCheckMenuItem(hwndMenu, MINI_BORING, fDullMin);
	352	WinCheckMenuItem(hwndMenu, MINI_INCLREMOTE, fDataInclRemote);
[136]	353	NoFloat = TRUE;
[551]	354	if (!PopupMenu(hwnd, hwnd, hwndMenu))
[136]	355	NoFloat = FALSE;
	356	}
	357	if (msg == UM_CONTEXTMENU)
[2]	358	return 0;
[136]	359	break;
[2]	360
[136]	361	case WM_BUTTON2DBLCLK:
[551]	362	if (!(SHORT2FROMMP(mp2) & KC_SHIFT)) {
	363	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(MINI_FLOAT, 0), MPVOID);
[2]	364	break;
[136]	365	}
	366	/* else intentional fallthru */
	367	case WM_CHORD:
	368	case WM_BUTTON3DBLCLK:
[551]	369	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(MINI_SHOW, 0), MPVOID);
[136]	370	break;
[2]	371
[136]	372	case UM_BUTTON1MOTIONSTART:
	373	case WM_BUTTON1MOTIONSTART:
	374	{
	375	TRACKINFO TrackInfo;
	376	SWP Position;
[2]	377
[136]	378	memset(&TrackInfo, 0, sizeof(TrackInfo));
	379	TrackInfo.cxBorder = 1;
	380	TrackInfo.cyBorder = 1;
	381	TrackInfo.cxGrid = 1;
	382	TrackInfo.cyGrid = 1;
	383	TrackInfo.cxKeyboard = 8;
	384	TrackInfo.cyKeyboard = 8;
	385	WinQueryWindowPos(WinQueryWindow(hwnd, QW_PARENT), &Position);
	386	TrackInfo.rclTrack.xLeft = Position.x;
	387	TrackInfo.rclTrack.xRight = Position.x + Position.cx;
	388	TrackInfo.rclTrack.yBottom = Position.y;
	389	TrackInfo.rclTrack.yTop = Position.y + Position.cy;
	390	WinQueryWindowPos(HWND_DESKTOP, &Position);
	391	TrackInfo.rclBoundary.xLeft = Position.x;
	392	TrackInfo.rclBoundary.xRight = Position.x + Position.cx;
	393	TrackInfo.rclBoundary.yBottom = Position.y;
	394	TrackInfo.rclBoundary.yTop = Position.y + Position.cy;
	395	TrackInfo.ptlMinTrackSize.x = 0;
	396	TrackInfo.ptlMinTrackSize.y = 0;
	397	TrackInfo.ptlMaxTrackSize.x = Position.cx;
	398	TrackInfo.ptlMaxTrackSize.y = Position.cy;
	399	TrackInfo.fs = TF_MOVE \| TF_STANDARD \| TF_ALLINBOUNDARY;
[551]	400	if (WinTrackRect(HWND_DESKTOP, (HPS) 0, &TrackInfo)) {
[136]	401	WinSetWindowPos(WinQueryWindow(hwnd, QW_PARENT),
	402	HWND_TOP, TrackInfo.rclTrack.xLeft,
	403	TrackInfo.rclTrack.yBottom, 0, 0, SWP_MOVE);
	404	WinSendMsg(hwnd, WM_SAVEAPPLICATION, MPVOID, MPVOID);
	405	}
	406	}
	407	break;
[2]	408
[136]	409	case WM_HELP:
	410	PostMsg(hwnd, WM_COMMAND, MPFROM2SHORT(IDM_HELP, 0), MPVOID);
	411	break;
	412
	413	case WM_COMMAND:
[551]	414	switch (SHORT1FROMMP(mp1)) {
[136]	415	case IDM_COMMANDLINE:
	416	case IDM_DOSCOMMANDLINE:
	417	case IDM_WINFULLSCREEN:
	418	{
	419	CHAR *env = GetCmdSpec(FALSE), path[CCHMAXPATH];
	420	INT type = SEPARATE \| WINDOWED;
	421
	422	*path = 0;
[551]	423	TopWindowName(hwnd, (HWND) 0, path);
[136]	424	if (SHORT1FROMMP(mp1) == IDM_DOSCOMMANDLINE)
	425	env = GetCmdSpec(TRUE);
[551]	426	else if (SHORT1FROMMP(mp1) != IDM_COMMANDLINE) {
[136]	427	env = "WINOS2.COM";
	428	type = SEPARATE \| FULLSCREEN;
	429	}
[551]	430	runemf2(type, hwnd, path, NULL, "%s", env);
[2]	431	}
[136]	432	break;
[2]	433
[136]	434	case IDM_HELP:
	435	if (hwndHelp)
	436	WinSendMsg(hwndHelp,
	437	HM_DISPLAY_HELP,
[551]	438	MPFROM2SHORT(HELP_DATABAR, 0), MPFROMSHORT(HM_RESOURCEID));
[2]	439	break;
	440
[136]	441	case MINI_CLOSE:
[551]	442	PostMsg(hwnd, WM_CLOSE, MPVOID, MPVOID);
[2]	443	break;
	444
[136]	445	case MINI_BORING:
	446	fDullMin = (fDullMin) ? FALSE : TRUE;
	447	PrfWriteProfileData(fmprof,
[551]	448	FM3Str, "DullDatabar", &fDullMin, sizeof(BOOL));
	449	if (G_hevDataMin != NULLHANDLE) {
[136]	450	rc = DosPostEventSem(G_hevDataMin);
	451	if (rc) {
[552]	452	Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
	453	GetPString(IDS_POSTSEMFAILED));
[136]	454	}
[2]	455	}
[136]	456
[2]	457	break;
	458
[136]	459	case MINI_INCLREMOTE:
	460	case MINI_SHOW:
[551]	461	if (SHORT1FROMMP(mp1) == MINI_SHOW) {
[136]	462	fDataShowDrives = (fDataShowDrives) ? FALSE : TRUE;
	463	PrfWriteProfileData(fmprof,
	464	appname,
[551]	465	"DataShowDrives", &fDataShowDrives, sizeof(BOOL));
[136]	466	}
[551]	467	else {
[136]	468	fDataInclRemote = (fDataInclRemote) ? FALSE : TRUE;
	469	PrfWriteProfileData(fmprof,
	470	appname,
[551]	471	"DataInclRemote", &fDataInclRemote, sizeof(BOOL));
[136]	472	}
	473	{
	474	HENUM henum;
	475	HWND hwndChild;
	476	USHORT id;
[2]	477
[136]	478	henum = WinBeginEnumWindows(hwnd);
[551]	479	while ((hwndChild = WinGetNextWindow(henum)) != NULLHANDLE) {
[136]	480	id = WinQueryWindowUShort(hwndChild, QWS_ID);
	481	if (id >= MINI_DRIVEA)
	482	WinDestroyWindow(hwndChild);
	483	}
	484	WinEndEnumWindows(henum);
[2]	485	}
[136]	486	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
[2]	487	break;
	488
[136]	489	case MINI_FLOAT:
	490	fDataToFore = (fDataToFore) ? FALSE : TRUE;
	491	PrfWriteProfileData(fmprof,
[551]	492	appname, "DataToFore", &fDataToFore, sizeof(BOOL));
	493	if (!hwndMain) {
[136]	494
	495	SWCNTRL swcntrl;
	496	HSWITCH hswitch;
	497
	498	hswitch = (HSWITCH) WinQuerySwitchHandle(hwnd, (PID) 0);
[551]	499	if (hswitch) {
[136]	500	memset(&swcntrl, 0, sizeof(SWCNTRL));
[551]	501	if (!WinQuerySwitchEntry(hswitch, &swcntrl)) {
[136]	502	swcntrl.fbJump = (fDataToFore) ? SWL_NOTJUMPABLE : SWL_JUMPABLE;
[551]	503	WinChangeSwitchEntry(hswitch, &swcntrl);
[136]	504	}
	505	}
	506	}
[2]	507	break;
[136]	508	}
	509	return 0;
[2]	510
[136]	511	case WM_SIZE:
	512	WinSetWindowPos(hwnd,
	513	HWND_TOP,
	514	0,
	515	0,
	516	SHORT1FROMMP(mp2),
[551]	517	SHORT2FROMMP(mp2), SWP_MOVE \| SWP_SIZE);
[136]	518	break;
[2]	519
[136]	520	case WM_PAINT:
	521	{
	522	HPS hps;
	523	POINTL ptl;
	524	SWP swp;
	525	RECTL rcl;
[2]	526
[551]	527	hps = WinBeginPaint(hwnd, (HPS) 0, &rcl);
	528	if (hps) {
	529	WinFillRect(hps, (PRECTL) & rcl, CLR_PALEGRAY);
[136]	530	GpiSetMix(hps, FM_OVERPAINT);
	531	GpiSetColor(hps, CLR_WHITE);
	532	WinQueryWindowPos(hwnd, &swp);
	533	ptl.x = 0;
	534	ptl.y = 0;
	535	GpiMove(hps, &ptl);
	536	ptl.y = swp.cy - 1;
	537	GpiLine(hps, &ptl);
	538	ptl.x = swp.cx - 1;
	539	GpiLine(hps, &ptl);
	540	GpiSetColor(hps, CLR_DARKGRAY);
	541	ptl.y = 0;
	542	GpiLine(hps, &ptl);
	543	ptl.x = 0;
	544	GpiLine(hps, &ptl);
	545	{
	546	HENUM henum;
	547	HWND hwndTemp;
[2]	548
[136]	549	henum = WinBeginEnumWindows(hwnd);
[551]	550	while ((hwndTemp = WinGetNextWindow(henum)) != NULLHANDLE) {
[136]	551	PaintRecessedWindow(hwndTemp,
[551]	552	hps, (WinQueryWindowUShort(hwndTemp, QWS_ID)
	553	!= MINI_TIME), FALSE);
[136]	554	}
	555	WinEndEnumWindows(henum);
	556	}
	557	WinEndPaint(hps);
	558	}
	559	}
	560	return 0;
[2]	561
[136]	562	case UM_PAINT:
	563	{
	564	CHAR s[90];
	565	CHAR szFreeQty[38];
	566	CHAR szDrvLtr[] = " :";
	567	CHAR *pszFSystem;
[162]	568	ULONGLONG ullFreeQty;
[136]	569	ULONG ulPercentFree;
	570	ULONG wasx;
	571	HPS hps = (HPS) mp2;
	572	HWND hwndChild;
	573	USHORT id;
	574	SWP swp;
	575	POINTL ptl;
	576	tDataMin *pDM;
[2]	577
[136]	578	id = SHORT1FROMMP(mp1);
[551]	579	if (id >= MINI_DRIVEA) {
[136]	580	hwndChild = WinWindowFromID(hwnd, id);
	581	if (!hwndChild)
	582	return 0;
	583	if (!WinQueryWindowPos(hwndChild, &swp))
	584	return 0;
	585	pDM = WinQueryWindowPtr(hwndChild, QWL_DATAMIN_PTR);
[551]	586	if (!pDM \|\| pDM->qfsi_rc) {
[162]	587	ullFreeQty = 0;
[136]	588	ulPercentFree = 0;
	589	}
[551]	590	else {
	591	ullFreeQty = (ULONGLONG) pDM->fsa.cUnitAvail *
	592	(pDM->fsa.cSectorUnit * pDM->fsa.cbSector);
[2]	593
[551]	594	ulPercentFree = (pDM->fsa.cUnit && pDM->fsa.cUnitAvail) ?
	595	(pDM->fsa.cUnitAvail * 100) / pDM->fsa.cUnit : 0;
[136]	596	}
[2]	597
[551]	598	CommaFmtULL(szFreeQty, sizeof(szFreeQty), ullFreeQty, ' ');
	599	*szDrvLtr = (CHAR) (id - MINI_DRIVEA) + 'A';
[2]	600
[551]	601	if (!pDM \|\| pDM->qfsi_rc \|\| pDM->qfsa_rc)
[136]	602	pszFSystem = "N/A";
[551]	603	else {
	604	pszFSystem = pDM->fsqb2.szName + pDM->fsqb2.cbName + 1;
[136]	605	pszFSystem[15] = 0;
	606	}
	607	sprintf(s,
[549]	608	"%s %13s %lu%%-%s %6s ",
[136]	609	szDrvLtr,
	610	szFreeQty,
[551]	611	ulPercentFree, GetPString(IDS_FREETEXT), pszFSystem);
[136]	612	if (!hps)
	613	hps = WinGetPS(hwndChild);
[551]	614	if (hps) {
	615	if (!fDullMin) {
[136]	616	ptl.x = 0;
	617	ptl.y = 0;
[551]	618	GpiMove(hps, &ptl);
	619	GpiSetColor(hps, CLR_BLACK);
[136]	620	ptl.x = swp.cx - 1;
	621	ptl.y = swp.cy - 1;
[551]	622	GpiBox(hps, DRO_OUTLINE, &ptl, 0, 0);
[136]	623	ptl.x = 1;
	624	ptl.y = 1;
[551]	625	if (ulPercentFree) {
[136]	626	GpiMove(hps, &ptl);
	627	GpiSetColor(hps,
	628	(ulPercentFree < 11) ? CLR_DARKRED :
	629	(ulPercentFree < 26) ? CLR_DARKBLUE :
	630	CLR_DARKGREEN);
	631	ptl.y = swp.cy - 2;
	632	ptl.x = ((swp.cx - 2) * ulPercentFree) / 100;
	633	wasx = ptl.x;
[551]	634	GpiBox(hps, DRO_OUTLINEFILL, &ptl, 0, 0);
[136]	635	GpiSetColor(hps,
	636	(ulPercentFree < 11) ? CLR_RED :
	637	(ulPercentFree < 26) ? CLR_BLUE : CLR_GREEN);
	638	ptl.x = wasx;
	639	ptl.y = swp.cy - 2;
[551]	640	GpiMove(hps, &ptl);
[136]	641	ptl.x = 1;
[551]	642	GpiLine(hps, &ptl);
[136]	643	ptl.y = 2;
	644	ptl.x = 1;
[551]	645	GpiLine(hps, &ptl);
[136]	646	ptl.x = wasx;
	647	}
[551]	648	if (ulPercentFree < 99) {
	649	GpiSetColor(hps, CLR_DARKGRAY);
[136]	650	wasx = ptl.x;
	651	ptl.y = 2;
	652	GpiMove(hps, &ptl);
	653	ptl.y = swp.cy - 2;
	654	ptl.x = swp.cx - 2;
[551]	655	GpiBox(hps, DRO_OUTLINEFILL, &ptl, 0, 0);
[136]	656	ptl.x = wasx;
[551]	657	GpiMove(hps, &ptl);
	658	GpiSetColor(hps, CLR_PALEGRAY);
[136]	659	ptl.x = swp.cx - 3;
	660	GpiLine(hps, &ptl);
	661	ptl.x = wasx;
	662	ptl.y = 1;
	663	GpiMove(hps, &ptl);
[551]	664	GpiSetColor(hps, CLR_BLACK);
[136]	665	ptl.x = swp.cx - 2;
	666	GpiLine(hps, &ptl);
	667	ptl.y = swp.cy - 3;
	668	GpiLine(hps, &ptl);
	669	}
[551]	670	GpiSetColor(hps, CLR_WHITE);
[136]	671	}
[551]	672	else {
	673	GpiSetColor(hps, CLR_PALEGRAY);
[136]	674	ptl.x = 0;
	675	ptl.y = 0;
[551]	676	GpiMove(hps, &ptl);
[136]	677	ptl.x = swp.cx - 1;
	678	ptl.y = swp.cy - 1;
[551]	679	GpiBox(hps, DRO_OUTLINEFILL, &ptl, 0, 0);
[136]	680	GpiSetColor(hps,
[551]	681	(ulPercentFree < 11) ? CLR_DARKRED : CLR_DARKBLUE);
[136]	682	}
[551]	683	GpiSetBackMix(hps, BM_LEAVEALONE);
	684	GpiSetMix(hps, FM_OVERPAINT);
[136]	685	{
	686	POINTL aptl[TXTBOX_COUNT];
[2]	687
[551]	688	GpiQueryTextBox(hps, strlen(s), s, TXTBOX_COUNT, aptl);
[136]	689	ptl.y = ((swp.cy / 2) -
	690	((aptl[TXTBOX_TOPRIGHT].y +
	691	aptl[TXTBOX_BOTTOMLEFT].y) / 2));
	692	ptl.y++;
	693	ptl.x = (swp.cx / 2) - (aptl[TXTBOX_TOPRIGHT].x / 2);
	694	if (ptl.x < 2)
	695	ptl.x = 2;
[551]	696	GpiCharStringAt(hps, &ptl, strlen(s), s);
[136]	697	}
	698	if (!mp2)
	699	WinReleasePS(hps);
	700	}
[551]	701	} // if drive window
[136]	702	}
	703	return 0;
	704
	705	case UM_TIMER:
	706	{
	707	CHAR s[134];
	708	DATETIME dt;
	709
	710	if (fDataToFore && !NoFloat)
	711	WinSetWindowPos(WinQueryWindow(hwnd, QW_PARENT),
	712	HWND_TOP, 0, 0, 0, 0, SWP_ZORDER);
[551]	713	if (counter && (counter % 19) && (counter % 20)) {
	714	if (!DosGetDateTime(&dt)) {
[136]	715	sprintf(s,
	716	" %02hu:%02hu:%02hu %s %04u/%02u/%02u",
	717	dt.hours,
	718	dt.minutes,
	719	dt.seconds,
	720	GetPString(IDS_SUNDAY + dt.weekday),
[551]	721	dt.year, dt.month, dt.day);
	722	WinSetDlgItemText(hwnd, MINI_TIME, s);
[136]	723	}
[2]	724	}
[136]	725	else if (!counter \|\| !(counter % 19))
	726	PostMsg(hwnd, UM_SETUP6, MPVOID, MPVOID); // Uptime
[551]	727	if (!(counter % 4)) {
[136]	728	PostMsg(hwnd, UM_SETUP3, MPVOID, MPVOID); // Memory utilization
[551]	729	if (!(counter % 10)) {
[136]	730	PostMsg(hwnd, UM_SETUP5, MPVOID, MPVOID); // Process status
[551]	731	if (!(counter % 20)) {
[136]	732	PostMsg(hwnd, UM_SETUP2, MPVOID, MPVOID); // Swapper
	733	}
	734	}
	735	}
	736	}
	737	counter++;
	738	return 0;
[2]	739
[136]	740	case UM_SETUP2:
	741	{
[204]	742	CHAR s[134], szFileQty[38], szFreeQty[38];
[136]	743	FILEFINDBUF3 ffb;
	744	ULONG nm = 1L;
[162]	745	ULONGLONG ullFreeQty;
[136]	746	HDIR hdir = HDIR_CREATE;
	747	FSALLOCATE fsa;
[2]	748
[551]	749	if (*SwapperDat) {
[136]	750	DosError(FERR_DISABLEHARDERR);
	751	if (!DosFindFirst(SwapperDat, &hdir, FILE_NORMAL \| FILE_HIDDEN \|
	752	FILE_SYSTEM \| FILE_ARCHIVED \| FILE_READONLY,
[551]	753	&ffb, sizeof(ffb), &nm, FIL_STANDARD)) {
[136]	754	priority_bumped();
	755	DosFindClose(hdir);
	756	DosError(FERR_DISABLEHARDERR);
	757	if (!DosQueryFSInfo(toupper(*SwapperDat) - '@', FSIL_ALLOC,
[551]	758	&fsa, sizeof(FSALLOCATE))) {
	759	ullFreeQty =
	760	(ULONGLONG) fsa.cUnitAvail * (fsa.cSectorUnit * fsa.cbSector);
	761	CommaFmtULL(szFreeQty, sizeof(szFreeQty), ullFreeQty, ' ');
[136]	762	}
	763	else
[162]	764	*szFreeQty = 0;
	765
[551]	766	CommaFmtULL(szFileQty, sizeof(szFileQty), ffb.cbFile, ' ');
[162]	767	sprintf(s, " %s %s%s%s",
[136]	768	GetPString(IDS_SWAPTITLETEXT),
[551]	769	szFileQty, *szFreeQty ? "/" : NullStr, szFreeQty);
	770	WinSetDlgItemText(hwnd, MINI_SWAP, s);
[136]	771	}
	772	}
	773	}
	774	return 0;
[2]	775
[136]	776	case UM_SETUP3: // Memory utilization
	777	{
[162]	778	CHAR s[134], tm[38], szQty[38];
[136]	779	ULONG amem = 0;
[2]	780
[136]	781	if (!DosQuerySysInfo(QSV_TOTAVAILMEM, QSV_TOTAVAILMEM,
[551]	782	(PVOID) & amem, (ULONG) sizeof(amem))) {
	783	CommaFmtUL(tm, sizeof(tm), amem, 'M');
[162]	784	if (!Dos16MemAvail(&amem))
[551]	785	CommaFmtUL(szQty, sizeof(szQty), amem, 'M');
[136]	786	else
[162]	787	*szQty = 0;
	788	sprintf(s, " %s%s%s%s",
[136]	789	GetPString(IDS_MEMTITLETEXT),
[551]	790	szQty, (*szQty) ? "/" : NullStr, tm);
	791	WinSetDlgItemText(hwnd, MINI_MEM, s);
[2]	792	}
[136]	793	}
	794	return 0;
[2]	795
[551]	796	case UM_SETUP5: // Process status
[136]	797	{
	798	CHAR s[134], tm[38], szQty[38];
	799
[551]	800	if (fUseQProcStat && !noqproc) {
[2]	801
[136]	802	PROCESSINFO *ppi;
	803	BUFFHEADER *pbh = NULL;
	804	MODINFO *pmi;
	805	ULONG numprocs = 0, numthreads = 0;
[346]	806	APIRET rc;
[136]	807
[346]	808	rc = DosAllocMem((PVOID) & pbh, USHRT_MAX + 4096,
[551]	809	PAG_COMMIT \| OBJ_TILE \| PAG_READ \| PAG_WRITE);
[346]	810	if (rc)
[551]	811	Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
	812	GetPString(IDS_OUTOFMEMORY));
	813	else {
[346]	814	if (DosQProcStatus(pbh, USHRT_MAX))
	815	noqproc = TRUE;
	816	else {
[551]	817	ppi = pbh->ppi;
	818	while (ppi->ulEndIndicator != PROCESS_END_INDICATOR) {
	819	pmi = pbh->pmi;
	820	while (pmi && ppi->hModRef != pmi->hMod)
	821	pmi = pmi->pNext;
	822	if (pmi) {
[136]	823	numprocs++;
[551]	824	numthreads += ppi->usThreadCount;
[136]	825	}
[551]	826	ppi = (PPROCESSINFO) (ppi->ptiFirst + ppi->usThreadCount);
[36]	827	}
[136]	828	commafmt(szQty, sizeof(szQty), numprocs);
	829	commafmt(tm, sizeof(tm), numthreads);
	830	sprintf(s,
	831	" %s%s %s%s",
	832	GetPString(IDS_PROCSTITLETEXT),
[551]	833	szQty, GetPString(IDS_THRDSTITLETEXT), tm);
	834	WinSetDlgItemText(hwnd, MINI_PROC, s);
[136]	835	}
	836	DosFreeMem(pbh);
	837	}
[2]	838	}
[551]	839	else {
[136]	840	commafmt(szQty, sizeof(szQty),
[551]	841	WinQuerySwitchList(WinQueryAnchorBlock(hwnd), (PSWBLOCK) 0,
	842	0));
	843	sprintf(s, " %s%s", GetPString(IDS_TASKSTITLETEXT), szQty);
	844	WinSetDlgItemText(hwnd, MINI_PROC, s);
[2]	845	}
[136]	846	}
	847	return 0;
[2]	848
[136]	849	case UM_SETUP6: // Uptime
	850	{
	851	ULONG val = 0, numdays, nummins;
	852	CHAR s[128];
	853
	854	if (!DosQuerySysInfo(QSV_MS_COUNT,
	855	QSV_MS_COUNT,
[551]	856	(PVOID) & val, (ULONG) sizeof(val))) {
[136]	857	val /= 60000L;
	858	numdays = val / (60L * 24L);
	859	strcpy(s, GetPString(IDS_ELAPSEDTITLETEXT));
	860	if (numdays)
	861	sprintf(s + strlen(s),
	862	" %lu %s%s, ",
[551]	863	numdays, GetPString(IDS_DAYTEXT), &"s"[numdays == 1L]);
[136]	864	nummins = val % (60L * 24L);
[551]	865	sprintf(s + strlen(s), " %lu:%02lu", nummins / 60, nummins % 60);
	866	WinSetDlgItemText(hwnd, MINI_TIME, s);
[2]	867	}
[136]	868	}
	869	return 0;
[2]	870
[136]	871	case WM_SAVEAPPLICATION:
	872	{
	873	SWP swp;
[2]	874
[136]	875	WinQueryWindowPos(WinQueryWindow(hwnd, QW_PARENT), &swp);
[551]	876	PrfWriteProfileData(fmprof, appname, "DataMinPos", &swp, sizeof(SWP));
[136]	877	}
	878	break;
[2]	879
[136]	880	case WM_CLOSE:
[551]	881	WinSendMsg(hwnd, WM_SAVEAPPLICATION, MPVOID, MPVOID);
[136]	882	WinDestroyWindow(WinQueryWindow(hwnd, QW_PARENT));
	883	return 0;
[2]	884
[136]	885	case WM_DESTROY:
[551]	886	if (DataHwnd == WinQueryWindow(hwnd, QW_PARENT)) {
	887	DataHwnd = (HWND) 0;
[136]	888	if (hwndMenu)
	889	WinDestroyWindow(hwndMenu);
[551]	890	hwndMenu = (HWND) 0;
[136]	891	}
[551]	892	if (hwndMain) {
[2]	893
[136]	894	SWP swp;
	895	ULONG fl = SWP_SHOW \| SWP_ZORDER \| SWP_ACTIVATE, ofl;
[2]	896
[136]	897	ofl = WinQueryWindowULong(hwnd, QWL_USER);
	898	WinQueryWindowPos(WinQueryWindow(hwndMain, QW_PARENT), &swp);
	899	if (swp.fl & SWP_MINIMIZE)
	900	fl \|= ((ofl & SWP_MAXIMIZE) ? SWP_MAXIMIZE : SWP_RESTORE);
	901	WinSetWindowPos(WinQueryWindow(hwndMain, QW_PARENT),
[551]	902	HWND_TOP, 0, 0, 0, 0, fl);
[136]	903	}
[551]	904	else if (!PostMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID))
	905	WinSendMsg((HWND) 0, WM_QUIT, MPVOID, MPVOID);
[136]	906	break;
	907	}
	908	return WinDefWindowProc(hwnd, msg, mp1, mp2);
[2]	909
[551]	910	} // DataProc
[2]	911
[136]	912	//=== CreateDataBar - create databar windows ===
[2]	913
[136]	914	HWND CreateDataBar(HWND hwndParent, ULONG fl)
	915	{
[551]	916	HWND hwndClient = (HWND) 0;
[136]	917	ULONG FrameFlags = 0;
[2]	918
[136]	919	if (WinCreateStdWindow(hwndParent,
	920	WS_VISIBLE,
	921	&FrameFlags,
[593]	922	WC_DATABAR,
[551]	923	NULL, WS_VISIBLE, 0, MINI_FRAME, &hwndClient)) {
	924	WinSendMsg(hwndClient, UM_RESTORE, MPFROMLONG(fl), MPVOID);
[136]	925	}
	926	return hwndClient;
[2]	927
[551]	928	} // CreateDataBar
[2]	929
[136]	930	//=== dataminThread - drive status thread ===
[2]	931
[551]	932	static VOID dataminThread(VOID * pv)
[136]	933	{
[551]	934	HAB hab = NULLHANDLE;
	935	HMQ hmq = NULLHANDLE;
	936	HWND hwndParent = (HWND) pv;
	937	HWND hwnd;
	938	HENUM henum;
[136]	939	BOOL busy = TRUE;
	940	APIRET rc;
	941	USHORT id;
	942
[551]	943	if (G_hevDataMin == NULLHANDLE) {
[136]	944	// Create just once for any thread that might use it
	945	// Kernel will clean up on exit
[551]	946	rc = DosCreateEventSem(NULL, (PHEV) & G_hevDataMin, 0L, FALSE);
[136]	947	if (rc) {
[552]	948	Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
	949	GetPString(IDS_CREATESEMFAILED));
[136]	950	busy = FALSE;
	951	}
	952	}
	953
[179]	954	// fixme to report errors
[136]	955	hab = WinInitialize(0);
	956	if (hab == NULLHANDLE)
	957	busy = FALSE;
[551]	958	else {
	959	hmq = WinCreateMsgQueue(hab, 0);
[136]	960	if (hmq == NULLHANDLE)
	961	busy = FALSE;
	962	else
[551]	963	WinCancelShutdown(hmq, TRUE);
[136]	964	}
	965
[551]	966	while (busy) {
[136]	967	HWND hwndSingle = G_hwndSingle;
[551]	968
[136]	969	G_hwndSingle = NULLHANDLE;
	970
	971	busy = FALSE;
	972
[551]	973	if (!WinIsWindow(hab, hwndParent))
[2]	974	break;
	975
[136]	976	henum = WinBeginEnumWindows(hwndParent);
[551]	977	while (henum && (hwnd = WinGetNextWindow(henum)) != NULLHANDLE) {
	978	if (!WinIsWindow(hab, hwnd))
[136]	979	continue;
	980	if (hwndSingle && hwndSingle != hwnd)
	981	continue;
[551]	982	id = WinQueryWindowUShort(hwnd, QWS_ID);
	983	if (id > MINI_DRIVEA) {
[136]	984	ULONG dskNum = id - MINI_DRIVEA + 1;
	985	tDataMin *pDM = WinQueryWindowPtr(hwnd, QWL_DATAMIN_PTR);
	986	SWP swp;
	987	CHAR szPath[] = " :";
[551]	988
[136]	989	if (!pDM)
	990	continue;
	991	busy = TRUE;
	992	if (!WinQueryWindowPos(hwnd, &swp))
	993	continue;
[2]	994
[136]	995	DosError(FERR_DISABLEHARDERR);
[551]	996	pDM->qfsi_rc = DosQueryFSInfo(dskNum,
	997	FSIL_ALLOC,
	998	&pDM->fsa, sizeof(FSALLOCATE));
[2]	999
[551]	1000	if (!pDM->qfsi_rc) {
[136]	1001	*szPath = (CHAR) dskNum + 'A' - 1;
[551]	1002	pDM->qfsa_cb = sizeof(FSQBUFFER2) + 256; // se tDataMin
[136]	1003	DosError(FERR_DISABLEHARDERR);
[551]	1004	pDM->qfsa_rc = DosQueryFSAttach(szPath, 0, /* Ordinal */
	1005	FSAIL_QUERYNAME,
	1006	&pDM->fsqb2, &pDM->qfsa_cb);
[136]	1007	}
	1008	WinInvalidateRect(hwnd, NULL, FALSE);
[551]	1009	} // if drive window
	1010	} // while henum
[136]	1011	WinEndEnumWindows(henum);
[2]	1012
[551]	1013	if (busy) {
[136]	1014	ULONG clPosted;
[551]	1015
	1016	rc = DosWaitEventSem(G_hevDataMin, 20000L);
	1017	if (rc && rc != ERROR_TIMEOUT) {
[552]	1018	Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
	1019	GetPString(IDS_POSTSEMFAILED));
[2]	1020	}
	1021
[551]	1022	rc = DosResetEventSem(G_hevDataMin, &clPosted);
	1023	if (rc && rc != ERROR_ALREADY_RESET) {
[552]	1024	Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
	1025	GetPString(IDS_POSTSEMFAILED));
[136]	1026	}
	1027	}
[2]	1028
[551]	1029	} // while
[2]	1030
[136]	1031	if (hmq != NULLHANDLE)
	1032	WinDestroyMsgQueue(hmq);
[2]	1033
[136]	1034	if (hab != NULLHANDLE)
	1035	WinTerminate(hab);
	1036
[551]	1037	} // dataminThread

Note: See TracBrowser for help on using the repository browser.

Download in other formats: