home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / eventshell / Tools / !EvntEdit / UserFNs / FontMNot < prev    next >
Encoding:
Text File  |  1996-02-13  |  362 b   |  15 lines

  1. *|Start FN.........
  2. DEF FN.........( window_handle%, display_icon_handle%, font$ )
  3.  
  4. REM Called before a font menu is opened
  5. REM window_handle%       - window that contains the menu icon
  6. REM display_icon_handle% - icon to contain font name
  7. REM font$                - name if font i.e. 'Trinity Medium'
  8.  
  9. LOCAL
  10.  
  11. REM Return value is ignored
  12.  
  13. = 0
  14. :
  15. *|Stop FN.........