INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Scrollbar Control"
cluster:
grape
class
SCROLL_BAR
inherit
SCROLLER
rename
make
as
scroller_make
end
creation
make
feature
owner
:
TILE
make
(
typ
:
INTEGER
)
show
hide
is_visible
:
BOOLEAN
set_owner
(
t
:
TILE
)
end
-- class
SCROLL_BAR
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES