discuss.visual-prolog.com

Code: Select all

implement color_dialog inherits dialog
    open core, vpiDomains
 
clauses
    display(Parent) = Dialog :-
        Dialog = new(Parent),
        Dialog:show().
 
clauses
    new(Parent) :-
        dialog::new(Parent),
        generatedInitialize().
 
% This code is maintained automatically, do not update it manually.
facts
    ok_ctl : button.
    cancel_ctl : button.
    help_ctl : button.
 
predicates
    generatedInitialize : ().
clauses
    generatedInitialize() :-
        setText("color_dialog"),
        setRect(rct(50, 40, 290, 160)),
        setModal(true),
        setDecoration(titlebar([frameDecoration::closeButton])),
        ok_ctl := button::newOk(This),
        ok_ctl:setText("&OK"),
        ok_ctl:setPosition(48, 98),
        ok_ctl:setSize(56, 16),
        ok_ctl:defaultHeight := false,
        ok_ctl:setAnchors([control::right, control::bottom]),
        cancel_ctl := button::newCancel(This),
        cancel_ctl:setText("Cancel"),
        cancel_ctl:setPosition(112, 98),
        cancel_ctl:setSize(56, 16),
        cancel_ctl:defaultHeight := false,
        cancel_ctl:setAnchors([control::right, control::bottom]),
        help_ctl := button::new(This),
        help_ctl:setText("&Help"),
        help_ctl:setPosition(176, 98),
        help_ctl:setSize(56, 16),
        help_ctl:defaultHeight := false,
        help_ctl:setAnchors([control::right, control::bottom]).
% end of automatic code
 
end implement color_dialog

Code: Select all

clauses
    new(Parent) :-
        dialog::new(Parent),
        generatedInitialize(),
        setBackgroundColor(color_aqua).