LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
switch (message)
{
case WM_CREATE:
SetupNotificationIcon(hWnd);
break;
case WM_APP:
switch(lParam)
{
case WM_CONTEXTMENU:
ShowContextMenu(hWnd);
break;
}
break;
case WM_COMMAND:
{
int wmId, wmEvent;
wmId = LOWORD(wParam);
wmEvent = HIWORD(wParam);
switch (wmId)
{
case IDM_EXIT:
DestroyWindow(hWnd);
break;
case ID_FILE_OPTIONS:
ShowOptionsDialog(hWnd);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
}
break;
case WM_DESTROY:
Shell_NotifyIcon(NIM_DELETE, &niData);
UnhookWindowsHookEx(hKeyboardHook);
PostQuitMessage(0);
break;
case WMU_POP_OPTIONS_DIALOG:
ShowOptionsDialog(hWnd);
break;
case WMU_LAUNCH_BROWSER:
LaunchBrowser();
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}
return 0;
}
static VOID NTAPI ShowOptionsCallback(
_In_opt_ PVOID Parameter,
_In_opt_ PVOID Context
)
{
ShowOptionsDialog((HWND)Parameter);
}
void
wxMFrame::OnMenuCommand(int id)
{
// is it a module generated entry?
if(id >= WXMENU_MODULES_BEGIN && id < WXMENU_MODULES_END)
{
ProcessModulesMenu(id);
return;
}
switch(id)
{
case WXMENU_FILE_CLOSE:
Close();
break;
case WXMENU_FILE_COMPOSE_WITH_TEMPLATE:
case WXMENU_FILE_COMPOSE:
{
wxString templ;
if ( id == WXMENU_FILE_COMPOSE_WITH_TEMPLATE )
{
templ = ChooseTemplateFor(MessageTemplate_NewMessage, this);
if ( templ.empty() )
{
// cancelled by user
break;
}
}
Profile_obj profile(GetFolderProfile());
Composer *composeView = Composer::CreateNewMessage(templ, profile);
composeView->InitText();
}
break;
case WXMENU_FILE_SEND_OUTBOX:
mApplication->SendOutbox();
break;
case WXMENU_FILE_POST:
{
Profile_obj profile(GetFolderProfile());
Composer *composeView = Composer::CreateNewArticle(profile);
composeView->InitText();
}
case WXMENU_FILE_COLLECT:
{
FolderMonitor *mailCollector = mApplication->GetFolderMonitor();
if ( mailCollector )
{
// when the user explicitly checks for the new mail, also update
// the currently opened folder(s) and give the verbose messages
mailCollector->CheckNewMail(FolderMonitor::Interactive |
FolderMonitor::Opened);
}
}
break;
#ifdef USE_PYTHON
case WXMENU_FILE_RUN_PYSCRIPT:
{
wxString path = mApplication->GetDataDir();
if ( !path.empty() )
path += DIR_SEPARATOR;
path += _T("scripts");
wxString filename = MDialog_FileRequester
(
_("Please select a Python script to run."),
this,
path, "",
"py", "*.py",
false,
NULL /* profile */
);
if ( !filename.empty() )
{
PythonRunScript(filename);
}
//else: cancelled by user
}
break;
#endif // USE_PYTHON
case WXMENU_FILE_AWAY_MODE:
mApplication->SetAwayMode(GetMenuBar()->IsChecked(id));
break;
case WXMENU_FILE_EXIT:
// flush MEvent queues for safety
MEventManager::DispatchPending();
if ( CanClose() )
{
// this frame has been already asked whether it wants to exit, so
// don't ask it again
mApplication->AddToFramesOkToClose(this);
// exit the application if other frames don't object
mApplication->Exit();
}
break;
case WXMENU_FILE_IMPORT:
ShowImportDialog(this);
break;
case WXMENU_EDIT_ADB:
ShowAdbFrame(this);
break;
case WXMENU_EDIT_PREF:
ShowOptionsDialog(this);
break;
case WXMENU_EDIT_FILTERS:
(void) ConfigureAllFilters(this);
break;
case WXMENU_EDIT_MODULES:
ShowModulesDialog(this);
break;
case WXMENU_EDIT_TEMPLATES:
EditTemplates(this);
break;
case WXMENU_EDIT_RESTORE_PREF:
(void)ShowRestoreDefaultsDialog(mApplication->GetProfile(), this);
break;
case WXMENU_EDIT_SAVE_PREF:
if ( Profile::FlushAll() )
{
wxLogStatus(this, _("Program preferences successfully saved."));
}
else
{
ERRORMESSAGE((_("Couldn't save preferences.")));
}
break;
case WXMENU_EDIT_CONFIG_SOURCES:
ShowConfigSourcesDialog(this);
break;
case WXMENU_EDIT_EXPORT_PREF:
case WXMENU_EDIT_IMPORT_PREF:
{
const bool doExport = id == WXMENU_EDIT_EXPORT_PREF;
String path = MDialog_FileRequester
(
doExport ? _("Choose file to export settings to")
: _("Choose file to import settings from"),
this,
wxEmptyString, wxEmptyString, wxEmptyString, wxEmptyString,
doExport // true => save, false => load
);
if ( path.empty() )
break;
ConfigSource_obj
configSrc(ConfigSourceLocal::CreateDefault()),
configDst(ConfigSourceLocal::CreateFile(path));
if ( !doExport )
{
configSrc.Swap(configDst);
}
bool ok = ConfigSource::Copy(*configDst, *configSrc);
if ( doExport )
{
if ( ok )
{
wxLogStatus(this,
_("Settings successfully exported to file \"%s\""),
path.c_str());
}
else
{
wxLogError(_("Failed to export settings to the file \"%s\"."),
path.c_str());
}
}
else // import
{
if ( ok )
{
wxLogStatus(this,
_("Settings successfully imported from \"%s\""),
path.c_str());
}
else
{
wxLogError(_("Failed to import settings from the file \"%s\"."),
path.c_str());
}
}
}
break;
case WXMENU_HELP_ABOUT:
MDialog_AboutDialog(this, false /* don't timeout */);
break;
case WXMENU_HELP_TIP:
MDialog_ShowTip(this);
break;
case WXMENU_HELP_CONTEXT:
MDialog_Message(_("Help not implemented for current context, yet."),this,_("Sorry"));
break;
case WXMENU_HELP_CONTENTS:
mApplication->Help(MH_CONTENTS,this);
break;
case WXMENU_HELP_RELEASE_NOTES:
mApplication->Help(MH_RELEASE_NOTES,this);
break;
case WXMENU_HELP_FAQ:
mApplication->Help(MH_FAQ,this);
break;
case WXMENU_HELP_SEARCH:
mApplication->Help(MH_SEARCH,this);
break;
case WXMENU_HELP_COPYRIGHT:
mApplication->Help(MH_COPYRIGHT,this);
break;
// printing:
case WXMENU_FILE_PRINT_SETUP:
OnPrintSetup();
break;
case WXMENU_FILE_PAGE_SETUP:
OnPageSetup();
break;
#ifdef USE_PS_PRINTING
case WXMENU_FILE_PRINT_SETUP_PS:
OnPrintSetup();
break;
case WXMENU_FILE_PAGE_SETUP_PS:
OnPageSetup();
break;
#endif // USE_PS_PRINTING
#ifdef USE_DIALUP
case WXMENU_FILE_NET_ON:
mApplication->GoOnline();
break;
case WXMENU_FILE_NET_OFF:
if(mApplication->CheckOutbox())
{
if ( MDialog_YesNoDialog
(
_("You have outgoing messages queued.\n"
"Do you want to send them before going offline?"),
this,
MDIALOG_YESNOTITLE,
M_DLG_YES_DEFAULT,
M_MSGBOX_GO_OFFLINE_SEND_FIRST
) )
{
mApplication->SendOutbox();
}
}
mApplication->GoOffline();
break;
#endif // USE_DIALUP
// create a new identity and edit it
case WXMENU_FILE_IDENT_ADD:
{
wxString ident;
if ( MInputBox(&ident,
_("Mahogany: Create new identity"),
_("Enter the identity name:"),
this,
"NewIdentity") )
{
ShowIdentityDialog(ident, this);
// update the identity combo in the toolbar of the main frame if
// any (note that this will update all the other existing
// identity combo boxes as they keep themselves in sync
// internally)
//
// TODO: we really should have a virtual wxMFrame::GetIdentCombo
// as we might not always create the main frame in the
// future but other frames (e.g. composer) may have the
// ident combo as well
wxMFrame *frameTop = mApplication->TopLevelFrame();
if ( frameTop )
{
wxToolBar *tbar = frameTop->GetToolBar();
if ( tbar )
{
wxWindow *win = tbar->FindWindow(IDC_IDENT_COMBO);
if ( win )
{
wxChoice *combo = wxDynamicCast(win, wxChoice);
combo->Append(ident);
}
}
else
{
FAIL_MSG(_T("where is the main frames toolbar?"));
}
}
wxLogStatus(this, _("Created new identity '%s'."), ident.c_str());
}
}
break;
// change the current identity
case WXMENU_FILE_IDENT_CHANGE:
{
wxArrayString identities = Profile::GetAllIdentities();
if ( identities.IsEmpty() )
{
wxLogError(_("There are no existing identities to choose from.\n"
"Please create an identity first."));
}
else
{
identities.Insert(_("Default"), 0);
int rc = MDialog_GetSelection
(
_("Select the new identity"),
MDIALOG_YESNOTITLE,
identities,
this
);
if ( rc != -1 )
{
Profile *profile = mApplication->GetProfile();
if ( rc == 0 )
{
// restore the default identity
profile->DeleteEntry(GetOptionName(MP_CURRENT_IDENTITY));
}
else
{
wxString ident = identities[(size_t)rc];
profile->writeEntry(MP_CURRENT_IDENTITY, ident);
}
// update the identity combo in the toolbar if any
wxWindow *win = GetToolBar()->FindWindow(IDC_IDENT_COMBO);
if ( win )
{
wxChoice *combo = wxDynamicCast(win, wxChoice);
combo->SetSelection(rc);
}
// TODO: should update everything (all options might have
// changed)
}
//else: dialog cancelled, nothing to do
}
}
break;
// edit an identity's parameters
case WXMENU_FILE_IDENT_EDIT:
{
String ident;
wxArrayString identities = Profile::GetAllIdentities();
if ( identities.IsEmpty() )
{
wxLogError(_("There are no existing identities to edit.\n"
"Please create an identity first."));
}
else
{
if ( identities.GetCount() > 1 )
{
int rc = MDialog_GetSelection
(
_("Which identity would you like to edit?"),
MDIALOG_YESNOTITLE,
identities,
this
);
if ( rc != -1 )
{
ident = identities[(size_t)rc];
}
//else: dialog was cancelled
}
else // only one identity
{
// use the current one
ident = READ_APPCONFIG_TEXT(MP_CURRENT_IDENTITY);
}
}
if ( !ident.empty() )
{
ShowIdentityDialog(ident, this);
}
}
break;
case WXMENU_FILE_IDENT_DELETE:
{
String ident;
wxArrayString identities = Profile::GetAllIdentities();
if ( identities.IsEmpty() )
{
wxLogError(_("There are no existing identities to delete."));
}
else
{
int rc = MDialog_GetSelection
(
_("Which identity would you like to delete?"),
MDIALOG_YESNOTITLE,
identities,
this
);
if ( rc != -1 )
{
ident = identities[(size_t)rc];
}
//else: cancelled
}
if ( !ident.empty() )
{
Profile *profile = mApplication->GetProfile();
if ( ident == READ_APPCONFIG(MP_CURRENT_IDENTITY) )
{
// can't keep this one
profile->writeEntry(MP_CURRENT_IDENTITY, wxEmptyString);
}
// FIXME: will this really work? if there are objects which
// use this identity the section will be recreated...
String identSection;
identSection << Profile::GetIdentityPath() << '/' << ident;
profile->DeleteGroup(identSection);
// update the identity combo in the toolbar if any
wxWindow *win = GetToolBar()->FindWindow(IDC_IDENT_COMBO);
if ( win )
{
wxChoice *combo = wxDynamicCast(win, wxChoice);
combo->Delete(combo->FindString(ident));
}
wxLogStatus(this, _("Identity '%s' deleted."), ident.c_str());
}
}
break;
case WXMENU_LANG_SET_DEFAULT:
{
static const wxFontEncoding encodingsSupported[] =
{
wxFONTENCODING_ISO8859_1, // West European (Latin1)
wxFONTENCODING_ISO8859_2, // Central and East European (Latin2)
wxFONTENCODING_ISO8859_3, // Esperanto (Latin3)
wxFONTENCODING_ISO8859_4, // Baltic (old) (Latin4)
wxFONTENCODING_ISO8859_5, // Cyrillic
wxFONTENCODING_ISO8859_6, // Arabic
wxFONTENCODING_ISO8859_7, // Greek
wxFONTENCODING_ISO8859_8, // Hebrew
wxFONTENCODING_ISO8859_9, // Turkish (Latin5)
wxFONTENCODING_ISO8859_10, // Variation of Latin4 (Latin6)
wxFONTENCODING_ISO8859_11, // Thai
wxFONTENCODING_ISO8859_12, // doesn't exist currently, but put it
// here anyhow to make all ISO8859
// consecutive numbers
wxFONTENCODING_ISO8859_13, // Baltic (Latin7)
wxFONTENCODING_ISO8859_14, // Latin8
wxFONTENCODING_ISO8859_15, // Latin9 (a.k.a. Latin0, includes euro)
wxFONTENCODING_CP1250, // WinLatin2
wxFONTENCODING_CP1251, // WinCyrillic
wxFONTENCODING_CP1252, // WinLatin1
wxFONTENCODING_CP1253, // WinGreek (8859-7)
wxFONTENCODING_CP1254, // WinTurkish
wxFONTENCODING_CP1255, // WinHebrew
wxFONTENCODING_CP1256, // WinArabic
wxFONTENCODING_CP1257, // WinBaltic (almost the same as Latin 7)
wxFONTENCODING_KOI8, // == KOI8-R
wxFONTENCODING_UTF7, // == UTF-7
wxFONTENCODING_UTF8, // == UTF-8
};
wxArrayString encDescs;
encDescs.Add(_("Default 7 bit (US ASCII)"));
for ( size_t n = 0; n < WXSIZEOF(encodingsSupported); n++ )
{
encDescs.Add(
wxFontMapper::GetEncodingDescription(
encodingsSupported[n]
)
);
}
int choice = MDialog_GetSelection
(
_("Please choose the default encoding:\n"
"it will be used by default in both\n"
"message viewer and composer."),
_("Choose default encoding"),
encDescs,
this
);
wxFontEncoding enc;
if ( choice == -1 )
{
// cancelled, do nothing
break;
}
else if ( choice == 0 )
{
enc = wxFONTENCODING_DEFAULT;
}
else
{
enc = encodingsSupported[choice - 1];
}
// remember the encoding as default
mApplication->GetProfile()->writeEntry(MP_MSGVIEW_DEFAULT_ENCODING,
enc);
}
break;
case WXMENU_VIEW_TOOLBAR:
if ( GetMenuBar()->IsChecked(id) )
{
DoCreateToolBar();
}
else // hide the toolbar
{
delete GetToolBar();
SetToolBar(NULL);
}
break;
case WXMENU_VIEW_STATUSBAR:
if ( GetMenuBar()->IsChecked(id) )
{
DoCreateStatusBar();
}
else // hide the status bar
{
delete GetStatusBar();
SetStatusBar(NULL);
}
break;
case WXMENU_VIEW_FULLSCREEN:
ShowFullScreen(GetMenuBar()->IsChecked(id));
break;
}
}
void StartContextCommand (HWND hDialog,
LPIDENT lpiRepresentedByWindow,
LPIDENT lpiChosenByClick,
int cmd)
{
CHILDTAB iTab = Server_GetDisplayedTab (hDialog);
LPIDENT lpi = (lpiChosenByClick) ? lpiChosenByClick : lpiRepresentedByWindow;
if (lpi && lpi->fIsCell())
lpi = NULL;
switch (cmd)
{
case M_COLUMNS:
if (iTab == tabSERVICES)
ShowColumnsDialog (hDialog, &gr.viewSvc);
else if (iTab == tabAGGREGATES)
ShowColumnsDialog (hDialog, &gr.viewAgg);
else if (iTab == tabFILESETS)
ShowColumnsDialog (hDialog, &gr.viewSet);
else
ShowColumnsDialog (hDialog, NULL);
break;
case M_SVR_VIEW_ONEICON:
case M_SVR_VIEW_TWOICONS:
case M_SVR_VIEW_STATUS:
Command_OnIconView (hDialog, TRUE, iTab, cmd);
break;
case M_VIEW_ONEICON:
case M_VIEW_TWOICONS:
case M_VIEW_STATUS:
Command_OnIconView (hDialog, FALSE, iTab, cmd);
break;
case M_PROPERTIES:
if (lpi)
Command_OnProperties (lpi);
break;
case M_SUBSET:
ShowSubsetsDialog();
break;
case M_REFRESHALL:
if (g.lpiCell)
StartTask (taskREFRESH, NULL, g.lpiCell);
break;
case M_REFRESH:
if (lpi)
StartTask (taskREFRESH, NULL, lpi);
else if (g.lpiCell)
StartTask (taskREFRESH, NULL, g.lpiCell);
break;
case M_SYNCVLDB:
if (lpi)
Server_SyncVLDB (lpi);
break;
case M_SALVAGE:
if (lpi)
Server_Salvage (lpi);
break;
case M_SET_CREATE:
Filesets_Create (lpi);
break;
case M_SET_REPLICATION:
if (lpi && lpi->fIsFileset())
Filesets_ShowReplication (Server_GetWindowForChild (hDialog), lpi);
break;
case M_SET_DELETE:
if (lpi && lpi->fIsFileset())
Filesets_Delete (lpi);
break;
case M_SET_CLONE:
Filesets_Clone (lpi);
break;
case M_SET_DUMP:
if (lpi && lpi->fIsFileset())
Filesets_Dump (lpi);
break;
case M_SET_RESTORE:
Filesets_Restore (lpi);
break;
case M_SET_RELEASE:
if (lpi && lpi->fIsFileset())
Filesets_Release (lpi);
break;
case M_SET_MOVETO:
if (lpi && lpi->fIsFileset())
Filesets_ShowMoveTo (lpi, NULL);
break;
case M_SET_SETQUOTA:
if (lpi && lpi->fIsFileset())
Filesets_SetQuota (lpi);
break;
case M_SET_LOCK:
if (lpi && lpi->fIsFileset())
StartTask (taskSET_LOCK, NULL, lpi);
break;
case M_SET_UNLOCK:
if (lpi && !lpi->fIsService())
StartTask (taskSET_UNLOCK, NULL, lpi);
else if (!lpi && g.lpiCell)
StartTask (taskSET_UNLOCK, NULL, g.lpiCell);
break;
case M_SET_RENAME:
if (lpi && lpi->fIsFileset())
Filesets_ShowRename (lpi);
break;
case M_SVR_OPEN:
if (lpi && lpi->fIsServer())
StartTask (taskSVR_GETWINDOWPOS, g.hMain, lpi);
break;
case M_SVR_CLOSE:
if (lpi && lpi->fIsServer())
Server_Close (lpi);
break;
case M_SVR_CLOSEALL:
Server_CloseAll (TRUE);
break;
case M_SVR_SECURITY:
Server_Security (lpi);
break;
case M_SVR_HOSTS:
Server_Hosts (lpi);
break;
case M_SVR_INSTALL:
Server_Install (lpi);
break;
case M_SVR_UNINSTALL:
Server_Uninstall (lpi);
break;
case M_SVR_PRUNE:
Server_Prune (lpi);
break;
case M_SVR_GETDATES:
Server_GetDates (lpi);
break;
case M_EXECUTE:
Server_Execute (lpi);
break;
case M_VIEWLOG:
if (lpi && lpi->fIsService())
Services_ShowServiceLog (lpi);
else
Services_ShowServerLog (lpi);
break;
case M_SVR_MONITOR:
if (lpi && lpi->fIsServer())
StartTask (taskSVR_MONITOR_ONOFF, NULL, lpi);
break;
case M_SVC_CREATE:
if (!lpi)
Services_Create (NULL);
else
Services_Create (lpi->GetServer());
break;
case M_SVC_DELETE:
if (lpi && lpi->fIsService())
Services_Delete (lpi);
break;
case M_SVC_START:
if (lpi && lpi->fIsService())
Services_Start (lpi);
break;
case M_SVC_STOP:
if (lpi && lpi->fIsService())
Services_Stop (lpi);
break;
case M_SVC_RESTART:
if (lpi && lpi->fIsService())
Services_Restart (lpi);
break;
case M_CELL_OPEN:
OpenCellDialog();
break;
case M_CREDENTIALS:
NewCredsDialog();
break;
case M_OPTIONS:
ShowOptionsDialog();
break;
case M_HELP:
WinHelp (g.hMain, cszHELPFILENAME, HELP_FINDER, 0);
break;
case M_HELP_FIND:
Help_FindCommand();
break;
case M_HELP_XLATE:
Help_FindError();
break;
case M_ABOUT:
Help_About();
break;
}
}
void MainCommand(HWND hWnd, int ID)
{
switch (ID) {
case IDCANCEL: EndDialog(hWnd, 0); break;
case ID_OPEN: MainOpenFile(hWnd); break;
case ID_SCRIPTMAN: ShowScriptMan(); break;
case ID_EXIT: FireCommand(":quit\n"); break;
/* Load one of the last 10 open files */
case ID_MRU+0: case ID_MRU+1: case ID_MRU+2: case ID_MRU+3:
case ID_MRU+4: case ID_MRU+5: case ID_MRU+6: case ID_MRU+7:
case ID_MRU+8: case ID_MRU+9:
{
char Command[1000];
wsprintf(Command, ":load %s", ExpandFileName(MruGetItem(ID-ID_MRU)));
FireCommand(Command);
}
break;
// EDIT MENU
case ID_CUT: RtfWindowClipboard(WM_CUT); break;
case ID_COPY: RtfWindowClipboard(WM_COPY); break;
case ID_PASTE: RtfWindowClipboard(WM_PASTE); break;
case ID_CLEARSCREEN: RtfWindowClear(); break;
case ID_DELETE: RtfWindowDelete(); break;
case ID_SELECTALL: RtfWindowSelectAll(); break;
case ID_GOPREVIOUS: RtfWindowHistory(-1); break;
case ID_GONEXT: RtfWindowHistory(+1); break;
// ACTIONS MENU
// Reload script files
case ID_COMPILE: case ID_MAKE: FireCommand(":reload"); break;
case ID_CLEARALL: FireCommand(":load"); break;
case ID_GOEDIT: FireCommand(":edit"); break;
/* Stop program execution */
case ID_STOP:
MessageBeep(0xFFFFFFFF);
AbortExecution();
break;
/* Evaluate main expression */
case ID_RUN:
{
char Buffer[1000];
RtfWindowGetCommand(Buffer);
if (Buffer[0] == '\0')
FireCommand(":main");
else
FireCommand(Buffer);
}
break;
/* Set interpreter options using dialog box */
case ID_SETOPTIONS:
if (ShowOptionsDialog(hWnd))
RtfWindowUpdateFont();
break;
// BROWSE MENU
case ID_BROWSEHIERARCHY: DrawClassesHierarchy(); break;
case ID_BROWSECLASSES: DoBrowseClasses(); break;
case ID_BROWSENAMES: DoBrowseNames(); break;
case ID_BROWSETYCONS: DoBrowseTycons(); break;
// HELP MENU
case ID_HELPCONTENTS: ExecuteFileDocs("hugs98.chm"); break;
case ID_HELPCOMMANDS: FireCommand(":?\n"); break;
case ID_LIBRARIES: ExecuteFile("http://www.haskell.org/ghc/docs/latest/html/libraries/index.html"); break;
case ID_WWWHASKELL: ExecuteFile("http://haskell.org/"); break;
case ID_WWWHUGS: ExecuteFile("http://haskell.org/hugs/"); break;
case ID_ABOUT: ShowAboutDialog(hWnd); break;
}
}
