extra/Win/Message.sml

329                set the first word to the length of the buffer. *)
342                 (* The first word is supposed to contain the length *)
763         val toHMENU: SysWord.word -> HMENU = handleOfVoidStar o Memory.sysWord2VoidStar
764         and fromHMENU: HMENU -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
765         val toHWND: SysWord.word -> HWND = handleOfVoidStar o Memory.sysWord2VoidStar
766         and fromHWND: HWND -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
767         val toHDC: SysWord.word -> HDC = handleOfVoidStar o Memory.sysWord2VoidStar
768         and fromHDC: HDC -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
769         val toHFONT: SysWord.word -> HFONT = handleOfVoidStar o Memory.sysWord2VoidStar
770         and fromHFONT: HFONT -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
771         val toHRGN: SysWord.word -> HRGN = handleOfVoidStar o Memory.sysWord2VoidStar
772         and fromHRGN: HRGN -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
773         val toHDROP: SysWord.word -> HDROP = handleOfVoidStar o Memory.sysWord2VoidStar
774         and fromHDROP: HDROP -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
775         val toHICON: SysWord.word -> HICON = handleOfVoidStar o Memory.sysWord2VoidStar
776         and fromHICON: HICON -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
777         val toHGDIOBJ: SysWord.word -> HGDIOBJ = handleOfVoidStar o Memory.sysWord2VoidStar
778         and fromHGDIOBJ: HGDIOBJ -> SysWord.word = Memory.voidStar2Sysword o voidStarOfHandle
787                 (SB_LINEUP,     0w0: word),
880             (* Y is the high order word, X is the low order word. *)
882             fun getYLParam (i: SysWord.word) = toIntX((i << shift32) ~>> shift16)
883             and getXLParam (i: SysWord.word) = toIntX((i << shift16) ~>> shift16)
933                 (SIZE_RESTORED,       0w0: SysWord.word),
948                 (WA_INACTIVE,       0w0: word),
989         |   EMcfpUnknown of SysWord.word
1002         type KeyData = Word32.word
1092                 itemID1: int, itemData1: SysWord.word, itemID2: int, itemData2: SysWord.word
1460         |   WM_SYSTEM_OTHER of { uMsg: int, wParam: SysWord.word, lParam: SysWord.word }
1461         |   WM_USER of { uMsg: int, wParam: SysWord.word, lParam: SysWord.word }
1462         |   WM_APP of { uMsg: int, wParam: SysWord.word, lParam: SysWord.word }
1463         |   WM_REGISTERED of { uMsg: int, wParam: SysWord.word, lParam: SysWord.word }
1854     fun decompileMessage (0x0000, _: SysWord.word, _: SysWord.word) = WM_NULL
1971             (* The definition of WM_SETFONT says that it is the low order word of lp that says whether the
2631     fun compileMessage WM_NULL = (0x0000, 0w0: SysWord.word, 0w0: SysWord.word, noFree)
3418         fun updateParamsFromMessage(msg: Message, wp: SysWord.word, lp: SysWord.word): unit =
3450     fun messageReturnFromParams(msg: Message, wp: SysWord.word, lp: SysWord.word, reply: SysWord.word): LRESULT =
3512             type callback = HWND * int * SysWord.word * SysWord.word -> SysWord.word
3557             fun mainCallbackFunction(hw:HWND, msgId:int, wParam:SysWord.word, lParam:SysWord.word): SysWord.word =
3565             val WNDPROC: (HWND * int * SysWord.word * SysWord.word -> SysWord.word) closure conversion = cFunction
3576                     (HWND * int * SysWord.word * SysWord.word -> SysWord.word) =
3580                     fun callBack(h: HWND, uMsg:int, wParam: SysWord.word, lParam: SysWord.word): SysWord.word =
3659                     val (m: int, w: SysWord.word, l: SysWord.word, freeMem) = compileMessage msg
3660                     val res: SysWord.word = oldDefProc(hw, m, w, l)