home *** CD-ROM | disk | FTP | other *** search
- #include <windows.h>
-
- extern "C" {
- int pascal WinMain (HANDLE, HANDLE, LPSTR, int);
- int far pascal DialProc(HWND, UINT, WPARAM, LPARAM);
-
- }
-
- #pragma argsused
- int pascal WinMain(HANDLE instance, HANDLE previous_instance,
- LPSTR comline, int show)
- {
- DialogBox(instance, "BUTTON_DIALOG", NULL,
- (FARPROC) MakeProcInstance((FARPROC) DialProc, instance));
- return 0;
- }
-
- #pragma argsused
- int far pascal DialProc(HWND handle, UINT message, WPARAM word_parameter,
- LPARAM long_parameter)
- {
- if (message == WM_CLOSE || message == WM_COMMAND && word_parameter == 101)
- EndDialog(handle, 0);
- return 0;
- }
-