1. Visual Prolog (Project | New Project), Application Expert (.11).
2. (, MyProj) , (, D:\VP\ MyProj).
.11. Application Expert
Create . . (Project | Run, < F9 >, < R >).
.12.
, . MyProj.
3. . , T est, . Messages. :
) : Menu , ( Edit )
.13. ,
Edit New (.14).
.
.14.
&Test. -
, Close Task Menu.
) : Window , Code Expert. Dialog and Window Expert (.15)
.15.
Menu Event Type id_test ( ). Add Clause, - . Edit Clause, . Edit Clause. MyProj.pro, :
%BEGIN Task Window, id_test
task_win_eh(_Win,e_Menu(id_test,_ShiftCtlAlt),0):-!,
!.
%END Task Window, id_test
.16.
, Insert | Predicate Call | Window, Dialog or Toolbar
dlg_GetStr .
.17.
dlg_GetStr :
%BEGIN Task Window, id_test
task_win_eh(_Win,e_Menu(id_test,_ShiftCtlAlt),0):-!,
Msg="Message",
InitStr="",
Title="Title",
|
|
_NewSTRING=dlg_GetStr(Title,Msg,InitStr),
!.
%END Task Window, id_test
( ):
%BEGIN Task Window, id_test
task_win_eh(_Win,e_Menu(id_test,_ShiftCtlAlt),0):-!,
Msg=" ", % -
InitStr="", %
Title=" ", %
_NewSTRING=dlg_GetStr(Title,Msg,InitStr), %
_NewSTRING<>"", % ,
write(", ",_NewSTRING), %
!.
%END Task Window, id_test
4. .