INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Radio button class"
project:
"Visual Eiffel"
revision:
"$Revision: 1.1 $"
copyright:
"Copyright (C) 1996-2005 Object Tools Group"
license:
"http://visual-eiffel.com/license"
cluster:
grape
class
RADIO_BUTTON
inherit
BUTTON
rename
make
as
b_make
redefine
build
end
creation
load
,
make
feature
make
(
n
:
STRING
;
r
:
RECT
;
ctx
:
INTEGER
)
-- This is a constructor for button
press
release
is_pressed
:
BOOLEAN
build
(
rc
:
RESOURCE_CONTAINER
;
p
:
POINTER
)
end
-- class
RADIO_BUTTON
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES