Графические интерфейсы на базе SWI-Prolog/XPCE не запускается
Формулировка задачи:
Имеется файл s48.pl. Захожу в языке в swi-prolog в нужную папку, где находятся s48.pl и prog_1.pl. prog_1.pl работает поиск по базе тоже. Но не знаю как запустить s48.pl чтобы появлялась панель окошками и кнопки.
Пробовал:
[s48.pl].
True.
А GUI не появляется. Какую команду ввести я не знаю и книжке не рассмотрено. В интернете тоже не нашел. В внутренней справке команды ввожу в консоль- появляются разные примитивы, т.е библиотека работоспособна.
s48.pl
Листинг программы
- /*Программа 2.2 */
- :- include('prog_1.pl').
- gui_to_likes :-
- new(MyWin, dialog('Интерфейс к БЗ Любят')),
- send_list(MyWin, append, [
- new(Who,text_item('Любит кто')),
- new(MyList, list_browser),
- button('Любит что:', message(@prolog,
- output, MyList, Who?selection )),
- button(выход, message(MyWin, destroy))
- ]),
- send(MyList, alignment, center),
- send(MyWin, open(point(100,400))).
- output(FrmList,X) :-
- send(FrmList, clear),
- likes(X,W),
- send(FrmList, append, W),
- fail.
Решение задачи: «Графические интерфейсы на базе SWI-Prolog/XPCE не запускается»
textual
Листинг программы
- /* Программа 2.1 */
- likes('Иван','Марья').% факт
- likes('Петр','футбол').% факт
- likes('Иван',X) :- likes('Петр',X). % правило
- go(X,стадион) :- likes(X,футбол).
Объяснение кода листинга программы
- Программа 2.1
- Факт: likes('Иван','Марья').
- Факт: likes('Петр','футбол').
- Правило: likes('Иван',X) :- likes('Петр',X).
- Правило: go(X,стадион) :- likes(X,футбол).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д