indexing
description: "Graphical resource common features (Icons & Cursors)"
date: "$Date$"
revision: "$Revision$"
deferred class interface
WEL_GRAPHICAL_RESOURCE
feature
gdi_objects_count: INTEGER
WEL_GDI_ANY
get_icon_info: WEL_ICON_INFO
ensure
result_void_or_valid: Result = void or else Result.is_initialized
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
delete
require WEL_REFERENCE_TRACKABLE
reference_not_tracked: not reference_tracked
ensure WEL_REFERENCE_TRACKABLE
destroyed: not shared implies not exists
delete_gdi_object
ensure WEL_GDI_ANY
not_exists: not exists
dispose
Current
delete
WEL_REFERENCE_TRACKABLE
feature
to_integer: INTEGER
item
WEL_ANY
ensure WEL_ANY
Result = cwel_pointer_to_integer (item)
feature
reference_tracked: BOOLEAN
Current
WEL_REFERENCE_TRACKABLE
references_count: INTEGER
WEL_REFERENCE_TRACKABLE
feature
decrement_reference
delete
WEL_REFERENCE_TRACKABLE
require WEL_REFERENCE_TRACKABLE
exists: exists
tracking_references_started: reference_tracked
enable_reference_tracking
references_tracked
WEL_REFERENCE_TRACKABLE
require WEL_REFERENCE_TRACKABLE
exists: exists
tracking_reference_not_started: not reference_tracked
increment_reference
WEL_REFERENCE_TRACKABLE
require WEL_REFERENCE_TRACKABLE
exists: exists
tracking_references_started: reference_tracked
object_id: INTEGER
Current
WEL_REFERENCE_TRACKABLE
invariant
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
end -- WEL_GRAPHICAL_RESOURCE