Changeset 821 for trunk/src/user32/new/win32dlg.cpp

Timestamp:

Sep 4, 1999, 9:42:30 PM (26 years ago)

Author:

sandervl

Message:

Dialog changes

File:

• trunk/src/user32/new/win32dlg.cpp (modified) (5 diffs)

trunk/src/user32/new/win32dlg.cpp

@@ -1 @@
-/* $Id: win32dlg.cpp,v 1.2 1999-08-30 11:59:53 sandervl Exp $ */
+/* $Id: win32dlg.cpp,v 1.3 1999-09-04 19:42:28 sandervl Exp $ */
 /*
  * Win32 Dialog Code for OS/2
  *
- *
- * Copyright 1998-1999 Sander van Leeuwen (sandervl@xs4all.nl)
- *
+ * Copyright 1999 Sander van Leeuwen (sandervl@xs4all.nl) (Wine port & OS/2 adaption)
+ *
+ * Based on Wine code (990815; windows\dialog.c)
+ *
+ * Copyright 1993, 1994, 1996 Alexandre Julliard
  *
  * Project Odin Software License can be found in LICENSE.TXT
@@ -11 +13 @@
  */
 #include <os2win.h>
+#include <windowsx.h>
 #include <stdlib.h>
 #include <string.h>
@@ -18 +21 @@
 //******************************************************************************
 //******************************************************************************
-Win32Dialog::Win32Dialog() : Win32BaseWindow(OBJTYPE_DIALOG)
-{
+Win32Dialog::Win32Dialog(HINSTANCE hInst, LPCSTR dlgTemplate, HWND owner,
+                         DLGPROC dlgProc, LPARAM param, BOOL isUnicode)
+                    : Win32BaseWindow(OBJTYPE_DIALOG)
+{
+  RECT rect;
+  WORD style;
+  ATOM classAtom;
+
+    this->isUnicode = isUnicode;
+    hUserFont        = 0;
+    hMenu        = 0;
+        hwndFocus    = 0;
+    Win32DlgProc = 0;
+    msgResult    = 0;
+    userDlgData  = 0;
+    idResult     = 0;
+    dialogFlags  = 0;
+    memset(&dlgInfo, 0, sizeof(dlgInfo));
+
+    if(fInitialized == FALSE) {
+        if(DIALOG_Init() == FALSE) {
+            dprintf(("DIALOG_Init FAILED!"));
+            DebugInt3();
+            SetLastError(ERROR_GEN_FAILURE);
+            return;
+        }
+        fInitialized = TRUE;
+    }
+    xUnit = xBaseUnit;
+    yUnit = yBaseUnit;
+
+    /* Parse dialog template */
+    dlgTemplate = parseTemplate(dlgTemplate, &dlgInfo);
+
+    /* Load menu */
+    if (dlgInfo.menuName)
+    {
+        hMenu = LoadMenuW( hInst, (LPCWSTR)dlgInfo.menuName );
+    }
+
+    /* Create custom font if needed */
+    if (dlgInfo.style & DS_SETFONT)
+    {
+        /* The font height must be negative as it is a point size */
+        /* (see CreateFont() documentation in the Windows SDK).   */
+        hUserFont = CreateFontW(dlgInfo.pointSize, 0, 0, 0,
+                            dlgInfo.weight, dlgInfo.italic, FALSE,
+                            FALSE, DEFAULT_CHARSET, 0, 0, PROOF_QUALITY,
+                            FF_DONTCARE, (LPCWSTR)dlgInfo.faceName );
+        if (hUserFont)
+        {
+            SIZE charSize;
+            getCharSize(hUserFont,&charSize);
+            xBaseUnit = charSize.cx;
+            yBaseUnit = charSize.cy;
+        }
+    }
+
+    /* Create dialog main window */
+    rect.left = rect.top = 0;
+    rect.right = dlgInfo.cx * xUnit / 4;
+    rect.bottom = dlgInfo.cy * yUnit / 8;
+    if (dlgInfo.style & DS_MODALFRAME)
+        dlgInfo.exStyle |= WS_EX_DLGMODALFRAME;
+
+    AdjustWindowRectEx( &rect, dlgInfo.style, hMenu ? TRUE : FALSE , dlgInfo.exStyle );
+    rect.right -= rect.left;
+    rect.bottom -= rect.top;
+
+    if ((INT16)dlgInfo.x == CW_USEDEFAULT16)
+    {
+        rect.left = rect.top = CW_USEDEFAULT;
+    }
+    else
+    {
+        if (dlgInfo.style & DS_CENTER)
+        {
+            rect.left = (GetSystemMetrics(SM_CXSCREEN) - rect.right) / 2;
+            rect.top = (GetSystemMetrics(SM_CYSCREEN) - rect.bottom) / 2;
+        }
+        else
+        {
+            rect.left += dlgInfo.x * xUnit / 4;
+            rect.top += dlgInfo.y * yUnit / 8;
+        }
+        if ( !(dlgInfo.style & WS_CHILD) )
+        {
+            INT dX, dY;
+
+            if( !(dlgInfo.style & DS_ABSALIGN) )
+                ClientToScreen(owner, (POINT *)&rect );
+
+            /* try to fit it into the desktop */
+
+            if( (dX = rect.left + rect.right + GetSystemMetrics(SM_CXDLGFRAME)
+                 - GetSystemMetrics(SM_CXSCREEN)) > 0 ) rect.left -= dX;
+            if( (dY = rect.top + rect.bottom + GetSystemMetrics(SM_CYDLGFRAME)
+                 - GetSystemMetrics(SM_CYSCREEN)) > 0 ) rect.top -= dY;
+            if( rect.left < 0 ) rect.left = 0;
+            if( rect.top < 0 ) rect.top = 0;
+        }
+    }
+
+    /* Create the dialog window */
+
+    /* Find the class atom */
+    if (HIWORD(dlgInfo.className))
+    {
+        classAtom = (ATOM)LOWORD(dlgInfo.className);
+    }
+    else
+    if(!(classAtom = GlobalFindAtomA(dlgInfo.className)))
+    {
+        SetLastError(ERROR_INVALID_PARAMETER);
+        return;
+    }
+    CREATESTRUCTA cs;
+    cs.lpCreateParams = NULL;
+    cs.hInstance      = hInst;
+    cs.hMenu          = hMenu;
+    cs.hwndParent     = owner;
+    cs.x              = rect.left;
+    cs.y              = rect.top;
+    cs.cx             = rect.right;
+    cs.cy             = rect.bottom;
+    cs.style          = dlgInfo.style & ~WS_VISIBLE;
+    cs.lpszName       = dlgInfo.caption;
+    cs.lpszClass      = dlgInfo.className;
+    cs.dwExStyle      = dlgInfo.exStyle;
+
+    CreateWindowExA(&cs, classAtom);
+
+    if (!getWindowHandle())
+    {
+        if (hUserFont) DeleteObject( hUserFont );
+        if (hMenu) DestroyMenu( hMenu );
+        return;
+    }
+    fIsDialog = TRUE;
+
+//TODO:
+//    wndPtr->helpContext = helpId;
+    Win32DlgProc = dlgProc;
+
+    if (hUserFont)
+        SendMessageA(WM_SETFONT, (WPARAM)hUserFont, 0 );
+
+    /* Create controls */
+    if (createControls(dlgTemplate, hInst))
+    {
+        /* Send initialisation messages and set focus */
+        hwndFocus = GetNextDlgTabItem( getWindowHandle(), 0, FALSE );
+
+        if (::SendMessageA(hwndFocus, WM_INITDIALOG, (WPARAM)hwndFocus, param ))
+            SetFocus( hwndFocus );
+
+        if (dlgInfo.style & WS_VISIBLE && !(getStyle() & WS_VISIBLE))
+        {
+            ShowWindow( SW_SHOWNORMAL );    /* SW_SHOW doesn't always work */
+            ::UpdateWindow( getWindowHandle() );
+        }
+        return;
+    }
+    DestroyWindow();
 }
 //******************************************************************************
@@ -25 +190 @@
 Win32Dialog::~Win32Dialog()
 {
-
+    if (hUserFont) DeleteObject( hUserFont );
+    if (hMenu) DestroyMenu( hMenu );
+
+}
+/***********************************************************************
+ *           DIALOG_Init
+ *
+ * Initialisation of the dialog manager.
+ */
+BOOL Win32Dialog::DIALOG_Init(void)
+{
+    HDC hdc;
+    SIZE size;
+
+    /* Calculate the dialog base units */
+    if (!(hdc = CreateDCA( "DISPLAY", NULL, NULL, NULL ))) return FALSE;
+    if (!getCharSizeFromDC( hdc, 0, &size )) return FALSE;
+    DeleteDC( hdc );
+    xBaseUnit = size.cx;
+    yBaseUnit = size.cy;
+
+    return TRUE;
+}
+/***********************************************************************
+ *           DIALOG_GetCharSizeFromDC
+ *
+ *
+ *  Calculates the *true* average size of English characters in the
+ *  specified font as oppposed to the one returned by GetTextMetrics.
+ */
+BOOL Win32Dialog::getCharSizeFromDC( HDC hDC, HFONT hUserFont, SIZE * pSize )
+{
+    BOOL Success = FALSE;
+    HFONT hUserFontPrev = 0;
+    pSize->cx = xBaseUnit;
+    pSize->cy = yBaseUnit;
+
+    if ( hDC )
+    {
+        /* select the font */
+        TEXTMETRICA tm;
+        memset(&tm,0,sizeof(tm));
+        if (hUserFont) hUserFontPrev = SelectFont(hDC,hUserFont);
+        if (GetTextMetricsA(hDC,&tm))
+        {
+            pSize->cx = tm.tmAveCharWidth;
+            pSize->cy = tm.tmHeight;
+
+            /* if variable width font */
+            if (tm.tmPitchAndFamily & TMPF_FIXED_PITCH)
+            {
+                SIZE total;
+                static const char szAvgChars[53] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
+
+                /* Calculate a true average as opposed to the one returned
+                 * by tmAveCharWidth. This works better when dealing with
+                 * proportional spaced fonts and (more important) that's
+                 * how Microsoft's dialog creation code calculates the size
+                 * of the font
+                 */
+                if (GetTextExtentPointA(hDC,szAvgChars,sizeof(szAvgChars),&total))
+                {
+                   /* round up */
+                    pSize->cx = ((2*total.cx/sizeof(szAvgChars)) + 1)/2;
+                    Success = TRUE;
+                }
+            }
+            else
+            {
+                Success = TRUE;
+            }
+        }
+
+        /* select the original font */
+        if (hUserFontPrev) SelectFont(hDC,hUserFontPrev);
+    }
+    return (Success);
+}
+/***********************************************************************
+ *           DIALOG_GetCharSize
+ *
+ *
+ *  Calculates the *true* average size of English characters in the
+ *  specified font as oppposed to the one returned by GetTextMetrics.
+ *  A convenient variant of DIALOG_GetCharSizeFromDC.
+ */
+BOOL Win32Dialog::getCharSize( HFONT hUserFont, SIZE * pSize )
+{
+    HDC  hDC = GetDC(0);
+    BOOL Success = getCharSizeFromDC( hDC, hUserFont, pSize );
+    ReleaseDC(0, hDC);
+    return Success;
+}
+/***********************************************************************
+ *           DIALOG_ParseTemplate32
+ *
+ * Fill a DLG_TEMPLATE structure from the dialog template, and return
+ * a pointer to the first control.
+ */
+LPCSTR Win32Dialog::parseTemplate( LPCSTR dlgtemplate, DLG_TEMPLATE * result )
+{
+    const WORD *p = (const WORD *)dlgtemplate;
+
+    result->style = GET_DWORD(p); p += 2;
+    if (result->style == 0xffff0001)  /* DIALOGEX resource */
+    {
+        result->dialogEx = TRUE;
+        result->helpId   = GET_DWORD(p); p += 2;
+        result->exStyle  = GET_DWORD(p); p += 2;
+        result->style    = GET_DWORD(p); p += 2;
+    }
+    else
+    {
+        result->dialogEx = FALSE;
+        result->helpId   = 0;
+        result->exStyle  = GET_DWORD(p); p += 2;
+    }
+    result->nbItems = GET_WORD(p); p++;
+    result->x       = GET_WORD(p); p++;
+    result->y       = GET_WORD(p); p++;
+    result->cx      = GET_WORD(p); p++;
+    result->cy      = GET_WORD(p); p++;
+
+    /* Get the menu name */
+
+    switch(GET_WORD(p))
+    {
+    case 0x0000:
+        result->menuName = NULL;
+        p++;
+        break;
+    case 0xffff:
+        result->menuName = (LPCSTR)(UINT)GET_WORD( p + 1 );
+        p += 2;
+        break;
+    default:
+        result->menuName = (LPCSTR)p;
+        p += lstrlenW( (LPCWSTR)p ) + 1;
+        break;
+    }
+
+    /* Get the class name */
+    switch(GET_WORD(p))
+    {
+    case 0x0000:
+        result->className = (LPCSTR)DIALOG_CLASS_ATOM;
+        p++;
+        break;
+    case 0xffff:
+        result->className = (LPCSTR)(UINT)GET_WORD( p + 1 );
+        p += 2;
+        break;
+    default:
+        result->className = (LPCSTR)p;
+        p += lstrlenW( (LPCWSTR)p ) + 1;
+        break;
+    }
+
+    /* Get the window caption */
+
+    result->caption = (LPCSTR)p;
+    p += lstrlenW( (LPCWSTR)p ) + 1;
+
+    /* Get the font name */
+
+    if (result->style & DS_SETFONT)
+    {
+        result->pointSize = GET_WORD(p);
+        p++;
+        if (result->dialogEx)
+        {
+            result->weight = GET_WORD(p); p++;
+            result->italic = LOBYTE(GET_WORD(p)); p++;
+        }
+        else
+        {
+            result->weight = FW_DONTCARE;
+            result->italic = FALSE;
+        }
+        result->faceName = (LPCSTR)p;
+        p += lstrlenW( (LPCWSTR)p ) + 1;
+    }
+
+    /* First control is on dword boundary */
+    return (LPCSTR)((((int)p) + 3) & ~3);
+}
+/***********************************************************************
+ *           DIALOG_GetControl32
+ *
+ * Return the class and text of the control pointed to by ptr,
+ * fill the header structure and return a pointer to the next control.
+ */
+WORD *Win32Dialog::getControl(const WORD *p, DLG_CONTROL_INFO *info, BOOL dialogEx)
+{
+    if (dialogEx)
+    {
+        info->helpId  = GET_DWORD(p); p += 2;
+        info->exStyle = GET_DWORD(p); p += 2;
+        info->style   = GET_DWORD(p); p += 2;
+    }
+    else
+    {
+        info->helpId  = 0;
+        info->style   = GET_DWORD(p); p += 2;
+        info->exStyle = GET_DWORD(p); p += 2;
+    }
+    info->x       = GET_WORD(p); p++;
+    info->y       = GET_WORD(p); p++;
+    info->cx      = GET_WORD(p); p++;
+    info->cy      = GET_WORD(p); p++;
+
+    if (dialogEx)
+    {
+        /* id is a DWORD for DIALOGEX */
+        info->id = GET_DWORD(p);
+        p += 2;
+    }
+    else
+    {
+        info->id = GET_WORD(p);
+        p++;
+    }
+
+    if (GET_WORD(p) == 0xffff)
+    {
+        static const WCHAR class_names[6][10] =
+        {
+            { 'B','u','t','t','o','n', },             /* 0x80 */
+            { 'E','d','i','t', },                     /* 0x81 */
+            { 'S','t','a','t','i','c', },             /* 0x82 */
+            { 'L','i','s','t','B','o','x', },         /* 0x83 */
+            { 'S','c','r','o','l','l','B','a','r', }, /* 0x84 */
+            { 'C','o','m','b','o','B','o','x', }      /* 0x85 */
+        };
+        WORD id = GET_WORD(p+1);
+        if ((id >= 0x80) && (id <= 0x85))
+            info->className = (LPCSTR)class_names[id - 0x80];
+        else
+        {
+            info->className = NULL;
+            dprintf(("Unknown built-in class id %04x\n", id ));
+        }
+        p += 2;
+    }
+    else
+    {
+        info->className = (LPCSTR)p;
+        p += lstrlenW( (LPCWSTR)p ) + 1;
+    }
+
+    if (GET_WORD(p) == 0xffff)  /* Is it an integer id? */
+    {
+            info->windowName = (LPCSTR)(UINT)GET_WORD(p + 1);
+            p += 2;
+    }
+    else
+    {
+            info->windowName = (LPCSTR)p;
+        p += lstrlenW( (LPCWSTR)p ) + 1;
+    }
+
+    if (GET_WORD(p))
+    {
+        info->data = (LPVOID)(p + 1);
+        p += GET_WORD(p) / sizeof(WORD);
+    }
+    else info->data = NULL;
+    p++;
+
+    /* Next control is on dword boundary */
+    return (WORD *)((((int)p) + 3) & ~3);
+}
+
+
+/***********************************************************************
+ *           DIALOG_CreateControls
+ *
+ * Create the control windows for a dialog.
+ */
+BOOL Win32Dialog::createControls(LPCSTR dlgtemplate, HINSTANCE hInst)
+{
+    DLG_CONTROL_INFO info;
+    HWND hwndCtrl, hwndDefButton = 0;
+    INT items = dlgInfo.nbItems;
+
+    while (items--)
+    {
+        dlgtemplate = (LPCSTR)getControl( (WORD *)dlgtemplate, &info, dlgInfo.dialogEx );
+
+        hwndCtrl = CreateWindowExW( info.exStyle | WS_EX_NOPARENTNOTIFY,
+                                    (LPCWSTR)info.className,
+                                    (LPCWSTR)info.windowName,
+                                    info.style | WS_CHILD,
+                                    info.x * xUnit / 4,
+                                    info.y * yUnit / 8,
+                                    info.cx * xUnit / 4,
+                                    info.cy * yUnit / 8,
+                                    getWindowHandle(), (HMENU)info.id,
+                                    hInst, info.data );
+
+        if (!hwndCtrl) return FALSE;
+
+            /* Send initialisation messages to the control */
+        if (hUserFont) ::SendMessageA( hwndCtrl, WM_SETFONT, (WPARAM)hUserFont, 0 );
+
+        if (::SendMessageA(hwndCtrl, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)
+        {
+            /* If there's already a default push-button, set it back */
+            /* to normal and use this one instead. */
+            if (hwndDefButton)
+                ::SendMessageA( hwndDefButton, BM_SETSTYLE,
+                                BS_PUSHBUTTON,FALSE );
+            hwndDefButton = hwndCtrl;
+            idResult = ::GetWindowWord( hwndCtrl, GWW_ID );
+        }
+    }
+    return TRUE;
+}
+/***********************************************************************
+ *           DEFDLG_Proc
+ *
+ * Implementation of DefDlgProc(). Only handle messages that need special
+ * handling for dialogs.
+ */
+LRESULT Win32Dialog::DefDlg_Proc(UINT msg, WPARAM wParam, LPARAM lParam)
+{
+    switch(msg)
+    {
+    case WM_ERASEBKGND:
+    {
+      RECT rect;
+      int rc;
+        /*  Since WM_ERASEBKGND may receive either a window dc or a    */
+        /*  client dc, the area to be erased has to be retrieved from  */
+        /*  the device context.                    */
+        rc = GetClipBox( (HDC)wParam, &rect );
+        if ((rc == SIMPLEREGION) || (rc == COMPLEXREGION))
+            FillRect( (HDC)wParam, &rect, windowClass->getBackgroundBrush());
+            return 1;
+    }
+        case WM_NCDESTROY:
+              /* Free dialog heap (if created) */
+#if 0   
+            if (dlgInfo->hDialogHeap)
+            {
+                GlobalUnlock16(dlgInfo->hDialogHeap);
+                GlobalFree16(dlgInfo->hDialogHeap);
+                    dlgInfo->hDialogHeap = 0;
+            }
+#endif
+              /* Delete font */
+            if (hUserFont)
+            {
+                DeleteObject( hUserFont );
+                hUserFont = 0;
+            }
+
+              /* Delete menu */
+            if (hMenu)
+            {           
+                    DestroyMenu( hMenu );
+                    hMenu = 0;
+            }
+
+        /* Delete window procedure */
+        Win32DlgProc = 0;
+        dialogFlags |= DF_END;  /* just in case */
+
+              /* Window clean-up */
+            return DefWindowProcA(msg, wParam, lParam );
+
+        case WM_SHOWWINDOW:
+            if (!wParam) saveFocus();
+            return DefWindowProcA(msg, wParam, lParam );
+
+        case WM_ACTIVATE:
+            if (wParam) {
+                    restoreFocus();
+            }
+            else    saveFocus();
+            return 0;
+
+        case WM_SETFOCUS:
+            restoreFocus();
+            return 0;
+
+    case DM_SETDEFID:
+        if (dialogFlags & DF_END)
+            return 1;
+
+        setDefButton(wParam ? GetDlgItem( getWindowHandle(), wParam ) : 0 );
+        return 1;
+
+    case DM_GETDEFID:
+    {
+        HWND hwndDefId;
+        if (dialogFlags & DF_END) return 0;
+        if (idResult)
+            return MAKELONG( idResult, DC_HASDEFID );
+        if ((hwndDefId = findDefButton()))
+            return MAKELONG( GetDlgCtrlID( hwndDefId ), DC_HASDEFID);
+
+            return 0;
+    }
+
+        case WM_NEXTDLGCTL:
+        {
+        HWND hwndDest = (HWND)wParam;
+        if (!lParam)
+            hwndDest = GetNextDlgTabItem(getWindowHandle(), GetFocus(), wParam);
+        if (hwndDest) setFocus( hwndDest );
+        setDefButton( hwndDest );
+        return 0;
+    }
+
+    case WM_ENTERMENULOOP:
+    case WM_LBUTTONDOWN:
+    case WM_NCLBUTTONDOWN:
+    {
+        HWND hwndCurFocus = GetFocus();
+        if (hwndCurFocus)
+        {
+#if 0
+            WND *wnd = WIN_FindWndPtr( hwndFocus );
+
+            if( wnd )
+            {
+                /* always make combo box hide its listbox control */
+                if( WIDGETS_IsControl( wnd, BIC32_COMBO ) )
+                    SendMessageA( hwndFocus, CB_SHOWDROPDOWN, FALSE, 0 );
+                else
+                if( WIDGETS_IsControl( wnd, BIC32_EDIT ) &&
+                    WIDGETS_IsControl( wnd->parent, BIC32_COMBO ))
+                    SendMessageA(CB_SHOWDROPDOWN, FALSE, 0 );
+            }
+#endif
+        }
+            return DefWindowProcA( msg, wParam, lParam );
+    }
+
+        case WM_GETFONT:
+        return hUserFont;
+
+    case WM_CLOSE:
+        PostMessageA(WM_COMMAND, IDCANCEL, (LPARAM)GetDlgItem( getWindowHandle(), IDCANCEL ) );
+        return 0;
+
+    case WM_NOTIFYFORMAT:
+            return DefWindowProcA(msg, wParam, lParam );
+    }
+    return 0;
+}
+//******************************************************************************
+//******************************************************************************
+LRESULT Win32Dialog::DefDlgProcA(UINT Msg, WPARAM wParam, LPARAM lParam)
+{
+    BOOL result = FALSE;
+
+    msgResult = 0;
+
+    if (Win32DlgProc) {      /* Call dialog procedure */
+        result = Win32DlgProc(getWindowHandle(), Msg, wParam, lParam);
+    }
+
+    if (!result && IsWindow())
+    {
+        /* callback didn't process this message */
+        switch(Msg)
+        {
+            case WM_ERASEBKGND:
+            case WM_SHOWWINDOW:
+            case WM_ACTIVATE:
+            case WM_SETFOCUS:
+            case DM_SETDEFID:
+            case DM_GETDEFID:
+            case WM_NEXTDLGCTL:
+            case WM_GETFONT:
+            case WM_CLOSE:
+            case WM_NCDESTROY:
+            case WM_ENTERMENULOOP:
+            case WM_LBUTTONDOWN:
+            case WM_NCLBUTTONDOWN:
+                 return DefDlg_Proc(Msg, (WPARAM)wParam, lParam);
+
+            case WM_INITDIALOG:
+            case WM_VKEYTOITEM:
+            case WM_COMPAREITEM:
+            case WM_CHARTOITEM:
+                 break;
+
+            default:
+                 return DefWindowProcA(Msg, wParam, lParam );
+        }
+    }
+    return DefDlg_Epilog(Msg, result);
+}
+//******************************************************************************
+//******************************************************************************
+LRESULT Win32Dialog::DefDlgProcW(UINT Msg, WPARAM wParam, LPARAM lParam)
+{
+    BOOL result = FALSE;
+
+    msgResult = 0;
+
+    if (Win32DlgProc) {      /* Call dialog procedure */
+        result = Win32DlgProc(getWindowHandle(), Msg, wParam, lParam);
+    }
+
+    if (!result && IsWindow())
+    {
+        /* callback didn't process this message */
+        switch(Msg)
+        {
+            case WM_ERASEBKGND:
+            case WM_SHOWWINDOW:
+            case WM_ACTIVATE:
+            case WM_SETFOCUS:
+            case DM_SETDEFID:
+            case DM_GETDEFID:
+            case WM_NEXTDLGCTL:
+            case WM_GETFONT:
+            case WM_CLOSE:
+            case WM_NCDESTROY:
+            case WM_ENTERMENULOOP:
+            case WM_LBUTTONDOWN:
+            case WM_NCLBUTTONDOWN:
+                 return DefDlg_Proc(Msg, (WPARAM)wParam, lParam);
+
+            case WM_INITDIALOG:
+            case WM_VKEYTOITEM:
+            case WM_COMPAREITEM:
+            case WM_CHARTOITEM:
+                 break;
+
+            default:
+                 return DefWindowProcW(Msg, wParam, lParam );
+        }
+    }
+    return DefDlg_Epilog(Msg, result);
+}
+/***********************************************************************
+ *           DEFDLG_Epilog
+ */
+LRESULT Win32Dialog::DefDlg_Epilog(UINT msg, BOOL fResult)
+{
+    /* see SDK 3.1 */
+    if ((msg >= WM_CTLCOLORMSGBOX && msg <= WM_CTLCOLORSTATIC) ||
+             msg == WM_CTLCOLOR || msg == WM_COMPAREITEM ||
+         msg == WM_VKEYTOITEM || msg == WM_CHARTOITEM ||
+         msg == WM_QUERYDRAGICON || msg == WM_INITDIALOG)
+        return fResult;
+
+    return msgResult;
+}
+/***********************************************************************
+ *           DEFDLG_SetFocus
+ *
+ * Set the focus to a control of the dialog, selecting the text if
+ * the control is an edit dialog.
+ */
+void Win32Dialog::setFocus(HWND hwndCtrl )
+{
+    HWND hwndPrev = GetFocus();
+
+    if (IsChild( hwndPrev ))
+    {
+        if (::SendMessageA( hwndPrev, WM_GETDLGCODE, 0, 0 ) & DLGC_HASSETSEL)
+            ::SendMessageA( hwndPrev, EM_SETSEL, TRUE, MAKELONG( -1, 0 ) );
+    }
+    if (::SendMessageA(hwndCtrl, WM_GETDLGCODE, 0, 0 ) & DLGC_HASSETSEL)
+        ::SendMessageA(hwndCtrl, EM_SETSEL, FALSE, MAKELONG( 0, -1 ) );
+    SetFocus( hwndCtrl );
+}
+
+
+/***********************************************************************
+ *           DEFDLG_SaveFocus
+ */
+BOOL Win32Dialog::saveFocus()
+{
+    HWND hwndCurrentFocus = GetFocus();
+
+    if (!hwndCurrentFocus || !IsChild( hwndCurrentFocus )) return FALSE;
+
+    hwndFocus = hwndCurrentFocus;
+      /* Remove default button */
+    return TRUE;
+}
+
+
+/***********************************************************************
+ *           DEFDLG_RestoreFocus
+ */
+BOOL Win32Dialog::restoreFocus()
+{
+    if (!hwndFocus || IsIconic()) return FALSE;
+
+    if (!::IsWindow( hwndFocus )) return FALSE;
+
+    /* Don't set the focus back to controls if EndDialog is already called.*/
+    if (!(dialogFlags & DF_END))
+       setFocus(hwndFocus);
+
+    /* This used to set infoPtr->hwndFocus to NULL for no apparent reason,
+       sometimes losing focus when receiving WM_SETFOCUS messages. */
+    return TRUE;
+}
+
+
+/***********************************************************************
+ *           DEFDLG_FindDefButton
+ *
+ * Find the current default push-button.
+ */
+HWND Win32Dialog::findDefButton()
+{
+    HWND hwndChild = GetWindow( GW_CHILD );
+    while (hwndChild)
+    {
+        if (::SendMessageA( hwndChild, WM_GETDLGCODE, 0, 0 ) & DLGC_DEFPUSHBUTTON)
+            break;
+        hwndChild = ::GetWindow( hwndChild, GW_HWNDNEXT );
+    }
+    return hwndChild;
+}
+
+
+/***********************************************************************
+ *           DEFDLG_SetDefButton
+ *
+ * Set the new default button to be hwndNew.
+ */
+BOOL Win32Dialog::setDefButton(HWND hwndNew )
+{
+    if (hwndNew &&
+        !(::SendMessageA(hwndNew, WM_GETDLGCODE, 0, 0 ) & DLGC_UNDEFPUSHBUTTON))
+        return FALSE;  /* Destination is not a push button */
+
+    if (idResult)  /* There's already a default pushbutton */
+    {
+        HWND hwndOld = GetDlgItem( getWindowHandle(), idResult );
+        if (::SendMessageA( hwndOld, WM_GETDLGCODE, 0, 0) & DLGC_DEFPUSHBUTTON)
+            ::SendMessageA( hwndOld, BM_SETSTYLE, BS_PUSHBUTTON, TRUE );
+    }
+    if (hwndNew)
+    {
+        ::SendMessageA( hwndNew, BM_SETSTYLE, BS_DEFPUSHBUTTON, TRUE );
+        idResult = GetDlgCtrlID( hwndNew );
+    }
+    else idResult = 0;
+    return TRUE;
 }
 //******************************************************************************
@@ -76 +891 @@
 //******************************************************************************
 //******************************************************************************
+BOOL DIALOG_Register()
+{
+    WNDCLASSA wndClass;
+
+    if (GlobalFindAtomA(DIALOG_CLASS_NAME)) return FALSE;
+
+    ZeroMemory(&wndClass,sizeof(WNDCLASSA));
+    wndClass.style         = CS_GLOBALCLASS | CS_SAVEBITS;
+    wndClass.lpfnWndProc   = (WNDPROC)DefDlgProcA;
+    wndClass.cbClsExtra    = 0;
+    wndClass.cbWndExtra    = 0;
+    wndClass.hCursor       = (HCURSOR)IDC_ARROWA;
+    wndClass.hbrBackground = LTGRAY_BRUSH;
+    wndClass.lpszClassName = DIALOG_CLASS_NAME;
+
+    return RegisterClassA(&wndClass);
+}
+//******************************************************************************
+//******************************************************************************
+BOOL DIALOG_Unregister()
+{
+    if (GlobalFindAtomA(DIALOG_CLASS_NAME))
+            return UnregisterClassA(DIALOG_CLASS_NAME,(HINSTANCE)NULL);
+    else    return FALSE;
+}
+//******************************************************************************
+//******************************************************************************
+BOOL Win32Dialog::fInitialized = FALSE;
+int  Win32Dialog::xBaseUnit    = 0;
+int  Win32Dialog::yBaseUnit    = 0;