home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / powwnd.ocb < prev    next >
Text File  |  1996-01-31  |  7KB  |  127 lines
  1. 000010 IDENTIFICATION    DIVISION.
  2. 000020 CLASS-ID.    POWWND.
  3. 000030 ENVIRONMENT    DIVISION.
  4. 000040 CONFIGURATION SECTION.
  5. 000050 SPECIAL-NAMES.
  6. 000060      SYMBOLIC CONSTANT IS EXTERNAL
  7. 000070**
  8. 000080**    POW-XXXXXXX  DEFINE OF COLOR
  9. 000090**
  10. 000100      POW-BLACK              IS X"00000000" *> ìòÉF
  11. 000110      POW-DARKRED            IS X"80000000" *> ê├éóÉ╘ÉF
  12. 000120      POW-DARKGREEN          IS X"00800000" *> ê├éóù╬ÉF
  13. 000130      POW-DARKYELLOW         IS X"80800000" *> ê├éóë⌐ÉF
  14. 000140      POW-DARKBLUE           IS X"00008000" *> ê├éóÉ┬ÉF
  15. 000150      POW-DARKMAGENDA        IS X"80008000" *> ê├éóâ}âZâôâ_
  16. 000160      POW-DARKCYAN           IS X"00808000" *> ê├éóâVâAâô
  17. 000170      POW-DARKGRAY           IS X"80808000" *> ê├éóèDÉF
  18. 000180      POW-GRAY               IS X"C0C0C000" *> èDÉF
  19. 000190      POW-RED                IS X"FF000000" *> É╘
  20. 000200      POW-GREEN              IS X"00FF0000" *> ù╬ÉF
  21. 000210      POW-YELLOW             IS X"FFFF0000" *> ë⌐ÉF
  22. 000220      POW-BLUE               IS X"0000FF00" *> É┬ÉF
  23. 000230      POW-MAGENDA            IS X"FF00FF00" *> â}â[âôâ_
  24. 000240      POW-CYAN               IS X"00FFFF00" *> âVâAâô
  25. 000250      POW-WHITE              IS X"FFFFFF00" *> öÆÉF
  26. 000255      POW-SYSCOL3D           IS X"00000081" *> 3D╡╠▐╝▐¬╕─╢╫░
  27. 000256      POW-SYSCOLWIN          IS X"00000082" *> âEâBâôâhâEâJâëü[
  28. 000260**
  29. 000270**    POW-FWXXXXXXX    DEFINE FONT WEIGHT ID
  30. 000280**
  31. 000290      POW-FWNORMAL           IS 400
  32. 000300      POW-FWBOLD             IS 700
  33. 000310     .
  34. 000320 CLASS        SECTION.
  35. 000330     INHERIT POWITEM EXTERNAL.        *> âNâëâXîpÅ│é╠ïLÅq
  36. 000340 DATA        DIVISION.
  37. 000350 CLASS        SECTION.
  38. 000360    01 POW-TEXT            PIC X(256).
  39. 000370    01 POW-TEXTN        PIC N(128).
  40. 000380    01 POW-POSITION
  41. 000390        02 X            PIC S9(4)    COMP-5.
  42. 000400        02 Y            PIC S9(4)    COMP-5.
  43. 000410        02 WIDTH        PIC S9(4)    COMP-5.
  44. 000420        02 HEIGHT        PIC S9(4)    COMP-5.
  45. 000430    01 POW-TEXTCOLOR    PIC X(4).
  46. 000440    01 POW-TEXTBKCOLOR    PIC X(4).
  47. 000450    01 POW-BACKCOLOR    PIC X(4).
  48. 000460    01 POW-WEIGHT        PIC S9(4)    COMP-5.
  49. 000470    01 POW-ITALIC        PIC S9(4)    COMP-5.
  50. 000480    01 POW-UNDERLINE    PIC S9(4)    COMP-5.
  51. 000490    01 POW-STRIKE        PIC S9(4)    COMP-5.
  52. 000500    01 POW-TABSTOP        PIC S9(4)    COMP-5.
  53. 000510    01 POW-ENABLE        PIC S9(4)    COMP-5.
  54. 000520    01 POW-VISIBLE        PIC S9(4)    COMP-5.
  55. 000530 PROCEDURE    DIVISION.
  56. 000540       FUNCTION MOVE OF POW-TEXT (BY CONTENT TYPE IS ALPHANUMERIC PIC X(256)) IS EXTERNAL
  57. 000550            REPLACING NAME BY "XPOWCWSETTEXT" .
  58. 000560       FUNCTION REFERENCE OF POW-TEXT () IS EXTERNAL BY VALUE PIC X(256)
  59. 000570            REPLACING NAME BY "XPOWCWGETTEXT" .
  60. 000580       FUNCTION MOVE OF POW-TEXTN (BY CONTENT TYPE IS NATIONAL PIC N(128)) IS EXTERNAL
  61. 000590            REPLACING NAME BY "XPOWCWSETTEXT" .
  62. 000600       FUNCTION REFERENCE OF POW-TEXTN () IS EXTERNAL BY VALUE PIC N(128)
  63. 000610            REPLACING NAME BY "XPOWCWGETTEXTN" .
  64. 000620       FUNCTION MOVE OF POW-POSITION (BY CONTENT TYPE IS ALPHANUMERIC PIC X(8)) IS EXTERNAL
  65. 000630            REPLACING NAME BY "XPOWCWSETPOSITION" .
  66. 000640       FUNCTION REFERENCE OF POW-POSITION () IS EXTERNAL BY VALUE PIC X(8)
  67. 000650            REPLACING NAME BY "XPOWCWGETPOSITION" .
  68. 000660       FUNCTION MOVE OF POW-TEXTCOLOR (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4)) IS EXTERNAL
  69. 000670            REPLACING NAME BY "XPOWCWSETTEXTCOLOR" .
  70. 000680       FUNCTION REFERENCE OF POW-TEXTCOLOR () IS EXTERNAL BY VALUE PIC X(4)
  71. 000690            REPLACING NAME BY "XPOWCWGETTEXTCOLOR" .
  72. 000700       FUNCTION MOVE OF POW-TEXTBKCOLOR (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4)) IS EXTERNAL
  73. 000710            REPLACING NAME BY "XPOWCWSETFORECOLOR" .
  74. 000720       FUNCTION REFERENCE OF POW-TEXTBKCOLOR () IS EXTERNAL BY VALUE PIC X(4)
  75. 000730            REPLACING NAME BY "XPOWCWGETFORECOLOR" .
  76. 000740       FUNCTION MOVE OF POW-BACKCOLOR (BY CONTENT TYPE IS ALPHANUMERIC PIC X(4)) IS EXTERNAL
  77. 000750            REPLACING NAME BY "XPOWCWSETBACKCOLOR" .
  78. 000760       FUNCTION REFERENCE OF POW-BACKCOLOR () IS EXTERNAL BY VALUE PIC X(4)
  79. 000770            REPLACING NAME BY "XPOWCWGETBACKCOLOR" .
  80. 000780       FUNCTION MOVE OF POW-WEIGHT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  81. 000790            REPLACING NAME BY "XPOWCWSETWEIGHT" .
  82. 000800       FUNCTION REFERENCE OF POW-WEIGHT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  83. 000810            REPLACING NAME BY "XPOWCWGETWEIGHT" .
  84. 000820       FUNCTION MOVE OF POW-ITALIC (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  85. 000830            REPLACING NAME BY "XPOWCWSETITALIC" .
  86. 000840       FUNCTION REFERENCE OF POW-ITALIC () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  87. 000850            REPLACING NAME BY "XPOWCWGETITALIC" .
  88. 000860       FUNCTION MOVE OF POW-UNDERLINE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  89. 000870            REPLACING NAME BY "XPOWCWSETUNDERLINE" .
  90. 000880       FUNCTION REFERENCE OF POW-UNDERLINE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  91. 000890            REPLACING NAME BY "XPOWCWGETUNDERLINE" .
  92. 000900       FUNCTION MOVE OF POW-STRIKE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  93. 000910            REPLACING NAME BY "XPOWCWSETSTRIKE" .
  94. 000920       FUNCTION REFERENCE OF POW-STRIKE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  95. 000930            REPLACING NAME BY "XPOWCWGETSTRIKE" .
  96. 000940*       FUNCTION MOVE OF POW-TABSTOP (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  97. 000950*            REPLACING NAME BY "XPOWCWSETTABSTOP" .
  98. 000960*       FUNCTION REFERENCE OF POW-TABSTOP () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  99. 000970*            REPLACING NAME BY "XPOWCWGETTABSTOP" .
  100. 000980       FUNCTION MOVE OF POW-ENABLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  101. 000990            REPLACING NAME BY "XPOWCWSETENABLE" .
  102. 001000       FUNCTION REFERENCE OF POW-ENABLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  103. 001010            REPLACING NAME BY "XPOWCWGETENABLE" .
  104. 001020       FUNCTION MOVE OF POW-VISIBLE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  105. 001030            REPLACING NAME BY "XPOWCWSETVISIBLE" .
  106. 001040       FUNCTION REFERENCE OF POW-VISIBLE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  107. 001050            REPLACING NAME BY "XPOWCWGETVISIBLE" .
  108. 001060       FUNCTION MOVE OF POW-FONTSIZE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  109. 001070            REPLACING NAME BY "XPOWCWSETFONTSIZE".
  110. 001080       FUNCTION REFERENCE OF POW-FONTSIZE () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  111. 001090            REPLACING NAME BY "XPOWCWGETFONTSIZE".
  112. 001100       FUNCTION ADD OF POW-FONTSIZE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  113. 001110            REPLACING NAME BY "XPOWCWADDFONTSIZE".
  114. 001120       FUNCTION SUBTRACT OF POW-FONTSIZE (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  115. 001130            REPLACING NAME BY "XPOWCWSUBTRACTFONTSIZE".
  116. 001140       FUNCTION SETFOCUS () IS EXTERNAL
  117. 001150            REPLACING NAME BY "XPOWCWSETFOCUS" .
  118. 001160*       FUNCTION MOVE OF POW-FONTPOINT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  119. 001170*            REPLACING NAME BY "XPOWCWSETFONTPOINTSIZE".
  120. 001180*       FUNCTION REFERENCE OF POW-FONTPOINT () IS EXTERNAL BY VALUE PIC S9(4) COMP-5
  121. 001190*            REPLACING NAME BY "XPOWCWGETFONTPOINTSIZE".
  122. 001200*       FUNCTION ADD OF POW-FONTPOINT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  123. 001210*            REPLACING NAME BY "XPOWCWADDFONTPOINTSIZE".
  124. 001220*       FUNCTION SUBTRACT OF POW-FONTPOINT (BY VALUE TYPE IS NUMERIC PIC S9(4) COMP-5) IS EXTERNAL
  125. 001230*            REPLACING NAME BY "XPOWCWSUBTRACTFONTPOINTSIZE".
  126. 001500 END CLASS POWWND.
  127.