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
BRANCH_COMPONENT
[
G
->
COMPONENT
]
inherit
COMPONENT
end
creation
make
feature
is_last
:
BOOLEAN
levels_display
:
STRING
contents
:
G
is_expanded
:
BOOLEAN
viewer
:
TREE_VIEWER_ATTRIBUTES
make
(
ctns
:
G
;
tv
:
TREE_VIEWER_ATTRIBUTES
)
-- make (ctns: G, tv: TREE_VIEWER[G]) is
set_expanded
(
the_code
:
BOOLEAN
)
disable_level
(
num
:
INTEGER
)
enable_level
(
num
:
INTEGER
)
set_level
(
num
:
INTEGER
)
copy_level
(
s
:
STRING
)
mark_last
mark_not_last
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
BRANCH_COMPONENT
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES