customcom.pro

来自「Visual Prolog 7.1的一些学习资料,希望对您有用」· PRO 代码 · 共 23 行

/*****************************************************************************

		Copyright (c) Prolog Developement Center

 Written by: Visual Prolog
******************************************************************************/

implement customCom inherits testInterface1
constants
    clsId : comDomains::nativeIID = core::nativeGuid(
        0xF81ECF14, 0x11A3, 0x48C8, 0x99, 0xC5, 0xAB, 0xF0, 0x63, 0x63, 0x84, 0xB1).

clauses
    new() :-
        testInterface1::newComponent(clsId).

clauses
    getTestInterface1() = This.

clauses
    getTestInterface2() = testInterface2::new(This).
end implement customCom