INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
project:
"Visual Eiffel"
revision:
"$Revision: 1.1 $"
copyright:
"Copyright (C) 1996-2005 Object Tools Group"
license:
"http://visual-eiffel.com/license"
cluster:
grape
class
LEAF_COMPONENT
[
G
->
COMPONENT
]
inherit
COMPONENT
end
creation
make
,
make_branch
,
make_up
feature
is_marked
:
BOOLEAN
is_up
:
BOOLEAN
is_branch
:
BOOLEAN
contents
:
G
viewer
:
TREE_VIEWER_ATTRIBUTES
make
(
ctns
:
G
;
tv
:
TREE_VIEWER_ATTRIBUTES
)
-- make (ctns: G, tv: TREE_VIEWER[G]) is
make_up
make_branch
(
ctns
:
G
;
tv
:
TREE_VIEWER_ATTRIBUTES
)
-- make_branch (ctns: G, tv: TREE_VIEWER[G]) is
mark
unmark
contents_to_string
:
STRING
is_string
:
BOOLEAN
on_self_drawing
(
gc
:
DISPLAY_GRAPHICS_CONTEXT
;
x
,
y
,
w
,
h
:
INTEGER
;
sel
,
foc
,
dis
:
BOOLEAN
)
end
-- class
LEAF_COMPONENT
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES