bases_de_regles.cl
Code: Select all
predicates
fenetre :(string Constatation1, string Constatation2) procedure(i,i).
task_memoir_constatation1:()->string .
task_memoir_constatation2:()->string .
Code: Select all
disjoncteur.pro
Code: Select all
fusible.pro
Code: Select all
predicates
onFusibledownClick : button::clickResponder.
clauses
onFusibledownClick(_Source) = button::defaultAction:-
bases_de_regles::task_memoir_constatation2()="fusibledown",
bases_de_regles::fenetre(bases_de_regles::task_memoir_constatation1(),bases_de_regles::task_memoir_constatation2())
!.
onFusibledownClick(_Source) = button::defaultAction