Automatic generation produced by ISE Eiffel
note description: "Contains information about the class, title, owner, location, and size of a MDI child window." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2011-01-13 14:53:42 -0900 (Thu, 13 Jan 2011) $" revision: "$Revision: 85350 $" class interface WEL_MDI_CREATE_STRUCT create make (a_class_name: READABLE_STRING_GENERAL; a_title: READABLE_STRING_GENERAL) -- Make a MDI create structure with a_class_name and -- a_title. require a_class_name_not_void: a_class_name /= Void a_title_not_void: a_title /= Void ensure class_name_set: class_name.same_string_general (a_class_name) title_set: title.same_string_general (a_title) owner_set: owner.item = Main_args.Current_instance.item style_set: style = 0 lparam_set: lparam = default_pointer feature -- Access class_name: STRING_32 -- Class name of the MDI child window ensure result_not_void: Result /= Void generating_type: TYPE [detachable WEL_MDI_CREATE_STRUCT] -- Type of current object -- (type of which it is a direct instance) -- (from ANY) ensure -- from ANY generating_type_not_void: Result /= Void generator: STRING_8 -- Name of current object's generating class -- (base class of the type of which it is a direct instance) -- (from ANY) ensure -- from ANY generator_not_void: Result /= Void generator_not_empty: not Result.is_empty height: INTEGER_32 -- Height of the MDI child window require exists: exists item: POINTER -- Generic Windows handle or structure pointer. -- Can be a HWND, HICON, RECT *, WNDCLASS *, etc... -- (from WEL_ANY) lparam: POINTER -- Lparam of the MDI child window require exists: exists owner: WEL_INSTANCE -- Owner of the MDI child window require exists: exists ensure result_not_void: Result /= Void style: INTEGER_32 -- Style of the MDI child window require exists: exists title: STRING_32 -- Title of the MDI child window ensure result_not_void: Result /= Void width: INTEGER_32 -- Width of the MDI child window require exists: exists x: INTEGER_32 -- x position of the MDI child window require exists: exists y: INTEGER_32 -- y position of the MDI child window require exists: exists feature -- Measurement Structure_size: INTEGER_32 -- Size to allocate (in bytes) ensure -- from WEL_STRUCTURE positive_result: Result > 0 feature -- Comparison frozen deep_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void -- or attached to isomorphic object structures? -- (from ANY) ensure -- from ANY instance_free: class shallow_implies_deep: standard_equal (a, b) implies Result both_or_none_void: (a = Void) implies (Result = (b = Void)) same_type: (Result and (a /= Void)) implies (b /= Void and then a.same_type (b)) symmetric: Result implies deep_equal (b, a) frozen equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached -- to objects considered equal? -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.is_equal (b)) frozen is_deep_equal alias "≡≡≡" (other: WEL_MDI_CREATE_STRUCT): BOOLEAN -- Are Current and other attached to isomorphic object structures? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY shallow_implies_deep: standard_is_equal (other) implies Result same_type: Result implies same_type (other) symmetric: Result implies other.is_deep_equal (Current) frozen standard_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached to -- field-by-field identical objects of the same type? -- Always uses default object comparison criterion. -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.standard_is_equal (b)) frozen standard_is_equal alias "≜" (other: WEL_MDI_CREATE_STRUCT): BOOLEAN -- Is other attached to an object of the same type -- as current object, and field-by-field identical to it? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY same_type: Result implies same_type (other) symmetric: Result implies other.standard_is_equal (Current) feature -- Status report conforms_to (other: ANY): BOOLEAN -- Does type of current object conform to type -- of other (as per Eiffel: The Language, chapter 13)? -- (from ANY) require -- from ANY other_not_void: other /= Void exists: BOOLEAN -- Does the `item` exist? -- (from WEL_ANY) ensure -- from WEL_ANY Result = (item /= default_pointer) same_type (other: ANY): BOOLEAN -- Is type of current object identical to type of other? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY definition: Result = (conforms_to (other) and other.conforms_to (Current)) shared: BOOLEAN -- Is `item` shared by another object? -- If False (by default), `item` will -- be destroyed by `destroy_item`. -- If True, `item` will not be destroyed. -- (from WEL_ANY) feature -- Status setting set_shared -- Set `shared` to True. -- (from WEL_ANY) ensure -- from WEL_ANY shared: shared set_unshared -- Set `shared` to False. -- (from WEL_ANY) ensure -- from WEL_ANY unshared: not shared feature -- Element change set_class_name (a_class_name: READABLE_STRING_GENERAL) -- Set `class_name` with a_class_name require exists: exists a_class_name_valid: a_class_name /= Void ensure class_name_set: class_name.same_string_general (a_class_name) set_height (a_height: INTEGER_32) -- Set `height` with a_height require exists: exists set_item (an_item: POINTER) -- Set `item` with an_item -- (from WEL_ANY) ensure -- from WEL_ANY item_set: item = an_item set_lparam (a_lparam: POINTER) -- Set `lparam` with a_lparam require exists: exists ensure lparam_set: lparam = a_lparam set_owner (an_owner: WEL_INSTANCE) -- Set `owner` with an_owner require exists: exists an_owner_not_void: an_owner /= Void an_owner_exists: an_owner.exists ensure owner_set: owner.item = an_owner.item set_style (a_style: INTEGER_32) -- Set `style` with a_style require exists: exists ensure style_set: style = a_style set_title (a_title: READABLE_STRING_GENERAL) -- Set `title` with a_title require exists: exists a_title_valid: a_title /= Void ensure title_set: title.same_string_general (a_title) set_width (a_width: INTEGER_32) -- Set `width` with a_width require exists: exists set_x (a_x: INTEGER_32) -- Set `x` with a_x require exists: exists set_y (a_y: INTEGER_32) -- Set `y` with a_y require exists: exists feature -- Removal dispose -- Destroy the inner structure of Current. -- -- This function should be called by the GC when the -- object is collected or by the user if Current is -- no more usefull. -- (from WEL_ANY) feature -- Duplication frozen deep_copy (other: WEL_MDI_CREATE_STRUCT) -- Effect equivalent to that of: -- `copy` (other . `deep_twin`) -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY deep_equal: deep_equal (Current, other) frozen deep_twin: WEL_MDI_CREATE_STRUCT -- New object structure recursively duplicated from Current. -- (from ANY) ensure -- from ANY deep_twin_not_void: Result /= Void deep_equal: deep_equal (Current, Result) frozen standard_copy (other: WEL_MDI_CREATE_STRUCT) -- Copy every field of other onto corresponding field -- of current object. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_standard_equal: standard_is_equal (other) frozen standard_twin: WEL_MDI_CREATE_STRUCT -- New object field-by-field identical to other. -- Always uses default copying semantics. -- (from ANY) ensure -- from ANY standard_twin_not_void: Result /= Void equal: standard_equal (Result, Current) frozen twin: WEL_MDI_CREATE_STRUCT -- New object equal to Current -- `twin` calls `copy`; to change copying/twinning semantics, redefine `copy`. -- (from ANY) ensure -- from ANY twin_not_void: Result /= Void is_equal: Result ~ Current feature -- Miscellaneous Cw_usedefault: INTEGER_32 = -2147483648 -- Declared in Windows as CW_USEDEFAULT -- (from WEL_WS_CONSTANTS) feature -- Basic operations copy (other: WEL_MDI_CREATE_STRUCT) -- Update current object using fields of object attached -- to other, so as to yield equal objects. -- (from WEL_STRUCTURE) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_equal: Current ~ other frozen default: detachable WEL_MDI_CREATE_STRUCT -- Default value of object's type -- (from ANY) frozen default_pointer: POINTER -- Default value of type POINTER -- (Avoid the need to write p.`default` for -- some p of type POINTER.) -- (from ANY) ensure -- from ANY instance_free: class default_rescue -- Process exception for routines with no Rescue clause. -- (Default: do nothing.) -- (from ANY) frozen do_nothing -- Execute a null action. -- (from ANY) ensure -- from ANY instance_free: class initialize -- Fill Current with zeros. -- (from WEL_STRUCTURE) require -- from WEL_STRUCTURE exists: exists initialize_with_character (a_character: CHARACTER_8) -- Fill current with a_character. -- (from WEL_STRUCTURE) require -- from WEL_STRUCTURE exists: exists is_equal (other: WEL_MDI_CREATE_STRUCT): BOOLEAN -- Is other attached to an object considered -- equal to current object? -- (from WEL_STRUCTURE) require -- from ANY other_not_void: other /= Void ensure -- from ANY symmetric: Result implies other ~ Current consistent: standard_is_equal (other) implies Result memory_copy (source_pointer: POINTER; length: INTEGER_32) -- Copy length bytes from source_pointer to `item`. -- (from WEL_STRUCTURE) require -- from WEL_STRUCTURE length_small_enough: length <= Structure_size length_large_enough: length > 0 exists: exists feature -- Basic window types Ws_child: INTEGER_32 = 1073741824 -- Declared in Windows as WS_CHILD -- (from WEL_WS_CONSTANTS) Ws_overlapped: INTEGER_32 = 0 -- Declared in Windows as WS_OVERLAPPED -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_tiled`. -- (from WEL_WS_CONSTANTS) Ws_popup: INTEGER_32 = -2147483648 -- Declared in Windows as WS_POPUP -- (from WEL_WS_CONSTANTS) Ws_tiled: INTEGER_32 = 0 -- Declared in Windows as WS_OVERLAPPED -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_overlapped`. -- (from WEL_WS_CONSTANTS) feature -- Clipping styles Ws_clipchildren: INTEGER_32 = 33554432 -- Declared in Windows as WS_CLIPCHILDREN -- (from WEL_WS_CONSTANTS) Ws_clipsiblings: INTEGER_32 = 67108864 -- Declared in Windows as WS_CLIPSIBLINGS -- (from WEL_WS_CONSTANTS) feature -- Common window styles Ws_childwindow: INTEGER_32 = 1073741824 -- Declared in Windows as WS_CHILDWINDOW -- (from WEL_WS_CONSTANTS) Ws_overlappedwindow: INTEGER_32 = 13565952 -- Declared in Windows as WS_OVERLAPPEDWINDOW -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_tiledwindow`. -- (from WEL_WS_CONSTANTS) Ws_popupwindow: INTEGER_32 = -2138570752 -- Declared in Windows as WS_POPUPWINDOW -- (from WEL_WS_CONSTANTS) Ws_tiledwindow: INTEGER_32 = 13565952 -- Declared in Windows as WS_OVERLAPPEDWINDOW -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_overlappedwindow`. -- (from WEL_WS_CONSTANTS) feature -- Control window styles Ws_group: INTEGER_32 = 131072 -- Declared in Windows as WS_GROUP -- (from WEL_WS_CONSTANTS) Ws_tabstop: INTEGER_32 = 65536 -- Declared in Windows as WS_TABSTOP -- (from WEL_WS_CONSTANTS) feature -- Extended window styles Ws_ex_acceptfiles: INTEGER_32 = 16 -- Declared in Windows as WS_EX_ACCEPTFILES -- (from WEL_WS_CONSTANTS) Ws_ex_appwindow: INTEGER_32 = 262144 -- (from WEL_WS_CONSTANTS) Ws_ex_clientedge: INTEGER_32 = 512 -- Declared in Windows as WS_EX_CLIENTEDGE -- (from WEL_WS_CONSTANTS) Ws_ex_composited: INTEGER_32 = 33554432 -- Declared in Windows as WS_EX_COMPOSITED -- (from WEL_WS_CONSTANTS) Ws_ex_contexthelp: INTEGER_32 = 1024 -- Declared in Windows as WS_EX_CONTEXTHELP -- (from WEL_WS_CONSTANTS) Ws_ex_controlparent: INTEGER_32 = 65536 -- Declared in Windows as WS_EX_CONTROLPARENT -- (from WEL_WS_CONSTANTS) Ws_ex_dlgmodalframe: INTEGER_32 = 1 -- Declared in Windows as WS_EX_DLGMODALFRAME -- (from WEL_WS_CONSTANTS) Ws_ex_layered: INTEGER_32 = 524288 -- Declared in Windows as WS_EX_LAYERED -- (from WEL_WS_CONSTANTS) Ws_ex_left: INTEGER_32 = 0 -- Declared in Windows as WS_EX_LEFT -- (from WEL_WS_CONSTANTS) Ws_ex_leftscrollbar: INTEGER_32 = 16384 -- Declared in Windows as WS_EX_LEFTSCROLLBAR -- (from WEL_WS_CONSTANTS) Ws_ex_ltrreading: INTEGER_32 = 0 -- Declared in Windows as WS_EX_LTRREADING -- (from WEL_WS_CONSTANTS) Ws_ex_mdichild: INTEGER_32 = 64 -- Declared in Windows as WS_EX_MDICHILD -- (from WEL_WS_CONSTANTS) Ws_ex_noactivate: INTEGER_32 = 134217728 -- Declared in Windows as WS_EX_NOACTIVATE -- (from WEL_WS_CONSTANTS) Ws_ex_noparentnotify: INTEGER_32 = 4 -- Declared in Windows as WS_EX_NOPARENTNOTIFY -- (from WEL_WS_CONSTANTS) Ws_ex_overlappedwindow: INTEGER_32 = 768 -- Declared in Windows as WS_EX_OVERLAPPEDWINDOW -- (from WEL_WS_CONSTANTS) Ws_ex_palettewindow: INTEGER_32 = 392 -- Declared in Windows as WS_EX_PALETTEWINDOW -- (from WEL_WS_CONSTANTS) Ws_ex_right: INTEGER_32 = 4096 -- Declared in Windows as WS_EX_RIGHT -- (from WEL_WS_CONSTANTS) Ws_ex_rightscrollbar: INTEGER_32 = 0 -- Declared in Windows as WS_EX_RIGHTSCROLLBAR -- (from WEL_WS_CONSTANTS) Ws_ex_rtlreading: INTEGER_32 = 8192 -- Declared in Windows as WS_EX_RTLREADING -- (from WEL_WS_CONSTANTS) Ws_ex_staticedge: INTEGER_32 = 131072 -- Declared in Windows as WS_EX_STATICEDGE -- (from WEL_WS_CONSTANTS) Ws_ex_toolwindow: INTEGER_32 = 128 -- Declared in Windows as WS_EX_TOOLWINDOW -- (from WEL_WS_CONSTANTS) Ws_ex_topmost: INTEGER_32 = 8 -- Declared in Windows as WS_EX_TOPMOST -- (from WEL_WS_CONSTANTS) Ws_ex_transparent: INTEGER_32 = 32 -- Declared in Windows as WS_EX_TRANSPARENT -- (from WEL_WS_CONSTANTS) Ws_ex_windowedge: INTEGER_32 = 256 -- Declared in Windows as WS_EX_WINDOWEDGE -- (from WEL_WS_CONSTANTS) feature -- Generic window states Ws_disabled: INTEGER_32 = 134217728 -- Declared in Windows as WS_DISABLED -- (from WEL_WS_CONSTANTS) Ws_visible: INTEGER_32 = 268435456 -- Declared in Windows as WS_VISIBLE -- (from WEL_WS_CONSTANTS) feature -- Main window states Ws_iconic: INTEGER_32 = 536870912 -- Declared in Windows as WS_MINIMIZE -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_minimize`. -- (from WEL_WS_CONSTANTS) Ws_maximize: INTEGER_32 = 16777216 -- Declared in Windows as WS_MAXIMIZE -- (from WEL_WS_CONSTANTS) Ws_minimize: INTEGER_32 = 536870912 -- Declared in Windows as WS_MINIMIZE -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_iconic`. -- (from WEL_WS_CONSTANTS) feature -- Main window styles Ws_border: INTEGER_32 = 8388608 -- Declared in Windows as WS_BORDER -- (from WEL_WS_CONSTANTS) Ws_caption: INTEGER_32 = 12582912 -- Declared in Windows as WS_CAPTION -- (from WEL_WS_CONSTANTS) Ws_dlgframe: INTEGER_32 = 4194304 -- Declared in Windows as WS_DLGFRAME -- (from WEL_WS_CONSTANTS) Ws_hscroll: INTEGER_32 = 1048576 -- Declared in Windows as WS_HSCROLL -- (from WEL_WS_CONSTANTS) Ws_maximizebox: INTEGER_32 = 65536 -- Declared in Windows as WS_MAXIMIZEBOX -- (from WEL_WS_CONSTANTS) Ws_minimizebox: INTEGER_32 = 131072 -- Declared in Windows as WS_MINIMIZEBOX -- (from WEL_WS_CONSTANTS) Ws_sizebox: INTEGER_32 = 262144 -- Declared in Windows as WS_THICKFRAME -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_thickframe`. -- (from WEL_WS_CONSTANTS) Ws_sysmenu: INTEGER_32 = 524288 -- Declared in Windows as WS_SYSMENU -- (from WEL_WS_CONSTANTS) Ws_thickframe: INTEGER_32 = 262144 -- Declared in Windows as WS_THICKFRAME -- Was declared in {WEL_WS_CONSTANTS} as synonym of `ws_sizebox`. -- (from WEL_WS_CONSTANTS) Ws_vscroll: INTEGER_32 = 2097152 -- Declared in Windows as WS_VSCROLL -- (from WEL_WS_CONSTANTS) feature -- Output Io: STD_FILES -- Handle to standard file setup -- (from ANY) ensure -- from ANY instance_free: class io_not_void: Result /= Void out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY out_not_void: Result /= Void print (o: detachable ANY) -- Write terse external representation of o -- on standard output. -- (from ANY) ensure -- from ANY instance_free: class frozen tagged_out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY tagged_out_not_void: Result /= Void feature -- Platform Operating_environment: OPERATING_ENVIRONMENT -- Objects available from the operating system -- (from ANY) ensure -- from ANY instance_free: class operating_environment_not_void: Result /= Void invariant -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) note copyright: "Copyright (c) 1984-2010, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class WEL_MDI_CREATE_STRUCT -- Generated by Eiffel Studio --
For more details: eiffel.org