src/os2/pen.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/os2/pen.cpp
// Purpose:     wxPen
// Author:      David Webster
// Modified by:
// Created:     10/10/99
// RCS-ID:      $Id$
// Copyright:   (c) David Webster
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#include "wx/pen.h"

#ifndef WX_PRECOMP
    #include <stdio.h>
    #include "wx/list.h"
    #include "wx/utils.h"
    #include "wx/app.h"
    #include "wx/log.h"
#endif

#include "wx/os2/private.h"

class WXDLLIMPEXP_FWD_CORE wxPen;

// ----------------------------------------------------------------------------
// wxPenRefData: contains information about an HPEN and its handle
// ----------------------------------------------------------------------------

class WXDLLEXPORT wxPenRefData: public wxGDIRefData
{
    friend class WXDLLIMPEXP_FWD_CORE wxPen;
public:
    wxPenRefData();
    wxPenRefData(const wxPenRefData& rData);
    wxPenRefData(const wxColour& col, int width, wxPenStyle style);
    wxPenRefData(const wxBitmap& stipple, int width);
    virtual ~wxPenRefData();

    bool operator==(const wxPenRefData& data) const
    {
        // we intentionally don't compare m_hPen fields here
        return m_nStyle == data.m_nStyle &&
               m_nWidth == data.m_nWidth &&
               m_nJoin == data.m_nJoin &&
               m_nCap == data.m_nCap &&
               m_vColour == data.m_vColour &&
               (m_nStyle != wxPENSTYLE_STIPPLE || m_vStipple.IsSameAs(data.m_vStipple)) &&
               (m_nStyle != wxPENSTYLE_USER_DASH ||
                (m_dash == data.m_dash &&
                    memcmp(m_dash, data.m_dash, m_nbDash*sizeof(wxDash)) == 0));
    }

private:
    // initialize the fields which have reasonable default values
    //
    // doesn't initialize m_width and m_style which must be initialize in ctor
    void Init()
    {
        m_nJoin = wxJOIN_ROUND;
        m_nCap = wxCAP_ROUND;
        m_nbDash = 0;
        m_dash = NULL;
        m_hPen = 0;
    }

    int                             m_nWidth;
    wxPenStyle                      m_nStyle;
    wxPenJoin                       m_nJoin;
    wxPenCap                        m_nCap;
    wxBitmap                        m_vStipple;
    int                             m_nbDash;
    wxDash *                        m_dash;
    wxColour                        m_vColour;
    WXHPEN                          m_hPen;// in OS/2 GPI this will be the PS the pen is associated with

    wxDECLARE_NO_ASSIGN_CLASS(wxPenRefData);
};

#define M_PENDATA ((wxPenRefData *)m_refData)

// ----------------------------------------------------------------------------
// wxPenRefData ctors/dtor
// ----------------------------------------------------------------------------

wxPenRefData::wxPenRefData()
{
    Init();

    m_nStyle  = wxPENSTYLE_SOLID;
    m_nWidth  = 1;
} // end of wxPenRefData::wxPenRefData

wxPenRefData::wxPenRefData(
  const wxPenRefData&               rData
)
{
    m_nStyle  = rData.m_nStyle;
    m_nWidth  = rData.m_nWidth;
    m_nJoin   = rData.m_nJoin;
    m_nCap    = rData.m_nCap;
    m_nbDash  = rData.m_nbDash;
    m_dash    = rData.m_dash;
    m_vColour = rData.m_vColour;
    m_hPen    = 0L;
} // end of wxPenRefData::wxPenRefData

wxPenRefData::wxPenRefData(const wxColour& col, int width, wxPenStyle style)
{
    Init();

    m_nStyle = style;
    m_nWidth = width;

    m_vColour = col;
}

wxPenRefData::wxPenRefData(const wxBitmap& stipple, int width)
{
    Init();

    m_nStyle = wxPENSTYLE_STIPPLE;
    m_nWidth = width;

    m_vStipple = stipple;
}

wxPenRefData::~wxPenRefData()
{
} // end of wxPenRefData::~wxPenRefData

// ----------------------------------------------------------------------------
// wxPen
// ----------------------------------------------------------------------------

IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)

wxPen::wxPen(
  const wxColour&                   rColour
, int                               nWidth
, wxPenStyle                        nStyle
)
{
    m_refData = new wxPenRefData(rColour, nWidth, nStyle);

    RealizeResource();
} // end of wxPen::wxPen

#if FUTURE_WXWIN_COMPATIBILITY_3_0
wxPen::wxPen(const wxColour& colour, int width, int style)
{
    m_refData = new wxPenRefData(colour, width, (wxPenStyle)style);

    RealizeResource();
}
#endif

wxPen::wxPen(
  const wxBitmap&                   rStipple
, int                               nWidth
)
{
    m_refData = new wxPenRefData (rStipple, nWidth);

    RealizeResource();
} // end of wxPen::wxPen

bool wxPen::operator==(const wxPen& pen) const
{
    const wxPenRefData *
        penData = static_cast<const wxPenRefData *>(pen.m_refData);

    // an invalid pen is only equal to another invalid pen
    return m_refData ? penData && *M_PENDATA == *penData : !penData;
}

int wx2os2PenStyle(
  wxPenStyle                               nWxStyle
);

bool wxPen::RealizeResource()
{
    BOOL                            bOk;
    ERRORID                         vError;
    wxString                        sError;

    if (M_PENDATA && M_PENDATA->m_hPen == 0L)
    {
        SIZEL                   vSize = {0, 0};
        DEVOPENSTRUC            vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
        HDC                     hDC = ::DevOpenDC( vHabmain
                                                  ,OD_MEMORY
                                                  ,"*"
                                                  ,5L
                                                  ,(PDEVOPENDATA)&vDop
                                                  ,NULLHANDLE
                                                 );
        M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
                                                  ,hDC
                                                  ,&vSize
                                                  ,PU_PELS | GPIT_MICRO | GPIA_ASSOC
                                                 );
    }
    if (M_PENDATA)
    {
        //
        // Set the color table to RGB mode
        //
        if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
                                      ,0L
                                      ,LCOLF_RGB
                                      ,0L
                                      ,0L
                                      ,NULL
                                     ))
        {
            vError = ::WinGetLastError(vHabmain);
            sError = wxPMErrorToStr(vError);
            wxLogError(_T("Unable to set current color table to RGB mode. Error: %s\n"), sError.c_str());
            return false;
        }
        if (M_PENDATA->m_nStyle == wxPENSTYLE_TRANSPARENT)
        {
            return true;
        }

        COLORREF vPmColour = 0L;
        USHORT   uLineType = (USHORT)wx2os2PenStyle(M_PENDATA->m_nStyle);

        vPmColour = M_PENDATA->m_vColour.GetPixel();

        USHORT                      uJoin = 0L;

        switch(M_PENDATA->m_nJoin)
        {
            case wxJOIN_BEVEL:
                uJoin = LINEJOIN_BEVEL;
                break;

            case wxJOIN_MITER:
                uJoin = LINEJOIN_MITRE;
                break;

            case wxJOIN_ROUND:
                uJoin = LINEJOIN_ROUND;
                break;
        }

        USHORT                      uCap = 0L;

        switch(M_PENDATA->m_nCap)
        {
            case wxCAP_PROJECTING:
                uCap = LINEEND_SQUARE;
                break;

            case wxCAP_BUTT:
                uCap = LINEEND_FLAT;
                break;

            case wxCAP_ROUND:
                uCap = LINEEND_ROUND;
                break;
        }
        m_vLineBundle.lColor     = (LONG)vPmColour;
        m_vLineBundle.usMixMode  = FM_OVERPAINT;
        if (M_PENDATA->m_nWidth < 1)
            M_PENDATA->m_nWidth = 1;
        m_vLineBundle.fxWidth    = M_PENDATA->m_nWidth;
        m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
        m_vLineBundle.usType     = uLineType;
        m_vLineBundle.usEnd      = uCap;
        m_vLineBundle.usJoin     = uJoin;

        bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
                            ,PRIM_LINE
                            ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE | LBB_END | LBB_JOIN
                            ,0L
                            ,&m_vLineBundle
                           );
        if (!bOk)
        {
            vError = ::WinGetLastError(vHabmain);
            sError = wxPMErrorToStr(vError);
            wxLogError(_T("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n"), sError.c_str());
            return false;
        }

        ULONG                           flAttrMask = 0L;
        ULONG                           flDefMask = 0L;
        switch(M_PENDATA->m_nStyle)
        {
            case wxPENSTYLE_STIPPLE:
                ::GpiSetBitmapId( M_PENDATA->m_hPen
                                 ,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
                                 ,(USHORT)M_PENDATA->m_vStipple.GetId()
                                );
                ::GpiSetPatternSet( M_PENDATA->m_hPen
                                   ,(USHORT)M_PENDATA->m_vStipple.GetId()
                                  );
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SET | ABB_SYMBOL;
                flDefMask = ABB_REF_POINT;
                break;

            case wxPENSTYLE_BDIAGONAL_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_DIAG3;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            case wxPENSTYLE_CROSSDIAG_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            case wxPENSTYLE_FDIAGONAL_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_DIAG1;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            case wxPENSTYLE_CROSS_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_HATCH;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            case wxPENSTYLE_HORIZONTAL_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_HORIZ;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            case wxPENSTYLE_VERTICAL_HATCH:
                m_vAreaBundle.usSymbol = PATSYM_VERT;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;

            default:
                m_vAreaBundle.usSymbol = PATSYM_SOLID;
                m_vAreaBundle.usSet = LCID_DEFAULT;
                flAttrMask = ABB_COLOR | ABB_BACK_COLOR | ABB_MIX_MODE | ABB_BACK_MIX_MODE | ABB_SYMBOL;
                flDefMask = ABB_SET | ABB_REF_POINT;
                break;
        }

        m_vAreaBundle.lColor        = vPmColour;
        m_vAreaBundle.lBackColor    = RGB_WHITE;
        m_vAreaBundle.usMixMode     = FM_OVERPAINT;
        m_vAreaBundle.usBackMixMode = BM_OVERPAINT;

        bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
                            ,PRIM_AREA
                            ,flAttrMask
                            ,flDefMask
                            ,&m_vAreaBundle
                           );
        if (!bOk)
        {
            vError = ::WinGetLastError(vHabmain);
            sError = wxPMErrorToStr(vError);
            wxLogError(_T("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n"), sError.c_str());
        }

        return (bool)bOk;
    }
    return false;
} // end of wxPen::RealizeResource

WXHANDLE wxPen::GetResourceHandle() const
{
    if (!M_PENDATA)
        return 0;
    else
        return (WXHANDLE)M_PENDATA->m_hPen;
} // end of wxPen::GetResourceHandle

bool wxPen::FreeResource( bool WXUNUSED(bForce) )
{
    if (M_PENDATA && (M_PENDATA->m_hPen != 0))
    {
        M_PENDATA->m_hPen = 0;
        return true;
    }
    else return false;
} // end of wxPen::FreeResource

bool wxPen::IsFree() const
{
    return (M_PENDATA && M_PENDATA->m_hPen == 0);
}

wxGDIRefData* wxPen::CreateGDIRefData() const
{
    return new wxPenRefData;
}

wxGDIRefData* wxPen::CloneGDIRefData(const wxGDIRefData* data) const
{
    return new wxPenRefData(*static_cast<const wxPenRefData*>(data));
}

void wxPen::SetColour( const wxColour& rColour )
{
    AllocExclusive();
    M_PENDATA->m_vColour = rColour;
    RealizeResource();
} // end of wxPen::SetColour

void wxPen::SetColour( unsigned char cRed, unsigned char cGreen, unsigned char cBlue)
{
    AllocExclusive();
    M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
    RealizeResource();
} // end of wxPen::SetColour

void wxPen::SetPS( HPS hPS )
{
    AllocExclusive();
    if (M_PENDATA->m_hPen)
        ::GpiDestroyPS(M_PENDATA->m_hPen);
    M_PENDATA->m_hPen = hPS;
    RealizeResource();
} // end of WxWinGdi_CPen::SetPS

void wxPen::SetWidth(
  int                               nWidth
)
{
    AllocExclusive();
    M_PENDATA->m_nWidth = nWidth;
    RealizeResource();
} // end of wxPen::SetWidth

void wxPen::SetStyle(
  wxPenStyle                               nStyle
)
{
    AllocExclusive();
    M_PENDATA->m_nStyle = nStyle;
    RealizeResource();
} // end of wxPen::SetStyle

void wxPen::SetStipple(
  const wxBitmap&                   rStipple
)
{
    AllocExclusive();
    M_PENDATA->m_vStipple = rStipple;
    M_PENDATA->m_nStyle = wxPENSTYLE_STIPPLE;
    RealizeResource();
} // end of wxPen::SetStipple

void wxPen::SetDashes( int WXUNUSED(nNbDashes),
                       const wxDash* WXUNUSED(pDash) )
{
    //
    // Does nothing under OS/2
    //
} // end of wxPen::SetDashes

void wxPen::SetJoin(
  wxPenJoin                               nJoin
)
{
    AllocExclusive();
    M_PENDATA->m_nJoin = nJoin;
    RealizeResource();
} // end of wxPen::SetJoin

void wxPen::SetCap(
  wxPenCap                               nCap
)
{
    AllocExclusive();
    M_PENDATA->m_nCap = nCap;
    RealizeResource();
} // end of wxPen::SetCap

wxColour wxPen::GetColour() const
{
    wxCHECK_MSG( Ok(), wxNullColour, wxT("invalid pen") );

    return M_PENDATA->m_vColour;
}

int wxPen::GetWidth() const
{
    wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );

    return M_PENDATA->m_nWidth;
}

wxPenStyle wxPen::GetStyle() const
{
    wxCHECK_MSG( Ok(), wxPENSTYLE_INVALID, wxT("invalid pen") );

    return M_PENDATA->m_nStyle;
}

wxPenJoin wxPen::GetJoin() const
{
    wxCHECK_MSG( Ok(), wxJOIN_INVALID, wxT("invalid pen") );

    return M_PENDATA->m_nJoin;
}

wxPenCap wxPen::GetCap() const
{
    wxCHECK_MSG( Ok(), wxCAP_INVALID, wxT("invalid pen") );

    return M_PENDATA->m_nCap;
}

int wxPen::GetPS() const
{
    wxCHECK_MSG( Ok(), 0, wxT("invalid pen") );

    return M_PENDATA->m_hPen;
}

int wxPen::GetDashes(wxDash** ptr) const
{
    wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );

    *ptr = M_PENDATA->m_dash;
    return M_PENDATA->m_nbDash;
}

wxDash* wxPen::GetDash() const
{
    wxCHECK_MSG( Ok(), NULL, wxT("invalid pen") );

    return M_PENDATA->m_dash;
}

int wxPen::GetDashCount() const
{
    wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );

    return M_PENDATA->m_nbDash;
}

wxBitmap* wxPen::GetStipple() const
{
    wxCHECK_MSG( Ok(), NULL, wxT("invalid pen") );

    return &(M_PENDATA->m_vStipple);
}

int wx2os2PenStyle(
  wxPenStyle                               nWxStyle
)
{
    int                             nPMStyle = 0;

    switch (nWxStyle)
    {
        case wxPENSTYLE_DOT:
            nPMStyle = LINETYPE_DOT;
            break;

        case wxPENSTYLE_DOT_DASH:
            nPMStyle = LINETYPE_DASHDOT;
            break;

        case wxPENSTYLE_SHORT_DASH:
            nPMStyle = LINETYPE_SHORTDASH;
            break;

        case wxPENSTYLE_LONG_DASH:
            nPMStyle = LINETYPE_LONGDASH;
            break;

        case wxPENSTYLE_TRANSPARENT:
            nPMStyle = LINETYPE_INVISIBLE;
            break;

        case wxPENSTYLE_USER_DASH:
            nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
            break;

        case wxPENSTYLE_SOLID:
        default:
            nPMStyle = LINETYPE_SOLID;
            break;
    }
    return nPMStyle;
} // end of wx2os2PenStyle
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: src/os2/pen.cpp
	3	// Purpose: wxPen
	4	// Author: David Webster
	5	// Modified by:
	6	// Created: 10/10/99
	7	// RCS-ID: $Id$
	8	// Copyright: (c) David Webster
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	// For compilers that support precompilation, includes "wx.h".
	13	#include "wx/wxprec.h"
	14
	15	#include "wx/pen.h"
	16
	17	#ifndef WX_PRECOMP
	18	#include <stdio.h>
	19	#include "wx/list.h"
	20	#include "wx/utils.h"
	21	#include "wx/app.h"
	22	#include "wx/log.h"
	23	#endif
	24
	25	#include "wx/os2/private.h"
	26
	27	class WXDLLIMPEXP_FWD_CORE wxPen;
	28
	29	// ----------------------------------------------------------------------------
	30	// wxPenRefData: contains information about an HPEN and its handle
	31	// ----------------------------------------------------------------------------
	32
	33	class WXDLLEXPORT wxPenRefData: public wxGDIRefData
	34	{
	35	friend class WXDLLIMPEXP_FWD_CORE wxPen;
	36	public:
	37	wxPenRefData();
	38	wxPenRefData(const wxPenRefData& rData);
	39	wxPenRefData(const wxColour& col, int width, wxPenStyle style);
	40	wxPenRefData(const wxBitmap& stipple, int width);
	41	virtual ~wxPenRefData();
	42
	43	bool operator==(const wxPenRefData& data) const
	44	{
	45	// we intentionally don't compare m_hPen fields here
	46	return m_nStyle == data.m_nStyle &&
	47	m_nWidth == data.m_nWidth &&
	48	m_nJoin == data.m_nJoin &&
	49	m_nCap == data.m_nCap &&
	50	m_vColour == data.m_vColour &&
	51	(m_nStyle != wxPENSTYLE_STIPPLE \|\| m_vStipple.IsSameAs(data.m_vStipple)) &&
	52	(m_nStyle != wxPENSTYLE_USER_DASH \|\|
	53	(m_dash == data.m_dash &&
	54	memcmp(m_dash, data.m_dash, m_nbDash*sizeof(wxDash)) == 0));
	55	}
	56
	57	private:
	58	// initialize the fields which have reasonable default values
	59	//
	60	// doesn't initialize m_width and m_style which must be initialize in ctor
	61	void Init()
	62	{
	63	m_nJoin = wxJOIN_ROUND;
	64	m_nCap = wxCAP_ROUND;
	65	m_nbDash = 0;
	66	m_dash = NULL;
	67	m_hPen = 0;
	68	}
	69
	70	int m_nWidth;
	71	wxPenStyle m_nStyle;
	72	wxPenJoin m_nJoin;
	73	wxPenCap m_nCap;
	74	wxBitmap m_vStipple;
	75	int m_nbDash;
	76	wxDash * m_dash;
	77	wxColour m_vColour;
	78	WXHPEN m_hPen;// in OS/2 GPI this will be the PS the pen is associated with
	79
	80	wxDECLARE_NO_ASSIGN_CLASS(wxPenRefData);
	81	};
	82
	83	#define M_PENDATA ((wxPenRefData *)m_refData)
	84
	85	// ----------------------------------------------------------------------------
	86	// wxPenRefData ctors/dtor
	87	// ----------------------------------------------------------------------------
	88
	89	wxPenRefData::wxPenRefData()
	90	{
	91	Init();
	92
	93	m_nStyle = wxPENSTYLE_SOLID;
	94	m_nWidth = 1;
	95	} // end of wxPenRefData::wxPenRefData
	96
	97	wxPenRefData::wxPenRefData(
	98	const wxPenRefData& rData
	99	)
	100	{
	101	m_nStyle = rData.m_nStyle;
	102	m_nWidth = rData.m_nWidth;
	103	m_nJoin = rData.m_nJoin;
	104	m_nCap = rData.m_nCap;
	105	m_nbDash = rData.m_nbDash;
	106	m_dash = rData.m_dash;
	107	m_vColour = rData.m_vColour;
	108	m_hPen = 0L;
	109	} // end of wxPenRefData::wxPenRefData
	110
	111	wxPenRefData::wxPenRefData(const wxColour& col, int width, wxPenStyle style)
	112	{
	113	Init();
	114
	115	m_nStyle = style;
	116	m_nWidth = width;
	117
	118	m_vColour = col;
	119	}
	120
	121	wxPenRefData::wxPenRefData(const wxBitmap& stipple, int width)
	122	{
	123	Init();
	124
	125	m_nStyle = wxPENSTYLE_STIPPLE;
	126	m_nWidth = width;
	127
	128	m_vStipple = stipple;
	129	}
	130
	131	wxPenRefData::~wxPenRefData()
	132	{
	133	} // end of wxPenRefData::~wxPenRefData
	134
	135	// ----------------------------------------------------------------------------
	136	// wxPen
	137	// ----------------------------------------------------------------------------
	138
	139	IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)
	140
	141	wxPen::wxPen(
	142	const wxColour& rColour
	143	, int nWidth
	144	, wxPenStyle nStyle
	145	)
	146	{
	147	m_refData = new wxPenRefData(rColour, nWidth, nStyle);
	148
	149	RealizeResource();
	150	} // end of wxPen::wxPen
	151
	152	#if FUTURE_WXWIN_COMPATIBILITY_3_0
	153	wxPen::wxPen(const wxColour& colour, int width, int style)
	154	{
	155	m_refData = new wxPenRefData(colour, width, (wxPenStyle)style);
	156
	157	RealizeResource();
	158	}
	159	#endif
	160
	161	wxPen::wxPen(
	162	const wxBitmap& rStipple
	163	, int nWidth
	164	)
	165	{
	166	m_refData = new wxPenRefData (rStipple, nWidth);
	167
	168	RealizeResource();
	169	} // end of wxPen::wxPen
	170
	171	bool wxPen::operator==(const wxPen& pen) const
	172	{
	173	const wxPenRefData *
	174	penData = static_cast<const wxPenRefData *>(pen.m_refData);
	175
	176	// an invalid pen is only equal to another invalid pen
	177	return m_refData ? penData && M_PENDATA == penData : !penData;
	178	}
	179
	180	int wx2os2PenStyle(
	181	wxPenStyle nWxStyle
	182	);
	183
	184	bool wxPen::RealizeResource()
	185	{
	186	BOOL bOk;
	187	ERRORID vError;
	188	wxString sError;
	189
	190	if (M_PENDATA && M_PENDATA->m_hPen == 0L)
	191	{
	192	SIZEL vSize = {0, 0};
	193	DEVOPENSTRUC vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
	194	HDC hDC = ::DevOpenDC( vHabmain
	195	,OD_MEMORY
	196	,"*"
	197	,5L
	198	,(PDEVOPENDATA)&vDop
	199	,NULLHANDLE
	200	);
	201	M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
	202	,hDC
	203	,&vSize
	204	,PU_PELS \| GPIT_MICRO \| GPIA_ASSOC
	205	);
	206	}
	207	if (M_PENDATA)
	208	{
	209	//
	210	// Set the color table to RGB mode
	211	//
	212	if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
	213	,0L
	214	,LCOLF_RGB
	215	,0L
	216	,0L
	217	,NULL
	218	))
	219	{
	220	vError = ::WinGetLastError(vHabmain);
	221	sError = wxPMErrorToStr(vError);
	222	wxLogError(_T("Unable to set current color table to RGB mode. Error: %s\n"), sError.c_str());
	223	return false;
	224	}
	225	if (M_PENDATA->m_nStyle == wxPENSTYLE_TRANSPARENT)
	226	{
	227	return true;
	228	}
	229
	230	COLORREF vPmColour = 0L;
	231	USHORT uLineType = (USHORT)wx2os2PenStyle(M_PENDATA->m_nStyle);
	232
	233	vPmColour = M_PENDATA->m_vColour.GetPixel();
	234
	235	USHORT uJoin = 0L;
	236
	237	switch(M_PENDATA->m_nJoin)
	238	{
	239	case wxJOIN_BEVEL:
	240	uJoin = LINEJOIN_BEVEL;
	241	break;
	242
	243	case wxJOIN_MITER:
	244	uJoin = LINEJOIN_MITRE;
	245	break;
	246
	247	case wxJOIN_ROUND:
	248	uJoin = LINEJOIN_ROUND;
	249	break;
	250	}
	251
	252	USHORT uCap = 0L;
	253
	254	switch(M_PENDATA->m_nCap)
	255	{
	256	case wxCAP_PROJECTING:
	257	uCap = LINEEND_SQUARE;
	258	break;
	259
	260	case wxCAP_BUTT:
	261	uCap = LINEEND_FLAT;
	262	break;
	263
	264	case wxCAP_ROUND:
	265	uCap = LINEEND_ROUND;
	266	break;
	267	}
	268	m_vLineBundle.lColor = (LONG)vPmColour;
	269	m_vLineBundle.usMixMode = FM_OVERPAINT;
	270	if (M_PENDATA->m_nWidth < 1)
	271	M_PENDATA->m_nWidth = 1;
	272	m_vLineBundle.fxWidth = M_PENDATA->m_nWidth;
	273	m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
	274	m_vLineBundle.usType = uLineType;
	275	m_vLineBundle.usEnd = uCap;
	276	m_vLineBundle.usJoin = uJoin;
	277
	278	bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
	279	,PRIM_LINE
	280	,LBB_COLOR \| LBB_MIX_MODE \| LBB_WIDTH \| LBB_GEOM_WIDTH \| LBB_TYPE \| LBB_END \| LBB_JOIN
	281	,0L
	282	,&m_vLineBundle
	283	);
	284	if (!bOk)
	285	{
	286	vError = ::WinGetLastError(vHabmain);
	287	sError = wxPMErrorToStr(vError);
	288	wxLogError(_T("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n"), sError.c_str());
	289	return false;
	290	}
	291
	292	ULONG flAttrMask = 0L;
	293	ULONG flDefMask = 0L;
	294	switch(M_PENDATA->m_nStyle)
	295	{
	296	case wxPENSTYLE_STIPPLE:
	297	::GpiSetBitmapId( M_PENDATA->m_hPen
	298	,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
	299	,(USHORT)M_PENDATA->m_vStipple.GetId()
	300	);
	301	::GpiSetPatternSet( M_PENDATA->m_hPen
	302	,(USHORT)M_PENDATA->m_vStipple.GetId()
	303	);
	304	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SET \| ABB_SYMBOL;
	305	flDefMask = ABB_REF_POINT;
	306	break;
	307
	308	case wxPENSTYLE_BDIAGONAL_HATCH:
	309	m_vAreaBundle.usSymbol = PATSYM_DIAG3;
	310	m_vAreaBundle.usSet = LCID_DEFAULT;
	311	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	312	flDefMask = ABB_SET \| ABB_REF_POINT;
	313	break;
	314
	315	case wxPENSTYLE_CROSSDIAG_HATCH:
	316	m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
	317	m_vAreaBundle.usSet = LCID_DEFAULT;
	318	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	319	flDefMask = ABB_SET \| ABB_REF_POINT;
	320	break;
	321
	322	case wxPENSTYLE_FDIAGONAL_HATCH:
	323	m_vAreaBundle.usSymbol = PATSYM_DIAG1;
	324	m_vAreaBundle.usSet = LCID_DEFAULT;
	325	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	326	flDefMask = ABB_SET \| ABB_REF_POINT;
	327	break;
	328
	329	case wxPENSTYLE_CROSS_HATCH:
	330	m_vAreaBundle.usSymbol = PATSYM_HATCH;
	331	m_vAreaBundle.usSet = LCID_DEFAULT;
	332	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	333	flDefMask = ABB_SET \| ABB_REF_POINT;
	334	break;
	335
	336	case wxPENSTYLE_HORIZONTAL_HATCH:
	337	m_vAreaBundle.usSymbol = PATSYM_HORIZ;
	338	m_vAreaBundle.usSet = LCID_DEFAULT;
	339	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	340	flDefMask = ABB_SET \| ABB_REF_POINT;
	341	break;
	342
	343	case wxPENSTYLE_VERTICAL_HATCH:
	344	m_vAreaBundle.usSymbol = PATSYM_VERT;
	345	m_vAreaBundle.usSet = LCID_DEFAULT;
	346	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	347	flDefMask = ABB_SET \| ABB_REF_POINT;
	348	break;
	349
	350	default:
	351	m_vAreaBundle.usSymbol = PATSYM_SOLID;
	352	m_vAreaBundle.usSet = LCID_DEFAULT;
	353	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
	354	flDefMask = ABB_SET \| ABB_REF_POINT;
	355	break;
	356	}
	357
	358	m_vAreaBundle.lColor = vPmColour;
	359	m_vAreaBundle.lBackColor = RGB_WHITE;
	360	m_vAreaBundle.usMixMode = FM_OVERPAINT;
	361	m_vAreaBundle.usBackMixMode = BM_OVERPAINT;
	362
	363	bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
	364	,PRIM_AREA
	365	,flAttrMask
	366	,flDefMask
	367	,&m_vAreaBundle
	368	);
	369	if (!bOk)
	370	{
	371	vError = ::WinGetLastError(vHabmain);
	372	sError = wxPMErrorToStr(vError);
	373	wxLogError(_T("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n"), sError.c_str());
	374	}
	375
	376	return (bool)bOk;
	377	}
	378	return false;
	379	} // end of wxPen::RealizeResource
	380
	381	WXHANDLE wxPen::GetResourceHandle() const
	382	{
	383	if (!M_PENDATA)
	384	return 0;
	385	else
	386	return (WXHANDLE)M_PENDATA->m_hPen;
	387	} // end of wxPen::GetResourceHandle
	388
	389	bool wxPen::FreeResource( bool WXUNUSED(bForce) )
	390	{
	391	if (M_PENDATA && (M_PENDATA->m_hPen != 0))
	392	{
	393	M_PENDATA->m_hPen = 0;
	394	return true;
	395	}
	396	else return false;
	397	} // end of wxPen::FreeResource
	398
	399	bool wxPen::IsFree() const
	400	{
	401	return (M_PENDATA && M_PENDATA->m_hPen == 0);
	402	}
	403
	404	wxGDIRefData* wxPen::CreateGDIRefData() const
	405	{
	406	return new wxPenRefData;
	407	}
	408
	409	wxGDIRefData* wxPen::CloneGDIRefData(const wxGDIRefData* data) const
	410	{
	411	return new wxPenRefData(static_cast<const wxPenRefData>(data));
	412	}
	413
	414	void wxPen::SetColour( const wxColour& rColour )
	415	{
	416	AllocExclusive();
	417	M_PENDATA->m_vColour = rColour;
	418	RealizeResource();
	419	} // end of wxPen::SetColour
	420
	421	void wxPen::SetColour( unsigned char cRed, unsigned char cGreen, unsigned char cBlue)
	422	{
	423	AllocExclusive();
	424	M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
	425	RealizeResource();
	426	} // end of wxPen::SetColour
	427
	428	void wxPen::SetPS( HPS hPS )
	429	{
	430	AllocExclusive();
	431	if (M_PENDATA->m_hPen)
	432	::GpiDestroyPS(M_PENDATA->m_hPen);
	433	M_PENDATA->m_hPen = hPS;
	434	RealizeResource();
	435	} // end of WxWinGdi_CPen::SetPS
	436
	437	void wxPen::SetWidth(
	438	int nWidth
	439	)
	440	{
	441	AllocExclusive();
	442	M_PENDATA->m_nWidth = nWidth;
	443	RealizeResource();
	444	} // end of wxPen::SetWidth
	445
	446	void wxPen::SetStyle(
	447	wxPenStyle nStyle
	448	)
	449	{
	450	AllocExclusive();
	451	M_PENDATA->m_nStyle = nStyle;
	452	RealizeResource();
	453	} // end of wxPen::SetStyle
	454
	455	void wxPen::SetStipple(
	456	const wxBitmap& rStipple
	457	)
	458	{
	459	AllocExclusive();
	460	M_PENDATA->m_vStipple = rStipple;
	461	M_PENDATA->m_nStyle = wxPENSTYLE_STIPPLE;
	462	RealizeResource();
	463	} // end of wxPen::SetStipple
	464
	465	void wxPen::SetDashes( int WXUNUSED(nNbDashes),
	466	const wxDash* WXUNUSED(pDash) )
	467	{
	468	//
	469	// Does nothing under OS/2
	470	//
	471	} // end of wxPen::SetDashes
	472
	473	void wxPen::SetJoin(
	474	wxPenJoin nJoin
	475	)
	476	{
	477	AllocExclusive();
	478	M_PENDATA->m_nJoin = nJoin;
	479	RealizeResource();
	480	} // end of wxPen::SetJoin
	481
	482	void wxPen::SetCap(
	483	wxPenCap nCap
	484	)
	485	{
	486	AllocExclusive();
	487	M_PENDATA->m_nCap = nCap;
	488	RealizeResource();
	489	} // end of wxPen::SetCap
	490
	491	wxColour wxPen::GetColour() const
	492	{
	493	wxCHECK_MSG( Ok(), wxNullColour, wxT("invalid pen") );
	494
	495	return M_PENDATA->m_vColour;
	496	}
	497
	498	int wxPen::GetWidth() const
	499	{
	500	wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );
	501
	502	return M_PENDATA->m_nWidth;
	503	}
	504
	505	wxPenStyle wxPen::GetStyle() const
	506	{
	507	wxCHECK_MSG( Ok(), wxPENSTYLE_INVALID, wxT("invalid pen") );
	508
	509	return M_PENDATA->m_nStyle;
	510	}
	511
	512	wxPenJoin wxPen::GetJoin() const
	513	{
	514	wxCHECK_MSG( Ok(), wxJOIN_INVALID, wxT("invalid pen") );
	515
	516	return M_PENDATA->m_nJoin;
	517	}
	518
	519	wxPenCap wxPen::GetCap() const
	520	{
	521	wxCHECK_MSG( Ok(), wxCAP_INVALID, wxT("invalid pen") );
	522
	523	return M_PENDATA->m_nCap;
	524	}
	525
	526	int wxPen::GetPS() const
	527	{
	528	wxCHECK_MSG( Ok(), 0, wxT("invalid pen") );
	529
	530	return M_PENDATA->m_hPen;
	531	}
	532
	533	int wxPen::GetDashes(wxDash** ptr) const
	534	{
	535	wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );
	536
	537	*ptr = M_PENDATA->m_dash;
	538	return M_PENDATA->m_nbDash;
	539	}
	540
	541	wxDash* wxPen::GetDash() const
	542	{
	543	wxCHECK_MSG( Ok(), NULL, wxT("invalid pen") );
	544
	545	return M_PENDATA->m_dash;
	546	}
	547
	548	int wxPen::GetDashCount() const
	549	{
	550	wxCHECK_MSG( Ok(), -1, wxT("invalid pen") );
	551
	552	return M_PENDATA->m_nbDash;
	553	}
	554
	555	wxBitmap* wxPen::GetStipple() const
	556	{
	557	wxCHECK_MSG( Ok(), NULL, wxT("invalid pen") );
	558
	559	return &(M_PENDATA->m_vStipple);
	560	}
	561
	562	int wx2os2PenStyle(
	563	wxPenStyle nWxStyle
	564	)
	565	{
	566	int nPMStyle = 0;
	567
	568	switch (nWxStyle)
	569	{
	570	case wxPENSTYLE_DOT:
	571	nPMStyle = LINETYPE_DOT;
	572	break;
	573
	574	case wxPENSTYLE_DOT_DASH:
	575	nPMStyle = LINETYPE_DASHDOT;
	576	break;
	577
	578	case wxPENSTYLE_SHORT_DASH:
	579	nPMStyle = LINETYPE_SHORTDASH;
	580	break;
	581
	582	case wxPENSTYLE_LONG_DASH:
	583	nPMStyle = LINETYPE_LONGDASH;
	584	break;
	585
	586	case wxPENSTYLE_TRANSPARENT:
	587	nPMStyle = LINETYPE_INVISIBLE;
	588	break;
	589
	590	case wxPENSTYLE_USER_DASH:
	591	nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
	592	break;
	593
	594	case wxPENSTYLE_SOLID:
	595	default:
	596	nPMStyle = LINETYPE_SOLID;
	597	break;
	598	}
	599	return nPMStyle;
	600	} // end of wx2os2PenStyle