;*** IOleControl interface

	.386
	.model flat, stdcall
	option casemap:none ; case sensitive
	option proc:private

	.nolist
	.nocref
	include windows.inc
	include unknwn.inc
	include objidl.inc
	include oleidl.inc
	include olectl.inc
	include oaidl.inc
	include ocidl.inc
	include CatProp.inc

	include macros.inc
	include debugout.inc
	.list
	.cref

	include control.inc

	.const

COleControlVtbl IOleControlVtbl {\
	QueryInterface_, AddRef_, Release_,\
	 GetControlInfo, OnMnemonic, OnAmbientPropertyChange, FreezeEvents}

    .code

;--------------------------------------------------------------------------
; IOleControl
;--------------------------------------------------------------------------

CastOffset textequ <offset CAsmCtrl.m_IOleControl>

	@MakeIUnknownStubs CastOffset

GetControlInfo proc uses ebx this_:ptr CAsmCtrl, pCI:ptr CONTROLINFO

	@AdjustThis

	mov ebx,this_
	assume ebx:ptr CAsmCtrl

	DebugOut "IOleControl::GetControlInfo"

    return E_NOTIMPL
	assume ebx:nothing

GetControlInfo endp


OnMnemonic proc uses ebx this_:ptr CAsmCtrl, pMsg:ptr MSG

	@AdjustThis

	mov ebx,this_
	assume ebx:ptr CAsmCtrl

	DebugOut "IOleControl::OnMnemonic"

    return S_OK
	assume ebx:nothing

OnMnemonic endp


OnAmbientPropertyChange proc uses ebx this_:ptr CAsmCtrl, dispID:DISPID

	@AdjustThis

	mov ebx,this_
	assume ebx:ptr CAsmCtrl

	DebugOut "IOleControl::OnAmbientPropertyChange(%X)", dispID

    return S_OK
	assume ebx:nothing

OnAmbientPropertyChange endp


FreezeEvents proc uses ebx this_:ptr CAsmCtrl, bFreeze:BOOL

	@AdjustThis

	mov ebx,this_
	assume ebx:ptr CAsmCtrl

	DebugOut "IOleControl::FreezeEvents(%u)", bFreeze

    return S_OK
	assume ebx:nothing

FreezeEvents endp

    end