home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / LIB / X_CONSTA.LF < prev    next >
Text File  |  1996-06-04  |  5KB  |  217 lines
  1. %    $Id: x_constants.lf,v 1.2 1994/12/09 00:27:06 duchier Exp $    
  2. module("x")? % RM: Mar 24 1993 
  3.  
  4. % Copyright 1992 Digital Equipment Corporation.
  5. % Distributed only by permission.
  6. %
  7. % Last modified on Mon Jun  7 17:20:41 MET DST 1993 by dumant
  8. %      modified on Mon May 03 05:24:40 1993 by Rmeyer
  9. %      modified on Fri Jun 12 17:48:06 MET DST 1992 by herve
  10. %
  11. %
  12. % X constants for Life
  13. % 
  14.  
  15.  
  16. % a macro to define the function Name and Arg with value Val
  17. defConstant(Name,Arg,Val) :- 
  18.     assert(root_sort(Name) & @(`Arg,Val)), assert(Arg->Val).
  19.  
  20. global(xTrue<-1, xFalse<-0)?
  21.  
  22. % black and white pixels by default
  23. %dynamic(xBlack)? % RM: Apr 19 1993 
  24. %dynamic(xWhite)? % RM: Apr 19 1993 
  25. %xBlack->0. % RM: Apr 19 1993 
  26. %xWhite->1. % RM: Apr 19 1993
  27.  
  28. persistent(xBlack)?
  29. persistent(xWhite)?
  30.  
  31.  
  32. % line widths
  33. global(xThinLine<-0)?
  34.  
  35. % Styles
  36. global(xSolid<-0)?         % both
  37.  
  38. global(xOnOffDash<-1) ?     % line styles
  39. global(xDoubleDash<-2) ?
  40.  
  41. global(xTiled<-1) ?         % fill styles
  42. global(xStippled<-2) ?
  43. global(xOpaqueStippled<-3) ?
  44.  
  45. global(xNotLast<-0) ?   % Cap Styles
  46. global(xButt<-1) ?
  47. global(xProjecting<-3) ?
  48.  
  49. % join styles               % Join Styles
  50. global(xMiter<-0) ?
  51. global(xBevel<-2) ?
  52.  
  53. % backing store
  54. global(xNotUseful<-0) ?
  55. global(xWhenMapped<-1) ?
  56. global(xAlways<-2) ?
  57.  
  58. % visual class
  59. global(xStaticGray<-0) ?
  60. global(xGrayScale<-1) ?
  61. global(xStaticColor<-2) ?
  62. global(xPseudoColor<-3) ?
  63. global(xTrueColor<-4) ?
  64. global(xDirectColor<-5) ?
  65.  
  66. % window class
  67. global(xCopyFromParent<-0) ?
  68. global(xInputOutput<-1) ?
  69. global(xInputOnly<-2) ?
  70.  
  71. % gravity
  72. global(xForget<-0) ?
  73. global(xUnmap<-0) ?
  74.  
  75. global(xNorthWest<-1) ?
  76. global(xNorth<-2) ?
  77. global(xNorthEast<-3) ?
  78. global(xWest<-4) ?
  79. global(xCenter<-5) ?
  80. global(xEast<-6) ?
  81. global(xSouthWest<-7) ?
  82. global(xSouth<-8) ?
  83. global(xSouthEast<-9) ?
  84. global(xStatic<-10) ?
  85.  
  86. % window state
  87. global(xUnmapped<-0) ?
  88. global(xUnviewable<-1) ?
  89. global(xViewable<-2) ?
  90.  
  91. % stack mode
  92. global(xAbove<-0) ?
  93. global(xBelow<-1) ?
  94. global(xTopIf<-2) ?
  95. global(xBottomIf<-3) ?
  96. global(xOpposite<-4) ?
  97.  
  98. % back pixmap
  99. global(xParentRelative<-1) ?
  100. global(xNone<-0) ? 
  101.  
  102. % image format (xCreateImage)
  103. global(xXYPixmap<-1) ?
  104. global(xZPixmap<-2) ?
  105.  
  106. % WM_HINTS Initial State
  107. global(xWithdrawn<-0) ?
  108. global(xNormal<-1) ?
  109. global(xIconic<-3) ?
  110.  
  111. % GC attributes id
  112. global(xFunctionId<-0)?
  113. global(xPlaneMaskId<-1)?
  114. global(xForegroundId<-2)?
  115. global(xBackgroundId<-3)?
  116. global(xLineWidthId<-4)?
  117. global(xLineStyleId<-5)?
  118. global(xCapStyleId<-6)?
  119. global(xJoinStyleId<-7)?
  120. global(xFillStyleId<-8)?
  121. global(xFillRuleId<-9)?
  122. global(xTileId<-10)?
  123. global(xStippleId<-11)?
  124. global(xTileStipXOriginId<-12)?
  125. global(xTileStipYOriginId<-13)?
  126. global(xFontId<-14)?
  127. global(xSubwindowModeId<-15)?
  128. global(xGraphicsExposuresId<-16)?
  129. global(xClipXOriginId<-17)?
  130. global(xClipYOriginId<-18)?
  131. global(xClipMaskId<-19)?
  132. global(xDashOffsetId<-20)?
  133. global(xDashLengthId<-21)?
  134. global(xArcModeId<-22)?
  135.  
  136. % GC functions
  137. global(xClear<-0)?
  138. global(xAnd<-1)?
  139. global(xAndReverse<-2)?
  140. global(xCopy<-3)?
  141. global(xAndInverted<-4)?
  142. global(xNoop<-5)?
  143. global(xXor<-6)?
  144. global(xOr<-7)?
  145. global(xNor<-8)?
  146. global(xEquiv<-9)?
  147. global(xInvert<-10)?
  148. global(xOrReverse<-11)?
  149. global(xCopyInverted<-12)?
  150. global(xOrInverted<-13)?
  151. global(xNand<-14)?
  152. global(xSet<-15)?
  153.  
  154. % event masks
  155.  
  156. % global(xKeyPressMask<-1<<0)?
  157. % global(xKeyReleaseMask<-1<<1)?
  158. % global(xButtonPressMask<-1<<2)?
  159. % global(xButtonReleaseMask<-1<<3)?
  160. % global(xEnterWindowMask<-1<<4)?
  161. % global(xLeaveWindowMask<-1<<5)?
  162. % global(xPointerMotionMask<-1<<6)?
  163. % global(xPointerMotionHintMask<-1<<7)?
  164. % global(xButton1MotionMask<-1<<8)?
  165. % global(xButton2MotionMask<-1<<9)?
  166. % global(xButton3MotionMask<-1<<10)?
  167. % global(xButton4MotionMask<-1<<11)?
  168. % global(xButton5MotionMask<-1<<12)?
  169. % global(xButtonMotionMask<-1<<13)?
  170. % global(xKeymapStateMask<-1<<14)?
  171. % global(xExposureMask<-1<<15)?
  172. % global(xVisibilityChangeMask<-1<<16)?
  173. % global(xStructureNotifyMask<-1<<17)?
  174. % global(xResizeRedirectMask<-1<<18)?
  175. % global(xSubstructureNotifyMask<-1<<19)?
  176. % global(xSubstructureRedirectMask<-1<<20)?
  177. % global(xFocusChangeMask<-1<<21)?
  178. % global(xPropertyChangeMask<-1<<22)?
  179. % global(xColormapChangeMask<-1<<23)?
  180. % global(xOwnerGrabButtonMask<-1<<24)?
  181.  
  182.  
  183. global(xNoEventMask<-            0) ?
  184. global(xKeyPressMask<-            (1<<0)  ) ?
  185. global(xKeyReleaseMask<-        (1<<1)  ) ?
  186. global(xButtonPressMask<-        (1<<2)  ) ?
  187. global(xButtonReleaseMask<-        (1<<3)  ) ?
  188. global(xEnterWindowMask<-        (1<<4)  ) ?
  189. global(xLeaveWindowMask<-        (1<<5)  ) ?
  190. global(xPointerMotionMask<-        (1<<6)  ) ?
  191. global(xPointerMotionHintMask<-        (1<<7)  ) ?
  192. global(xButton1MotionMask<-        (1<<8)  ) ?
  193. global(xButton2MotionMask<-        (1<<9)  ) ?
  194. global(xButton3MotionMask<-        (1<<10) ) ?
  195. global(xButton4MotionMask<-        (1<<11) ) ?
  196. global(xButton5MotionMask<-        (1<<12) ) ?
  197. global(xButtonMotionMask<-        (1<<13) ) ?
  198. global(xKeymapStateMask<-        (1<<14) ) ?
  199. global(xExposureMask<-            (1<<15) ) ?
  200. global(xVisibilityChangeMask<-        (1<<16) ) ?
  201. global(xStructureNotifyMask<-        (1<<17) ) ?
  202. global(xResizeRedirectMask<-        (1<<18) ) ?
  203. global(xSubstructureNotifyMask<-    (1<<19) ) ?
  204. global(xSubstructureRedirectMask<-    (1<<20) ) ?
  205. global(xFocusChangeMask<-        (1<<21) ) ?
  206. global(xPropertyChangeMask<-        (1<<22) ) ?
  207. global(xColormapChangeMask<-        (1<<23) ) ?
  208. global(xOwnerGrabButtonMask<-        (1<<24) ) ?
  209.  
  210.  
  211.  
  212. % special keys
  213. global(xKeyReturn<-13)?
  214. global(xKeyLinefeed<-10)?
  215. global(xKeyTab<-9)?
  216. global(xKeyBackSpace<-8)?
  217.