INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Framed rectangular object-component (Panel)"
project:
"Visual Eiffel"
revision:
"$Revision: 1.1 $"
copyright:
"Copyright (C) 1996-2005 Object Tools Group"
license:
"http://visual-eiffel.com/license"
cluster:
grape
class
FRAME_3D
inherit
RECT
rename
make
as
rect_make
end
creation
make
feature
Nones
:
INTEGER
Shadow
:
INTEGER
Deep
:
INTEGER
VeryDeep
:
INTEGER
High
:
INTEGER
VeryHigh
:
INTEGER
style
:
INTEGER
make
(
r
:
RECT
;
a_style
:
INTEGER
)
require
valid_style
:
a_style
=
deep
or
a_style
=
verydeep
or
a_style
=
high
or
a_style
=
veryhigh
or
a_style
=
nones
or
a_style
=
shadow
frame_width
:
INTEGER
-- width of frame lines
set_style
(
a_style
:
INTEGER
)
require
valid_style
:
a_style
=
deep
or
a_style
=
verydeep
or
a_style
=
high
or
a_style
=
veryhigh
or
a_style
=
nones
or
a_style
=
shadow
on_self_drawing
(
gc
:
DISPLAY_GRAPHICS_CONTEXT
)
-- object draw itself on opened gc
end
-- class
FRAME_3D
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES