askdialogdemo.pro

Visual Prolog的一些学习程序 Visual Prolog7.1的,希望或多或少能帮助到您

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

                        Copyright (c) Prolog Development Center A/S

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

implement askDialogDemo
    open core

constants
    className = "askDialogDemo".
    classVersion = "".

clauses
    classInfo(className, classVersion).

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

goal
    mainExe::run(askDialogDemo::run).