askdialogdemo.pro

来自「Visual Prolog的一些学习程序 Visual Prolog7.1的,希」· PRO 代码 · 共 25 行

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

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