    class
    	EV_POINTER_STYLE_IMP

    General
    	cluster: implementation_mswin
    	description: "Windows implementation of EV_POINTER_STYLE_I."
    	keywords: "mouse, pointer, cursor, arrow"
    	create: make

    Ancestors
    	EV_POINTER_STYLE_I*

    Queries
    	height: INTEGER_32
    	to_windows_constants (a_constants: INTEGER_32): POINTER
    	wel_cursor: WEL_CURSOR
    	width: INTEGER_32
    	x_hotspot: INTEGER_32
    	y_hotspot: INTEGER_32

    Commands
    	destroy
    	set_hotspot_imp (a_position: INTEGER_32; a_is_x: BOOLEAN)
    	set_x_hotspot (a_x: INTEGER_32)
    	set_y_hotspot (a_y: INTEGER_32)