INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Visual Eiffel Library.",
"The WAPI_MDICREATESTRUCT contains information about the class,",
"title, owner, location, and size of a multiple document",
"interface (MDI) child window."
project:
"Visual Eiffel Win32 Library"
revision:
"$Revision: 1.1 $"
copyright:
"Copyright (C) 1996-2005 Object Tools Group"
license:
"http://visual-eiffel.com/license"
cluster:
winlib
class
WAPI_MDICREATESTRUCT
inherit
WAPI_GET_POINTER
end
creation
make
feature
-- Class data
szClass
:
POINTER
szTitle
:
POINTER
hOwner
:
INTEGER
x
:
INTEGER
y
:
INTEGER
cx
:
INTEGER
cy
:
INTEGER
style
:
BIT
32
lParam
:
INTEGER
feature
-- Creation
make
(
szclassp
:
POINTER
;
sztitlep
:
POINTER
;
hownerp
:
INTEGER
;
xp
:
INTEGER
;
yp
:
INTEGER
;
cxp
:
INTEGER
;
cyp
:
INTEGER
;
stylep
:
BIT
32
;
lparamp
:
INTEGER
)
feature
-- Access
ptr
:
POINTER
feature
-- Change
set_szClass
(
p
:
POINTER
)
require
correct_p
:
p
/=
default_pointer
ensure
correct_set
:
szclass
=
p
set_szTitle
(
p
:
POINTER
)
-- require
-- correct_p : p /= default_pointer
ensure
correct_set
:
sztitle
=
p
set_hOwner
(
i
:
INTEGER
)
ensure
correct_set
:
howner
=
i
set_x
(
i
:
INTEGER
)
ensure
correct_set
:
x
=
i
set_y
(
i
:
INTEGER
)
ensure
correct_set
:
y
=
i
set_cx
(
i
:
INTEGER
)
ensure
correct_set
:
cx
=
i
set_cy
(
i
:
INTEGER
)
ensure
correct_set
:
cy
=
i
set_style
(
i
:
BIT
32
)
ensure
correct_set
:
style
=
i
set_lParam
(
i
:
INTEGER
)
ensure
correct_set
:
lparam
=
i
end
-- class
WAPI_MDICREATESTRUCT
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES