taskwindow.pro

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

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

                        Copyright (c) Prolog Development Center A/S

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

implement taskWindow
    inherits applicationWindow
    open core, vpiDomains, resourceIdentifiers

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(),
        MainForm = mainForm::new(This),
        MainForm:show().

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) :-
        D = clickResponderDemo::new(This),
        D:show().


% This code is maintained by the VDE do not update it manually, 13:02:10-5.11.2004
predicates
    generatedInitialize : ().
clauses
    generatedInitialize():-
        setText("buttonDemo"),
        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