indexing
	description: "Objects that represent stones carrying a GB_OBJECT representing a clipboard object."
	date: "$Date$"
	revision: "$Revision$"

class
	GB_CLIPBOARD_OBJECT_STONE
	
inherit
	GB_OBJECT_STONE
		redefine
			object,
			default_create
		end
		
	GB_SHARED_CLIPBOAD
		export
			{NONE} all
		redefine
			default_create
		end
		
feature {NONE} -- Initialization

	default_create is
			-- Create `Current' and initialize `all_contained_instances'.
		do
			create all_contained_instances.make (10)
		end

feature -- Access

	object: GB_OBJECT is
			-- Object which `Current' is representing.
			-- Warning this builds new objects, so do not call
			-- from a veto pebble function, only on the drop.
		do
			Result := clipboard.object
		end
		
	object_type: STRING is
			-- EiffelVision2 Type of object represented.
		do
			Result := clipboard.object_type
		end
		
feature {GB_CLIPBOARD} -- Implementation
		
	set_associated_top_level_object (an_id: INTEGER) is
			-- Assign `an_id' to `associated_top_level_object'.
		require
			an_id_positive: an_id > 0
		do
			associated_top_level_object := an_id
		end

end -- class GB_CLIPBOARD_OBJECT_STONE