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