]> git.saurik.com Git - wxWidgets.git/blobdiff - src/os2/gauge.cpp
No res-include for rpmspec wx24dsp
[wxWidgets.git] / src / os2 / gauge.cpp
index d8185a69d90b4dc6a9f03d949c73fce3dad32e33..3ad621de7393ce08c5d3fea0de7086f024c7d79a 100644 (file)
 #ifndef WX_PRECOMP
 #include "wx/defs.h"
 #include "wx/utils.h"
 #ifndef WX_PRECOMP
 #include "wx/defs.h"
 #include "wx/utils.h"
+#include "wx/scrolwin.h"
 #endif
 
 #include "wx/os2/private.h"
 #include "wx/gauge.h"
 
 #endif
 
 #include "wx/os2/private.h"
 #include "wx/gauge.h"
 
-/* gas gauge graph control messages--class "zYzGauge" */
-#define ZYZG_SETRANGE       (WM_USER + 0)
-#define ZYZG_GETRANGE       (WM_USER + 1)
-#define ZYZG_SETPOSITION    (WM_USER + 2)
-#define ZYZG_GETPOSITION    (WM_USER + 3)
-#define ZYZG_SETORIENTATION (WM_USER + 4)
-#define ZYZG_GETORIENTATION (WM_USER + 5)
-#define ZYZG_SETFGCOLOR     (WM_USER + 6)
-#define ZYZG_GETFGCOLOR     (WM_USER + 7)
-#define ZYZG_SETBKCOLOR     (WM_USER + 8)
-#define ZYZG_GETBKCOLOR     (WM_USER + 9)
-#define ZYZG_SETWIDTH3D     (WM_USER + 10)
-#define ZYZG_GETWIDTH3D     (WM_USER + 11)
-#define ZYZG_SETBEZELFACE   (WM_USER + 12)
-#define ZYZG_GETBEZELFACE   (WM_USER + 13)
-#define ZYZG_SETDELTAPOS    (WM_USER + 14)
+static WXFARPROC fnWndProcGauge = (WXFARPROC)NULL;
+extern void  wxAssociateWinWithHandle( HWND         hWnd
+                                      ,wxWindowOS2* pWin
+                                     );
 
 
-/* orientations for ZYZG_WW_ORIENTATION */
-#define ZYZG_ORIENT_LEFTTORIGHT     0
-#define ZYZG_ORIENT_RIGHTTOLEFT     1
-#define ZYZG_ORIENT_BOTTOMTOTOP     2
-#define ZYZG_ORIENT_TOPTOBOTTOM     3
-
-/* gauge styles */
-#define ZYZGS_3D        0x8000L     /* control will be 3D       */
-
-/* public function prototypes */
-// BOOL _Optlink gaugeInit(HINSTANCE hInstance);
-
-#if !USE_SHARED_LIBRARY
 IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)
 IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)
-#endif
 
 
-bool wxGauge::Create(wxWindow *parent, wxWindowID id,
-           int range,
-           const wxPoint& pos,
-           const wxSize& size,
-           long style,
-#if wxUSE_VALIDATORS
-           const wxValidator& validator,
-#endif
-           const wxString& name)
+MRESULT EXPENTRY wxGaugeWndProc(
+  HWND                              hWnd
+, UINT                              uMessage
+, MPARAM                            wParam
+, MPARAM                            lParam
+)
 {
 {
-    static bool wxGaugeOS2Initialised = FALSE;
-
-    if ( !wxGaugeOS2Initialised )
+    wxGauge*                        pGauge = (wxGauge *)::WinQueryWindowULong( hWnd
+                                                                              ,QWL_USER
+                                                                             );
+    HPS                             hPS;
+    RECTL                           vRect;
+    RECTL                           vRect2;
+    RECTL                           vRect3;
+    double                          dPixelToRange = 0.0;
+    double                          dRange = 0.0;
+
+    switch (uMessage )
     {
     {
-//TODO:
-/*
-      if (!gaugeInit((HINSTANCE) wxGetInstance()))
-          wxFatalError("Cannot initalize Gauge library");
-*/
-      wxGaugeOS2Initialised = TRUE;
+        case WM_PAINT:
+            hPS = ::WinBeginPaint( hWnd
+                                  ,NULLHANDLE
+                                  ,&vRect
+                                 );
+            if(hPS)
+            {
+                ::WinQueryWindowRect(hWnd, &vRect);
+                ::GpiCreateLogColorTable( hPS
+                                         ,0L
+                                         ,LCOLF_CONSECRGB
+                                         ,0L
+                                         ,(LONG)wxTheColourDatabase->m_nSize
+                                         ,(PLONG)wxTheColourDatabase->m_palTable
+                                        );
+                ::GpiCreateLogColorTable( hPS
+                                         ,0L
+                                         ,LCOLF_RGB
+                                         ,0L
+                                         ,0L
+                                         ,NULL
+                                        );
+                //
+                // Draw the guage box
+                //
+                LONG                lColor = 0x00FFFFFF; // White
+                POINTL              vPoint = {vRect.xLeft + 1, vRect.yBottom + 1};
+
+                ::GpiSetColor(hPS, lColor);
+                ::GpiMove(hPS, &vPoint);
+                vPoint.x = vRect.xRight - 1;
+                ::GpiLine(hPS, &vPoint);
+                vPoint.y = vRect.yTop - 1;
+                ::GpiLine(hPS, &vPoint);
+                lColor = 0x000C0C0C; // Darkish Grey to give depth feel
+                ::GpiSetColor(hPS, lColor);
+                vPoint.x = vRect.xLeft + 1;
+                ::GpiLine(hPS, &vPoint);
+                vPoint.y = vRect.yBottom + 1;
+                ::GpiLine(hPS, &vPoint);
+                vRect3.xLeft   = vRect.xLeft + 2;
+                vRect3.xRight  = vRect.xRight - 2;
+                vRect3.yTop    = vRect.yTop - 2;
+                vRect3.yBottom = vRect.yBottom + 2;
+
+                if (pGauge->GetWindowStyleFlag() & wxGA_VERTICAL)
+                {
+                    dRange = (double)(vRect3.yTop - vRect3.yBottom);
+                    dPixelToRange  = dRange/(double)pGauge->GetRange();
+                    vRect2.yTop    = (int)(pGauge->GetValue() * dPixelToRange);
+                    vRect2.yBottom = vRect3.yBottom;
+                    vRect2.xLeft   = vRect3.xLeft;
+                    vRect2.xRight  = vRect3.xRight;
+                    vRect3.yBottom  = vRect2.yTop;
+                    if (vRect3.yBottom <= 1)
+                         vRect3.yBottom = 2;
+                    ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
+                    ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
+                }
+                else
+                {
+                    dRange = (double)(vRect3.xRight - vRect3.xLeft);
+                    dPixelToRange  = dRange/(double)pGauge->GetRange();
+                    vRect2.yTop    = vRect3.yTop;
+                    vRect2.yBottom = vRect3.yBottom;
+                    vRect2.xLeft   = vRect3.xLeft;
+                    vRect2.xRight  = (int)(pGauge->GetValue() * dPixelToRange);
+                    vRect3.xLeft = vRect2.xRight;
+                    if (vRect3.xLeft <= 1)
+                        vRect3.xLeft = 2;
+                    ::WinFillRect(hPS, &vRect3,  pGauge->GetBackgroundColour().GetPixel());
+                    ::WinFillRect(hPS, &vRect2, pGauge->GetForegroundColour().GetPixel());
+                }
+                ::WinEndPaint(hPS);
+            }
     }
     }
-
-    SetName(name);
+    return (fnWndProcGauge( hWnd
+                           ,(ULONG)uMessage
+                           ,(MPARAM)wParam
+                           ,(MPARAM)lParam
+                          )
+           );
+} // end of wxGaugeWndProc
+
+bool wxGauge::Create(
+  wxWindowOS2*                      pParent
+, wxWindowID                        vId
+, int                               nRange
+, const wxPoint&                    rPos
+, const wxSize&                     rSize
+, long                              lStyle
+, const wxValidator&                rValidator
+, const wxString&                   rsName
+)
+{
+    int                             nX       = rPos.x;
+    int                             nY       = rPos.y;
+    int                             nWidth   = rSize.x;
+    int                             nHeight  = rSize.y;
+    long                            lMsStyle = 0L;
+    SWP                             vSwp;
+
+    SetName(rsName);
 #if wxUSE_VALIDATORS
 #if wxUSE_VALIDATORS
-    SetValidator(validator);
+    SetValidator(rValidator);
 #endif
 #endif
-    if (parent) parent->AddChild(this);
-    m_rangeMax = range;
-    m_gaugePos = 0;
+    if (pParent)
+        pParent->AddChild(this);
+    m_backgroundColour.Set(wxString("LIGHT GREY"));
+    m_foregroundColour.Set(wxString("NAVY"));
 
 
-    m_windowStyle = style;
+    m_nRangeMax   = nRange;
+    m_nGaugePos   = 0;
+    m_windowStyle = lStyle;
 
 
-    if ( id == -1 )
-       m_windowId = (int)NewControlId();
+    if (vId == -1)
+        m_windowId = (int)NewControlId();
     else
     else
-       m_windowId = id;
-
-    int x = pos.x;
-    int y = pos.y;
-    int width = size.x;
-    int height = size.y;
-
-    // TODO
-/*
-  int x = pos.x;
-  int y = pos.y;
-  int width = size.x;
-  int height = size.y;
-
-  long msFlags = WS_CHILD | WS_VISIBLE | WS_TABSTOP;
-  msFlags |= ZYZGS_3D;
-
-  HWND wx_button =
-      CreateWindowEx(MakeExtendedStyle(m_windowStyle), wxT("zYzGauge"), NULL, msFlags,
-                    0, 0, 0, 0, (HWND) parent->GetHWND(), (HMENU)m_windowId,
-                    wxGetInstance(), NULL);
-
-  m_hWnd = (WXHWND)wx_button;
-
-  // Subclass again for purposes of dialog editing mode
-  SubclassWin((WXHWND)wx_button);
-
-  int wOrient = 0;
-
-  if (m_windowStyle & wxGA_HORIZONTAL)
-    wOrient = ZYZG_ORIENT_LEFTTORIGHT;
-  else
-    wOrient = ZYZG_ORIENT_BOTTOMTOTOP;
-
-  SendMessage(wx_button, ZYZG_SETORIENTATION, wOrient, 0);
-  SendMessage(wx_button, ZYZG_SETRANGE, range, 0);
-
-  SendMessage(GetHwnd(), ZYZG_SETFGCOLOR, 0, RGB(GetForegroundColour().Red(), GetForegroundColour().Green(), GetForegroundColour().Blue()));
-  SendMessage(GetHwnd(), ZYZG_SETBKCOLOR, 0, RGB(GetBackgroundColour().Red(), GetBackgroundColour().Green(), GetBackgroundColour().Blue()));
-
-  SetFont(parent->GetFont());
-
-  if (width == -1)
-    width = 50;
-  if (height == -1)
-    height = 50;
-  SetSize(x, y, width, height);
-
-  ShowWindow(GetHwnd(), SW_SHOW);
-*/
-  return TRUE;
-}
-
-void wxGauge::SetShadowWidth(int w)
-{
-    // TODO optional ::SendMessage(GetHwnd(), ZYZG_SETWIDTH3D, w, 0);
-}
-
-void wxGauge::SetBezelFace(int w)
-{
-    // TODO optional  ::SendMessage(GetHwnd(), ZYZG_SETBEZELFACE, w, 0);
-}
+        m_windowId = vId;
+
+    if (m_windowStyle & wxCLIP_SIBLINGS )
+        lMsStyle |= WS_CLIPSIBLINGS;
+
+    //
+    // OS/2 will use an edit control for this, since there is not a native gauge
+    // Other choices include using an armless slider but they are more difficult
+    // to control and manipulate
+    //
+
+    lMsStyle = WS_VISIBLE | ES_MARGIN | ES_LEFT | ES_READONLY;
+    if (m_windowStyle & wxCLIP_SIBLINGS)
+        lMsStyle |= WS_CLIPSIBLINGS;
+
+    m_hWnd = (WXHWND)::WinCreateWindow( (HWND)GetHwndOf(pParent) // Parent window handle
+                                       ,WC_ENTRYFIELD            // Window class
+                                       ,(PSZ)NULL                // Initial Text
+                                       ,(ULONG)lMsStyle          // Style flags
+                                       ,0L, 0L, 0L, 0L           // Origin -- 0 size
+                                       ,(HWND)GetHwndOf(pParent) // owner window handle (same as parent
+                                       ,HWND_TOP                 // initial z position
+                                       ,(HMENU)m_windowId        // Window identifier
+                                       ,NULL                     // Slider control data
+                                       ,NULL                     // no Presentation parameters
+                                      );
+
+    wxAssociateWinWithHandle( m_hWnd
+                             ,(wxWindowOS2*)this
+                            );
+    ::WinSetWindowULong(GetHwnd(), QWL_USER, (LONG)this);
+    fnWndProcGauge = (WXFARPROC)::WinSubclassWindow(m_hWnd, (PFNWP)wxGaugeWndProc);
+    ::WinQueryWindowPos(m_hWnd, &vSwp);
+    SetXComp(vSwp.x);
+    SetYComp(vSwp.y);
+    wxFont*                          pTextFont = new wxFont( 10
+                                                            ,wxMODERN
+                                                            ,wxNORMAL
+                                                            ,wxNORMAL
+                                                           );
+    SetFont(*pTextFont);
+    if (nWidth == -1L)
+        nWidth = 50L;
+    if (nHeight == -1L)
+        nHeight = 28L;
+    SetSize( nX
+            ,nY
+            ,nWidth
+            ,nHeight
+           );
+    ::WinShowWindow((HWND)GetHWND(), TRUE);
+    delete pTextFont;
+    return TRUE;
+} // end of wxGauge::Create
 
 
-void wxGauge::SetRange(int r)
+int wxGauge::GetBezelFace() const
 {
 {
-    m_rangeMax = r;
-    // TODO ::SendMessage(GetHwnd(), ZYZG_SETRANGE, r, 0);
-}
+    return 0;
+} // end of wxGauge::GetBezelFace
 
 
-void wxGauge::SetValue(int pos)
+int wxGauge::GetRange() const
 {
 {
-    m_gaugePos = pos;
-    // TODO ::SendMessage(GetHwnd(), ZYZG_SETPOSITION, pos, 0);
-}
+    return m_nRangeMax;
+} // end of wxGauge::GetRange
 
 int wxGauge::GetShadowWidth() const
 {
 
 int wxGauge::GetShadowWidth() const
 {
-    // TODO return (int) ::SendMessage(GetHwnd(), ZYZG_GETWIDTH3D, 0, 0);
     return 0;
     return 0;
-}
-
-int wxGauge::GetBezelFace() const
-{
-    // TODO return (int) ::SendMessage(GetHwnd(), ZYZG_GETBEZELFACE, 0, 0);
-    return 0;
-}
-
-int wxGauge::GetRange() const
-{
-    // TODO return (int) ::SendMessage(GetHwnd(), ZYZG_GETRANGE, 0, 0);
-    return m_rangeMax;
-}
+} // end of wxGauge::GetShadowWidth
 
 int wxGauge::GetValue() const
 {
 
 int wxGauge::GetValue() const
 {
-    // TODO return (int) ::SendMessage(GetHwnd(), ZYZG_GETPOSITION, 0, 0);
-    return m_gaugePos;
-}
+    return m_nGaugePos;
+} // end of wxGauge::GetValue
 
 
-bool wxGauge::SetForegroundColour(const wxColour& col)
+bool wxGauge::SetBackgroundColour(
+  const wxColour&                   rColour
+)
 {
 {
-    if ( !wxControl::SetForegroundColour(col) )
+    if (!wxControl::SetBackgroundColour(rColour))
         return FALSE;
 
         return FALSE;
 
-    // TODO ::SendMessage(GetHwnd(), ZYZG_SETFGCOLOR, 0, RGB(col.Red(), col.Green(), col.Blue()));
+    LONG                            lColor = (LONG)rColour.GetPixel();
 
 
+    ::WinSetPresParam( GetHwnd()
+                      ,PP_BACKGROUNDCOLOR
+                      ,sizeof(LONG)
+                      ,(PVOID)&lColor
+                     );
     return TRUE;
     return TRUE;
-}
+} // end of wxGauge::SetBackgroundColour
 
 
-bool wxGauge::SetBackgroundColour(const wxColour& col)
+void wxGauge::SetBezelFace(
+  int                               WXUNUSED(nWidth)
+)
 {
 {
-    if ( !wxControl::SetBackgroundColour(col) )
-        return FALSE;
-
-    // TODO ::SendMessage(GetHwnd(), ZYZG_SETBKCOLOR, 0, RGB(col.Red(), col.Green(), col.Blue()));
-
-    return TRUE;
-}
-
-///** zyz3d.c
-// *
-// *  DESCRIPTION:
-// *      This module contains functions for creating nifty 3D borders
-// *      around controls like zYzGauge.
-// *
-// *  HISTORY:
-// *      3/14/91     cjp     put in this comment
-// *      6/19/92     cjp     touched it a bit
-// *
-// ** cjp */
-// COPYRIGHT:
-//
-//   (C) Copyright Microsoft Corp. 1992.  All rights reserved.
-//
-//   You have a royalty-free right to use, modify, reproduce and
-//   distribute the Sample Files (and/or any modified version) in
-//   any way you find useful, provided that you agree that
-//   Microsoft has no warranty obligations or liability for any
-//   Sample Application Files which are modified.
-//
-
-
-///* get the includes we need */
-//#define INCL_PM
-//#include <os2.h>
-
-///* misc. control flag defines */
-//#define DRAW3D_IN           0x0001
-//#define DRAW3D_OUT          0x0002
-
-//#define DRAW3D_TOPLINE      0x0004
-//#define DRAW3D_BOTTOMLINE   0x0008
-//#define DRAW3D_LEFTLINE     0x0010
-//#define DRAW3D_RIGHTLINE    0x0020
-
-
-///* public function prototypes */
-//void _Optlink Draw3DFaceFrame(HDC, LPRECT, WORD);
-//void _Optlink Draw3DRect(HDC, LPRECT, WORD, WORD);
-//void _Optlink Draw3DLine(HDC, WORD, WORD, WORD, WORD, WORD);
-
-
-///** void _Optlink Draw3DFaceFrame(HDC hdc, LPRECT rc, WORD wWidth)
-// *
-// *  DESCRIPTION:
-// *      This function draws a flat frame with the current button-face
-// *      color.
-// *
-// *  ARGUMENTS:
-// *      HDC hdc     :   The DC to draw into.
-// *
-// *      LPRECT rc   :   The containing rect for the new frame.
-// *
-// *      WORD wWidth :   The width of the frame to draw.
-// *
-// *  RETURN (void _Optlink):
-// *      The frame will have been drawn into the DC.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-//void _Optlink Draw3DFaceFrame(HDC hdc, RECTL* rc, WORD wWidth)
-//{
-//    RECTL   rc1;
-//    DWORD   rgbOld;
-
-//    /* don't go through a bunch of work if we don't have to */
-//    if (!wWidth)
-//        return;
-
-//    /* set up color to be button-face color--so it may not be gray */
-//    rgbOld = SetBkColor(hdc, GetSysColor(COLOR_BTNFACE));
-
-//    /* perform CopyRect w/o bloody windows style overhead */
-//    rc1 = *rc;
-
-    /* top */
-//    rc1.top = rc->top;
-//    rc1.left = rc->left;
-//    rc1.bottom = rc->top + wWidth;
-//    rc1.right = rc->right;
-
-    /* blast it out */
-//    ExtTextOut(hdc, rc1.left, rc1.top, ETO_OPAQUE, &rc1, NULL, 0, NULL);
-
-    /* right */
-//    rc1.left = rc->right - wWidth;
-//    rc1.bottom = rc->bottom;
-
-    /* blast this part now */
-//    ExtTextOut(hdc, rc1.left, rc1.top, ETO_OPAQUE, &rc1, NULL, 0, NULL);
-
-    /* left */
-//    rc1.left = rc->left;
-//    rc1.right = rc->left + wWidth;
-
-    /* and another part */
-//    ExtTextOut(hdc, rc1.left, rc1.top, ETO_OPAQUE, &rc1, NULL, 0, NULL);
-
-    /* bottom */
-//    rc1.right = rc->right;
-//    rc1.top = rc->bottom - wWidth;
-
-    /* finish it off */
-//    ExtTextOut(hdc, rc1.left, rc1.top, ETO_OPAQUE, &rc1, NULL, 0, NULL);
-
-    /* restore the old bk color */
-//    SetBkColor(hdc, rgbOld);
-//} /* Draw3DFaceFrame() */
-
-
-///** void _Optlink Draw3DRect(HDC, LPRECT, WORD, WORD)
-// *
-// *  DESCRIPTION:
-// *      Draws a 3D rectangle that is shaded.  wFlags can be used to
-// *      control how the rectangle looks.
-// *
-// *  ARGUMENTS:
-// *      HDC hdc             :   Handle to the device context that will be
-// *                              used to display the rectangle.
-// *
-// *      RECT rect           :   A rectangle describing the dimensions of
-// *                              the rectangle in device coordinates.
-// *
-// *      WORD wShadowWidth   :   Width of the shadow in device coordinates.
-// *
-// *      WORD wFlags         :   The following flags may be passed to describe
-// *                              the style of the rectangle:
-// *
-// *                              DRAW3D_IN   :   The shadow is drawn such that
-// *                              the box appears to be sunk in to the screen.
-// *                              This is default if 0 is passed.
-// *
-// *                              DRAW3D_OUT  :   The shadow is drawn such that
-// *                              the box appears to be sticking out of the
-// *                              screen.
-// *
-// *  RETURN (void _Optlink):
-// *      The 3D looking rectangle will have been drawn into the DC.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-//void _Optlink Draw3DRect(HDC hdc, LPRECT lpRect,
-//                               WORD wShadowWidth, WORD wFlags)
-//{
-//    /* sanity check--don't work if you don't have to! */
-//    if (!wShadowWidth || !RectVisible(hdc, lpRect))
-//        return;
-
-    /* draw the top line */
-//    Draw3DLine(hdc, lpRect->left, lpRect->top,
-//                    lpRect->right - lpRect->left,
-//                    wShadowWidth, DRAW3D_TOPLINE | wFlags);
-
-    /* right line */
-//    Draw3DLine(hdc, lpRect->right, lpRect->top,
-//                    lpRect->bottom - lpRect->top,
-//                    wShadowWidth, DRAW3D_RIGHTLINE | wFlags);
-
-    /* bottom line */
-//    Draw3DLine(hdc, lpRect->left, lpRect->bottom,
-//                    lpRect->right - lpRect->left,
-//                    wShadowWidth, DRAW3D_BOTTOMLINE | wFlags);
-
-    /* left line */
-//    Draw3DLine(hdc, lpRect->left, lpRect->top,
-//                    lpRect->bottom - lpRect->top,
-//                    wShadowWidth, DRAW3D_LEFTLINE | wFlags);
-//} /* Draw3DRect() */
-
-
-///** void _Optlink Draw3DLine(HDC hdc, WORD x, WORD y, WORD nLen,
-// *
-// *  DESCRIPTION:
-// *      Draws a 3D line that can be used to make a 3D box.
-// *
-// *  ARGUMENTS:
-// *      HDC hdc             :   Handle to the device context that will be
-// *                              used to display the 3D line.
-// *
-// *      WORD x, y           :   Coordinates of the beginning of the line.
-// *                              These coordinates are in device units and
-// *                              represent the _outside_ most point. Horiz-
-// *                              ontal lines are drawn from left to right and
-// *                              vertical lines are drawn from top to bottom.
-// *
-// *      WORD wShadowWidth   :   Width of the shadow in device coordinates.
-// *
-// *      WORD  wFlags        :   The following flags may be passed to
-// *                              describe the style of the 3D line:
-// *
-// *                              DRAW3D_IN   :   The shadow is drawn such that
-// *                              the box appears to be sunk in to the screen.
-// *                              This is default if 0 is passed.
-// *
-// *                              DRAW3D_OUT  :   The shadow is drawn such that
-// *                              the box appears to be sticking out of the
-// *                              screen.
-// *
-// *                              DRAW3D_TOPLINE, _BOTTOMLINE, _LEFTLINE, and
-// *                              _RIGHTLINE  :   Specifies that a "top",
-// *                              "Bottom", "Left", or"Right" line is to be
-// *                              drawn.
-// *
-// *  RETURN (void _Optlink):
-// *      The line will have been drawn into the DC.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-//void _Optlink Draw3DLine(HDC hdc, WORD x, WORD y, WORD nLen,
-//                               WORD wShadowWidth, WORD wFlags)
-//{
-//    HBRUSH  hOldBrush;
-//    HPEN    hOldPen;
-//    BOOL    fDark;
-//    POINT   Point[ 4 ];         /* define a polgon with 4 points    */
-
-//    /* if width is zero, don't do nothin'! */
-//    if (!wShadowWidth)
-//        return;
-
-    /* define shape of polygon--origin is always the same */
-//    Point[0].x = x;
-//    Point[0].y = y;
-
-//    /*  To do this we'll simply draw a polygon with four sides, using
-//     *  the appropriate brush.  I dare you to ask me why this isn't a
-//     *  switch/case!
-//     */
-//    if (wFlags & DRAW3D_TOPLINE)
-//    {
-//        /* across to right */
-//        Point[1].x = x + nLen - (wShadowWidth == 1 ? 1 : 0);
-//        Point[1].y = y;
-
-        /* down/left */
-//        Point[2].x = x + nLen - wShadowWidth;
-//        Point[2].y = y + wShadowWidth;
-
-        /* accross to left */
-//        Point[3].x = x + wShadowWidth;
-//        Point[3].y = y + wShadowWidth;
-
-        /* select 'dark' brush if 'in'--'light' for 'out' */
-//        fDark = (wFlags & DRAW3D_IN) ? TRUE : FALSE;
-//    }
-
-    /* possibly the bottom? */
-//    else if (wFlags & DRAW3D_BOTTOMLINE)
-//    {
-        /* across to right */
-//        Point[1].x = x + nLen;
-//        Point[1].y = y;
-
-        /* up/left */
-//        Point[2].x = x + nLen - wShadowWidth;
-//        Point[2].y = y - wShadowWidth;
-
-        /* accross to left */
-//        Point[3].x = x + wShadowWidth;
-//        Point[3].y = y - wShadowWidth;
-
-        /* select 'light' brush if 'in' */
-//        fDark = (wFlags & DRAW3D_IN) ? FALSE : TRUE;
-//    }
-
-    /* ok, it's gotta be left? */
-//    else if (wFlags & DRAW3D_LEFTLINE)
-//    {
-        /* down */
-//        Point[1].x = x;
-//        Point[1].y = y + nLen - (wShadowWidth == 1 ? 1 : 0);
-
-        /* up/right */
-//        Point[2].x = x + wShadowWidth;
-//        Point[2].y = y + nLen - wShadowWidth;
-
-        /* down */
-//        Point[3].x = x + wShadowWidth;
-//        Point[3].y = y + wShadowWidth;
-
-        /* select 'dark' brush if 'in'--'light' for 'out' */
-//        fDark = (wFlags & DRAW3D_IN) ? TRUE : FALSE;
-//    }
-
-    /* well maybe it's for the right side? */
-//    else if (wFlags & DRAW3D_RIGHTLINE)
-//    {
-        /* down */
-//        Point[1].x = x;
-//        Point[1].y = y + nLen;
-
-        /* up/left */
-//        Point[2].x = x - wShadowWidth;
-//        Point[2].y = y + nLen - wShadowWidth;
-
-        /* up */
-//        Point[3].x = x - wShadowWidth;
-//        Point[3].y = y + wShadowWidth;
-
-        /* select 'light' brush if 'in' */
-//        fDark = (wFlags & DRAW3D_IN) ? FALSE : TRUE;
-//    }
-
-    /* bad drugs? */
-//    else return;
-
-    /* select NULL_PEN for no borders */
-//    hOldPen = (HPEN) SelectObject(hdc, GetStockObject(NULL_PEN));
-
-    /* select the appropriate color for the fill */
-//    if (fDark)
-//        hOldBrush = (HBRUSH) SelectObject(hdc, GetStockObject(GRAY_BRUSH));
-//    else
-//        hOldBrush = (HBRUSH) SelectObject(hdc, GetStockObject(WHITE_BRUSH));
-
-    /* finally, draw the dern thing */
-//    Polygon(hdc, (LPPOINT)&Point, 4);
-
-    /* restore what we killed */
-//    SelectObject(hdc, hOldBrush);
-//    SelectObject(hdc, hOldPen);
-//} /* Draw3DLine() */
-
-/** EOF: zyz3d.c **/
-
-///** zyzgauge.c
-// *
-// *  DESCRIPTION:
-// *      Yet another 'Gas Gauge Custom Control.'  This control gives you
-// *      a 'progress bar' class (named zYzGauge) for use in your applications.
-// *      You can set the range, position, font, color, orientation, and 3d
-// *      effect of the gauge by sending messages to the control.
-// *
-// *      Before you can use this control, you MUST first export the window
-// *      procedure for the control (or define it with the _export keyword):
-// *
-// *          EXPORTS     gaugeWndProc
-// *
-// *      You then need initialize the class before you use it:
-// *
-// *          if (!gaugeInit(hInstance))
-// *              die a horrible death
-// *          else
-// *              you are good to go
-// *
-// *      The colors used by the control default to black and white if you
-// *      are running on a mono-display.  They default to blue and white
-// *      if you are on a color display.  You enable the 3D effect by setting
-// *      the ZYZGS_3D style flag in the styles field of the control (like
-// *      any other control).
-// *
-// *      To select your own colors, you can send the ZYZG_SETFGCOLOR and
-// *      ZYZG_SETBKCOLOR messages to set the foreground (percent done) and
-// *      background (percent not done) colors.  The lParam is the RGB()
-// *      value--wParam is ignored.
-// *
-// *      In all of the following ZYZG_??? messages, the arguments are
-// *      WORDS.  If you are setting parameters, the value is sent as
-// *      the wParam (lParam is ignored).  If you are getting parameters,
-// *      the value is returned as a LONG and should be cast to a *signed*
-// *      integer.
-// *
-// *      To set the depth of the 3D effect (if enabled), you can send the
-// *      ZYZG_SETBEZELFACE and ZYZG_SETWIDTH3D messages.  The bezel face
-// *      is the flat top on the 3D border--its color will be that of the
-// *      button-face.  The 3D width is the width of the bezel itself; inside
-// *      and outside.  The light color is white, the dark color is gray.
-// *      Both widths *can* be zero--both default to 2 which looks to me.
-// *
-// *      The range of the control can be set by sending the ZYZG_SETRANGE
-// *      message to the control.  It can be any integer from 1 to 32767.
-// *      What this specifies is the number of pieces that create a whole.
-// *      The default is 100.  You can get the current range setting by
-// *      sending the ZYZG_GETRANGE message to the control.
-// *
-// *      The position (number of pieces out of the whole have been used) is
-// *      set with the ZYZG_SETPOSITION message.  It can be any integer from
-// *      0 to the current range setting of the control--it will be clipped
-// *      if the position is out of bounds.  The default position is 0.  You
-// *      can get the current position at any time with the ZYZG_GETPOSITION
-// *      message.
-// *
-// *      You can also set the range using a delta from the current range.
-// *      This is done by sending the ZYZG_SETDELTAPOS message with wParam
-// *      set to a _signed_ integer value within the range of the control.
-// *
-// *      The font used for the percentage text can be set using the standard
-// *      WM_SETFONT message.  You can get the current font at any time with
-// *      the WM_GETFONT message.
-// *
-// *      The orientation can be left to right, right to left, bottom to top,
-// *      or top to bottom.  Whatever suits your needs.  You set this by
-// *      sending the ZYZG_ORIENTATION message to the control with one of
-// *      the following values (default is ZYZG_ORIENT_LEFTTORIGHT):
-// *
-// *          ZYZG_ORIENT_LEFTTORIGHT (0)
-// *          ZYZG_ORIENT_RIGHTTOLEFT (1)
-// *          ZYZG_ORIENT_BOTTOMTOTOP (2)
-// *          ZYZG_ORIENT_TOPTOBOTTOM (3)
-// *
-// *  HISTORY:
-// *      3/12/91     cjp     put in this comment
-// *      6/19/92     cjp     touched it a bit
-// *
-// ** cjp */
-// COPYRIGHT:
-//
-//   (C) Copyright Microsoft Corp. 1992.  All rights reserved.
-//
-//   You have a royalty-free right to use, modify, reproduce and
-//   distribute the Sample Files (and/or any modified version) in
-//   any way you find useful, provided that you agree that
-//   Microsoft has no warranty obligations or liability for any
-//   Sample Application Files which are modified.
-//
-
-
-/* get the includes we need */
-//#if !defined(__GNUWIN32__) && !defined(__SALFORDC__)
-//#include <malloc.h>
-//#endif
-//#include <stdio.h>
-//#include <string.h>
-//#include <stdlib.h>
-// #include "zyz3d.h"
-// #include "zyzgauge.h"
+} // end of wxGauge::SetBezelFace
 
 
+bool wxGauge::SetForegroundColour(
+  const wxColour&                   rColour
+)
+{
+    if (!wxControl::SetForegroundColour(rColour))
+        return FALSE;
 
 
-/* static global variables */
-//static wxChar gszzYzGaugeClass[] = wxT("zYzGauge");
-
-
-/* window word position definitions */
-//#define ZYZG_WW_PZYZGAUGE   0
-/* #define ZYZG_WW_EXTRABYTES  2 */
-//#define ZYZG_WW_EXTRABYTES  4
-
-
-/* control block structure typedef */
-//typedef struct tZYZGAUGE
-//{
-//    WORD    wRange;
-//    WORD    wPosition;
-//    WORD    wOrientation;
-//    WORD    wWidth3D;
-//    WORD    wWidthBezelFace;
-//    HFONT   hFont;
-//    DWORD   rgbTextColor;
-//    DWORD   rgbBkColor;
-
-//} ZYZGAUGE, *PZYZGAUGE, FAR *LPZYZGAUGE;
-
-
-/* some default values for the control */
-//#define ZYZG_DEF_RANGE          100
-//#define ZYZG_DEF_POSITION       0
-//#define ZYZG_DEF_ORIENTATION    ZYZG_ORIENT_LEFTTORIGHT
-//#define ZYZG_DEF_WIDTH3D        2
-//#define ZYZG_DEF_BEZELFACE      2
-
-
-
-/* the default settings for drawing colors--display dependent */
-//static DWORD    rgbDefTextColor;
-//static DWORD    rgbDefBkColor;
-//static BOOL     fSupport3D;
-
-//#if !defined(APIENTRY)    // NT defines APIENTRY, 3.x not
-//#define APIENTRY _Optlink
-//#endif
-
-//#ifdef __WIN32__
-//#define _EXPORT /**/
-//#else
-//#define _EXPORT _export
-//typedef signed short int SHORT ;
-//#endif
-
-/* internal function prototypes */
-//static void PASCAL gaugePaint(HWND, HDC);
-/* LRESULT _Optlink */
-//LRESULT APIENTRY _EXPORT gaugeWndProc(HWND, UINT, WPARAM, LPARAM);
-
-
-
-///** BOOL _Optlink gaugeInit(HINSTANCE hInstance)
-// *
-// *  DESCRIPTION:
-// *      Registers the window class for the zYzGauge control.  Performs
-// *      other initialization for the zYzGauge text control.  This must
-// *      be done before the zYzGauge control is used--or it will fail
-// *      and your dialog box will not open!
-// *
-// *  ARGUMENTS:
-// *      HINSTANCE hInstance :   Instance handle to register class with.
-// *
-// *  RETURN (BOOL FAR):
-// *      The return value is TRUE if the zYzGauge class was successfully
-// *      registered.  It is FALSE if the initialization fails.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-//#pragma alloc_text(init, gaugeInit)
-
-//BOOL _Optlink gaugeInit(HINSTANCE hInstance)
-//{
-//    static BOOL fRegistered = FALSE;
-//    WNDCLASS    wc;
-//    HDC         hdc;
-
-    /* assume already registered if not first instance */
-//    if (fRegistered)
-//        return (TRUE);
-
-    /* fill in the class structure for the zyzgauge control */
-//    wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
-//    wc.hIcon            = NULL;
-//    wc.lpszMenuName     = NULL;
-//    wc.lpszClassName    = gszzYzGaugeClass;
-//    wc.hbrBackground    = (HBRUSH)(COLOR_WINDOW + 1);
-//    wc.hInstance        = hInstance;
-
-//#ifdef ZYZGAUGE_DLL
-//    wc.style            = CS_GLOBALCLASS | CS_HREDRAW | CS_VREDRAW;
-//#else
-//    wc.style            = CS_HREDRAW | CS_VREDRAW;
-//#endif
-
-//    wc.lpfnWndProc      = gaugeWndProc;
-//    wc.cbClsExtra       = 0;
-//    wc.cbWndExtra       = ZYZG_WW_EXTRABYTES;
-
-    /* attempt to register it--return FALSE if fail */
-//    if (!RegisterClass(&wc))
-//        return (FALSE);
-
-    /*  Get a DC to determine whether device is mono or not, and set
-     *  default foreground/background colors as appropriate.
-     */
-//    hdc = CreateIC(wxT("DISPLAY"), NULL, NULL, 0L) ;
-//    if (hdc)
-//    {
-        /* check for mono-display */
-//        if ((GetDeviceCaps(hdc, BITSPIXEL) == 1) &&
-//             (GetDeviceCaps(hdc, PLANES) == 1))
-//        {
-            /* using a mono DC--white foreground, black background */
-//            rgbDefTextColor = RGB(255, 255, 255);
-//            rgbDefBkColor = RGB(0, 0, 0);
-//        }
-
-        /* good! we have color: blue foreground, white background */
-//        else
-//        {
-//            rgbDefTextColor = RGB(0, 0, 255);
-//            rgbDefBkColor = RGB(255, 255, 255);
-//        }
-
-        /* need at _least_ 8 for two shades of gray (>=VGA) */
-//        fSupport3D = (GetDeviceCaps(hdc, NUMCOLORS) >= 8) ? TRUE : FALSE;
-
-        /* get rid of the DC (IC) */
-//        DeleteDC(hdc);
-//    }
-
-    /* uh-oh... can't get DC (IC)... fail */
-//    else
-//    {
-        /* unregister the class */
-//        UnregisterClass(gszzYzGaugeClass, hInstance);
-//        return (FALSE);
-//    }
-
-    /* return success */
-//    return (fRegistered = TRUE);
-//} /* gaugeInit() */
-
-
-/** static void PASCAL gaugePaint(HWND hwnd, HDC hdc)
-// *
-// *  DESCRIPTION:
-// *      This function is responsible for painting the zYzGauge control.
-// *
-// *  ARGUMENTS:
-// *      HWND hwnd   :   The window handle for the gauge.
-// *
-// *      HDC hdc     :   The DC for the gauge's window.
-// *
-// *  RETURN (void):
-// *      The control will have been painted.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-//static void PASCAL gaugePaint(HWND hwnd, HDC hdc)
-//{
-//    PZYZGAUGE   pgauge;
-//    WORD        iRange, iPos;
-//    WORD        Offset = 1;
-//    DWORD       dwExtent;
-//    RECT        rc1, rc2;
-//    HFONT       hFont;
-//    wxChar      ach[ 6 ];
-//    WORD        dx, dy, wGomerX, wGomerY;
-///* Win32s has no GetTextExtent(); let's try GetTextExtentPoint() instead,
-// * which needs a SIZE* parameter */
-//#if defined(__WIN32__)
-//    SIZE size;
-//#endif
-
-//    /* get pointer to the control's control block */
-//    pgauge = (PZYZGAUGE)GetWindowWord(hwnd, ZYZG_WW_PZYZGAUGE);
-//    pgauge = (PZYZGAUGE)GetWindowLong(hwnd, ZYZG_WW_PZYZGAUGE);
-
-    /* set the colors into for the gauge into the control */
-//    SetTextColor(hdc, pgauge->rgbTextColor);
-//    SetBkColor(hdc, pgauge->rgbBkColor);
-
-    /* draw black rectangle for gauge */
-//    GetClientRect(hwnd, &rc1);
-
-    /* draw a black border on the _outside_ */
-//    FrameRect(hdc, &rc1, (HBRUSH) GetStockObject(BLACK_BRUSH));
-
-    /* we want to draw _just inside_ the black border */
-//    InflateRect(&rc1, -1, -1);
-
-    /* one line thick so far... */
-//    Offset = (WORD) 1;
-
-    /* for 3D stuff, we need to have at least two shades of gray */
-//    if ((GetWindowLong(hwnd, GWL_STYLE) & ZYZGS_3D) && fSupport3D)
-//    {
-//        Draw3DRect(hdc, &rc1, pgauge->wWidth3D, DRAW3D_OUT);
-//    InflateRect(&rc1, ~(pgauge->wWidth3D), ~(pgauge->wWidth3D));
-
-//        Draw3DFaceFrame(hdc, &rc1, pgauge->wWidthBezelFace);
-//    InflateRect(&rc1, ~(pgauge->wWidthBezelFace), ~(pgauge->wWidthBezelFace));
-
-//        Draw3DRect(hdc, &rc1, pgauge->wWidth3D, DRAW3D_IN);
-//    InflateRect(&rc1, ~(pgauge->wWidth3D), ~(pgauge->wWidth3D));
-
-        /* draw a black border on the _inside_ */
-//        FrameRect(hdc, &rc1, (HBRUSH) GetStockObject(BLACK_BRUSH));
-
-        /* we want to draw _just inside_ the black border */
-//        InflateRect(&rc1, -1, -1);
-
-        /* add all the other pixels into the border width */
-//        Offset += (2 * pgauge->wWidth3D) + pgauge->wWidthBezelFace + 1;
-//    }
-
-    /* dup--one rc for 'how much filled', one rc for 'how much empty' */
-//    rc2 = rc1;
-
-    /* get the range--make sure it's a valid range */
-//    if ((iRange = pgauge->wRange) <= 0)
-//        iRange = 1;
-
-    /* get the position--greater than 100% would be bad */
-//    if ((iPos = pgauge->wPosition) > iRange)
-//        iPos = iRange;
-
-    /* compute the actual size of the gauge */
-//    dx = rc1.right - rc1.left;
-//    dy = rc1.bottom - rc1.top;
-//    wGomerX = (WORD)((DWORD)iPos * dx / iRange);
-//    wGomerY = (WORD)((DWORD)iPos * dy / iRange);
-
-    /* get the orientation and munge rects accordingly */
-//    switch (pgauge->wOrientation)
-//    {
-//        case ZYZG_ORIENT_RIGHTTOLEFT:
-//            rc1.left = rc2.right = rc1.right - wGomerX;
-//            break;
-
-//        case ZYZG_ORIENT_BOTTOMTOTOP:
-//            rc1.top = rc2.bottom = rc1.bottom - wGomerY;
-//            break;
-
-//        case ZYZG_ORIENT_TOPTOBOTTOM:
-//            rc1.bottom = rc2.top += wGomerY;
-//            break;
-
-//        default:
-//            rc1.right = rc2.left += wGomerX;
-//            break;
-//    } /* switch () */
-
-    /* select the correct font */
-//    hFont = (HFONT) SelectObject(hdc, pgauge->hFont);
-
-    /* build up a string to blit out--ie the meaning of life: "42%" */
-//    wsprintf(ach, wxT("%3d%%"), (WORD)((DWORD)iPos * 100 / iRange));
-/* Win32s has no GetTextExtent(); let's try GetTextExtentPoint() instead */
-//#if defined(__WIN32__)
-//    GetTextExtentPoint(hdc, ach, wGomerX = lstrlen(ach), &size);
-//    dwExtent = size.cx;
-//#else
-//    dwExtent = GetTextExtent(hdc, ach, wGomerX = lstrlen(ach));
-//#endif
-
-
-    /*  Draw the finished (ie the percent done) side of box.  If
-     *  ZYZG_WW_POSITION is 42, (in range of 0 to 100) this ExtTextOut
-     *  draws the meaning of life (42%) bar.
-     */
-//    ExtTextOut(hdc, (dx - LOWORD(dwExtent)) / 2 + Offset,
-//                    (dy - HIWORD(dwExtent)) / 2 + Offset,
-//                    ETO_OPAQUE | ETO_CLIPPED, &rc2, ach, wGomerX, NULL);
-
-    /*  Reverse fore and back colors for drawing the undone (ie the non-
-     *  finished) side of the box.
-     */
-//    SetBkColor(hdc, pgauge->rgbTextColor);
-//    SetTextColor(hdc, pgauge->rgbBkColor);
-
-//    ExtTextOut(hdc, (dx - LOWORD(dwExtent)) / 2 + Offset,
-//                    (dy - HIWORD(dwExtent)) / 2 + Offset,
-//                    ETO_OPAQUE | ETO_CLIPPED, &rc1, ach, wGomerX, NULL);
-
-    /* unselect the font */
-//    SelectObject(hdc, hFont);
-//} /* gaugePaint() */
-
-
-/** LRESULT _Optlink gaugeWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
-// *
-// *  DESCRIPTION:
-// *      This is the control's window procedure.  Its purpose is to handle
-// *      special messages for this custom control.
-// *
-// *      The special control messages for the gauge control are:
-// *
-// *          ZYZG_SETRANGE       :   Sets the range of the gauge.  In other
-// *                                  words, the number of parts that make a
-// *                                  whole.
-// *
-// *          ZYZG_GETRANGE       :   Returns the current range of the gauge.
-// *
-// *          ZYZG_SETORIENTATION :   Sets the orientation of the gauge.  This
-// *                                  can be one of the ZYZG_ORIENT_?? msgs.
-// *
-// *          ZYZG_GETORIENTATION :   Gets the current orientation of the
-// *                                  gauge.
-// *
-// *          ZYZG_SETPOSITION    :   Sets the current position of the gauge.
-// *                                  In other words, how many pieces of the
-// *                                  whole have been used.
-// *
-// *          ZYZG_GETPOSITION    :   Gets the current position of the gauge.
-// *
-// *          ZYZG_SETDELTAPOS    :   Sets the position of the gauge +/- the
-// *                                  specified amount.
-// *
-// *          ZYZG_SETFGCOLOR     :   Sets the foreground (percent done) color.
-// *
-// *          ZYZG_GETFGCOLOR     :   Gets the foreground (percent done) color.
-// *
-// *          ZYZG_SETBKCOLOR     :   Sets the background (percent not done)
-// *                                  color.
-// *
-// *          ZYZG_GETBKCOLOR     :   Gets the background (percent not done)
-// *                                  color.
-// *
-// *          WM_SETFONT          :   Sets the font to use for the percentage
-// *                                  text of the gauge.
-// *
-// *          WM_GETFONT          :   Gets the current font in use by the
-// *                                  gauge.
-// *
-// *  NOTES:
-// *
-// ** cjp */
-
-/* LRESULT _Optlink */
-
-//LRESULT APIENTRY _EXPORT gaugeWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
-//{
-//    HFONT       hFont;
-//    PAINTSTRUCT ps;
-//    PZYZGAUGE   pgauge;
-//    RECT        rc;
-
-//    pgauge = (PZYZGAUGE)GetWindowWord(hwnd, ZYZG_WW_PZYZGAUGE);
-//    pgauge = (PZYZGAUGE)GetWindowLong(hwnd, ZYZG_WW_PZYZGAUGE);
-
-    /* break to get DefWindowProc() */
-//    switch (uMsg)
-//    {
-//        case WM_CREATE:
-            /* need to allocate a control block */
-//            pgauge = (PZYZGAUGE)LocalAlloc(LPTR, sizeof(ZYZGAUGE));
-//            pgauge = (PZYZGAUGE)malloc(sizeof(ZYZGAUGE));
-//            if (!pgauge)
-//                return (0L);
-
-            /* hang on to this control block */
-//            SetWindowWord(hwnd, ZYZG_WW_PZYZGAUGE, (WORD)pgauge);
-//            SetWindowLong(hwnd, ZYZG_WW_PZYZGAUGE, (LONG)pgauge);
-
-            /* fill control block with defaults */
-//            pgauge->wRange           = ZYZG_DEF_RANGE;
-//            pgauge->wPosition        = ZYZG_DEF_POSITION;
-//            pgauge->wOrientation     = ZYZG_DEF_ORIENTATION;
-//            pgauge->wWidth3D         = ZYZG_DEF_WIDTH3D;
-//            pgauge->wWidthBezelFace  = ZYZG_DEF_BEZELFACE;
-//            pgauge->rgbTextColor     = rgbDefTextColor;
-//            pgauge->rgbBkColor       = rgbDefBkColor;
-
-            /* use system font */
-//            SendMessage(hwnd, WM_SETFONT, (WPARAM)NULL, 0L);
-
-            /* go to DefWindowProc() to finish the job */
-//            break;
-
-//        case WM_DESTROY:
-            /* get rid of the control's memory */
-//            if (pgauge)
-//                LocalFree((HANDLE)pgauge);
-//                free(pgauge);
-//            break;
-
-//        case ZYZG_GETPOSITION:
-//            return (pgauge->wPosition);
-
-//        case ZYZG_GETRANGE:
-//            return (pgauge->wRange);
-
-//        case ZYZG_GETORIENTATION:
-//            return (pgauge->wOrientation);
-
-//        case ZYZG_GETWIDTH3D:
-//            return (pgauge->wWidth3D);
-
-//        case ZYZG_GETBEZELFACE:
-//            return (pgauge->wWidthBezelFace);
-
-//        case ZYZG_GETBKCOLOR:
-//            return (pgauge->rgbTextColor);
-
-//        case ZYZG_GETFGCOLOR:
-//            return (pgauge->rgbBkColor);
-
-//        case ZYZG_SETBKCOLOR:
-//            pgauge->rgbBkColor = lParam;
-//            return (0L);
-
-//        case ZYZG_SETFGCOLOR:
-//            pgauge->rgbTextColor = lParam;
-//            return (0L);
-
-
-//        case ZYZG_SETPOSITION:
-//            pgauge->wPosition = wParam;
-
-//zyzgForceRepaint:
-//            GetClientRect(hwnd, &rc);
-//            if ((GetWindowLong(hwnd, GWL_STYLE) & ZYZGS_3D) && fSupport3D)
-//            {
-//                wParam = (2 * pgauge->wWidth3D) +
-//                            pgauge->wWidthBezelFace + 2;
-//            }
-
-//            else
-//                wParam = 1;
-
-//        InflateRect(&rc, ~(wParam), ~(wParam));
-//            InvalidateRect(hwnd, &rc, FALSE);
-//            UpdateWindow(hwnd);
-//            return (0L);
-
-//        case ZYZG_SETRANGE:
-//            pgauge->wRange = wParam;
-//            goto zyzgForceRepaint;
-
-//        case ZYZG_SETORIENTATION:
-//            pgauge->wOrientation = wParam;
-//            goto zyzgForceRepaint;
-
-//        case ZYZG_SETWIDTH3D:
-//            pgauge->wWidth3D = wParam;
-
-//zyzgForceRepaint3D:
-//            InvalidateRect(hwnd, NULL, FALSE);
-//            UpdateWindow(hwnd);
-//            return (0L);
-
-//        case ZYZG_SETBEZELFACE:
-//            pgauge->wWidthBezelFace = wParam;
-//            goto zyzgForceRepaint3D;
-
-//        case ZYZG_SETDELTAPOS:
-///* Watcom doesn't like the following line so removing typecasts */
-///*            (int)pgauge->wPosition += (int)wParam; */
-//            pgauge->wPosition += wParam;
-//            goto zyzgForceRepaint;
-
-//        case WM_PAINT:
-//            BeginPaint(hwnd, &ps);
-//            gaugePaint(hwnd, ps.hdc);
-//            EndPaint(hwnd, &ps);
-//            return (0L);
-
-//        case WM_GETFONT:
-//            hFont = pgauge->hFont;
-
-//            /* if system font, then return NULL handle */
-//            return (long)((hFont == GetStockObject(SYSTEM_FONT)) ? NULL : hFont);
+    LONG                            lColor = (LONG)rColour.GetPixel();
 
 
-//        case WM_SETFONT:
-            /* if NULL hFont, use system font */
-//            hFont = (HFONT)wParam ;
-//            if (!hFont)
-//                hFont = (HFONT) GetStockObject(SYSTEM_FONT);
+    ::WinSetPresParam( GetHwnd()
+                      ,PP_FOREGROUNDCOLOR
+                      ,sizeof(LONG)
+                      ,(PVOID)&lColor
+                     );
 
 
-//            pgauge->hFont = hFont;
+    return TRUE;
+} // end of wxGauge::SetForegroundColour
 
 
-            /* redraw if indicated in message */
-//            if ((BOOL)lParam)
-//            {
-//                InvalidateRect(hwnd, NULL, TRUE);
-//                UpdateWindow(hwnd);
-//            }
-//            return (0L);
-//    } /* switch () */
+void wxGauge::SetRange(
+  int                               nRange
+)
+{
+    m_nRangeMax = nRange;
+} // end of wxGauge::SetRange
 
 
-    /* let the dialog mangler take care of this message */
-//    return (DefWindowProc(hwnd, uMsg, wParam, lParam));
-//} /* gaugeWndProc() */
+void wxGauge::SetShadowWidth(
+  int                               WXUNUSED(nWidth)
+)
+{
+} // end of wxGauge::SetShadowWidth
 
 
+void wxGauge::SetValue(
+  int                               nPos
+)
+{
+    RECT                            vRect;
 
 
-/** EOF: zyzgauge.c **/
+    m_nGaugePos = nPos;
+    ::WinQueryWindowRect(GetHwnd(), &vRect);
+    ::WinInvalidateRect(GetHwnd(), &vRect, FALSE);
+} // end of wxGauge::SetValue