home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_HELP.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  812 b   |  39 lines
  1. //
  2. // Module Name: AS_HELP.COD
  3. // Description: Help procedure file
  4. //
  5. {count=0;}
  6. {menucnt=0;}
  7. {rowpoint=0;}
  8.  
  9.   *-- help for menu {mnuname}
  10. {foreach FLD_ELEMENT k}
  11. {  count=count+1;}
  12. {  if !Fld_Pictur goto nexthlp;}
  13. {  if !Pldwn_Menu && Menu_Type == bar && Menu_Act == open && Open_Type then}
  14. {    goto nexthlp}
  15. {  endif}
  16. {  if item_help then}
  17.   CASE "{upper(mnuname)}" = lc_popmenu .AND. \
  18. {    if Menu_Type == bar then}
  19. PAD() = "PAD_{count}"
  20. {    else}
  21. BAR() \
  22. {      if Menu_Type == popup then}
  23. = {Row_Positn}
  24. {      else}
  25. <> 0
  26. {      endif}
  27. {    endif}
  28. {    rowpoint=itmhlp();}
  29. {  endif}
  30. {  nexthlp:}
  31. {next k;}
  32.   CASE "{upper(mnuname)}" = lc_popmenu
  33. {help_proc();}
  34. {if !menucnt then}
  35.     DO _Err_Box WITH "No Help defined."
  36.     ll_errbox = .T.
  37. {endif}
  38. // EOP AS_HELP.COD
  39.