buttondemo.pro

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

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

                        Copyright (c) Prolog Development Center A/S

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

implement buttonDemo
    open core

constants
    className = "buttonDemo".
    classVersion = "".

clauses
    classInfo(className, classVersion).

clauses
    run():-
       TaskWindow = taskWindow::new(),       
       TaskWindow:show().
end implement buttonDemo

goal
    mainExe::run(buttonDemo::run).