Menu.AddEvent.qsrc 600 B

1234567891011121314
  1. # Menu.AddEvent
  2. if $ARGS[0] = '' or $ARGS[1] = '': exit
  3. !----------
  4. $ARGS[1] = lcase(trim($ARGS[1]))
  5. !----------
  6. if $ARGS[1] = 'when you select':
  7. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  8. elseif $ARGS[1] = 'after selection processing':
  9. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  10. elseif $ARGS[1] = 'failure of the choice':
  11. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  12. end
  13. --- Menu.AddEvent ---------------------------------