INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Menu item 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
MENU_ITEM
inherit
MENU_ENTRY
rename
make
as
make_item
redefine
build
end
creation
load
,
make
feature
make
(
a_name
:
STRING
;
a_context
:
INTEGER
;
a_command
:
INTEGER
)
-- Create a new menu item, which will be added later to some menu
set_command
(
cmd
:
INTEGER
)
get_command
:
INTEGER
build
(
rc
:
RESOURCE_CONTAINER
;
p
:
POINTER
)
build_item
(
rc
:
RESOURCE_CONTAINER
;
p
:
POINTER
):
POINTER
end
-- class
MENU_ITEM
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES