Automatic generation produced by ISE Eiffel
note description: "EiffelVision print dialog, mswindows implementation." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2017-03-27 09:23:22 -0800 (Mon, 27 Mar 2017) $" revision: "$Revision: 100056 $" class interface EV_PRINT_DIALOG_IMP create make -- Initialize Current ensure -- from EV_ANY_I is_initialized: get_state_flag (Is_initialized_flag) feature -- Initialization make -- Initialize Current ensure -- from EV_ANY_I is_initialized: get_state_flag (Is_initialized_flag) old_make (an_interface: attached like interface) -- Create Current with interface an_interface. require -- from EV_ANY_I an_interface_not_void: an_interface /= Void ensure -- from EV_ANY_I interface_assigned: interface = an_interface base_make_called: base_make_called feature -- Access Aspect_x: INTEGER_32 = 40 -- Relative width of a device pixel -- used for line drawing -- (from WEL_CAPABILITIES_CONSTANTS) Aspect_x_y: INTEGER_32 = 44 -- Diagonal width of a device pixel -- used for line drawing -- (from WEL_CAPABILITIES_CONSTANTS) Aspect_y: INTEGER_32 = 42 -- Relative height of a device pixel -- used for line drawing -- (from WEL_CAPABILITIES_CONSTANTS) Bits_pixel: INTEGER_32 = 12 -- Number of adjacent color bits for each pixel -- (from WEL_CAPABILITIES_CONSTANTS) blocking_window: detachable EV_WINDOW -- Window this dialog is a transient for. -- (from EV_STANDARD_DIALOG_IMP) Clip_caps: INTEGER_32 = 36 -- See class WEL_CLIPPING_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) Color_resolution: INTEGER_32 = 108 -- Color resolution of the device in bits -- (from WEL_CAPABILITIES_CONSTANTS) copies: INTEGER_32 -- Number of copies for the Copies edit control -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I positive_result: Result >= 0 Curve_caps: INTEGER_32 = 28 -- See class WEL_CURVE_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) dc: WEL_PRINTER_DC -- Device context associated to the selected printer -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG selected: selected ensure -- from WEL_PRINT_DIALOG result_not_void: Result /= Void Driver_version: INTEGER_32 = 1 -- Version number of the device driver -- (from WEL_CAPABILITIES_CONSTANTS) flags: INTEGER_32 -- Dialog box creation flags. -- Can be a combination of the values defined in -- class WEL_PD_CONSTANTS. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists from_page: INTEGER_32 -- Value for the starting page edit control -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I positive_result: Result >= 0 ensure -- from WEL_PRINT_DIALOG positive_result: Result >= 0 generating_type: TYPE [detachable EV_PRINT_DIALOG_IMP] -- 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 Horizontal_resolution: INTEGER_32 = 8 -- Width of the display, in pixels -- (from WEL_CAPABILITIES_CONSTANTS) Horizontal_size: INTEGER_32 = 4 -- Width of the physical display in millimeters -- (from WEL_CAPABILITIES_CONSTANTS) item: POINTER -- Generic Windows handle or structure pointer. -- Can be a HWND, HICON, RECT *, WNDCLASS *, etc... -- (from WEL_ANY) Line_caps: INTEGER_32 = 30 -- See class WEL_LINE_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) Logical_pixels_x: INTEGER_32 = 88 -- Number of pixels per logical inch along -- the display width -- (from WEL_CAPABILITIES_CONSTANTS) Logical_pixels_y: INTEGER_32 = 90 -- Number of pixels per logical inch along -- the display height -- (from WEL_CAPABILITIES_CONSTANTS) maximum_range: INTEGER_32 -- Maximum value for the range of pages specified -- in the From and To page edit controls -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists maximum_to_page: INTEGER_32 -- Maximum `to_page` value. -- (from EV_PRINT_DIALOG_I) minimum_from_page: INTEGER_32 -- Minimum `from_page` value. -- (from EV_PRINT_DIALOG_I) minimum_page: INTEGER_32 -- Minimum value for the range of pages specified -- in the From and To page edit controls -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists Num_brushes: INTEGER_32 = 16 -- Number of device-specific brushes -- (from WEL_CAPABILITIES_CONSTANTS) Num_colors: INTEGER_32 = 24 -- Number of entries in the device's color table -- (from WEL_CAPABILITIES_CONSTANTS) Num_fonts: INTEGER_32 = 22 -- Number of device-specific fonts -- (from WEL_CAPABILITIES_CONSTANTS) Num_markers: INTEGER_32 = 20 -- Number of device-specific markers -- (from WEL_CAPABILITIES_CONSTANTS) Num_pens: INTEGER_32 = 18 -- Number of device-specific pens -- (from WEL_CAPABILITIES_CONSTANTS) Num_reserved: INTEGER_32 = 106 -- Number of reserved entries in the system palette -- (from WEL_CAPABILITIES_CONSTANTS) output_file_name: STRING_32 -- String representation of the path to output -- the printed area to. ensure -- from EV_PRINT_DIALOG_I result_not_void: Result /= Void Pd_allpages: INTEGER_32 = 0 -- (from WEL_PD_CONSTANTS) Pd_collate: INTEGER_32 = 16 -- (from WEL_PD_CONSTANTS) Pd_disableprinttofile: INTEGER_32 = 524288 -- (from WEL_PD_CONSTANTS) Pd_enableprinthook: INTEGER_32 = 4096 -- (from WEL_PD_CONSTANTS) Pd_enableprinttemplate: INTEGER_32 = 16384 -- (from WEL_PD_CONSTANTS) Pd_enableprinttemplatehandle: INTEGER_32 = 65536 -- (from WEL_PD_CONSTANTS) Pd_enablesetuphook: INTEGER_32 = 8192 -- (from WEL_PD_CONSTANTS) Pd_enablesetuptemplate: INTEGER_32 = 32768 -- (from WEL_PD_CONSTANTS) Pd_enablesetuptemplatehandle: INTEGER_32 = 131072 -- (from WEL_PD_CONSTANTS) Pd_hideprinttofile: INTEGER_32 = 1048576 -- (from WEL_PD_CONSTANTS) Pd_nopagenums: INTEGER_32 = 8 -- (from WEL_PD_CONSTANTS) Pd_noselection: INTEGER_32 = 4 -- (from WEL_PD_CONSTANTS) Pd_nowarning: INTEGER_32 = 128 -- (from WEL_PD_CONSTANTS) Pd_pagenums: INTEGER_32 = 2 -- (from WEL_PD_CONSTANTS) Pd_printsetup: INTEGER_32 = 64 -- (from WEL_PD_CONSTANTS) Pd_printtofile: INTEGER_32 = 32 -- (from WEL_PD_CONSTANTS) Pd_returndc: INTEGER_32 = 256 -- (from WEL_PD_CONSTANTS) Pd_returndefault: INTEGER_32 = 1024 -- (from WEL_PD_CONSTANTS) Pd_returnic: INTEGER_32 = 512 -- (from WEL_PD_CONSTANTS) Pd_selection: INTEGER_32 = 1 -- (from WEL_PD_CONSTANTS) Pd_showhelp: INTEGER_32 = 2048 -- (from WEL_PD_CONSTANTS) Pd_usedevmodecopies: INTEGER_32 = 262144 -- (from WEL_PD_CONSTANTS) Pdevice_size: INTEGER_32 = 26 -- Size of the PDEVICE internal structure, in bytes -- (from WEL_CAPABILITIES_CONSTANTS) Physical_offset_x: INTEGER_32 = 112 -- Distance from left edge of the printable area, in -- device units. -- (from WEL_CAPABILITIES_CONSTANTS) Physical_offset_y: INTEGER_32 = 113 -- Distance from top edge of the printable area, in -- device units. -- (from WEL_CAPABILITIES_CONSTANTS) Planes: INTEGER_32 = 14 -- Number of color planes -- (from WEL_CAPABILITIES_CONSTANTS) Polygonal_caps: INTEGER_32 = 32 -- See class WEL_POLYGONAL_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) print_context: EV_PRINT_CONTEXT -- Return a print context for the dialog box. printer_name: STRING_32 -- String representation of the printer to output -- the printed area to. ensure -- from EV_PRINT_DIALOG_I result_not_void: Result /= Void Raster_caps: INTEGER_32 = 38 -- See class WEL_RASTER_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) Scaling_factor_x: INTEGER_32 = 114 -- Scaling factor for the x-axis of the printer. -- (from WEL_CAPABILITIES_CONSTANTS) Scaling_factor_y: INTEGER_32 = 115 -- Scaling factor for the y-axis of the printer. -- (from WEL_CAPABILITIES_CONSTANTS) Size_palette: INTEGER_32 = 104 -- Number of entries in the system palette -- (from WEL_CAPABILITIES_CONSTANTS) Technology: INTEGER_32 = 2 -- Device technology. -- See class WEL_DEVICE_TECHNOLOGY_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) Text_caps: INTEGER_32 = 34 -- See class WEL_TEXT_CAPABILITIES_CONSTANTS -- (from WEL_CAPABILITIES_CONSTANTS) title: STRING_32 -- Title of Current. to_page: INTEGER_32 -- Value for the ending page edit control -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I positive_result: Result >= 0 ensure -- from WEL_PRINT_DIALOG positive_result: Result >= 0 Vertical_resolution: INTEGER_32 = 10 -- Height of the display, in raster lines -- (from WEL_CAPABILITIES_CONSTANTS) Vertical_size: INTEGER_32 = 6 -- Height of the physical display in millimeters -- (from WEL_CAPABILITIES_CONSTANTS) feature -- Measurement dpi: NATURAL_32 -- Window dpi. -- (from EV_POSITIONED_I) Structure_size: INTEGER_32 -- Size to allocate (in bytes) -- (from WEL_PRINT_DIALOG) 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: EV_PRINT_DIALOG_IMP): 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: EV_PRINT_DIALOG_IMP): 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 all_pages_selected: BOOLEAN -- Is the "All pages" radio button selected? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists collate_checked: BOOLEAN -- Is the "Collate" check box checked? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists 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) flag_set (flags, mask: INTEGER_32): BOOLEAN -- Is mask set in `flags`? -- (from WEL_BIT_OPERATIONS) has_flag (a_flags: INTEGER_32): BOOLEAN -- Is a_flags set in `flags`? -- See class WEL_PD_CONSTANTS for a_flags -- values. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists is_destroyed: BOOLEAN -- Is Current no longer usable? -- (from EV_ANY_I) page_numbers_enabled: BOOLEAN -- Is the "Page numbers" radio button enabled? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists page_numbers_selected: BOOLEAN -- Is the "Page" radio button selected? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists print_setup_enabled: BOOLEAN -- Is the Print setup dialog box enabled? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists print_to_file_checked: BOOLEAN -- Is the "Print to file" check box checked? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists print_to_file_enabled: BOOLEAN -- Is the "Print to file" check box enabled? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists print_to_file_shown: BOOLEAN -- Is the "Print to file" check box shown? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists 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)) selected: BOOLEAN -- Has the user selected something (file, color, etc.)? -- If True, the Ok button has been chosen. If False, -- the Cancel button has been chosen. -- (from WEL_STANDARD_DIALOG) selected_button: detachable IMMUTABLE_STRING_32 -- Label of last clicked button. -- (from EV_STANDARD_DIALOG_IMP) selection_enabled: BOOLEAN -- Is the "Selection" radio button enabled? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists selection_selected: BOOLEAN -- Is the "Selection" radio box selected? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists 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) warning_enabled: BOOLEAN -- Is the warning message from being displayed when -- there is no default printer enabled? -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists feature -- Status setting check_collate -- Check the "Collate" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I collate_checked: collate_checked ensure -- from WEL_PRINT_DIALOG collate_checked: collate_checked check_print_to_file -- Check the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I print_to_file_checked: print_to_file_checked ensure -- from WEL_PRINT_DIALOG print_to_file_checked: print_to_file_checked disable_page_numbers -- Disable the "Page numbers" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG page_numbers_disabled: not page_numbers_enabled disable_print_setup -- Disable the system to display the Print setup dialog -- box rather than the Print dialog box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_setup_disabled: not print_setup_enabled disable_print_to_file -- Disable the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_to_file_disabled: not print_to_file_enabled disable_selection -- Disable the "Selection" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG selection_disabled: not selection_enabled disable_warning -- Disable the warning message from being displayed when -- there is no default printer. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG warning_disabled: not warning_enabled enable_page_numbers -- Enable the "Page numbers" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG page_numbers_enabled: page_numbers_enabled enable_print_setup -- Enable the system to display the Print setup dialog -- box rather than the Print dialog box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_setup_enabled: print_setup_enabled enable_print_to_file -- Enable the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_to_file_enabled: print_to_file_enabled enable_selection -- Enable the "Selection" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG selection_enabled: selection_enabled enable_warning -- Enable the warning message from being displayed when -- there is no default printer. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG warning_enabled: warning_enabled hide -- Request that Current not be displayed even when its parent is. -- If successful, make is_show_requested False. -- (from EV_STANDARD_DIALOG_IMP) require -- from EV_STANDARD_DIALOG_I not_destroyed: not is_destroyed hide_print_to_file -- Hide the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_to_file_hidden: not print_to_file_shown select_all_pages -- Select the "All pages" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG all_pages_selected: all_pages_selected select_page_numbers -- Select the "Page numbers" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG page_numbers_selected: page_numbers_selected select_selection -- Select the "Selection" radio button. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG selection_selected: selection_selected set_blocking_window (a_window: detachable EV_WINDOW) -- Set as transient for a_window. -- (from EV_STANDARD_DIALOG_IMP) 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 show_modal_to_window (a_window: EV_WINDOW) -- Show the window and wait until the user closed it. -- (from EV_STANDARD_DIALOG_IMP) require -- from EV_STANDARD_DIALOG_I True show_print_to_file -- Show the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG print_to_file_shown: print_to_file_shown uncheck_collate -- Uncheck the "Collate" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I colate_not_checked: not collate_checked ensure -- from WEL_PRINT_DIALOG collate_unchecked: not collate_checked uncheck_print_to_file -- Uncheck the "Print to file" check box. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I print_to_file_not_checked: not print_to_file_checked ensure -- from WEL_PRINT_DIALOG print_to_file_unchecked: not print_to_file_checked feature -- Element change add_flag (a_flags: INTEGER_32) -- Add a_flags to `flags`. -- See class WEL_PD_CONSTANTS for a_flags values. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG has_flag: has_flag (a_flags) remove_flag (a_flags: INTEGER_32) -- Remove a_flags from `flags`. -- See class WEL_PD_CONSTANTS for a_flags values. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG has_not_flag: not has_flag (a_flags) set_copies (number: INTEGER_32) -- Set `copies` with number. -- (from WEL_PRINT_DIALOG) require -- from EV_PRINT_DIALOG_I positive_value: number >= 0 require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I copies_set: copies = number ensure -- from WEL_PRINT_DIALOG copies_set: copies = number set_flags (a_flags: INTEGER_32) -- Set `flags` with a_flags. -- See class WEL_PD_CONSTANTS for a_flags values. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG flags_set: flags = a_flags set_from_page (page: INTEGER_32) -- Set `from_page` with page. -- (from WEL_PRINT_DIALOG) require -- from EV_PRINT_DIALOG_I positive_value: page >= 0 require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I from_page_set: from_page = page ensure -- from WEL_PRINT_DIALOG from_page_set: from_page = page set_item (an_item: POINTER) -- Set `item` with an_item -- (from WEL_ANY) ensure -- from WEL_ANY item_set: item = an_item set_maximum_range (page: INTEGER_32) -- Set maximum_page with page. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG maximum_page_set: maximum_range = page set_maximum_to_page (value: INTEGER_32) -- Make 'value' the new maximum 'to_page' value. require -- from EV_PRINT_DIALOG_I positive_value: value > 0 not_less_than_minimum: value >= minimum_from_page ensure -- from EV_PRINT_DIALOG_I maximum_to_page_set: maximum_to_page = value set_minimum_from_page (value: INTEGER_32) -- Make 'value' the new minimum 'to_page' value. require -- from EV_PRINT_DIALOG_I positive_value: value > 0 not_greater_than_maximum_value: value <= maximum_to_page ensure -- from EV_PRINT_DIALOG_I minimum_from_page_set: minimum_from_page = value set_minimum_page (page: INTEGER_32) -- Set `minimum_page` with page. -- (from WEL_PRINT_DIALOG) require -- from WEL_PRINT_DIALOG exists: exists ensure -- from WEL_PRINT_DIALOG minimum_page_set: minimum_page = page set_title (new_title: READABLE_STRING_GENERAL) -- Assign new_title to `title`. require -- from EV_STANDARD_DIALOG_I a_title_not_void: new_title /= Void ensure then title_set: title.same_string_general (new_title) set_to_page (page: INTEGER_32) -- Set `to_page` with page. -- (from WEL_PRINT_DIALOG) require -- from EV_PRINT_DIALOG_I positive_value: page >= 0 require -- from WEL_PRINT_DIALOG exists: exists ensure -- from EV_PRINT_DIALOG_I to_page_set: to_page = page ensure -- from WEL_PRINT_DIALOG to_page_set: to_page = page 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) require -- from DISPOSABLE True require -- from EV_STANDARD_DIALOG_IMP True feature -- Duplication frozen deep_copy (other: EV_PRINT_DIALOG_IMP) -- 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: EV_PRINT_DIALOG_IMP -- 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: EV_PRINT_DIALOG_IMP) -- 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: EV_PRINT_DIALOG_IMP -- 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: EV_PRINT_DIALOG_IMP -- 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 -- Basic operations clear_flag (flags, mask: INTEGER_32): INTEGER_32 -- Clear the mask in `flags` -- (from WEL_BIT_OPERATIONS) ensure -- from WEL_BIT_OPERATIONS flag_unset: not flag_set (Result, mask) copy (other: EV_PRINT_DIALOG_IMP) -- 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 EV_PRINT_DIALOG_IMP -- 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 structure_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: EV_PRINT_DIALOG_IMP): 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 set_flag (flags, mask: INTEGER_32): INTEGER_32 -- Set the mask in `flags` -- (from WEL_BIT_OPERATIONS) ensure -- from WEL_BIT_OPERATIONS flag_set: flag_set (Result, mask) feature -- Implementation activate (a_parent: WEL_COMPOSITE_WINDOW) -- Activate current dialog require -- from WEL_STANDARD_DIALOG exists: exists a_parent_not_void: a_parent /= Void a_parent_exists: a_parent.exists require -- from EV_STANDARD_DIALOG_IMP a_parent_not_void: a_parent /= Void a_parent_exists: a_parent.exists feature -- Button Texts Ev_abort: IMMUTABLE_STRING_32 -- Text displayed on "abort" buttons. -- (from EV_DIALOG_NAMES) Ev_cancel: IMMUTABLE_STRING_32 -- Text displayed on "cancel" buttons. -- (from EV_DIALOG_NAMES) Ev_ignore: IMMUTABLE_STRING_32 -- Text displayed on "ignore" buttons. -- (from EV_DIALOG_NAMES) Ev_no: IMMUTABLE_STRING_32 -- Text displayed on "no" buttons. -- (from EV_DIALOG_NAMES) Ev_ok: IMMUTABLE_STRING_32 -- Text displayed on "ok" buttons. -- (from EV_DIALOG_NAMES) Ev_open: IMMUTABLE_STRING_32 -- Text displayed on "open" buttons. -- (from EV_DIALOG_NAMES) Ev_print: IMMUTABLE_STRING_32 -- Text displayed on "print" buttons. -- (from EV_DIALOG_NAMES) Ev_retry: IMMUTABLE_STRING_32 -- Text displayed on "retry" buttons. -- (from EV_DIALOG_NAMES) Ev_save: IMMUTABLE_STRING_32 -- Text displayed on "save" buttons. -- (from EV_DIALOG_NAMES) Ev_yes: IMMUTABLE_STRING_32 -- Text displayed on "yes" buttons. -- (from EV_DIALOG_NAMES) feature -- Event handling cancel_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when user cancels. -- (from EV_STANDARD_DIALOG_ACTION_SEQUENCES_I) ensure -- from EV_STANDARD_DIALOG_ACTION_SEQUENCES_I not_void: Result /= Void ok_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when user clicks OK. -- (from EV_STANDARD_DIALOG_ACTION_SEQUENCES_I) ensure -- from EV_STANDARD_DIALOG_ACTION_SEQUENCES_I not_void: Result /= Void 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 feature -- Status_report landscape_checked: BOOLEAN -- Is the landscape option selected. feature -- Titles Ev_confirmation_dialog_title: IMMUTABLE_STRING_32 -- Title of EV_CONFIRMATION_DIALOG. -- (from EV_DIALOG_NAMES) Ev_error_dialog_title: IMMUTABLE_STRING_32 -- Title of EV_ERROR_DIALOG. -- (from EV_DIALOG_NAMES) Ev_information_dialog_title: IMMUTABLE_STRING_32 -- Title of EV_INFORMATION_DIALOG. -- (from EV_DIALOG_NAMES) Ev_question_dialog_title: IMMUTABLE_STRING_32 -- Title of EV_QUESTION_DIALOG. -- (from EV_DIALOG_NAMES) Ev_warning_dialog_title: IMMUTABLE_STRING_32 -- Title of EV_WARNING_DIALOG. -- (from EV_DIALOG_NAMES) feature height: INTEGER_32 -- Vertical size in pixels. minimum_height: INTEGER_32 -- Minimum vertical size in pixels. minimum_width: INTEGER_32 -- Minimum horizontal size in pixels. screen_x: INTEGER_32 -- Horizontal offset relative to screen. screen_y: INTEGER_32 -- Vertical offset relative to screen. set_height (a: INTEGER_32) -- Set the vertical size to a_height. require -- from EV_POSITIONABLE_I a_height_positive_or_zero: a >= 0 ensure -- from EV_POSITIONABLE_I height_assigned: height = minimum_height or else height = a set_position (a, b: INTEGER_32) -- Set horizontal offset to parent to a_x. -- Set vertical offset to parent to a_y. ensure -- from EV_POSITIONABLE_I x_position_assigned: x_position = a y_position_assigned: y_position = b set_size (a, b: INTEGER_32) -- Set the horizontal size to a_width. -- Set the vertical size to a_height. require -- from EV_POSITIONABLE_I a_width_positive_or_zero: a >= 0 a_height_positive_or_zero: b >= 0 ensure -- from EV_POSITIONABLE_I width_assigned: width = minimum_width or else width = a height_assigned: height = minimum_height or else height = b set_width (a: INTEGER_32) -- Set the horizontal size to a_width. require -- from EV_POSITIONABLE_I a_width_positive_or_zero: a >= 0 ensure -- from EV_POSITIONABLE_I width_assigned: width = minimum_width or else width = a set_x_position (a: INTEGER_32) -- Set horizontal offset to parent to a_x. ensure -- from EV_POSITIONABLE_I x_position_assigned: x_position = a set_y_position (a: INTEGER_32) -- Set vertical offset to parent to a_y. ensure -- from EV_POSITIONABLE_I y_position_assigned: y_position = a width: INTEGER_32 -- Horizontal size in pixels. x_position: INTEGER_32 -- Horizontal offset relative to parent `x_position` in pixels. y_position: INTEGER_32 -- Vertical offset relative to parent `y_position` in pixels. invariant -- from EV_ANY_I interface_coupled: is_usable implies interface /= Void and then attached_interface.implementation = Current base_make_called: is_usable implies base_make_called -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) -- from EV_POSITIONED_I minimum_width_positive_or_zero: is_usable implies minimum_width >= 0 minimum_height_positive_or_zero: is_usable implies minimum_height >= 0 note copyright: "Copyright (c) 1984-2017, 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 EV_PRINT_DIALOG_IMP -- Generated by Eiffel Studio --
For more details: eiffel.org