INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Control that has a check box and a text. ", "WEL: library of reusable components for Eiffel. ", "Based on WEL library for ISE Eiffel, used with permission. "
project: "Windows Eiffel Library"
copyright: "(c) 1986-1997 Interactive Software Engineering Inc. ", "Modifications and extensions: ", "(c) 1997 Object Tools ", "All rights reserved. Duplication and distribution prohibited", "May be used only with Visual Eiffel under terms of user ", "license "
cluster: wel
class WEL_CHECK_BOX
inherit

WEL_BUTTON
rename
bm_click as wb_bm_click,
bm_getcheck as wb_bm_getcheck,
bm_getimage as wb_bm_getimage,
bm_getstate as wb_bm_getstate,
bm_setcheck as wb_bm_setcheck,
bm_setimage as wb_bm_setimage,
bm_setstate as wb_bm_setstate,
bm_setstyle as wb_bm_setstyle
end

WEL_BM_CONSTANTS
export
{NONE}
all
end

WEL_BS_CONSTANTS
export
{NONE}
all
end
creation

make,
make_by_id
feature -- Status setting

set_checked
-- Check the button
--| `check' would be a better name, but ...
require
exists: exists
ensure
checked: checked

set_unchecked
-- Uncheck the button
require
exists: exists
ensure
unchecked: not checked
feature -- Status report

checked: BOOLEAN
-- Is the button checked?
require
exists: exists
end -- class WEL_CHECK_BOX

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES