' Classes/System/Windows/Forms/Message.ab

#ifndef __SYSTEM_WINDOWS_FORMS_MESSAGE_AB__
#define __SYSTEM_WINDOWS_FORMS_MESSAGE_AB__

Class Message
Public
	Sub Operator =(ByRef x As Message)
		hwnd = x.hwnd
		msg = x.msg
		wp = x.wp
		lp = x.lp
		lr = x.lr
	End Sub

	/*Const*/ Function HWnd() As HWND
		Return hwnd
	End Function

	Sub HWnd(hw As HWND)
		hwnd = hw
	End Sub

	/*Const*/ Function Msg() As DWord
		Return msg
	End Function

	Sub Msg(m As DWord)
		msg = m
	End Sub

	/*Const*/ Function WParam() As WPARAM
		Return wp
	End Function

	Sub WParam(wParam As WPARAM)
		wp = wParam
	End Sub

	/*Const*/ Function LParam() As LPARAM
		Return lp
	End Function

	Sub LParam(lParam As LPARAM)
		lp = lParam
	End Sub

	/*Const*/ Function Result() As LRESULT
		Return lr
	End Function

	Sub Result(res As LRESULT)
		lr = res
	End Sub

	/*Const*/ Function Equals(x As Message) As BOOL
		Return hwnd = x.hwnd And _
			msg = x.msg And _
			wp = .wp And _
			lp = .lp And _
			lr = .lr
	End Function

	/*Const*/ Function Operator ==(x As Message) As BOOL
		Return Equals(x)
	End Function

	/*Const*/ Function Operator <>(x As Message) As BOOL
		Return Not Equals(x)
	End Function

	Static Function Create(hwnd As HWND, msg As DWord, wp As WPARAM, lp As LPARAM) As Message
		Dim m As Message
		With m
			.hwnd = hwnd
			.msg = msg
			.wp = wp
			.lp = lp
		End With
		Return m
	End Function

Private
	hwnd As HWND
	msg As DWord
	wp As WPARAM
	lp As LPARAM
	lr As LRESULT
End Class

#endif '__SYSTEM_WINDOWS_FORMS_MESSAGE_AB__