statusline.pro

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

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

                        Copyright (c) Prolog Development Center A/S

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

implement statusLine
    open core, vpiDomains, vpiToolbar, resourceIdentifiers

constants
    className = "TaskWindow/Toolbars/statusLine".
    classVersion = "".

clauses
    classInfo(className, classVersion).

clauses
    create(Parent):-
        _ = vpiToolbar::create(style, Parent, controlList).

% This code is maintained by the VDE. Do not update it manually, 16:50:06-1.11.2004
constants
    style : vpiToolbar::style = tb_bottom().
    controlList : vpiToolbar::control_list =
        [
        tb_text(idt_help_line,tb_context(),452,0,4,10,0x0,"")
        ].
% end of automatic code
end implement statusLine