buttondemo.pro

Visual Prolog 7.1的一些学习资料,希望对您有用

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

                        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).