home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / MISC / F4W3API.ZIP / F4W3API.KIT / WINDEV / FORTRAN / FWCLOCK / DOWNTOOL.FOR < prev    next >
Encoding:
Text File  |  1991-11-09  |  497 b   |  24 lines
  1. $DEFINE GDI
  2. $DEFINE USER
  3.       INCLUDE 'WINDOWS.FI'
  4.       SUBROUTINE DOWN_TOOLS
  5.       IMPLICIT NONE
  6. C
  7. C Author       : Kevin B Black
  8. C Date written : 23-Oct-1991
  9. C Abtract     :
  10. C
  11. C DELETE DRAWING TOOLS
  12. C
  13. C This subroutine deletes the general drawing tools
  14. C
  15.       INCLUDE 'WINDOWS.FD'
  16.       INCLUDE 'FWCLOCK.FD'
  17. C
  18.       WSTATUS=DeleteObject(FBRUSH)
  19.       WSTATUS=DeleteObject(BBRUSH)
  20.       WSTATUS=DeleteObject(FPEN)
  21.       WSTATUS=DeleteObject(BPEN)
  22.       RETURN
  23.       END
  24.