indexing
	description: "General notions of a loadable resource."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"
	note: "`make_by_predefined_id' does now take a POINTER as argument.Please change any external clauses of existing prefedefinedIDs to POINTER too. Predefined IDs are correctly casted onthe C-side already"
deferred class interface
	WEL_RESOURCE
feature 
	item: POINTER
			
			
			 WEL_ANY
	
feature 
	exists: BOOLEAN
			item
			 WEL_ANY
		ensure  WEL_ANY
			Result = (item /= default_pointer)
	shared: BOOLEAN
			item
			item
			destroy_item
			item
			 WEL_ANY
	
feature 
	set_shared
			shared
			 WEL_ANY
		ensure  WEL_ANY
			shared: shared
	set_unshared
			shared
			 WEL_ANY
		ensure  WEL_ANY
			unshared: not shared
	
feature 
	set_item (an_item: POINTER)
			iteman_item
			 WEL_ANY
		ensure  WEL_ANY
			item_set: item = an_item
	
feature 
	dispose
			Current
			
			
			Current
			
			 WEL_ANY
	
feature 
	to_integer: INTEGER
			item
			 WEL_ANY
		ensure  WEL_ANY
			Result = cwel_pointer_to_integer (item)
	
invariant
		 ANY
	reflexive_equality: standard_is_equal (Current)
	reflexive_conformance: conforms_to (Current)
end -- WEL_RESOURCE