Eiffel Media API
Overview Cluster Class Classes Index      Previous Next      Top Features

em.widget.delegates.basic_delegates

Class EM_BASIC_SLIDER_DELEGATE


Direct ancestors

EM_SLIDER_DELEGATE

Features

Invariants

indexing

description

Basic delegate of an EM_SLIDER.

date

$Date: 2005/10/23 11:16:21 $

revision

$Revision: 1.5 $

class

EM_BASIC_SLIDER_DELEGATE

inherit

EM_SLIDER_DELEGATE

feature -- Initialisation

install (slider: EM_SLIDER)

-- Install style on slider.
-- Set up all default values for background, border, font and colors.

-- (From EM_WIDGET_DELEGATE)

require
widget_not_void: widget /= Void
install_surface (widget: EM_WIDGET)

-- Install style on widgets surface
-- This will be called for every resize of the widget.

-- (From EM_WIDGET_DELEGATE)

require
a_widget_not_void: widget /= Void

feature -- Measurement

contains (widget: EM_WIDGET; a_x, a_y: INTEGER): BOOLEAN

-- Does widget contain a_x a_y.

-- (From EM_WIDGET_DELEGATE)

require
widget_not_void: widget /= Void
a_x_in_bounds: 0 <= a_x and a_x <= widget.width
a_y_in_bounds: 0 <= a_y and a_y <= widget.height
optimal_height (slider: EM_SLIDER): INTEGER

-- Optimal height of slider

-- (From EM_WIDGET_DELEGATE)

require
widget_not_void: widget /= Void
ensure
result_not_negative: Result >= 0
optimal_width (slider: EM_SLIDER): INTEGER

-- Optimal width of slider

-- (From EM_WIDGET_DELEGATE)

require
widget_not_void: widget /= Void
ensure
result_not_negative: Result >= 0

feature -- Basic operations

position_to_value (slider: EM_SLIDER; a_x, a_y: INTEGER): INTEGER

-- Slider value at position a_x a_y

-- (From EM_SLIDER_DELEGATE)

require
slider_not_void: slider /= Void

feature -- Drawing

draw_body (slider: EM_SLIDER)

-- Draw body of slider.

-- (From EM_WIDGET_DELEGATE)

require
widget_not_void: widget /= Void

invariant


-- From ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)

end