    class
    	EV_GDI_ALLOCATED_PENS

    General
    	cluster: implementation_mswin
    	description: " EiffelVision utility used to retrieve an allocated WEL item.  This class has been created in order to decrease the number of  GDI object allocated."
    	create: default_create

    Ancestors
    	EV_GDI_ALLOCATED_OBJECTS [G -> EV_GDI_OBJECT]
    	WEL_PS_CONSTANTS

    Queries
    	get (a_dashed_mode, a_width: INTEGER_32; a_color: WEL_COLOR_REF): WEL_PEN

    Commands
    	default_create