Both sides previous revision
Poprzednia wersja
|
Nowa wersja
Both sides next revision
|
pl:miw:miw08_ruleruntimeg:xshell [2008/05/19 22:37] miw |
pl:miw:miw08_ruleruntimeg:xshell [2008/05/19 22:39] miw |
| |
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(0,y). |