%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % This file is part of Logtalk % Copyright 1998-2019 Paulo Moura % % Licensed under the Apache License, Version 2.0 (the "License"); % you may not use this file except in compliance with the License. % You may obtain a copy of the License at % % http://www.apache.org/licenses/LICENSE-2.0 % % Unless required by applicable law or agreed to in writing, software % distributed under the License is distributed on an "AS IS" BASIS, % WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. % See the License for the specific language governing permissions and % limitations under the License. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% :- if(( current_logtalk_flag(prolog_dialect, swi), current_prolog_flag(gui, true) )). :- initialization(( logtalk_load_context(directory, Directory), atom_concat(Directory, xpce_hooks, Path), consult(Path), logtalk_load(pong) )). :- else. :- initialization(( write('(this example requires SWI-Prolog as the backend compiler)'), nl )). :- endif.