Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
a088037b
Commit
a088037b
authored
Mar 29, 2000
by
Peter Achten
Browse files
(PA) initial update bug SDI window removed.
parent
aa501123
Changes
6
Hide whitespace changes
Inline
Side-by-side
libraries/ObjectIO/ObjectIO/OS Windows/Clean System Files/cCrossCall_12.obj
View file @
a088037b
No preview for this file type
libraries/ObjectIO/ObjectIO/OS Windows/Windows_C_12/cCrossCall_12.c
View file @
a088037b
...
...
@@ -3650,7 +3650,7 @@ SDIFrameProcedure (HWND hWin,UINT uMess,WPARAM wPara,LPARAM lPara)
HWND_BOTTOM
,
/* this value is ignored (SWP_NOZORDER) */
0
,
0
,
/* these values are ignored (SWP_NOMOVE) */
(
int
)
LOWORD
(
lPara
),(
int
)
HIWORD
(
lPara
)
-
toolbarHeight
,
/* new width and height */
SWP_NOACTIVATE
|
SWP_NOMOVE
|
SWP_NOZORDER
|
SWP_NOREDRAW
SWP_NOACTIVATE
|
SWP_NOMOVE
|
SWP_NOZORDER
);
}
}
...
...
libraries/ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.icl
View file @
a088037b
...
...
@@ -11,7 +11,7 @@ from ostypes import HWND
::
HMENU
:==
Int
WinCreatePopupMenuHandle
::
!*
OSToolbox
->
(!
HMENU
,!*
OSToolbox
)
WinCreatePopupMenuHandle
::
!*
OSToolbox
->
(!
HMENU
,!*
OSToolbox
)
// PA: check if this can be a C call
WinCreatePopupMenuHandle
tb
#
(
rcci
,
tb
)
=
IssueCleanRequest2
(
ErrorCallback2
"CreatePopupMenuHandle "
)
(
Rq0Cci
CcRqCREATEPOPMENU
)
tb
hmenu
=
case
rcci
.
ccMsg
of
...
...
libraries/ObjectIO/ObjectIO/OS Windows/osmenu.dcl
View file @
a088037b
...
...
@@ -11,15 +11,6 @@ from ostypes import HWND, OSWindowPtr
// Types for menus and menu elements:
/*:: MenuBar
= NoMenuBar
| MenuBar OSMenuBar
:: OSMenuBar
= { menuBar :: !HMENU
, menuWindow :: !HWND
, menuClient :: !HWND // If MDI: client window; otherwise: OSNoWindowPtr
}
*/
::
OSMenu
:==
HMENU
::
OSMenuItem
:==
HITEM
::
OSMenuSeparator
:==
HITEM
...
...
@@ -30,13 +21,6 @@ OSNoMenuItem :== 0
OSNoMenuSeparator
:==
0
/* Creation of a OSMenuBar:
OSMenuBarNew frameWindow clientWindow menu
creates an OSMenuBar instance that can be used to manipulate menus.
PA---
OSMenuBarNew :: !HWND !HWND !HMENU -> OSMenuBar
*/
/* Enabling and disabling of menus and menu elements:
OS(Dis/En)ableMenu index menubar
(dis/en)ables the top-level menu at the zero based index position of the menubar.
...
...
libraries/ObjectIO/ObjectIO/OS Windows/osmenu.icl
View file @
a088037b
...
...
@@ -11,15 +11,6 @@ from ostypes import OSWindowPtr, OSNoWindowPtr
// Types for menus and menu elements:
/*:: MenuBar
= NoMenuBar
| MenuBar OSMenuBar
:: OSMenuBar
= { menuBar :: !HMENU
, menuWindow :: !HWND
, menuClient :: !HWND // If MDI: client window; otherwise: OSNoWindowPtr
}
*/
::
OSMenuHandle
:==
HMENU
::
OSMenu
:==
HMENU
::
OSMenuItem
:==
HITEM
...
...
@@ -30,11 +21,6 @@ OSNoMenu :== 0
OSNoMenuItem
:==
0
OSNoMenuSeparator
:==
0
/* PA---
OSMenuBarNew :: !HWND !HWND !HMENU -> OSMenuBar
OSMenuBarNew frameWindow clientWindow menu
= {menuBar=menu, menuWindow=frameWindow, menuClient=clientWindow}
*/
// Enabling and disabling menus and menu elements:
...
...
libraries/ObjectIO/ObjectIO/StdMenu.icl
View file @
a088037b
...
...
@@ -20,15 +20,9 @@ StdMenuFatalError function error
=
FatalError
function
"StdMenu"
error
::
DeltaMenuHandle
pst
:==
!(
MenuStateHandle
pst
)
->
!*
OSToolbox
->
(!
MenuStateHandle
pst
,!*
OSToolbox
)
::
AccessMenuHandle
x
pst
:==
!(
MenuStateHandle
pst
)
->
(!
x
,!
MenuStateHandle
pst
)
// General rules to access MenuHandles:
accessMenuHandles
::
!
Id
!(
AccessMenuHandle
x
(
PSt
.
l
))
!(
IOSt
.
l
)
->
(!
Maybe
x
,
!
IOSt
.
l
)
accessMenuHandles
::
!
Id
!(
(
MenuStateHandle
(
PSt
.
l
))
->
(
x
,!
MenuStateHandle
(
PSt
.
l
))
)
!(
IOSt
.
l
)
->
(!
Maybe
x
,!
IOSt
.
l
)
accessMenuHandles
id
f
ioState
#
(
found
,
mDevice
,
ioState
)
=
IOStGetDevice
MenuDevice
ioState
|
not
found
...
...
@@ -38,7 +32,7 @@ accessMenuHandles id f ioState
#
ioState
=
IOStSetDevice
(
MenuSystemState
{
mHs
&
mMenus
=
msHs
})
ioState
=
(
result
,
ioState
)
where
accessmenuhandles
::
!
Id
!(
AccessMenuHandle
x
.
pst
)
![
MenuStateHandle
.
pst
]
->
(!
Maybe
x
,![
MenuStateHandle
.
pst
])
accessmenuhandles
::
!
Id
!(
(
MenuStateHandle
.
pst
)
->
(
x
,!
MenuStateHandle
.
pst
)
)
![
MenuStateHandle
.
pst
]
->
(!
Maybe
x
,![
MenuStateHandle
.
pst
])
accessmenuhandles
id
f
[
mH
:
mHs
]
#
(
menu_id
,
mH
)
=
menuStateHandleGetMenuId
mH
|
id
==
menu_id
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment