askdialog.cl

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

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

                        Copyright (c) Prolog Development Center A/S

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

class askDialog : askDialog
    open core

predicates
    classInfo : core::classInfo.
    % @short Class information  predicate.
    % @detail This predicate represents information predicate of this class.
    % @end

constructors
    new : (window Parent).

predicates
    ask : (string Initial) -> string Answer determ.


end class askDialog