INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "System menu class"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class SYSTEM_MENU
inherit

MENU
rename
make as menu_make
redefine
destroy,
init
end
creation

make
feature

make (w: WINDOW)
require
valid_window: w /= void
must_be_initialized: w.is_valid

reset

destroy
require
cannot_be_destroyed: 0 /= 0

init
end -- class SYSTEM_MENU

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES