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