Różnice między wybraną wersją a wersją aktualną.
| Both sides previous revision Poprzednia wersja Nowa wersja | Poprzednia wersja Nowa wersja Both sides next revision | ||
|
pl:miw:miw08_ruleruntimeg:xshell [2008/04/22 10:49] miw |
pl:miw:miw08_ruleruntimeg:xshell [2008/05/19 22:39] miw |
||
|---|---|---|---|
| Linia 26: | Linia 26: | ||
| question2(Result,Question):- | question2(Result,Question):- | ||
| - | jpl_datums_to_array(Question,Q), | + | jpl_datums_to_array(Question,Q), |
| - | jpl_new('miw2.YNQuestion',[Q],D), | + | jpl_new('miw2.YNQuestion',[Q],D), |
| - | jpl_call(D,setVisible,[@(true)],_), | + | jpl_call(D,setVisible,[@(true)],_), |
| - | jpl_call('miw2.YNQuestion',getValue,[],V), | + | jpl_call('miw2.YNQuestion',getValue,[],V), |
| - | Result = V. | + | Result = V. |
| info(X):- | info(X):- | ||
| - | jpl_datums_to_array(X,Q), | + | jpl_datums_to_array(X,Q), |
| - | jpl_new('miw2.Info',[Q],D). | + | jpl_new('miw2.Info',[Q],D). |
| myQuestion(Question,Choices,Response):- | myQuestion(Question,Choices,Response):- | ||
| - | jpl_datums_to_array(Choices,L), | + | jpl_datums_to_array(Choices,L), |
| - | jpl_datums_to_array(Question,Q), | + | jpl_datums_to_array(Question,Q), |
| - | jpl_new('miw2.MyRBForm',[L,Q],F), | + | jpl_new('miw2.MyRBForm',[L,Q],F), |
| - | jpl_call(F,setVisible,[@(true)],_), | + | jpl_call(F,setVisible,[@(true)],_), |
| - | jpl_call('miw2.MyRBForm',getValue,[],V), | + | jpl_call('miw2.MyRBForm',getValue,[],V), |
| - | Response = V. | + | Response = V. |
| + | change(0,y). | ||
| + | change(1,n). | ||
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | ||
| Linia 441: | Linia 443: | ||
| % write(String), | % write(String), | ||
| % . | % . | ||
| - | |||
| </code> | </code> | ||
