reactos/rosapps/dflat32/applicat.c
2003-06-19 02:48:13 +00:00

623 lines
17 KiB
C

/* ------------- applicat.c ------------- */
#include "dflat.h"
static BOOL DisplayModified = FALSE;
DFWINDOW DfApplicationWindow;
extern DF_DBOX Display;
extern DF_DBOX Windows;
#ifdef INCLUDE_LOGGING
extern DF_DBOX Log;
#endif
#ifdef INCLUDE_SHELLDOS
static void ShellDOS(DFWINDOW);
#endif
static void DfCreateMenu(DFWINDOW);
static void CreateStatusBar(DFWINDOW);
static void SelectColors(DFWINDOW);
#ifdef INCLUDE_WINDOWOPTIONS
static void SelectTexture(void);
static void SelectBorder(DFWINDOW);
static void SelectTitle(DFWINDOW);
static void SelectStatusBar(DFWINDOW);
#endif
static DFWINDOW oldFocus;
#ifdef INCLUDE_MULTI_WINDOWS
static void CloseAll(DFWINDOW, int);
static void MoreWindows(DFWINDOW);
static void ChooseWindow(DFWINDOW, int);
static int WindowSel;
static char Menus[9][26] =
{
"~1. ",
"~2. ",
"~3. ",
"~4. ",
"~5. ",
"~6. ",
"~7. ",
"~8. ",
"~9. "
};
#endif
/* --------------- DFM_CREATE_WINDOW Message -------------- */
static int CreateWindowMsg(DFWINDOW wnd)
{
int rtn;
DfApplicationWindow = wnd;
#ifdef INCLUDE_WINDOWOPTIONS
if (DfCfg.Border)
DfSetCheckBox(&Display, DF_ID_BORDER);
if (DfCfg.Title)
DfSetCheckBox(&Display, DF_ID_TITLE);
if (DfCfg.StatusBar)
DfSetCheckBox(&Display, DF_ID_STATUSBAR);
if (DfCfg.Texture)
DfSetCheckBox(&Display, DF_ID_TEXTURE);
#endif
SelectColors(wnd);
#ifdef INCLUDE_WINDOWOPTIONS
SelectBorder(wnd);
SelectTitle(wnd);
SelectStatusBar(wnd);
#endif
rtn = DfBaseWndProc(DF_APPLICATION, wnd, DFM_CREATE_WINDOW, 0, 0);
if (wnd->extension != NULL)
DfCreateMenu(wnd);
CreateStatusBar(wnd);
return rtn;
}
/* --------- DFM_ADDSTATUS Message ---------- */
static void AddStatusMsg(DFWINDOW wnd, DF_PARAM p1)
{
if (wnd->StatusBar != NULL) {
if (p1 && *(char *)p1)
DfSendMessage(wnd->StatusBar, DFM_SETTEXT, p1, 0);
else
DfSendMessage(wnd->StatusBar, DFM_CLEARTEXT, 0, 0);
DfSendMessage(wnd->StatusBar, DFM_PAINT, 0, 0);
}
}
/* -------- DFM_SETFOCUS Message -------- */
static void SetFocusMsg(DFWINDOW wnd, BOOL p1)
{
if (p1)
DfSendMessage(DfInFocus, DFM_SETFOCUS, FALSE, 0);
DfInFocus = p1 ? wnd : NULL;
if (DfIsVisible(wnd))
DfSendMessage(wnd, DFM_BORDER, 0, 0);
else
DfSendMessage(wnd, DFM_SHOW_WINDOW, 0, 0);
}
/* ------- SIZE Message -------- */
static void SizeMsg(DFWINDOW wnd, DF_PARAM p1, DF_PARAM p2)
{
BOOL WasVisible;
WasVisible = DfIsVisible(wnd);
if (WasVisible)
DfSendMessage(wnd, DFM_HIDE_WINDOW, 0, 0);
if (p1-DfGetLeft(wnd) < 30)
p1 = DfGetLeft(wnd) + 30;
DfBaseWndProc(DF_APPLICATION, wnd, DFM_DFM_SIZE, p1, p2);
DfCreateMenu(wnd);
CreateStatusBar(wnd);
if (WasVisible)
DfSendMessage(wnd, DFM_SHOW_WINDOW, 0, 0);
}
/* ----------- DFM_KEYBOARD Message ------------ */
static int KeyboardMsg(DFWINDOW wnd, DF_PARAM p1, DF_PARAM p2)
{
if (DfWindowMoving || DfWindowSizing || (int) p1 == DF_F1)
return DfBaseWndProc(DF_APPLICATION, wnd, DFM_KEYBOARD, p1, p2);
switch ((int) p1) {
case DF_ALT_F4:
DfPostMessage(wnd, DFM_CLOSE_WINDOW, 0, 0);
return TRUE;
#ifdef INCLUDE_MULTI_WINDOWS
case DF_ALT_F6:
DfSetNextFocus();
return TRUE;
#endif
case DF_ALT_HYPHEN:
DfBuildSystemMenu(wnd);
return TRUE;
default:
break;
}
DfPostMessage(wnd->MenuBarWnd, DFM_KEYBOARD, p1, p2);
return TRUE;
}
/* --------- DFM_SHIFT_CHANGED Message -------- */
static void ShiftChangedMsg(DFWINDOW wnd, DF_PARAM p1)
{
extern BOOL AltDown;
if ((int)p1 & DF_ALTKEY)
AltDown = TRUE;
else if (AltDown) {
AltDown = FALSE;
if (wnd->MenuBarWnd != DfInFocus)
DfSendMessage(NULL, DFM_HIDE_CURSOR, 0, 0);
DfSendMessage(wnd->MenuBarWnd, DFM_KEYBOARD, DF_F10, 0);
}
}
/* -------- COMMAND Message ------- */
static void CommandMsg(DFWINDOW wnd, DF_PARAM p1, DF_PARAM p2)
{
switch ((int)p1) {
case DF_ID_HELP:
DfDisplayHelp(wnd, DFlatApplication);
break;
case DF_ID_HELPHELP:
DfDisplayHelp(wnd, "HelpHelp");
break;
case DF_ID_EXTHELP:
DfDisplayHelp(wnd, "ExtHelp");
break;
case DF_ID_KEYSHELP:
DfDisplayHelp(wnd, "KeysHelp");
break;
case DF_ID_HELPINDEX:
DfDisplayHelp(wnd, "HelpIndex");
break;
#ifdef TESTING_DFLAT
case DF_ID_LOADHELP:
DfLoadHelpFile();
break;
#endif
#ifdef INCLUDE_LOGGING
case DF_ID_LOG:
DfMessageLog(wnd);
break;
#endif
#ifdef INCLUDE_SHELLDOS
case DF_ID_DOS:
ShellDOS(wnd);
break;
#endif
case DF_ID_EXIT:
case DF_ID_SYSCLOSE:
DfPostMessage(wnd, DFM_CLOSE_WINDOW, 0, 0);
break;
case DF_ID_DISPLAY:
if (DfDialogBox(wnd, &Display, TRUE, NULL)) {
if (DfInFocus == wnd->MenuBarWnd || DfInFocus == wnd->StatusBar)
oldFocus = DfApplicationWindow;
else
oldFocus = DfInFocus;
DfSendMessage(wnd, DFM_HIDE_WINDOW, 0, 0);
SelectColors(wnd);
#ifdef INCLUDE_WINDOWOPTIONS
SelectBorder(wnd);
SelectTitle(wnd);
SelectStatusBar(wnd);
SelectTexture();
#endif
DfCreateMenu(wnd);
CreateStatusBar(wnd);
DfSendMessage(wnd, DFM_SHOW_WINDOW, 0, 0);
DfSendMessage(oldFocus, DFM_SETFOCUS, TRUE, 0);
}
break;
case DF_ID_SAVEOPTIONS:
DfSaveConfig();
break;
#ifdef INCLUDE_MULTI_WINDOWS
case DF_ID_WINDOW:
ChooseWindow(wnd, (int)p2-2);
break;
case DF_ID_CLOSEALL:
CloseAll(wnd, FALSE);
break;
case DF_ID_MOREWINDOWS:
MoreWindows(wnd);
break;
#endif
#ifdef INCLUDE_RESTORE
case DF_ID_SYSRESTORE:
#endif
case DF_ID_SYSMOVE:
case DF_ID_SYSSIZE:
#ifdef INCLUDE_MINIMIZE
case DF_ID_SYSMINIMIZE:
#endif
#ifdef INCLUDE_MAXIMIZE
case DF_ID_SYSMAXIMIZE:
#endif
DfBaseWndProc(DF_APPLICATION, wnd, DFM_COMMAND, p1, p2);
break;
default:
if (DfInFocus != wnd->MenuBarWnd && DfInFocus != wnd)
DfPostMessage(DfInFocus, DFM_COMMAND, p1, p2);
break;
}
}
/* --------- DFM_CLOSE_WINDOW Message -------- */
static int CloseWindowMsg(DFWINDOW wnd)
{
int rtn;
#ifdef INCLUDE_MULTI_WINDOWS
CloseAll(wnd, TRUE);
WindowSel = 0;
#endif
DfPostMessage(NULL, DFM_STOP, 0, 0);
rtn = DfBaseWndProc(DF_APPLICATION, wnd, DFM_CLOSE_WINDOW, 0, 0);
DfUnLoadHelpFile();
DisplayModified = FALSE;
DfApplicationWindow = NULL;
return rtn;
}
/* --- DF_APPLICATION Window Class window processing module --- */
int DfApplicationProc(DFWINDOW wnd, DFMESSAGE msg, DF_PARAM p1, DF_PARAM p2)
{
switch (msg)
{
case DFM_CREATE_WINDOW:
return CreateWindowMsg(wnd);
case DFM_HIDE_WINDOW:
if (wnd == DfInFocus)
DfInFocus = NULL;
break;
case DFM_ADDSTATUS:
AddStatusMsg(wnd, p1);
return TRUE;
case DFM_SETFOCUS:
if ((int)p1 == (DfInFocus != wnd)) {
SetFocusMsg(wnd, (BOOL) p1);
return TRUE;
}
break;
case DFM_DFM_SIZE:
SizeMsg(wnd, p1, p2);
return TRUE;
#ifdef INCLUDE_MINIMIZE
case DFM_MINIMIZE:
return TRUE;
#endif
case DFM_KEYBOARD:
return KeyboardMsg(wnd, p1, p2);
case DFM_SHIFT_CHANGED:
ShiftChangedMsg(wnd, p1);
return TRUE;
case DFM_PAINT:
if (DfIsVisible(wnd)) {
#ifdef INCLUDE_WINDOWOPTIONS
int cl = DfCfg.Texture ? DF_APPLCHAR : ' ';
#else
int cl = DF_APPLCHAR;
#endif
DfClearWindow(wnd, (DFRECT *)p1, cl);
}
return TRUE;
case DFM_COMMAND:
CommandMsg(wnd, p1, p2);
return TRUE;
case DFM_CLOSE_WINDOW:
return CloseWindowMsg(wnd);
default:
break;
}
return DfBaseWndProc(DF_APPLICATION, wnd, msg, p1, p2);
}
#ifdef INCLUDE_SHELLDOS
static void SwitchCursor(void)
{
DfSendMessage(NULL, DFM_SAVE_CURSOR, 0, 0);
DfSwapCursorStack();
DfSendMessage(NULL, DFM_RESTORE_CURSOR, 0, 0);
}
/* ------- Shell out to DOS ---------- */
static void ShellDOS(DFWINDOW wnd)
{
oldFocus = DfInFocus;
DfSendMessage(wnd, DFM_HIDE_WINDOW, 0, 0);
SwitchCursor();
printf("To return to %s, execute the DOS exit command.",
DFlatApplication);
fflush(stdout);
_spawnl(P_WAIT, getenv("COMSPEC"), " ", NULL);
SwitchCursor();
DfSendMessage(wnd, DFM_SHOW_WINDOW, 0, 0);
DfSendMessage(oldFocus, DFM_SETFOCUS, TRUE, 0);
}
#endif
/* -------- Create the menu bar -------- */
static void DfCreateMenu(DFWINDOW wnd)
{
DfAddAttribute(wnd, DF_HASMENUBAR);
if (wnd->MenuBarWnd != NULL)
DfSendMessage(wnd->MenuBarWnd, DFM_CLOSE_WINDOW, 0, 0);
wnd->MenuBarWnd = DfDfCreateWindow(DF_MENUBAR,
NULL,
DfGetClientLeft(wnd),
DfGetClientTop(wnd)-1,
1,
DfClientWidth(wnd),
NULL,
wnd,
NULL,
0);
DfSendMessage(wnd->MenuBarWnd,DFM_BUILDMENU,
(DF_PARAM)wnd->extension,0);
DfAddAttribute(wnd->MenuBarWnd, DF_VISIBLE);
}
/* ----------- Create the status bar ------------- */
static void CreateStatusBar(DFWINDOW wnd)
{
if (wnd->StatusBar != NULL) {
DfSendMessage(wnd->StatusBar, DFM_CLOSE_WINDOW, 0, 0);
wnd->StatusBar = NULL;
}
if (DfTestAttribute(wnd, DF_HASSTATUSBAR)) {
wnd->StatusBar = DfDfCreateWindow(DF_STATUSBAR,
NULL,
DfGetClientLeft(wnd),
DfGetBottom(wnd),
1,
DfClientWidth(wnd),
NULL,
wnd,
NULL,
0);
DfAddAttribute(wnd->StatusBar, DF_VISIBLE);
}
}
#ifdef INCLUDE_MULTI_WINDOWS
/* -------- return the name of a document window ------- */
static char *WindowName(DFWINDOW wnd)
{
if (DfGetTitle(wnd) == NULL)
{
if (DfGetClass(wnd) == DF_DIALOG)
return ((DF_DBOX *)(wnd->extension))->HelpName;
else
return "Untitled";
}
else
return DfGetTitle(wnd);
}
/* ----------- Prepare the Window menu ------------ */
void DfPrepWindowMenu(void *w, struct DfMenu *mnu)
{
DFWINDOW wnd = w;
struct DfPopDown *p0 = mnu->Selections;
struct DfPopDown *pd = mnu->Selections + 2;
struct DfPopDown *ca = mnu->Selections + 13;
int MenuNo = 0;
DFWINDOW cwnd;
mnu->Selection = 0;
oldFocus = NULL;
if (DfGetClass(wnd) != DF_APPLICATION)
{
oldFocus = wnd;
/* point to the DF_APPLICATION window */
if (DfApplicationWindow == NULL)
return;
cwnd = DfFirstWindow(DfApplicationWindow);
/* get the first 9 document windows */
while (cwnd != NULL && MenuNo < 9)
{
if (DfGetClass(cwnd) != DF_MENUBAR &&
DfGetClass(cwnd) != DF_STATUSBAR)
{
/* add the document window to the menu */
strncpy (Menus[MenuNo]+4, WindowName(cwnd), 20);
pd->SelectionTitle = Menus[MenuNo];
if (cwnd == oldFocus)
{
/* mark the current document */
pd->Attrib |= DF_CHECKED;
mnu->Selection = MenuNo+2;
}
else
pd->Attrib &= ~DF_CHECKED;
pd++;
MenuNo++;
}
cwnd = DfNextWindow(cwnd);
}
}
if (MenuNo)
p0->SelectionTitle = "~Close all";
else
p0->SelectionTitle = NULL;
if (MenuNo >= 9)
{
*pd++ = *ca;
if (mnu->Selection == 0)
mnu->Selection = 11;
}
pd->SelectionTitle = NULL;
}
/* window processing module for the More Windows dialog box */
static int WindowPrep(DFWINDOW wnd,DFMESSAGE msg,DF_PARAM p1,DF_PARAM p2)
{
switch (msg) {
case DFM_INITIATE_DIALOG: {
DFWINDOW wnd1;
DFWINDOW cwnd = DfControlWindow(&Windows,DF_ID_WINDOWLIST);
int sel = 0;
if (cwnd == NULL)
return FALSE;
wnd1 = DfFirstWindow(DfApplicationWindow);
while (wnd1 != NULL) {
if (wnd1 != wnd && DfGetClass(wnd1) != DF_MENUBAR &&
DfGetClass(wnd1) != DF_STATUSBAR) {
if (wnd1 == oldFocus)
WindowSel = sel;
DfSendMessage(cwnd, DFM_ADDTEXT,
(DF_PARAM) WindowName(wnd1), 0);
sel++;
}
wnd1 = DfNextWindow(wnd1);
}
DfSendMessage(cwnd, DFM_LB_SETSELECTION, WindowSel, 0);
DfAddAttribute(cwnd, DF_VSCROLLBAR);
DfPostMessage(cwnd, DFM_SHOW_WINDOW, 0, 0);
break;
}
case DFM_COMMAND:
switch ((int) p1) {
case DF_ID_OK:
if ((int)p2 == 0)
WindowSel = DfSendMessage(
DfControlWindow(&Windows,
DF_ID_WINDOWLIST),
DFM_LB_CURRENTSELECTION, 0, 0);
break;
case DF_ID_WINDOWLIST:
if ((int) p2 == DFM_LB_CHOOSE)
DfSendMessage(wnd, DFM_COMMAND, DF_ID_OK, 0);
break;
default:
break;
}
break;
default:
break;
}
return DfDefaultWndProc(wnd, msg, p1, p2);
}
/* ---- the More Windows command on the Window menu ---- */
static void MoreWindows(DFWINDOW wnd)
{
if (DfDialogBox(wnd, &Windows, TRUE, WindowPrep))
ChooseWindow(wnd, WindowSel);
}
/* ----- user chose a window from the Window menu
or the More Window dialog box ----- */
static void ChooseWindow(DFWINDOW wnd, int WindowNo)
{
DFWINDOW cwnd = DfFirstWindow(wnd);
while (cwnd != NULL)
{
if (DfGetClass(cwnd) != DF_MENUBAR &&
DfGetClass(cwnd) != DF_STATUSBAR)
if (WindowNo-- == 0)
break;
cwnd = DfNextWindow(cwnd);
}
if (cwnd != NULL) {
DfSendMessage(cwnd, DFM_SETFOCUS, TRUE, 0);
if (cwnd->condition == DF_ISMINIMIZED)
DfSendMessage(cwnd, DFM_RESTORE, 0, 0);
}
}
/* ----- Close all document windows ----- */
static void CloseAll(DFWINDOW wnd, int closing)
{
DFWINDOW wnd1, wnd2;
DfSendMessage(wnd, DFM_SETFOCUS, TRUE, 0);
wnd1 = DfLastWindow(wnd);
while (wnd1 != NULL)
{
wnd2 = DfPrevWindow(wnd1);
if (DfGetClass(wnd1) != DF_MENUBAR && DfGetClass(wnd1) != DF_STATUSBAR)
{
DfClearVisible(wnd1);
DfSendMessage(wnd1, DFM_CLOSE_WINDOW, 0, 0);
}
wnd1 = wnd2;
}
if (!closing)
DfSendMessage(wnd, DFM_PAINT, 0, 0);
}
#endif /* #ifdef INCLUDE_MULTI_WINDOWS */
static void DoWindowColors(DFWINDOW wnd)
{
DFWINDOW cwnd;
DfInitWindowColors(wnd);
cwnd = DfFirstWindow(wnd);
while (cwnd != NULL)
{
DoWindowColors(cwnd);
if (DfGetClass(cwnd) == DF_TEXT && DfGetText(cwnd) != NULL)
DfSendMessage(cwnd, DFM_CLEARTEXT, 0, 0);
cwnd = DfNextWindow(cwnd);
}
}
/* set up colors for the application window */
static void SelectColors(DFWINDOW wnd)
{
memcpy(DfCfg.clr, DfColor, sizeof DfColor);
DoWindowColors(wnd);
}
#ifdef INCLUDE_WINDOWOPTIONS
/* ----- select the screen texture ----- */
static void SelectTexture(void)
{
DfCfg.Texture = DfCheckBoxSetting(&Display, DF_ID_TEXTURE);
}
/* -- select whether the application screen has a border -- */
static void SelectBorder(DFWINDOW wnd)
{
DfCfg.Border = DfCheckBoxSetting(&Display, DF_ID_BORDER);
if (DfCfg.Border)
DfAddAttribute(wnd, DF_HASBORDER);
else
DfClearAttribute(wnd, DF_HASBORDER);
}
/* select whether the application screen has a status bar */
static void SelectStatusBar(DFWINDOW wnd)
{
DfCfg.StatusBar = DfCheckBoxSetting(&Display, DF_ID_STATUSBAR);
if (DfCfg.StatusBar)
DfAddAttribute(wnd, DF_HASSTATUSBAR);
else
DfClearAttribute(wnd, DF_HASSTATUSBAR);
}
/* select whether the application screen has a title bar */
static void SelectTitle(DFWINDOW wnd)
{
DfCfg.Title = DfCheckBoxSetting(&Display, DF_ID_TITLE);
if (DfCfg.Title)
DfAddAttribute(wnd, DF_HASTITLEBAR);
else
DfClearAttribute(wnd, DF_HASTITLEBAR);
}
#endif
/* EOF */