in showRemedes.cl
Code: Select all
class showRemedes : showRemedes
open core
predicates
display : (window Parent) -> showRemedes Form.
theRemedies2 : (string*).
constructors
new : (window Parent).
end class showRemedesCode: Select all
theRemedies2(List) :-
.../...
stdio::write("in theRemedies2 : ", List), % <- this line is OK
remedesBox_ctl:addList(List). <--- Here, I get The object member 'remedesBox_ctl' is used in the class predicate
% This code is maintained automatically, do not update it manually.
facts
remedesBox_ctl : listBox.
predicates
generatedInitialize : ().
clauses
generatedInitialize() :-
.../...
remedesBox_ctl := listBox::new(This),
remedesBox_ctl:setRect(vpiDomains::rct(8, 31, 210, 217)),
remedesBox_ctl:setFont(vpi::fontCreateByName("Verdana", 11)),
remedesBox_ctl:setLabel("test...."),
.../...
% end of automatic codeAs I said, I am new to OOP and even if I begin to think about such a programmation, I don't have lost my "C" (bad) habits and it stays a new world but VP is such a fantastic development tool, I make all my possible to use it successfully.
Best regards, Michel
