我已经编写了一些代码来在swi-prolog中创建GUI,但是我的主窗口对于我的所有按钮和文本字段都太小了。例如,我可以在"第二列"中绘制第六个函数结果,就在第一个结果的右侧?
showForm :-
new(W, window('Test', size(800, 800))),
new(D, dialog('Main window', size(800, 800))),
/* 6) serach if country is in Europe */
new(Etiq, text_item('1) Enter country here:')),
send(D, append, Etiq),
new(Result, label),
send(D, append, Result),
send(D, append, button(search, message(@prolog, memberCountry, Etiq, Result))),
/* 7) Path form-to (serach in deep) */
new(Path1, text('6) Path form-to (serach in deep)')),
new(From1, text_item('Enter country FROM here:')),
new(To1, text_item('Enter country TO here:')),
send(D, append, Path1),
send(D, append, From1),
send(D, append, To1),
send(Path1, right, Etiq),
new(Path1Res, label),
send(D, append, button(path, message(@prolog, dfs, From1, To1, [], Path1Res))),
send(D, append, Path1Res),
% .....
send(D, below, W),
send(D, open),
!.