Hello! This code does not work in Visual Prolog 7.4: predicates onButtonMouseDown : window::mouseDownListener. clauses onButtonMouseDown(_Source, Point, ShiftControlAlt, Button) :- stdio::writef("Point = %, ShiftControlAlt = %, Button = %\n", Point, ShiftControlAlt, Button). But getFocusListener wor...

Thank you, Thomas. It works.
The algorithm is correct.
About Build -> Run in Window. I offen use it, but the console window is not "clean" in this case. There are extra lines in it. Sometimes it would be better without them.

Hello! This program works in Visual Prolog 7.3 but does not work in Visual Prolog 7.4: class facts tr : dictionary{dictionary{unsigned}} := empty. class predicates tryGet : (unsigned, unsigned) -> unsigned determ. setVal : (unsigned, unsigned, unsigned). clauses tryGet(X, Y) = lookup(lookup(tr, X), ...

Thomas, I tested a small program (console application) many times for different sets of facts, "commenting" some of them. class facts p : (string, ... ...). clauses % p(..., ... ...). % p(..., ... ...). p(..., ... ...). p(..., ... ...). % 30-40 facts or clauses p(..., ... ...). % p(..., ... ...). p(...

Hello! When I mark the commentaries using %, after a couple or three runs or even at once, the entire page of code below that mark turns gray. The program works fine. After this, I replace the % by /* */ - everything is normal. But after the program a couple of times runs, again all is gray and it i...

Thank you! The problem has been solved.

Hello!

It does not work (32 bit).

I've understood how to do it. Everything is ok. Thanks again.

Thanks, Thomas.
But how to create several classes with one interface?
Could you give a small example, please?

By the way, Thomas, recently it was possible to create different classes with the same interface. interface a ... class b : a ... class c : a ... Is it possible to do it now? Or should I do as follows: interface a ... class a : a ... interface b supports a end interface class b : b ... ?

Hello! Suddenly, I have found the following: class facts s: (string, string). n: (integer, integer). clauses run():- console::init(), X = std::fromTo(1, 3), not(s(Y, toString(X))), assert(s(Y, toString(X))), fail; K = std::fromTo(1, 3), not(n(N, K)), assert(n(N, K)), fail; s(P, Q), writef("% - %\n",...

Thanks, Thomas.

Hello! Operation mod works in a strange way. Let f be defined in a following way: class predicates f : (unsigned) -> unsigned. clauses f(N) = N:- N mod 2 = 0, !. f(_) = 0. run():- console::init(), write([f(I) || I = std::fromTo(1, 5)]), nl, write([J mod 2 || J = std::fromTo(1, 5)]), nl, _ = readLine...

Hello,

it is there:
http://www.progz.ru/forum/index.php?showforum=10