taskwindow.pro

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

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

                        Copyright (c) Prolog Development Center A/S

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

implement taskWindow
    inherits applicationWindow
    open core, vpiDomains, resourceIdentifiers, stdio

constants
    className = "TaskWindow/taskWindow".
    classVersion = "".

clauses
    classInfo(className, classVersion).

constants
    mdiProperty : boolean = true.
clauses
    new():-
        applicationWindow::new(),
        generatedInitialize().

facts
    messageWin : messageForm := erroneous.
constants
    maxMessageLines : integer = 100.
predicates
    onShow : window::showListener.
clauses
    onShow(_, _CreationData):-
        messageWin := messageForm::new(This),
        messageWin:show(),
        write("This program demonstrate how to program dialogs that ask the user for something and return an answer"),nl,
        write("Please select File|Ask from the main menu to see how it works"),nl.

predicates
    onDestroy : window::destroyListener.
clauses
    onDestroy(_).

predicates
    onHelpAbout : window::menuItemListener.
clauses
    onHelpAbout(TaskWin, _MenuTag):-
        AboutDialog = aboutDialog::new(TaskWin),
        AboutDialog:show().

predicates
    onFileExit : window::menuItemListener.
clauses
    onFileExit(_, _MenuTag):-
        destroy().

predicates
    onSizeChanged : window::sizeListener.
clauses
    onSizeChanged(_):-
        vpiToolbar::resize(getVPIWindow()).

predicates
    onFileNew : window::menuItemListener.
clauses
    onFileNew(_Source, _MenuTag) :-
        Result = askDialog::ask("Some default value"),
        !,
        vpiCommonDialogs::note(string::format(
            "The answer is: %s", Result)).
    onFileNew(_Source, _MenuTag) :-
        vpiCommonDialogs::error("No answer (Cancel is pressed)").

% This code is maintained by the VDE do not update it manually, 17:18:42-1.11.2004
predicates
    generatedInitialize : ().
clauses
    generatedInitialize():-
        setText("askDialogDemo"),
        setDecoration(titlebar([closebutton(),maximizebutton(),minimizebutton()])),
        setBorder(sizeBorder()),
        setState([wsf_ClipSiblings]),
        setMdiProperty(mdiProperty),
        menuSet(resMenu(id_TaskMenu)),
        addShowListener(generatedOnShow),
        addShowListener(onShow),
        addSizeListener(onSizeChanged),
        addDestroyListener(onDestroy),
        addMenuItemListener(id_help_about, onHelpAbout),
        addMenuItemListener(id_file_exit, onFileExit),
        addMenuItemListener(id_file_new, onFileNew).

predicates
    generatedOnShow: window::showListener.
clauses
    generatedOnShow(_,_):-
        projectToolbar::create(getVPIWindow()),
        statusLine::create(getVPIWindow()),
        succeed.
% end of automatic code
end implement taskWindow