    class
    	EV_WEL_DIB

    General
    	cluster: implementation_mswin
    	description: "EiffelVision WEL_DIB version. We do not want the file  given as argument to be closed."
    	create: make_by_stream, make_by_file

    Ancestors
    	WEL_DIB

    Queries
    	color_count: INTEGER_32
    	exists: BOOLEAN
    	height: INTEGER_32
    	is_equal (other: [like Current] EV_WEL_DIB): BOOLEAN
    	item: POINTER
    	item_bits: POINTER
    	palette: WEL_PALETTE
    	shared: BOOLEAN
    	structure_size: INTEGER_32
    	width: INTEGER_32

    Commands
    	copy (other: [like Current] EV_WEL_DIB)
    	dispose
    	initialize
    	initialize_with_character (a_character: CHARACTER_8)
    	memory_copy (source_pointer: POINTER; length: INTEGER_32)
    	set_item (an_item: POINTER)
    	set_pal_color
    	set_shared
    	set_unshared