message(Term_list) warning(Term_list) errormessage(Term_list) banner(Call,Message,T,L)
availability(Album) :- album(Album), message([Album,' can be found in section 2 of the store.']). album(sketches_of_spain). album(aura). warn :- warning(['Uncle Sam is looking at you!']). error :- errormessage(['Uncle Sam wants you dead']). longwait(0). longwait(X) :- X1 is X-1, longwait(X1). flag :- banner(longwait(1000),['Please wait...'],50,10).
Figure 7: The Modal warning dialog
Figure 8: The Modal error message dialog
Figure 9: The Modal banner dialog