Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
934
Task/15-puzzle-game/Visual-Prolog/15-puzzle-game.pro
Normal file
934
Task/15-puzzle-game/Visual-Prolog/15-puzzle-game.pro
Normal file
|
|
@ -0,0 +1,934 @@
|
|||
/* ------------------------------------------------------------------------------------------------------
|
||||
|
||||
Copyright (c) 2004 - Gal Zsolt (CalmoSoft)
|
||||
|
||||
------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
implement playDialog
|
||||
open core, vpiDomains, vpiOldDomains, resourceIdentifiers
|
||||
|
||||
facts
|
||||
thisWin : vpiDomains::windowHandle := erroneous.
|
||||
|
||||
clauses
|
||||
show(Parent):-
|
||||
_ = vpi::winCreateDynDialog(Parent, controlList, eventHandler, gui_api::lNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
eventHandler : vpiDomains::ehandler.
|
||||
clauses
|
||||
eventHandler(Win, Event) = Result :-
|
||||
Result = generatedEventHandler(Win, Event).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
|
||||
predicates
|
||||
onDestroy : vpiOldDomains::destroyHandler.
|
||||
clauses
|
||||
onDestroy() = vpiOldDomains::defaultHandling() :-
|
||||
thisWin := erroneous.
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlCancel : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlCancel(_Ctrl, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull) :-
|
||||
file::save("game.dba",gameDB),
|
||||
retractall(table(_,_)),
|
||||
retractall(gameplay(_,_)),
|
||||
retractall(empty_cell(_)),
|
||||
retractall(cell(_,_)),
|
||||
retractall(cellnr(_,_)),
|
||||
retractall(good(_,_,_)),
|
||||
vpi::winDestroy(thisWin).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onUpdate : vpiOldDomains::updateHandler.
|
||||
clauses
|
||||
onUpdate(Rectangle) = vpiOldDomains::defaultHandling():-
|
||||
vpi::winClear( thisWin,Rectangle,0x808040),
|
||||
!.
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
class facts - gameDB
|
||||
table:(integer,string).
|
||||
gameplay:(integer,integer).
|
||||
empty_cell:(integer).
|
||||
|
||||
class facts
|
||||
cell:(integer,vpiDomains::windowHandle).
|
||||
cellnr:(integer,integer).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
class facts
|
||||
step_nr:integer:=0.
|
||||
|
||||
predicates
|
||||
onCreate : vpiOldDomains::createHandler.
|
||||
clauses
|
||||
onCreate(_CreationData) = vpiOldDomains::defaultHandling():-
|
||||
retractall(table(_,_)),
|
||||
retractall(gameplay(_,_)),
|
||||
retractall(empty_cell(_)),
|
||||
retractall(cell(_,_)),
|
||||
retractall(cellnr(_,_)),
|
||||
retractall(good(_,_,_)),
|
||||
|
||||
scrollbars_init(),
|
||||
cellhandle_init(),
|
||||
empty:=16,
|
||||
good_cell(0),
|
||||
table_save(),
|
||||
step_nr:=0,
|
||||
fail.
|
||||
onCreate(_CreationData) = vpiOldDomains::defaultHandling().
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
facts
|
||||
vsbarr : vpiDomains::windowHandle := erroneous.
|
||||
vsbarl : vpiDomains::windowHandle := erroneous.
|
||||
hsbart : vpiDomains::windowHandle := erroneous.
|
||||
hsbarb : vpiDomains::windowHandle := erroneous.
|
||||
|
||||
predicates
|
||||
scrollbars_init:().
|
||||
clauses
|
||||
scrollbars_init():-
|
||||
vsbarr := vpi::winGetCtlHandle(thisWin,idc_sbvr),
|
||||
vsbarl := vpi::winGetCtlHandle(thisWin,idc_sbvl),
|
||||
hsbart := vpi::winGetCtlHandle(thisWin,idc_sbht),
|
||||
hsbarb := vpi::winGetCtlHandle(thisWin,idc_sbhb),
|
||||
|
||||
|
||||
vpi::winSetScrollRange(vsbarr,sb_Ctl,1,4),
|
||||
vpi::winSetScrollProportion(vsbarr,sb_Ctl,1),
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl,4),
|
||||
|
||||
vpi::winSetScrollRange(vsbarl,sb_Ctl,1,4),
|
||||
vpi::winSetScrollProportion(vsbarl,sb_Ctl,1),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl,4),
|
||||
|
||||
vpi::winSetScrollRange(hsbart,sb_Ctl,1,4),
|
||||
vpi::winSetScrollProportion(hsbart,sb_Ctl,1),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl,4),
|
||||
|
||||
vpi::winSetScrollRange(hsbarb,sb_Ctl,1,4),
|
||||
vpi::winSetScrollProportion(hsbarb,sb_Ctl,1),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl,4).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
class facts
|
||||
cell1 : vpiDomains::windowHandle := erroneous.
|
||||
cell2 : vpiDomains::windowHandle := erroneous.
|
||||
cell3 : vpiDomains::windowHandle := erroneous.
|
||||
cell4 : vpiDomains::windowHandle := erroneous.
|
||||
cell5 : vpiDomains::windowHandle := erroneous.
|
||||
cell6 : vpiDomains::windowHandle := erroneous.
|
||||
cell7 : vpiDomains::windowHandle := erroneous.
|
||||
cell8 : vpiDomains::windowHandle := erroneous.
|
||||
cell9 : vpiDomains::windowHandle := erroneous.
|
||||
cell10 : vpiDomains::windowHandle := erroneous.
|
||||
cell11 : vpiDomains::windowHandle := erroneous.
|
||||
cell12 : vpiDomains::windowHandle := erroneous.
|
||||
cell13 : vpiDomains::windowHandle := erroneous.
|
||||
cell14 : vpiDomains::windowHandle := erroneous.
|
||||
cell15 : vpiDomains::windowHandle := erroneous.
|
||||
cell16 : vpiDomains::windowHandle := erroneous.
|
||||
|
||||
predicates
|
||||
cell_handle:().
|
||||
clauses
|
||||
cell_handle():-
|
||||
cell1:=vpi::winGetCtlHandle(thisWin,idc_cell1),
|
||||
cell2:=vpi::winGetCtlHandle(thisWin,idc_cell2),
|
||||
cell3:=vpi::winGetCtlHandle(thisWin,idc_cell3),
|
||||
cell4:=vpi::winGetCtlHandle(thisWin,idc_cell4),
|
||||
cell5:=vpi::winGetCtlHandle(thisWin,idc_cell5),
|
||||
cell6:=vpi::winGetCtlHandle(thisWin,idc_cell6),
|
||||
cell7:=vpi::winGetCtlHandle(thisWin,idc_cell7),
|
||||
cell8:=vpi::winGetCtlHandle(thisWin,idc_cell8),
|
||||
cell9:=vpi::winGetCtlHandle(thisWin,idc_cell9),
|
||||
cell10:=vpi::winGetCtlHandle(thisWin,idc_cell10),
|
||||
cell11:=vpi::winGetCtlHandle(thisWin,idc_cell11),
|
||||
cell12:=vpi::winGetCtlHandle(thisWin,idc_cell12),
|
||||
cell13:=vpi::winGetCtlHandle(thisWin,idc_cell13),
|
||||
cell14:=vpi::winGetCtlHandle(thisWin,idc_cell14),
|
||||
cell15:=vpi::winGetCtlHandle(thisWin,idc_cell15),
|
||||
cell16:=vpi::winGetCtlHandle(thisWin,idc_cell16).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
cellhandle_init:().
|
||||
clauses
|
||||
cellhandle_init():-
|
||||
retractall(cell(_,_)),
|
||||
cell_handle(),
|
||||
|
||||
assert(cell(1,cell1)),
|
||||
assert(cell(2,cell2)),
|
||||
assert(cell(3,cell3)),
|
||||
assert(cell(4,cell4)),
|
||||
assert(cell(5,cell5)),
|
||||
assert(cell(6,cell6)),
|
||||
assert(cell(7,cell7)),
|
||||
assert(cell(8,cell8)),
|
||||
assert(cell(9,cell9)),
|
||||
assert(cell(10,cell10)),
|
||||
assert(cell(11,cell11)),
|
||||
assert(cell(12,cell12)),
|
||||
assert(cell(13,cell13)),
|
||||
assert(cell(14,cell14)),
|
||||
assert(cell(15,cell15)),
|
||||
assert(cell(16,cell16)).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
class facts
|
||||
good_nr:integer:=0.
|
||||
good:(integer,integer,integer) nondeterm.
|
||||
empty:integer:=16.
|
||||
|
||||
predicates
|
||||
good_cell:(integer) multi.
|
||||
clauses
|
||||
good_cell(16):-!.
|
||||
good_cell(Number):-
|
||||
NumberNew = Number+1,
|
||||
good_nr:=0,
|
||||
good_above(NumberNew), % movable cells above empty cell
|
||||
good_before(NumberNew), % movable cells before empty cell
|
||||
good_after(NumberNew), % movable cells after empty cell
|
||||
good_under(NumberNew), % movable cells under empty cell
|
||||
assert(cellnr(NumberNew,good_nr)), % number of movable cells around the empty cell
|
||||
good_cell(NumberNew).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
good_above:(integer).
|
||||
clauses
|
||||
good_above(Number):-
|
||||
Number > 4, % movable cells above empty cell
|
||||
good_nr:= good_nr+1,
|
||||
assert(good(Number,good_nr,Number-4)),
|
||||
fail.
|
||||
good_above(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
good_before:(integer).
|
||||
clauses
|
||||
good_before(Number):-
|
||||
(Number mod 4) <> 1, % movable cells before empty cell
|
||||
good_nr:= good_nr+1,
|
||||
assert(good(Number,good_nr,Number-1)),
|
||||
fail.
|
||||
good_before(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
good_after:(integer).
|
||||
clauses
|
||||
good_after(Number):-
|
||||
(Number mod 4) > 0, % movable cells after empty cell
|
||||
good_nr:= good_nr+1,
|
||||
assert(good(Number,good_nr,Number+1)),
|
||||
fail.
|
||||
good_after(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
good_under:(integer).
|
||||
clauses
|
||||
good_under(Number):-
|
||||
Number < 13, % movable cells under empty cell
|
||||
good_nr:= good_nr+1,
|
||||
assert(good(Number,good_nr,Number+4)),
|
||||
fail.
|
||||
good_under(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
cell_click:(integer).
|
||||
|
||||
clauses
|
||||
cell_click(NrCell):-
|
||||
good(empty,_,NrCell),
|
||||
cell(empty,EmptyHandle),
|
||||
cell(NrCell,NrCellHandle),
|
||||
EmptyNr = vpi::winGetText(NrCellHandle),
|
||||
vpi::winSetText(EmptyHandle,EmptyNr),
|
||||
vpi::winSetText(NrCellHandle,""),
|
||||
empty:=NrCell,
|
||||
step_nr := step_nr + 1,
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetText( Bingo, ""),
|
||||
vpi::winSetState(Bingo,[wsf_Invisible]),
|
||||
bingo(),
|
||||
|
||||
% VerVal = uncheckedConvert(integer, math::floor((empty-1)/4)+1),
|
||||
% HorVal = uncheckedConvert(integer, math::floor((empty-1) mod 4)+1),
|
||||
|
||||
VerVal = math::floor((empty-1)/4)+1,
|
||||
HorVal = math::floor((empty-1) mod 4)+1,
|
||||
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl,VerVal),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl,VerVal),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl,HorVal),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl,HorVal),
|
||||
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(step_nr)),
|
||||
|
||||
assert(gameplay(step_nr,NrCell)),
|
||||
|
||||
fail.
|
||||
cell_click(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
cell_click_play:(integer).
|
||||
|
||||
clauses
|
||||
cell_click_play(NrCell):-
|
||||
good(empty,_,NrCell),
|
||||
cell(empty,EmptyHandle),
|
||||
cell(NrCell,NrCellHandle),
|
||||
EmptyNr = vpi::winGetText(NrCellHandle),
|
||||
vpi::winSetText(EmptyHandle,EmptyNr),
|
||||
vpi::winSetText(NrCellHandle,""),
|
||||
empty:=NrCell,
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetText(Bingo, ""),
|
||||
vpi::winSetState(Bingo,[wsf_Invisible]),
|
||||
bingo(),
|
||||
|
||||
% VerVal = uncheckedConvert(integer,math::floor((empty-1)/4)+1),
|
||||
% HorVal = uncheckedConvert(integer,math::floor((empty-1) mod 4)+1),
|
||||
|
||||
VerVal = math::floor((empty-1)/4)+1,
|
||||
HorVal = math::floor((empty-1) mod 4)+1,
|
||||
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl,VerVal),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl,VerVal),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl,HorVal),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl,HorVal),
|
||||
|
||||
programControl::sleep(1000),
|
||||
|
||||
fail.
|
||||
cell_click_play(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlmix : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlmix(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
step_nr:=0,
|
||||
cell_reset(),
|
||||
mix_cells(0),
|
||||
Play = vpi::winGetCtlHandle(thisWin,idc_play),
|
||||
vpi::winSetState(Play,[wsf_Disabled]),
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetText(Bingo, ""),
|
||||
vpi::winSetState(Bingo,[wsf_Invisible]),
|
||||
step_nr:=0,
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(step_nr)),
|
||||
table_save(),
|
||||
retractall(gameplay(_,_)),
|
||||
fail.
|
||||
|
||||
onControlmix(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
class facts
|
||||
rand_nr:integer:=0.
|
||||
mix_nr:integer:=300.
|
||||
|
||||
predicates
|
||||
mix_cells:(integer) multi.
|
||||
|
||||
clauses
|
||||
mix_cells(mix_nr):-!.
|
||||
mix_cells(Number):-
|
||||
NumberNew = Number+1,
|
||||
cellnr(empty,CellNr),
|
||||
RandomNr = (math::random(1315) mod CellNr) + 1,
|
||||
rand_nr := RandomNr,
|
||||
good(empty,rand_nr, I),
|
||||
cell_click(I),
|
||||
mix_cells(NumberNew).
|
||||
mix_cells(_).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
table_save:().
|
||||
clauses
|
||||
table_save():-
|
||||
retractall(table(_,_)),
|
||||
retractall(empty_cell(_)),
|
||||
assert(empty_cell(empty)),
|
||||
|
||||
assert(table(1,vpi::winGetText(cell1))),
|
||||
assert(table(2,vpi::winGetText(cell2))),
|
||||
assert(table(3,vpi::winGetText(cell3))),
|
||||
assert(table(4,vpi::winGetText(cell4))),
|
||||
assert(table(5,vpi::winGetText(cell5))),
|
||||
assert(table(6,vpi::winGetText(cell6))),
|
||||
assert(table(7,vpi::winGetText(cell7))),
|
||||
assert(table(8,vpi::winGetText(cell8))),
|
||||
assert(table(9,vpi::winGetText(cell9))),
|
||||
assert(table(10,vpi::winGetText(cell10))),
|
||||
assert(table(11,vpi::winGetText(cell11))),
|
||||
assert(table(12,vpi::winGetText(cell12))),
|
||||
assert(table(13,vpi::winGetText(cell13))),
|
||||
assert(table(14,vpi::winGetText(cell14))),
|
||||
assert(table(15,vpi::winGetText(cell15))),
|
||||
assert(table(16,vpi::winGetText(cell16))).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlreset : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlreset(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_reset().
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
predicates
|
||||
cell_reset:().
|
||||
clauses
|
||||
cell_reset():-
|
||||
vpi::winSetText(cell1,"1"),
|
||||
vpi::winSetText(cell2,"2"),
|
||||
vpi::winSetText(cell3,"3"),
|
||||
vpi::winSetText(cell4,"4"),
|
||||
vpi::winSetText(cell5,"5"),
|
||||
vpi::winSetText(cell6,"6"),
|
||||
vpi::winSetText(cell7,"7"),
|
||||
vpi::winSetText(cell8,"8"),
|
||||
vpi::winSetText(cell9,"9"),
|
||||
vpi::winSetText(cell10,"10"),
|
||||
vpi::winSetText(cell11,"11"),
|
||||
vpi::winSetText(cell12,"12"),
|
||||
vpi::winSetText(cell13,"13"),
|
||||
vpi::winSetText(cell14,"14"),
|
||||
vpi::winSetText(cell15,"15"),
|
||||
vpi::winSetText(cell16,""),
|
||||
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl,4),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl,4),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl,4),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl,4),
|
||||
|
||||
empty:=16,
|
||||
step_nr:=0,
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(step_nr)),
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetText(Bingo, ""),
|
||||
vpi::winSetState(Bingo,[wsf_Invisible]),
|
||||
Play = vpi::winGetCtlHandle(thisWin,idc_play),
|
||||
vpi::winSetState(Play,[wsf_Disabled]),
|
||||
retractall(gameplay(_,_)),
|
||||
table_save().
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
bingo:().
|
||||
|
||||
clauses
|
||||
bingo():-
|
||||
toString(1) = vpi::winGetText(cell1),
|
||||
toString(2) = vpi::winGetText(cell2),
|
||||
toString(3) = vpi::winGetText(cell3),
|
||||
toString(4) = vpi::winGetText(cell4),
|
||||
toString(5) = vpi::winGetText(cell5),
|
||||
toString(6) = vpi::winGetText(cell6),
|
||||
toString(7) = vpi::winGetText(cell7),
|
||||
toString(8) = vpi::winGetText(cell8),
|
||||
toString(9) = vpi::winGetText(cell9),
|
||||
toString(10) = vpi::winGetText(cell10),
|
||||
toString(11) = vpi::winGetText(cell11),
|
||||
toString(12) = vpi::winGetText(cell12),
|
||||
toString(13) = vpi::winGetText(cell13),
|
||||
toString(14) = vpi::winGetText(cell14),
|
||||
toString(15) = vpi::winGetText(cell15),
|
||||
"" = vpi::winGetText(cell16),
|
||||
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetState(Bingo,[wsf_Visible]),
|
||||
vpi::winSetText(Bingo, "BINGO !"),
|
||||
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(step_nr)),
|
||||
|
||||
fail.
|
||||
bingo().
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
facts
|
||||
fileName:string:="".
|
||||
|
||||
predicates
|
||||
onControlsave : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlsave(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
try
|
||||
FileName = vpiCommonDialogs::getFileName(fileName, ["All files", "*.game"], "Save game as", [dlgfn_Save], "", _)
|
||||
catch _ do
|
||||
fail
|
||||
end try,
|
||||
!,
|
||||
file::save(FileName,gameDB).
|
||||
|
||||
onControlsave(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo)= vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlopen : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlopen(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
try
|
||||
FileName = vpiCommonDialogs::getFileName("game_", ["All files", "*.game"], "Open game file", [], "", _)
|
||||
catch _ do
|
||||
fail
|
||||
end try,
|
||||
!,
|
||||
retractall(table(_,_)),
|
||||
retractall(gameplay(_,_)),
|
||||
retractall(empty_cell(_)),
|
||||
file::consult(FileName,gameDB),
|
||||
play_display(),
|
||||
Play = vpi::winGetCtlHandle(thisWin,idc_play),
|
||||
vpi::winSetState(Play,[wsf_Enabled]),
|
||||
Bingo = vpi::winGetCtlHandle(thisWin,idc_bingo),
|
||||
vpi::winSetState(Bingo,[wsf_Invisible]),
|
||||
vpi::winSetText(Bingo, ""),
|
||||
step_nr:=0,
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(step_nr)).
|
||||
|
||||
onControlopen(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
play_display:().
|
||||
clauses
|
||||
play_display():-
|
||||
|
||||
table(1,Cell1),
|
||||
table(2,Cell2),
|
||||
table(3,Cell3),
|
||||
table(4,Cell4),
|
||||
table(5,Cell5),
|
||||
table(6,Cell6),
|
||||
table(7,Cell7),
|
||||
table(8,Cell8),
|
||||
table(9,Cell9),
|
||||
table(10,Cell10),
|
||||
table(11,Cell11),
|
||||
table(12,Cell12),
|
||||
table(13,Cell13),
|
||||
table(14,Cell14),
|
||||
table(15,Cell15),
|
||||
table(16,Cell16),
|
||||
|
||||
vpi::winSetText(cell1,Cell1),
|
||||
vpi::winSetText(cell2,Cell2),
|
||||
vpi::winSetText(cell3,Cell3),
|
||||
vpi::winSetText(cell4,Cell4),
|
||||
vpi::winSetText(cell5,Cell5),
|
||||
vpi::winSetText(cell6,Cell6),
|
||||
vpi::winSetText(cell7,Cell7),
|
||||
vpi::winSetText(cell8,Cell8),
|
||||
vpi::winSetText(cell9,Cell9),
|
||||
vpi::winSetText(cell10,Cell10),
|
||||
vpi::winSetText(cell11,Cell11),
|
||||
vpi::winSetText(cell12,Cell12),
|
||||
vpi::winSetText(cell13,Cell13),
|
||||
vpi::winSetText(cell14,Cell14),
|
||||
vpi::winSetText(cell15,Cell15),
|
||||
vpi::winSetText(cell16,Cell16),
|
||||
|
||||
empty_cell(Empty_Cell),
|
||||
empty:=Empty_Cell,
|
||||
|
||||
fail.
|
||||
play_display().
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlplay : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
|
||||
onControlplay(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Play = vpi::winGetCtlHandle(thisWin,idc_play),
|
||||
vpi::winSetState(Play,[wsf_Disabled]),
|
||||
gameplay(Nr,Nr_cell),
|
||||
cell_click_play(Nr_cell),
|
||||
Step = vpi::winGetCtlHandle(thisWin,idc_step),
|
||||
vpi::winSetText(Step,toString(Nr)),
|
||||
fail.
|
||||
|
||||
onControlplay(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlsbvr : vpiOldDomains::controlHandler. % Sets the right vertical scrollbar
|
||||
clauses
|
||||
onControlsbvr(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineDown,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalr = vpi::winGetScrollPos(vsbarr,sb_Ctl)+1,
|
||||
Sbarvalr < 5,
|
||||
cell_click(empty+4),
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl, Sbarvalr),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl, Sbarvalr),
|
||||
fail.
|
||||
|
||||
onControlsbvr(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineUp,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalr = vpi::winGetScrollPos(vsbarr,sb_Ctl)-1,
|
||||
Sbarvalr > 0,
|
||||
cell_click(empty-4),
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl, Sbarvalr),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl, Sbarvalr),
|
||||
fail.
|
||||
|
||||
onControlsbvr(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlsbvl : vpiOldDomains::controlHandler. % Sets the left vertical scrollbar
|
||||
clauses
|
||||
onControlsbvl(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineDown,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvall = vpi::winGetScrollPos(vsbarl,sb_Ctl)+1,
|
||||
Sbarvall < 5,
|
||||
cell_click(empty+4),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl, Sbarvall),
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl, Sbarvall),
|
||||
fail.
|
||||
|
||||
onControlsbvl(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineUp,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvall = vpi::winGetScrollPos(vsbarl,sb_Ctl)-1,
|
||||
Sbarvall > 0,
|
||||
cell_click(empty-4),
|
||||
vpi::winSetScrollPos(vsbarl,sb_Ctl, Sbarvall),
|
||||
vpi::winSetScrollPos(vsbarr,sb_Ctl, Sbarvall),
|
||||
fail.
|
||||
|
||||
onControlsbvl(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlsbht : vpiOldDomains::controlHandler. % Sets the top horizontal scrollbar
|
||||
clauses
|
||||
onControlsbht(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineDown,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalt = vpi::winGetScrollPos(hsbart,sb_Ctl)+1,
|
||||
Sbarvalt < 5,
|
||||
cell_click(empty+1),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl, Sbarvalt),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl, Sbarvalt),
|
||||
fail.
|
||||
|
||||
onControlsbht(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineUp,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalt = vpi::winGetScrollPos(hsbart,sb_Ctl)-1,
|
||||
Sbarvalt > 0,
|
||||
cell_click(empty-1),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl, Sbarvalt),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl, Sbarvalt),
|
||||
fail.
|
||||
|
||||
onControlsbht(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlsbhb : vpiOldDomains::controlHandler. % Sets the bottom horizontal scrollbar
|
||||
clauses
|
||||
onControlsbhb(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineDown,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalb = vpi::winGetScrollPos(hsbarb,sb_Ctl)+1,
|
||||
Sbarvalb < 5,
|
||||
cell_click(empty+1),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl, Sbarvalb),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl, Sbarvalb),
|
||||
fail.
|
||||
|
||||
onControlsbhb(_CtrlID, _CtrlType, _CtrlWin,scroll(sc_LineUp,_)) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
Sbarvalb = vpi::winGetScrollPos(hsbarb,sb_Ctl)-1,
|
||||
Sbarvalb > 0,
|
||||
cell_click(empty-1),
|
||||
vpi::winSetScrollPos(hsbarb,sb_Ctl, Sbarvalb),
|
||||
vpi::winSetScrollPos(hsbart,sb_Ctl, Sbarvalb),
|
||||
fail.
|
||||
|
||||
onControlsbhb(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell1 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell1(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(1).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
|
||||
predicates
|
||||
onControlcell2 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell2(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(2).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell3 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell3(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(3).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell4 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell4(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(4).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell5 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell5(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(5).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell6 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell6(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(6).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell7 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell7(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(7).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell8 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell8(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(8).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell9 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell9(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(9).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell10 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell10(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(10).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell11 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell11(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(11).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell12 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell12(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(12).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell13 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell13(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(13).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell14 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell14(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(14).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell15 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell15(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(15).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
predicates
|
||||
onControlcell16 : vpiOldDomains::controlHandler.
|
||||
clauses
|
||||
onControlcell16(_CtrlID, _CtrlType, _CtrlWin, _CtrlInfo) = vpiOldDomains::handled(gui_api::rNull):-
|
||||
cell_click(16).
|
||||
|
||||
/* ------------------------------------------------------------------------------------------------------ */
|
||||
|
||||
% This code is maintained by the VDE do not update it manually, 22:12:35-14.3.2004
|
||||
constants
|
||||
dialogType : vpiDomains::wintype = wd_Modal.
|
||||
title : string = "playDialog".
|
||||
rectangle : vpiDomains::rct = rct(200,40,359,263).
|
||||
dialogFlags : vpiDomains::wsflags = [wsf_Close,wsf_TitleBar].
|
||||
dialogFont = "MS Sans Serif".
|
||||
dialogFontSize = 8.
|
||||
|
||||
constants
|
||||
controlList : vpiDomains::windef_list =
|
||||
[
|
||||
dlgFont(wdef(dialogType, rectangle, title, u_DlgBase),
|
||||
dialogFont, dialogFontSize, dialogFlags),
|
||||
ctl(wdef(wc_PushButton,rct(40,166,67,178),"&Mix",u_DlgBase),idc_mix,[wsf_Group,wsf_TabStop]),
|
||||
ctl(wdef(wc_PushButton,rct(67,166,94,178),"&Reset",u_DlgBase),idc_reset,[wsf_Group,wsf_TabStop]),
|
||||
ctl(wdef(wc_PushButton,rct(40,178,67,190),"&Save",u_DlgBase),idc_save,[wsf_Group,wsf_TabStop]),
|
||||
ctl(wdef(wc_PushButton,rct(94,178,121,190),"&Open",u_DlgBase),idc_open,[wsf_Group,wsf_TabStop]),
|
||||
ctl(wdef(wc_PushButton,rct(40,190,121,202),"&Play",u_DlgBase),idc_play,[wsf_Group,wsf_TabStop,wsf_Disabled]),
|
||||
ctl(wdef(wc_PushButton,rct(94,166,121,178),"&Exit",u_DlgBase),idc_cancel,[wsf_Group,wsf_TabStop]),
|
||||
ctl(wdef(wc_PushButton,rct(40,40,60,60),"1",u_DlgBase),idc_cell1,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(60,40,80,60),"2",u_DlgBase),idc_cell2,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(80,40,100,60),"3",u_DlgBase),idc_cell3,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(100,40,120,60),"4",u_DlgBase),idc_cell4,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(40,60,60,80),"5",u_DlgBase),idc_cell5,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(60,60,80,80),"6",u_DlgBase),idc_cell6,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(80,60,100,80),"7",u_DlgBase),idc_cell7,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(100,60,120,80),"8",u_DlgBase),idc_cell8,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(40,80,60,100),"9",u_DlgBase),idc_cell9,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(60,80,80,100),"10",u_DlgBase),idc_cell10,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(80,80,100,100),"11",u_DlgBase),idc_cell11,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(100,80,120,100),"12",u_DlgBase),idc_cell12,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(40,100,60,120),"13",u_DlgBase),idc_cell13,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(60,100,80,120),"14",u_DlgBase),idc_cell14,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(80,100,100,120),"15",u_DlgBase),idc_cell15,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(100,100,120,120),"",u_DlgBase),idc_cell16,[wsf_Group]),
|
||||
ctl(wdef(wc_HScroll,rct(30,18,130,30),"",u_DlgBase),idc_sbht,[]),
|
||||
ctl(wdef(wc_VScroll,rct(130,30,142,130),"",u_DlgBase),idc_sbvr,[]),
|
||||
ctl(wdef(wc_HScroll,rct(30,130,130,142),"",u_DlgBase),idc_sbhb,[]),
|
||||
ctl(wdef(wc_VScroll,rct(18,30,30,130),"",u_DlgBase),idc_sbvl,[]),
|
||||
ctl(wdef(wc_PushButton,rct(67,178,94,190),"",u_DlgBase),idc_step,[wsf_Group]),
|
||||
ctl(wdef(wc_PushButton,rct(40,154,121,166),"",u_DlgBase),idc_bingo,[wsf_Group,wsf_Invisible])
|
||||
].
|
||||
|
||||
predicates
|
||||
generatedEventHandler : vpiDomains::ehandler.
|
||||
clauses
|
||||
generatedEventHandler(Win, e_create(_)) = _ :-
|
||||
thisWin := Win,
|
||||
fail.
|
||||
generatedEventHandler(_Win, e_Create(CreationData)) = Result :-
|
||||
handled(Result) = onCreate(CreationData).
|
||||
generatedEventHandler(_Win, e_Update(Rectangle)) = Result :-
|
||||
handled(Result) = onUpdate(Rectangle).
|
||||
generatedEventHandler(_Win, e_Control(idc_cancel, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlCancel(idc_cancel, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_mix, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlmix(idc_mix, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_reset, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlreset(idc_reset, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_sbvr, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlsbvr(idc_sbvr, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_sbvl, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlsbvl(idc_sbvl, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_sbhb, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlsbhb(idc_sbhb, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_sbht, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlsbht(idc_sbht, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_save, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlsave(idc_save, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_open, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlopen(idc_open, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_play, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlplay(idc_play, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell1, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell1(idc_cell1, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell10, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell10(idc_cell10, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell11, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell11(idc_cell11, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell12, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell12(idc_cell12, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell13, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell13(idc_cell13, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell14, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell14(idc_cell14, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell15, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell15(idc_cell15, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell16, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell16(idc_cell16, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell2, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell2(idc_cell2, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell3, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell3(idc_cell3, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell4, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell4(idc_cell4, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell5, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell5(idc_cell5, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell6, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell6(idc_cell6, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell7, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell7(idc_cell7, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell8, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell8(idc_cell8, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Control(idc_cell9, CtrlType, CtrlWin, CtlInfo)) = Result :-
|
||||
handled(Result) = onControlcell9(idc_cell9, CtrlType, CtrlWin, CtlInfo).
|
||||
generatedEventHandler(_Win, e_Destroy()) = Result :-
|
||||
handled(Result) = onDestroy().
|
||||
% end of automatic code
|
||||
end implement playDialog
|
||||
Loading…
Add table
Add a link
Reference in a new issue