INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Visual Eiffel Library.",
"The WAPI_OPENFILENAME class contains information the operating",
"system uses to initialize the system-defined Open or Save",
"dialog boxes."
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_OPENFILENAME
inherit
WAPI_GET_POINTER
end
creation
make
feature
-- Class data
lStructSize
:
INTEGER
hWndOwner
:
INTEGER
hInstance
:
INTEGER
lpstrFilter
:
POINTER
lpstrCustomFilter
:
POINTER
nMaxCustFilter
:
INTEGER
nFilterIndex
:
INTEGER
lpstrFile
:
POINTER
nMaxFile
:
INTEGER
lpstrFileTitle
:
POINTER
nMaxFileTitle
:
INTEGER
lpstrInitialDir
:
POINTER
lpstrTitle
:
POINTER
Flags
:
BIT
32
nFileOffsetL
:
BIT
8
nFileOffsetH
:
BIT
8
nFileExtensionL
:
BIT
8
nFileExtensionH
:
BIT
8
lpstrDefExt
:
POINTER
lCustData
:
INTEGER
lpfnHook
:
POINTER
lpTemplateName
:
POINTER
feature
-- Creation
make
ensure
correct_set
:
lstructsize
= 76
feature
-- Access
ptr
:
POINTER
feature
-- Change
set_hWndOwner
(
i
:
INTEGER
)
ensure
correct_set
:
hwndowner
=
i
set_hInstance
(
i
:
INTEGER
)
ensure
correct_set
:
hinstance
=
i
set_lpstrFilter
(
p
:
POINTER
)
ensure
correct_set
:
lpstrfilter
=
p
set_lpstrCustomFilter
(
p
:
POINTER
)
ensure
correct_set
:
lpstrcustomfilter
=
p
set_nMaxCustFilter
(
i
:
INTEGER
)
-- require
-- correct_i : i >= 40
ensure
correct_set
:
nmaxcustfilter
=
i
set_nFilterIndex
(
i
:
INTEGER
)
ensure
correct_set
:
nfilterindex
=
i
set_lpstrFile
(
p
:
POINTER
)
ensure
correct_set
:
lpstrfile
=
p
set_nMaxFile
(
i
:
INTEGER
)
require
correct_i
:
i
>= 256
ensure
correct_set
:
nmaxfile
=
i
set_lpstrFileTitle
(
p
:
POINTER
)
ensure
correct_set
:
lpstrfiletitle
=
p
set_nMaxFileTitle
(
i
:
INTEGER
)
ensure
correct_set
:
nmaxfiletitle
=
i
set_lpstrInitialDir
(
p
:
POINTER
)
ensure
correct_set
:
lpstrinitialdir
=
p
set_lpstrTitle
(
p
:
POINTER
)
ensure
correct_set
:
lpstrtitle
=
p
set_Flags
(
b
:
BIT
32
)
ensure
correct_set
:
flags
=
b
set_nFileOffset
(
i
:
INTEGER
)
set_nFileExtension
(
i
:
INTEGER
)
set_lpstrDefExt
(
p
:
POINTER
)
ensure
correct_set
:
lpstrdefext
=
p
set_lCustData
(
i
:
INTEGER
)
ensure
correct_set
:
lcustdata
=
i
set_lpfnHook
(
p
:
POINTER
)
ensure
correct_set
:
lpfnhook
=
p
set_lpTemplateName
(
p
:
POINTER
)
ensure
correct_set
:
lptemplatename
=
p
end
-- class
WAPI_OPENFILENAME
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES