diff options
Diffstat (limited to 'windowCrossCall_12.dcl')
| -rw-r--r-- | windowCrossCall_12.dcl | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/windowCrossCall_12.dcl b/windowCrossCall_12.dcl new file mode 100644 index 0000000..c7c885d --- /dev/null +++ b/windowCrossCall_12.dcl @@ -0,0 +1,111 @@ +definition module windowCrossCall_12
+
+
+import StdString
+from ostoolbox import :: OSToolbox
+from ostypes import :: HWND
+from rgnCCall_12 import :: HRGN
+from pictCCall_12 import :: HDC
+
+
+// Cursor shape constants:
+CURSHIDDEN :== 6
+CURSARROW :== 5
+CURSFATCROSS :== 4
+CURSCROSS :== 3
+CURSIBEAM :== 2
+CURSBUSY :== 1
+
+// Constants for handling scrollbars.
+SB_HORZ :== 0
+SB_VERT :== 1
+SB_CTL :== 2
+SB_BOTH :== 3
+
+SB_LINEUP :== 0
+SB_LINELEFT :== 0
+SB_LINEDOWN :== 1
+SB_LINERIGHT :== 1
+SB_PAGEUP :== 2
+SB_PAGELEFT :== 2
+SB_PAGEDOWN :== 3
+SB_PAGERIGHT :== 3
+SB_THUMBPOSITION :== 4
+SB_THUMBTRACK :== 5
+SB_TOP :== 6
+SB_LEFT :== 6
+SB_BOTTOM :== 7
+SB_RIGHT :== 7
+SB_ENDSCROLL :== 8
+
+// PA: constants for handling window styles.
+WS_OVERLAPPED :== 0x00000000
+WS_POPUP :== 0x80000000
+WS_CHILD :== 0x40000000
+WS_MINIMIZE :== 0x20000000
+WS_VISIBLE :== 0x10000000
+WS_DISABLED :== 0x08000000
+WS_CLIPSIBLINGS :== 0x04000000
+WS_CLIPCHILDREN :== 0x02000000
+WS_MAXIMIZE :== 0x01000000
+WS_CAPTION :== 0x00C00000 /* WS_BORDER | WS_DLGFRAME */
+WS_BORDER :== 0x00800000
+WS_DLGFRAME :== 0x00400000
+WS_VSCROLL :== 0x00200000
+WS_HSCROLL :== 0x00100000
+WS_SYSMENU :== 0x00080000
+WS_THICKFRAME :== 0x00040000
+WS_GROUP :== 0x00020000
+WS_TABSTOP :== 0x00010000
+
+WS_MINIMIZEBOX :== 0x00020000
+WS_MAXIMIZEBOX :== 0x00010000
+
+WS_TILED :== WS_OVERLAPPED
+WS_ICONIC :== WS_MINIMIZE
+WS_SIZEBOX :== WS_THICKFRAME
+// PA: end of addition.
+
+// PA: constants for stacking windows.
+HWND_TOP :== 0
+HWND_BOTTOM :== 1
+HWND_TOPMOST :== -1
+HWND_NOTOPMOST :== -2
+// PA: end of addition.
+
+// PA: flag values for passing information about edit controls from Clean to OS.
+EDITISMULTILINE :== 1 /* PA: flag value: edit control is multi-line. */
+EDITISKEYSENSITIVE :== 2 /* PA: flag value: edit control sends keyboard events to Clean. */
+// PA: end of addition.
+
+// PA: values for telling Windows if a (custom)button control is OK, CANCEL, or normal.
+ISNORMALBUTTON :== 0 /* The button is a normal button. */
+ISOKBUTTON :== 1 /* The button is the OK button. */
+ISCANCELBUTTON :== 2 /* The button is the CANCEL button. */
+// PA: end of addition
+
+
+winSetWindowCursor :: !HWND !Int !*OSToolbox -> *OSToolbox
+winObscureCursor :: !*OSToolbox -> *OSToolbox
+winSetWindowTitle :: !HWND !String !*OSToolbox -> *OSToolbox
+winGetWindowText :: !HWND !*OSToolbox -> (!String, !*OSToolbox)
+winUpdateWindowRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
+winSetSelectStateWindow :: !HWND !(!Bool,!Bool) !Bool !Bool !*OSToolbox -> *OSToolbox
+winBeginPaint :: !HWND !*OSToolbox -> (!HDC, !*OSToolbox)
+winEndPaint :: !HWND !(!HDC, !*OSToolbox) -> *OSToolbox
+winFakePaint :: !HWND !*OSToolbox -> *OSToolbox
+winGetClientSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
+winGetWindowSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
+winSetClientSize :: !HWND !(!Int,!Int) !*OSToolbox -> *OSToolbox
+winSetWindowSize :: !HWND !(!Int,!Int) !Bool !*OSToolbox -> *OSToolbox
+winGetWindowPos :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
+winSetWindowPos :: !HWND !(!Int,!Int) !Bool !Bool !*OSToolbox -> *OSToolbox
+winSetScrollRange :: !HWND !Int !Int !Int !Bool !*OSToolbox -> *OSToolbox
+winSetScrollPos :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
+winSetScrollThumbSize :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
+winSetEditSelection :: !HWND !Int !Int !*OSToolbox -> *OSToolbox // Note: @2<=@3, @1 must point to an edit control.
+winShowControl :: !HWND !Bool !*OSToolbox -> *OSToolbox // Hide (False) & show (True) controls.
+winEnableControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
+winEnablePopupItem :: !HWND !Int !Bool !*OSToolbox -> *OSToolbox // PA: this function is currently not used, but might be
+winCheckControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
+winSelectPopupItem :: !HWND !Int !*OSToolbox -> *OSToolbox
|