[wxWidgets.git] / 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"

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

#include "wx/os2/private.h"
#include "assert.h"

IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)

wxPenRefData::wxPenRefData()
{
    m_nStyle  = wxSOLID;
    m_nWidth  = 1;
    m_nJoin   = wxJOIN_ROUND ;
    m_nCap    = wxCAP_ROUND ;
    m_hPen    = 0L;
} // 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_vColour = rData.m_vColour;
    m_hPen    = 0L;
} // end of wxPenRefData::wxPenRefData

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

//
// Pens
//
wxPen::wxPen()
{
    if ( wxThePenList )
        wxThePenList->AddPen(this);
} // end of wxPen::wxPen

wxPen::~wxPen()
{
    if (wxThePenList)
        wxThePenList->RemovePen(this);
} // end of wxPen::wxPen

// Should implement Create
wxPen::wxPen(
  const wxColour&                   rColour
, int                               nWidth
, int                               nStyle
)
{
    m_refData = new wxPenRefData;

    M_PENDATA->m_vColour = rColour;
    M_PENDATA->m_nWidth  = nWidth;
    M_PENDATA->m_nStyle  = nStyle;
    M_PENDATA->m_nJoin   = wxJOIN_ROUND ;
    M_PENDATA->m_nCap    = wxCAP_ROUND ;
    M_PENDATA->m_hPen    = 0L;

    RealizeResource();

    if ( wxThePenList )
        wxThePenList->AddPen(this);
} // end of wxPen::wxPen

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

    M_PENDATA->m_vStipple = rStipple;
    M_PENDATA->m_nWidth   = nWidth;
    M_PENDATA->m_nStyle   = wxSTIPPLE;
    M_PENDATA->m_nJoin    = wxJOIN_ROUND ;
    M_PENDATA->m_nCap     = wxCAP_ROUND ;
    M_PENDATA->m_hPen     = 0;

    RealizeResource();

    if ( wxThePenList )
        wxThePenList->AddPen(this);
} // end of wxPen::wxPen

int wx2os2PenStyle(
  int                               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 == wxTRANSPARENT)
        {
            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;
        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 wxSTIPPLE:
                ::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 wxBDIAGONAL_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 wxCROSSDIAG_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 wxFDIAGONAL_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 wxCROSS_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 wxHORIZONTAL_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 wxVERTICAL_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()
{
    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);
}

void wxPen::Unshare()
{
    // Don't change shared data
    if (!m_refData)
    {
        m_refData = new wxPenRefData();
    }
    else
    {
        wxPenRefData* ref = new wxPenRefData(*(wxPenRefData*)m_refData);
        UnRef();
        m_refData = ref;
    }
} // end of wxPen::Unshare

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

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

void wxPen::SetPS( HPS hPS )
{
    Unshare();
    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
)
{
    Unshare();
    M_PENDATA->m_nWidth = nWidth;
    RealizeResource();
} // end of wxPen::SetWidth

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

void wxPen::SetStipple(
  const wxBitmap&                   rStipple
)
{
    Unshare();
    M_PENDATA->m_vStipple = rStipple;
    M_PENDATA->m_nStyle = wxSTIPPLE;
    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(
  int                               nJoin
)
{
    Unshare();
    M_PENDATA->m_nJoin = nJoin;
    RealizeResource();
} // end of wxPen::SetJoin

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

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

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

        case wxDOT_DASH:
            nPMStyle = LINETYPE_DASHDOT;
            break;

        case wxSHORT_DASH:
            nPMStyle = LINETYPE_SHORTDASH;
            break;

        case wxLONG_DASH:
            nPMStyle = LINETYPE_LONGDASH;
            break;

        case wxTRANSPARENT:
            nPMStyle = LINETYPE_INVISIBLE;
            break;

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

        case wxSOLID:
        default:
            nPMStyle = LINETYPE_SOLID;
            break;
    }
    return nPMStyle;
} // end of wx2os2PenStyle
Commit	Line	Data
0e320a79	1	/////////////////////////////////////////////////////////////////////////////
46562151	2	// Name: src/os2/pen.cpp
0e320a79	3	// Purpose: wxPen
cdf1e714	4	// Author: David Webster
0e320a79	5	// Modified by:
cdf1e714	6	// Created: 10/10/99
0e320a79	7	// RCS-ID: $Id$
cdf1e714	8	// Copyright: (c) David Webster
65571936	9	// Licence: wxWindows licence
0e320a79 DW	10	/////////////////////////////////////////////////////////////////////////////
0e320a79 DW	11
cdf1e714 DW	12	// For compilers that support precompilation, includes "wx.h".
cdf1e714 DW	13	#include "wx/wxprec.h"
0e320a79	14
cdf1e714 DW	15	#ifndef WX_PRECOMP
cdf1e714 DW	16	#include <stdio.h>
0e320a79	17	#include "wx/setup.h"
cdf1e714	18	#include "wx/list.h"
0e320a79	19	#include "wx/utils.h"
cdf1e714	20	#include "wx/app.h"
0e320a79	21	#include "wx/pen.h"
6eb280e9	22	#include "wx/log.h"
0e320a79 DW	23	#endif
0e320a79 DW	24
cdf1e714 DW	25	#include "wx/os2/private.h"
	26	#include "assert.h"
	27
004fd0c8	28	IMPLEMENT_DYNAMIC_CLASS(wxPen, wxGDIObject)
004fd0c8	29
0e320a79 DW	30	wxPenRefData::wxPenRefData()
0e320a79 DW	31	{
26ac77db DW	32	m_nStyle = wxSOLID;
	33	m_nWidth = 1;
	34	m_nJoin = wxJOIN_ROUND ;
	35	m_nCap = wxCAP_ROUND ;
	36	m_hPen = 0L;
	37	} // end of wxPenRefData::wxPenRefData
	38
	39	wxPenRefData::wxPenRefData(
	40	const wxPenRefData& rData
	41	)
0e320a79	42	{
26ac77db DW	43	m_nStyle = rData.m_nStyle;
	44	m_nWidth = rData.m_nWidth;
	45	m_nJoin = rData.m_nJoin;
	46	m_nCap = rData.m_nCap;
	47	m_vColour = rData.m_vColour;
	48	m_hPen = 0L;
	49	} // end of wxPenRefData::wxPenRefData
0e320a79 DW	50
	51	wxPenRefData::~wxPenRefData()
	52	{
26ac77db	53	} // end of wxPenRefData::~wxPenRefData
0e320a79	54
26ac77db	55	//
0e320a79	56	// Pens
26ac77db	57	//
0e320a79 DW	58	wxPen::wxPen()
	59	{
	60	if ( wxThePenList )
	61	wxThePenList->AddPen(this);
26ac77db	62	} // end of wxPen::wxPen
0e320a79 DW	63
	64	wxPen::~wxPen()
	65	{
	66	if (wxThePenList)
	67	wxThePenList->RemovePen(this);
26ac77db	68	} // end of wxPen::wxPen
0e320a79 DW	69
0e320a79 DW	70	// Should implement Create
26ac77db DW	71	wxPen::wxPen(
	72	const wxColour& rColour
	73	, int nWidth
	74	, int nStyle
	75	)
0e320a79 DW	76	{
	77	m_refData = new wxPenRefData;
	78
26ac77db DW	79	M_PENDATA->m_vColour = rColour;
	80	M_PENDATA->m_nWidth = nWidth;
	81	M_PENDATA->m_nStyle = nStyle;
	82	M_PENDATA->m_nJoin = wxJOIN_ROUND ;
	83	M_PENDATA->m_nCap = wxCAP_ROUND ;
	84	M_PENDATA->m_hPen = 0L;
	85
0e320a79 DW	86	RealizeResource();
	87
	88	if ( wxThePenList )
	89	wxThePenList->AddPen(this);
26ac77db	90	} // end of wxPen::wxPen
0e320a79	91
26ac77db DW	92	wxPen::wxPen(
	93	const wxBitmap& rStipple
	94	, int nWidth
	95	)
0e320a79 DW	96	{
	97	m_refData = new wxPenRefData;
	98
26ac77db DW	99	M_PENDATA->m_vStipple = rStipple;
	100	M_PENDATA->m_nWidth = nWidth;
	101	M_PENDATA->m_nStyle = wxSTIPPLE;
	102	M_PENDATA->m_nJoin = wxJOIN_ROUND ;
	103	M_PENDATA->m_nCap = wxCAP_ROUND ;
	104	M_PENDATA->m_hPen = 0;
0e320a79 DW	105
	106	RealizeResource();
	107
	108	if ( wxThePenList )
	109	wxThePenList->AddPen(this);
26ac77db	110	} // end of wxPen::wxPen
0e320a79	111
272ebf16 SN	112	int wx2os2PenStyle(
	113	int nWxStyle
	114	);
	115
cdf1e714 DW	116	bool wxPen::RealizeResource()
cdf1e714 DW	117	{
26ac77db DW	118	BOOL bOk;
	119	ERRORID vError;
	120	wxString sError;
	121
	122	if (M_PENDATA && M_PENDATA->m_hPen == 0L)
	123	{
	124	SIZEL vSize = {0, 0};
	125	DEVOPENSTRUC vDop = {0L, "DISPLAY", NULL, 0L, 0L, 0L, 0L, 0L, 0L};
	126	HDC hDC = ::DevOpenDC( vHabmain
	127	,OD_MEMORY
	128	,"*"
	129	,5L
	130	,(PDEVOPENDATA)&vDop
	131	,NULLHANDLE
	132	);
	133	M_PENDATA->m_hPen = (WXHPEN)::GpiCreatePS( vHabmain
	134	,hDC
	135	,&vSize
	136	,PU_PELS \| GPIT_MICRO \| GPIA_ASSOC
	137	);
	138	}
	139	if (M_PENDATA)
	140	{
	141	//
	142	// Set the color table to RGB mode
	143	//
	144	if (!::GpiCreateLogColorTable( (HPS)M_PENDATA->m_hPen
	145	,0L
	146	,LCOLF_RGB
	147	,0L
	148	,0L
	149	,NULL
	150	))
	151	{
	152	vError = ::WinGetLastError(vHabmain);
	153	sError = wxPMErrorToStr(vError);
0fba44b4	154	wxLogError(_T("Unable to set current color table to RGB mode. Error: %s\n"), sError.c_str());
46562151	155	return false;
26ac77db DW	156	}
	157	if (M_PENDATA->m_nStyle == wxTRANSPARENT)
	158	{
6670f564	159	return true;
26ac77db DW	160	}
26ac77db DW	161
6670f564 WS	162	COLORREF vPmColour = 0L;
6670f564 WS	163	USHORT uLineType = (USHORT)wx2os2PenStyle(M_PENDATA->m_nStyle);
26ac77db DW	164
	165	vPmColour = M_PENDATA->m_vColour.GetPixel();
	166
	167	USHORT uJoin = 0L;
	168
	169	switch(M_PENDATA->m_nJoin)
	170	{
	171	case wxJOIN_BEVEL:
	172	uJoin = LINEJOIN_BEVEL;
	173	break;
	174
	175	case wxJOIN_MITER:
	176	uJoin = LINEJOIN_MITRE;
	177	break;
	178
	179	case wxJOIN_ROUND:
	180	uJoin = LINEJOIN_ROUND;
	181	break;
	182	}
	183
	184	USHORT uCap = 0L;
	185
	186	switch(M_PENDATA->m_nCap)
	187	{
	188	case wxCAP_PROJECTING:
	189	uCap = LINEEND_SQUARE;
	190	break;
	191
	192	case wxCAP_BUTT:
	193	uCap = LINEEND_FLAT;
	194	break;
	195
	196	case wxCAP_ROUND:
	197	uCap = LINEEND_ROUND;
	198	break;
	199	}
	200	m_vLineBundle.lColor = (LONG)vPmColour;
	201	m_vLineBundle.usMixMode = FM_OVERPAINT;
	202	m_vLineBundle.fxWidth = M_PENDATA->m_nWidth;
	203	m_vLineBundle.lGeomWidth = M_PENDATA->m_nWidth;
	204	m_vLineBundle.usType = uLineType;
	205	m_vLineBundle.usEnd = uCap;
	206	m_vLineBundle.usJoin = uJoin;
	207
	208	bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
	209	,PRIM_LINE
	210	,LBB_COLOR \| LBB_MIX_MODE \| LBB_WIDTH \| LBB_GEOM_WIDTH \| LBB_TYPE \| LBB_END \| LBB_JOIN
	211	,0L
	212	,&m_vLineBundle
	213	);
	214	if (!bOk)
	215	{
	216	vError = ::WinGetLastError(vHabmain);
	217	sError = wxPMErrorToStr(vError);
0fba44b4	218	wxLogError(_T("Can't set Gpi attributes for a LINEBUNDLE. Error: %s\n"), sError.c_str());
46562151	219	return false;
26ac77db DW	220	}
26ac77db DW	221
d697657f DW	222	ULONG flAttrMask = 0L;
d697657f DW	223	ULONG flDefMask = 0L;
26ac77db DW	224	switch(M_PENDATA->m_nStyle)
	225	{
	226	case wxSTIPPLE:
	227	::GpiSetBitmapId( M_PENDATA->m_hPen
	228	,(USHORT)M_PENDATA->m_vStipple.GetHBITMAP()
	229	,(USHORT)M_PENDATA->m_vStipple.GetId()
	230	);
	231	::GpiSetPatternSet( M_PENDATA->m_hPen
	232	,(USHORT)M_PENDATA->m_vStipple.GetId()
	233	);
d697657f DW	234	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SET \| ABB_SYMBOL;
d697657f DW	235	flDefMask = ABB_REF_POINT;
26ac77db DW	236	break;
	237
	238	case wxBDIAGONAL_HATCH:
	239	m_vAreaBundle.usSymbol = PATSYM_DIAG3;
	240	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	241	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	242	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	243	break;
	244
	245	case wxCROSSDIAG_HATCH:
	246	m_vAreaBundle.usSymbol = PATSYM_DIAGHATCH;
	247	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	248	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	249	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	250	break;
	251
	252	case wxFDIAGONAL_HATCH:
	253	m_vAreaBundle.usSymbol = PATSYM_DIAG1;
	254	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	255	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	256	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	257	break;
	258
	259	case wxCROSS_HATCH:
	260	m_vAreaBundle.usSymbol = PATSYM_HATCH;
	261	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	262	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	263	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	264	break;
	265
	266	case wxHORIZONTAL_HATCH:
	267	m_vAreaBundle.usSymbol = PATSYM_HORIZ;
	268	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	269	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	270	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	271	break;
	272
	273	case wxVERTICAL_HATCH:
	274	m_vAreaBundle.usSymbol = PATSYM_VERT;
	275	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	276	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	277	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	278	break;
	279
	280	default:
	281	m_vAreaBundle.usSymbol = PATSYM_SOLID;
	282	m_vAreaBundle.usSet = LCID_DEFAULT;
d697657f DW	283	flAttrMask = ABB_COLOR \| ABB_BACK_COLOR \| ABB_MIX_MODE \| ABB_BACK_MIX_MODE \| ABB_SYMBOL;
d697657f DW	284	flDefMask = ABB_SET \| ABB_REF_POINT;
26ac77db DW	285	break;
	286	}
	287
	288	m_vAreaBundle.lColor = vPmColour;
8d854fa9	289	m_vAreaBundle.lBackColor = RGB_WHITE;
26ac77db DW	290	m_vAreaBundle.usMixMode = FM_OVERPAINT;
	291	m_vAreaBundle.usBackMixMode = BM_OVERPAINT;
	292
	293	bOk = ::GpiSetAttrs( M_PENDATA->m_hPen
	294	,PRIM_AREA
d697657f DW	295	,flAttrMask
d697657f DW	296	,flDefMask
26ac77db DW	297	,&m_vAreaBundle
	298	);
	299	if (!bOk)
	300	{
	301	vError = ::WinGetLastError(vHabmain);
	302	sError = wxPMErrorToStr(vError);
0fba44b4	303	wxLogError(_T("Can't set Gpi attributes for an AREABUNDLE. Error: %s\n"), sError.c_str());
26ac77db	304	}
6670f564 WS	305
6670f564 WS	306	return (bool)bOk;
26ac77db	307	}
6670f564	308	return false;
26ac77db	309	} // end of wxPen::RealizeResource
cdf1e714 DW	310
	311	WXHANDLE wxPen::GetResourceHandle()
	312	{
26ac77db	313	if (!M_PENDATA)
cdf1e714 DW	314	return 0;
	315	else
	316	return (WXHANDLE)M_PENDATA->m_hPen;
26ac77db	317	} // end of wxPen::GetResourceHandle
cdf1e714	318
6670f564	319	bool wxPen::FreeResource( bool WXUNUSED(bForce) )
cdf1e714 DW	320	{
	321	if (M_PENDATA && (M_PENDATA->m_hPen != 0))
	322	{
cdf1e714	323	M_PENDATA->m_hPen = 0;
6670f564	324	return true;
cdf1e714	325	}
6670f564	326	else return false;
26ac77db	327	} // end of wxPen::FreeResource
cdf1e714	328
e6ebb514 DW	329	bool wxPen::IsFree() const
e6ebb514 DW	330	{
26ac77db	331	return (M_PENDATA && M_PENDATA->m_hPen == 0);
e6ebb514 DW	332	}
e6ebb514 DW	333
0e320a79 DW	334	void wxPen::Unshare()
0e320a79 DW	335	{
cdf1e714 DW	336	// Don't change shared data
cdf1e714 DW	337	if (!m_refData)
0e320a79	338	{
cdf1e714 DW	339	m_refData = new wxPenRefData();
cdf1e714 DW	340	}
0e320a79 DW	341	else
0e320a79 DW	342	{
cdf1e714 DW	343	wxPenRefData* ref = new wxPenRefData((wxPenRefData)m_refData);
	344	UnRef();
	345	m_refData = ref;
	346	}
26ac77db	347	} // end of wxPen::Unshare
0e320a79	348
46562151	349	void wxPen::SetColour( const wxColour& rColour )
0e320a79 DW	350	{
0e320a79 DW	351	Unshare();
26ac77db	352	M_PENDATA->m_vColour = rColour;
0e320a79	353	RealizeResource();
26ac77db	354	} // end of wxPen::SetColour
0e320a79	355
1a1498c0	356	void wxPen::SetColour( unsigned char cRed, unsigned char cGreen, unsigned char cBlue)
0e320a79 DW	357	{
0e320a79 DW	358	Unshare();
26ac77db	359	M_PENDATA->m_vColour.Set(cRed, cGreen, cBlue);
0e320a79	360	RealizeResource();
26ac77db	361	} // end of wxPen::SetColour
0e320a79	362
46562151	363	void wxPen::SetPS( HPS hPS )
0e320a79 DW	364	{
0e320a79 DW	365	Unshare();
26ac77db DW	366	if (M_PENDATA->m_hPen)
	367	::GpiDestroyPS(M_PENDATA->m_hPen);
	368	M_PENDATA->m_hPen = hPS;
0e320a79	369	RealizeResource();
26ac77db	370	} // end of WxWinGdi_CPen::SetPS
0e320a79	371
26ac77db DW	372	void wxPen::SetWidth(
	373	int nWidth
	374	)
0e320a79 DW	375	{
0e320a79 DW	376	Unshare();
26ac77db	377	M_PENDATA->m_nWidth = nWidth;
0e320a79	378	RealizeResource();
26ac77db	379	} // end of wxPen::SetWidth
0e320a79	380
26ac77db DW	381	void wxPen::SetStyle(
	382	int nStyle
	383	)
0e320a79 DW	384	{
0e320a79 DW	385	Unshare();
26ac77db	386	M_PENDATA->m_nStyle = nStyle;
0e320a79	387	RealizeResource();
26ac77db	388	} // end of wxPen::SetStyle
0e320a79	389
26ac77db DW	390	void wxPen::SetStipple(
	391	const wxBitmap& rStipple
	392	)
0e320a79 DW	393	{
0e320a79 DW	394	Unshare();
26ac77db DW	395	M_PENDATA->m_vStipple = rStipple;
26ac77db DW	396	M_PENDATA->m_nStyle = wxSTIPPLE;
0e320a79	397	RealizeResource();
26ac77db	398	} // end of wxPen::SetStipple
0e320a79	399
6670f564 WS	400	void wxPen::SetDashes( int WXUNUSED(nNbDashes),
6670f564 WS	401	const wxDash* WXUNUSED(pDash) )
26ac77db DW	402	{
	403	//
	404	// Does nothing under OS/2
	405	//
	406	} // end of wxPen::SetDashes
	407
	408	void wxPen::SetJoin(
	409	int nJoin
	410	)
0e320a79 DW	411	{
0e320a79 DW	412	Unshare();
26ac77db	413	M_PENDATA->m_nJoin = nJoin;
0e320a79	414	RealizeResource();
26ac77db	415	} // end of wxPen::SetJoin
0e320a79	416
26ac77db DW	417	void wxPen::SetCap(
	418	int nCap
	419	)
0e320a79 DW	420	{
0e320a79 DW	421	Unshare();
26ac77db	422	M_PENDATA->m_nCap = nCap;
0e320a79	423	RealizeResource();
26ac77db	424	} // end of wxPen::SetCap
0e320a79	425
26ac77db DW	426	int wx2os2PenStyle(
	427	int nWxStyle
	428	)
cdf1e714	429	{
26ac77db DW	430	int nPMStyle = 0;
	431
	432	switch (nWxStyle)
fb46a9a6	433	{
26ac77db DW	434	case wxDOT:
	435	nPMStyle = LINETYPE_DOT;
	436	break;
	437
	438	case wxDOT_DASH:
	439	nPMStyle = LINETYPE_DASHDOT;
	440	break;
	441
	442	case wxSHORT_DASH:
	443	nPMStyle = LINETYPE_SHORTDASH;
	444	break;
	445
	446	case wxLONG_DASH:
	447	nPMStyle = LINETYPE_LONGDASH;
	448	break;
	449
	450	case wxTRANSPARENT:
	451	nPMStyle = LINETYPE_INVISIBLE;
	452	break;
	453
	454	case wxUSER_DASH:
	455	nPMStyle = LINETYPE_DASHDOUBLEDOT; // We must make a choice... This is mine!
	456	break;
	457
	458	case wxSOLID:
	459	default:
	460	nPMStyle = LINETYPE_SOLID;
	461	break;
	462	}
	463	return nPMStyle;
	464	} // end of wx2os2PenStyle