home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / LIB / X_GETSET.LF < prev    next >
Text File  |  1996-06-04  |  18KB  |  398 lines
  1. %    $Id: x_getset.lf,v 1.2 1994/12/09 00:27:26 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:35:19 MET DST 1993 by dumant
  8. %      modified on Wed Mar 24 06:25:02 1993 by Rmeyer
  9. %      modified on Thu Aug 27 17:41:06 MET DST 1992 by herve
  10. %
  11. %
  12. % X functions xGet* and xSet* for Life
  13. % 
  14.  
  15.  
  16. % connection attributes
  17. xGetConnectionNetworkDescriptor (C) -> V | xcGetConnectionAttribute(C, 0, V).
  18. xGetConnectionProtocolVersion (C) -> V | xcGetConnectionAttribute(C, 1, V).
  19. xGetConnectionProtocolRevision (C) -> V | xcGetConnectionAttribute(C, 2, V).
  20. xGetConnectionServerVendor (C) -> V | xcGetConnectionAttribute(C, 3, V).
  21. xGetConnectionImageByteOrder (C) -> V | 
  22.         xcGetConnectionAttribute(C, 4, R), 
  23.     xBoolean(V, R).
  24. xGetConnectionImageUnit (C) -> V | xcGetConnectionAttribute(C, 5, V).
  25. xGetConnectionImagePad (C) -> V | xcGetConnectionAttribute(C, 6, V).
  26. xGetConnectionImageBitOrder (C) -> V | 
  27.         xcGetConnectionAttribute(C, 7, R), 
  28.     xBoolean(V, R).
  29. xGetConnectionVendorRelease (C) -> V | xcGetConnectionAttribute(C, 8, V).
  30. xGetConnectionQueueLength (C) -> V | xcGetConnectionAttribute(C, 9, V).
  31. xGetConnectionLastEvent (C) -> V | xcGetConnectionAttribute(C, 10, L).
  32. xGetConnectionLastRequest (C) -> V | xcGetConnectionAttribute(C, 11, L).
  33. xGetConnectionConnectionName (C) -> V | xcGetConnectionAttribute(C, 12, V).
  34. xGetConnectionDefaultScreen (C) -> V | xcGetConnectionAttribute(C, 13, V).
  35. xGetConnectionMinKeycode (C) -> V | xcGetConnectionAttribute(C, 14, V).
  36. xGetConnectionMaxKeycode (C) -> V | xcGetConnectionAttribute(C, 15, V).
  37. xGetConnectionScreens (C) -> V | 
  38.         xcGetConnectionAttribute(C, 16, N), 
  39.     pxListGet(N, V).
  40. xGetConnectionMotionBuffer (C) -> V | xcGetConnectionAttribute(C, 17, V).
  41. xGetConnectionFormats (C) -> V | 
  42.         xcGetConnectionAttribute(C, 18, N), 
  43.     pxListGet(N, V).
  44.  
  45.  
  46. % format attributes
  47. xGetFormatConnection(F) -> V | xcGetFormatAttribute(F, 0, V).
  48. xGetFormatDepth(F) -> V | xcGetFormatAttribute(F, 1, V).
  49. xGetFormatBits(F) -> V | xcGetFormatAttribute(F, 2, V).
  50. xGetFormatPad(F) -> V | xcGetFormatAttribute(F, 3, V).
  51.  
  52.  
  53. % screen attributes
  54. xGetScreenConnection(C,S) -> V | xcGetScreenAttribute(C, S, 0, V).
  55. xGetScreenRootWindow(C,S) -> V | xcGetScreenAttribute(C, S, 1, V).
  56. xGetScreenWidth(C,S) -> V | xcGetScreenAttribute(C, S, 2, V).
  57. xGetScreenHeight(C,S) -> V | xcGetScreenAttribute(C, S, 3, V).
  58. xGetScreenPhysicalWidth(C,S) -> V | xcGetScreenAttribute(C, S, 4, V).
  59. xGetScreenPhysicalHeight(C,S) -> V | xcGetScreenAttribute(C, S, 5, V).
  60. xGetScreenRootDepth(C,S) -> V | xcGetScreenAttribute(C, S, 6, V).
  61. xGetScreenRootVisual(C,S) -> V | xcGetScreenAttribute(C, S, 7, V).
  62. xGetScreenDefaultGC(C,S) -> V | xcGetScreenAttribute(C, S, 8, V).
  63. xGetScreenDefaultColormap(C,S) -> V | xcGetScreenAttribute(C, S, 9, V).
  64. xGetScreenWhitePixel(C,S) -> V | xcGetScreenAttribute(C, S, 10, V).
  65. xGetScreenBlackPixel(C,S) -> V | xcGetScreenAttribute(C, S, 11, V).
  66. xGetScreenMaxColormaps(C,S) -> V | xcGetScreenAttribute(C, S, 12, V).
  67. xGetScreenMinColormaps(C,S) -> V | xcGetScreenAttribute(C, S, 13, V).
  68. xGetScreenBackingStore(C,S) -> V | xcGetScreenAttribute(C, S, 14, V). 
  69. xGetScreenSaveUnders(C,S) -> V | 
  70.         xcGetScreenAttribute(C, S, 15, R), 
  71.     xBoolean(V, R).
  72. xGetScreenRootEventMask(C,S) -> V | 
  73.         xcGetScreenAttribute(C, S, 16, V). 
  74. xGetScreenDepths(C,S) -> V | 
  75.         xcGetScreenAttribute(C, S, 17, N), 
  76.     pxListGet(N, V).
  77.  
  78.  
  79. % depth attributes 
  80. xGetDepths(D) -> V | xcGetDepthAttribute(D, 0, V).
  81. xGetVisuals(D) -> V | xcGetDepthAttribute(D, 1, N), pxListGet(N, V).
  82.  
  83.  
  84. % visual attribute 
  85. xGetVisualClass(Vis) -> V | xcGetVisualAttribute(Vis, 0, V).
  86. xGetVisualRedMask(Vis) -> V | xcGetVisualAttribute(Vis, 1, V).
  87. xGetVisualGreenMask(Vis) -> V | xcGetVisualAttribute(Vis, 2, V).
  88. xGetVisualBlueMask(Vis) -> V | xcGetVisualAttribute(Vis, 3, V).
  89. xGetVisualColormapBits(Vis) -> V | xcGetVisualAttribute(Vis, 4, V).
  90. xGetVisualColormapEntries(Vis) -> V | xcGetVisualAttribute(Vis, 5, V).
  91.  
  92.  
  93. % get window attribute 
  94. xGetWindowX (W:@(display=>Display))
  95.     -> V | xcGetWindowAttribute(Display, W, 0, V).
  96. xGetWindowY (W:@(display=>Display))
  97.     -> V | xcGetWindowAttribute(Display, W, 1, V).
  98. xGetWindowWidth (W:@(display=>Display))
  99.     -> V | xcGetWindowAttribute(Display, W, 2, V).
  100. xGetWindowHeight (W:@(display=>Display))
  101.     -> V | xcGetWindowAttribute(Display, W, 3, V).
  102. xGetWindowBorderWidth (W:@(display=>Display))
  103.     -> V | xcGetWindowAttribute(Display, W, 4, V).
  104. xGetWindowDepth (W:@(display=>Display))
  105.     -> V | xcGetWindowAttribute(Display, W, 5, V).
  106. xGetWindowRootWindow (W:@(display=>Display))
  107.     -> V | xcGetWindowAttribute(Display, W, 6, V).
  108. xGetWindowScreen (W:@(display=>Display))
  109.     -> V | xcGetWindowAttribute(Display, W, 7, V).
  110. xGetWindowVisual (W:@(display=>Display))
  111.     -> V | xcGetWindowAttribute(Display, W, 8, V).
  112. xGetWindowClass (W:@(display=>Display))
  113.     -> V | xcGetWindowAttribute(Display, W, 9, V).
  114. xGetWindowUnionEventMask (W:@(display=>Display))
  115.     -> V | xcGetWindowAttribute(Display, W, 10, V).
  116. xGetWindowBitGravity (W:@(display=>Display))
  117.     -> V | xcGetWindowAttribute(Display, W, 11, V).
  118. xGetWindowWinGravity (W:@(display=>Display))
  119.     -> V | xcGetWindowAttribute(Display, W, 12, V).
  120. xGetWindowBackingStore (W:@(display=>Display))
  121.     -> V | xcGetWindowAttribute(Display, W, 13, V).
  122. xGetWindowBackingPlanes (W:@(display=>Display))
  123.     -> V | xcGetWindowAttribute(Display, W, 14, V).
  124. xGetWindowBackingPixel (W:@(display=>Display))
  125.     -> V | xcGetWindowAttribute(Display, W, 15, V).
  126. xGetWindowOverrideRedirect (W:@(display=>Display))
  127.     -> V | xcGetWindowAttribute(Display, W, 16, R), xBoolean(V, R).
  128. xGetWindowSaveUnder (W:@(display=>Display))
  129.     -> V | xcGetWindowAttribute(Display, W, 17, R), xBoolean(V, R).
  130. xGetWindowEventMask (W:@(display=>Display))
  131.     -> V | xcGetWindowAttribute(Display, W, 18, V).
  132. xGetWindowDontPropagate (W:@(display=>Display))
  133.     -> V | xcGetWindowAttribute(Display, W, 19, V).
  134. xGetWindowColormap (W:@(display=>Display))
  135.     -> V | xcGetWindowAttribute(Display, W, 20, V).
  136. xGetWindowColormapLoaded (W:@(display=>Display))
  137.     -> V | xcGetWindowAttribute(Display, W, 21, R), xBoolean(V, R).
  138. xGetWindowState (W:@(display=>Display))
  139.     -> V | xcGetWindowAttribute(Display, W, 22, V).
  140.  
  141.  
  142. % set window attribute 
  143. xSetWindowX(W:@(display=>Display), V) 
  144.     :- xcSetWindowAttribute(Display, W, 0, V).
  145. xSetWindowY(W:@(display=>Display), V) 
  146.     :- xcSetWindowAttribute(Display, W, 1, V).
  147. xSetWindowWidth(W:@(display=>Display), V) 
  148.     :- xcSetWindowAttribute(Display, W, 2, V).
  149. xSetWindowHeight(W:@(display=>Display), V) 
  150.     :- xcSetWindowAttribute(Display, W, 3, V).
  151. xSetWindowBorderWidth(W:@(display=>Display), V) 
  152.     :- xcSetWindowAttribute(Display, W, 4, V).
  153. xSetWindowBitGravity(W:@(display=>Display), V) 
  154.     :- xcSetWindowAttribute(Display, W, 11, V).
  155. xSetWindowWinGravity(W:@(display=>Display), V) 
  156.     :- xcSetWindowAttribute(Display, W, 12, V).
  157. xSetWindowBackingStore(W:@(display=>Display), V) 
  158.     :- xBackingStore(V, R), xcSetWindowAttribute(Display, W, 13, R).
  159. xSetWindowBackingPlanes(W:@(display=>Display), V) 
  160.     :- xcSetWindowAttribute(Display, W, 14, V).
  161. xSetWindowBackingPixel(W:@(display=>Display), V) 
  162.     :- xcSetWindowAttribute(Display, W, 15, V).
  163. xSetWindowOverrideRedirect(W:@(display=>Display), V) 
  164.     :- xBoolean(V, R), xcSetWindowAttribute(Display, W, 16, R).
  165. xSetWindowSaveUnder(W:@(display=>Display), V) 
  166.     :- xBoolean(V, R), xcSetWindowAttribute(Display, W, 17, R).
  167.  
  168. xSetWindowEventMask(W:@(display=>Display), V) 
  169.     :- %pxMaskFromBits(V, R, pxmEvent), 
  170.     xcSetWindowAttribute(Display, W, 18, V).
  171.  
  172. xSetWindowDontPropagate(W:@(display=>Display), V) 
  173.     :- %pxMaskFromBits(V, R, pxmEvent), 
  174.     xcSetWindowAttribute(Display, W, 19, R).
  175.  
  176. xSetWindowColormap(W:@(display=>Display), V) 
  177.     :- xcSetWindowAttribute(Display, W, 20, V).
  178. xSetWindowSibling(W:@(display=>Display), V) 
  179.     :- xcSetWindowAttribute(Display, W, 23, V).
  180. xSetWindowStackMode(W:@(display=>Display), V) 
  181.     :- xcSetWindowAttribute(Display, W, 24, V).
  182. xSetWindowBackPixmap(W:@(display=>Display), V) 
  183.     :- xcSetWindowAttribute(Display, W, 25, V).
  184. xSetWindowBackPixel(W:@(display=>Display), V) 
  185.     :- xcSetWindowAttribute(Display, W, 26, V), xcSync(Display,0).
  186. xSetWindowBorderPixmap(W:@(display=>Display), V) 
  187.     :- xParent(R,V), xcSetWindowAttribute(Display, W, 27, R).
  188. xSetWindowBorderPixel(W:@(display=>Display), V) 
  189.     :- xcSetWindowAttribute(Display, W, 28, V).
  190. xSetWindowCursor(W:@(display=>Display), V) 
  191.     :- xcSetWindowAttribute(Display, W, 29, V).
  192.  
  193.  
  194. % TO BE CHANGED: ADD THE PIXMAP IN THE PARAMETERS
  195. % pixmap attributes
  196. xGetPixmapWidth(V) :- xcGetPixmapAttribute(0, V).
  197. xGetPixmapHeight(V) :- xcGetPixmapAttribute(1, V).
  198. xGetPixmapBorderWidth(V) :- xcGetPixmapAttribute(2, V).
  199. xGetPixmapDepth(V) :- xcGetPixmapAttribute(3, V).
  200. xGetPixmapScreen(V) :- xcGetPixmapAttribute(4, V).
  201.  
  202.  
  203. % get GC attributes   
  204.  
  205.      %%% passer C en arguments est absolument inutile !!!
  206.     
  207. xGetGCFunction(C, GC) -> V | xcGetGCAttribute(GC, 0, V).
  208. xGetGCPlaneMask(C, GC) -> V | xcGetGCAttribute(GC, 1, V).
  209. xGetGCForeground(C, GC) -> V | xcGetGCAttribute(GC, 2, V).
  210. xGetGCBackground(C, GC) -> V | xcGetGCAttribute(GC, 3, V).
  211. xGetGCLineWidth(C, GC) -> V | xcGetGCAttribute(GC, 4, V).
  212. xGetGCLineStyle(C, GC) -> V | xcGetGCAttribute(GC, 5, V).
  213. xGetGCCapStyle(C, GC) -> V | xcGetGCAttribute(GC, 6, R), xCapStyle(V, R).
  214. xGetGCJoinStyle(C, GC) -> V | xcGetGCAttribute(GC, 7, R), xJoinStyle(V, R).
  215. xGetGCFillStyle(C, GC) -> V | xcGetGCAttribute(GC, 8, V).
  216. xGetGCFillRule(C, GC) -> V | xcGetGCAttribute(GC, 9, R), xBoolean(V, R).
  217. xGetGCTile(C, GC) -> V | xcGetGCAttribute(GC, 10, V).
  218. xGetGCStipple(C, GC) -> V | xcGetGCAttribute(GC, 11, V).
  219. xGetGCTileStipXOrigin(C, GC) -> V | xcGetGCAttribute(GC, 12, V).
  220. xGetGCTileStipYOrigin(C, GC) -> V | xcGetGCAttribute(GC, 13, V).
  221. xGetGCFont(C, GC) -> V | xcGetGCAttribute(GC, 14, V).
  222. xGetGCSubwindowMode(C, GC) -> V | xcGetGCAttribute(GC, 15, R), xBoolean(V, R).
  223. xGetGCGraphicsExposures(C, GC) -> V | 
  224.         xcGetGCAttribute(GC, 16, R), 
  225.     xBoolean(V, R).
  226. xGetGCClipXOrigin(C, GC) -> V | xcGetGCAttribute(GC, 17, V).
  227. xGetGCClipYOrigin(C, GC) -> V | xcGetGCAttribute(GC, 18, V).
  228. xGetGCClipMask(C, GC) -> V | xcGetGCAttribute(GC, 19, V).
  229. xGetGCDashOffset(C, GC) -> V | xcGetGCAttribute(GC, 20, V).
  230. xGetGCDashLength(C, GC) -> V | xcGetGCAttribute(GC, 21, V).
  231. xGetGCArcMode(C, GC) -> V | xcGetGCAttribute(GC, 22, R), xBoolean(V, R).
  232. xGetGCClipList(C, GC) -> V | xcGetGCAttribute(GC, 23, R), xBoolean(V, R).
  233. xGetGCDashList(C, GC) -> V | xcGetGCAttribute(GC, 24, R), xBoolean(V, R).
  234.  
  235.  
  236. % set GC attributes 
  237. xSetGCFunction(C, GC, V) :- xcSetGCAttribute(C, GC, 0, V).
  238. xSetGCPlaneMask(C, GC, V) :- xcSetGCAttribute(C, GC, 1, V).
  239. xSetGCForeground(C, GC, V) :- xcSetGCAttribute(C, GC, 2, V).
  240. xSetGCBackground(C, GC, V) :- xcSetGCAttribute(C, GC, 3, V).
  241. xSetGCLineWidth(C, GC, V) :- xcSetGCAttribute(C, GC, 4, V).
  242. xSetGCLineStyle(C, GC, V) :- xcSetGCAttribute(C, GC, 5, V).
  243. xSetGCCapStyle(C, GC, V) :- xCapStyle(V, R), xcSetGCAttribute(C, GC, 6, R).
  244. xSetGCJoinStyle(C, GC, V) :- xJoinStyle(V, R), xcSetGCAttribute(C, GC, 7, R).
  245. xSetGCFillStyle(C, GC, V) :- xcSetGCAttribute(C, GC, 8, V).
  246. xSetGCFillRule(C, GC, V) :- xBoolean(V, R), xcSetGCAttribute(C, GC, 9, R).
  247. xSetGCTile(C, GC, V) :- xcSetGCAttribute(C, GC, 10, V).
  248. xSetGCStipple(C, GC, V) :- xcSetGCAttribute(C, GC, 11, V).
  249. xSetGCTileStipXOrigin(C, GC, V) :- xcSetGCAttribute(C, GC, 12, V).
  250. xSetGCTileStipYOrigin(C, GC, V) :- xcSetGCAttribute(C, GC, 13, V).
  251. xSetGCFont(C, GC, V) :- xcSetGCAttribute(C, GC, 14, V).
  252. xSetGCSubwindowMode(C, GC, V) :- 
  253.     xBoolean(V, R), 
  254.     xcSetGCAttribute(C, GC, 15, R).
  255. xSetGCGraphicsExposures(C, GC, V) :- 
  256.     xBoolean(V, R), 
  257.     xcSetGCAttribute(C, GC, 16, R).
  258. xSetGCClipXOrigin(C, GC, V) :- xcSetGCAttribute(C, GC, 17, V).
  259. xSetGCClipYOrigin(C, GC, V) :- xcSetGCAttribute(C, GC, 18, V).
  260. xSetGCClipMask(C, GC, V) :- xcSetGCAttribute(C, GC, 19, V).
  261. xSetGCDashOffset(C, GC, V) :- xcSetGCAttribute(C, GC, 20, V).
  262. xSetGCDashLength(C, GC, V) :- xcSetGCAttribute(C, GC, 21, V).
  263. xSetGCArcMode(C, GC, V) :- xBoolean(V, R), xcSetGCAttribute(C, GC, 22, R).
  264.  
  265.  
  266. % image attributes
  267. xGetImageWidth(I, V) :- xcGetImageAttribute(I, 0, V).
  268. xGetImageHeight(I, V) :- xcGetImageAttribute(I, 1, V).
  269. xGetImageOffset(I, V) :- xcGetImageAttribute(I, 2, V).
  270. xGetImageFormat(I, V) :- xcGetImageAttribute(I, 3, V).
  271. xGetImageByteOrder(I, V) :- xcGetImageAttribute(I, 4, R), xBoolean(V, R).
  272. xGetImageUnit(I, V) :- xcGetImageAttribute(I, 5, V).
  273. xGetImagePad(I, V) :- xcGetImageAttribute(I, 6, V).
  274. xGetImageBitOrder(I, V) :- xcGetImageAttribute(I, 7, R), xBoolean(V, R).
  275. xGetImageDepth(I, V) :- xcGetImageAttribute(I, 8, V).
  276. xGetImageLineBytes(I, V) :- xcGetImageAttribute(I, 9, V).
  277. xGetImagePixelBits(I, V) :- xcGetImageAttribute(I, 10, V).
  278. xGetImageRedMask(I, V) :- xcGetImageAttribute(I, 11, V).
  279. xGetImageGreenMask(I, V) :- xcGetImageAttribute(I, 12, V).
  280. xGetImageBlueMask(I, V) :- xcGetImageAttribute(I, 13, V).
  281.  
  282.  
  283. % font attributes 
  284. xGetFontDirection(F, V) :- xcGetFontAttribute(F, 0, R), xBoolean(V, R).
  285. xGetFontMinColumn(F, V) :- xcGetFontAttribute(F, 1, V).
  286. xGetFontMaxColumn(F, V) :- xcGetFontAttribute(F, 2, V).
  287. xGetFontMinRow(F, V) :- xcGetFontAttribute(F, 3, V).
  288. xGetFontMaxRow(F, V) :- xcGetFontAttribute(F, 4, V).
  289. xGetFontAllExist(F, V) :- xcGetFontAttribute(F, 5, R), xBoolean(V, R).
  290. xGetFontDefaultChar(F, V) :- xcGetFontAttribute(F, 6, V).
  291. xGetFontMinLeft(F, V) :- xcGetFontAttribute(F, 7, V).
  292. xGetFontMinRight(F, V) :- xcGetFontAttribute(F, 8, V).
  293. xGetFontMinWidth(F, V) :- xcGetFontAttribute(F, 9, V).
  294. xGetFontMinAscent(F, V) :- xcGetFontAttribute(F, 10, V).
  295. xGetFontMinDescent(F, V) :- xcGetFontAttribute(F, 11, V).
  296. xGetFontMinAttribute(F, V) :- xcGetFontAttribute(F, 12, V).
  297. xGetFontMaxLeft(F, V) :- xcGetFontAttribute(F, 13, V).
  298. xGetFontMaxRight(F, V) :- xcGetFontAttribute(F, 14, V).
  299. xGetFontMaxWidth(F, V) :- xcGetFontAttribute(F, 15, V).
  300. xGetFontMaxAscent(F, V) :- xcGetFontAttribute(F, 16, V).
  301. xGetFontMaxDescent(F, V) :- xcGetFontAttribute(F, 17, V).
  302. xGetFontMaxAttribute(F, V) :- xcGetFontAttribute(F, 18, V).
  303. xGetFontAscent(F, V) :- xcGetFontAttribute(F, 19, V).
  304. xGetFontDescent(F, V) :- xcGetFontAttribute(F, 20, V).
  305. xGetFontConnection(F, V) :- xcGetFontAttribute(F, 21, V).
  306. xGetFontFont(F, V) :- xcGetFontAttribute(F, 22, V).
  307. xGetFontProperties(F, V) :- xcGetFontAttribute(F, 23, N), pxVectorGet(N, V).
  308.  
  309.  
  310. % TO BE CHANGED: ADD THE POINTER IN THE PARAMETERS
  311. % get pointer attributes 
  312. xGetPointerNumerator(V) :- xcGetPointerAttribute(0, V).
  313. xGetPointerDenominator(V) :- xcGetPointerAttribute(1, V).
  314. xGetPointerThreshold(V) :- xcGetPointerAttribute(2, V).
  315.  
  316.  
  317. % TO BE CHANGED: ADD THE POINTER IN THE PARAMETERS
  318. % set pointer attributes 
  319. xSetPointerNumerator(V) :- xcSetPointerAttribute(0, V).
  320. xSetPointerDenominator(V) :- xcSetPointerAttribute(1, V).
  321. xSetPointerThreshold(V) :- xcSetPointerAttribute(2, V).
  322.  
  323.  
  324. % get keyboard attributes
  325. xGetKeyboardKeyClickPercent(V) :- xcGetKeyboardAttribute(0, V).
  326. xGetKeyboardBellPercent(V) :- xcGetKeyboardAttribute(1, V).
  327. xGetKeyboardBellPitch(V) :- xcGetKeyboardAttribute(2, V).
  328. xGetKeyboardBellDuration(V) :- xcGetKeyboardAttribute(3, V).
  329. xGetKeyboardLed(V) :- xcGetKeyboardAttribute(4, V).
  330. xGetKeyboardAutoRepeatMode(V) :- xcGetKeyboardAttribute(7, R), xBoolean(V, R).
  331. xGetKeyboardRepeatKeymap(V) :- 
  332.     xcGetKeyboardAttribute(8, N), 
  333.     pxVectorGet(N, R), 
  334.     pxKeymapToCodes(R,V).
  335.  
  336.  
  337. % set keyboard attributes
  338. xSetKeyboardKeyClickPercent(V) :- 
  339.     xKeyboardDefault(V, R), 
  340.     xcSetKeyboardAttribute(0, R).
  341. xSetKeyboardBellPercent(V) :- 
  342.     xKeyboardDefault(V, R), 
  343.     xcSetKeyboardAttribute(1, R).
  344. xSetKeyboardBellPitch(V) :- 
  345.     xKeyboardDefault(V, R), 
  346.     xcSetKeyboardAttribute(2, R).
  347. xSetKeyboardBellDuration(V) :- 
  348.     xKeyboardDefault(V, R), 
  349.     xcSetKeyboardAttribute(3, R).
  350. xSetKeyboardLed(V) :- xcSetKeyboardAttribute(4, V).
  351. xSetKeyboardLedMode(V) :- xBoolean(V, R), xcSetKeyboardAttribute(5, R).
  352. xSetKeyboardKey(V) :- xcSetKeyboardAttribute(6, V).
  353. xSetKeyboardAutoRepeatMode(V) :- 
  354.     xAutoRepeat(V, R), 
  355.     xcSetKeyboardAttribute(7, R).
  356.  
  357.  
  358. % WM_HINTS: format 32 
  359. xSetWMxInput(V) :- pxp_WM_HINTS(xInput, V, 2, 1, R).
  360. xSetWMInitialState(V) :- pxp_WM_HINTS(xInitialState, V, 3, 2, V). 
  361. xSetWMIconPixmap(V) :- pxp_WM_HINTS(xIconPixmap, V, 4, 4, V).
  362. xSetWMIconWindow(V) :- pxp_WM_HINTS(xIconWindow, V, 5, 8, V).
  363. xSetWMIconX(V) :- pxp_WM_HINTS(xIconX, V, 6, 16, V).
  364. xSetWMIconY(V) :- pxp_WM_HINTS(xIconY, V, 7, 16, V).
  365. xSetWMIconMask(V) :- pxp_WM_HINTS(xIconMask, V, 8, 32, V).
  366. xSetWMWindowGroup(V) :- pxp_WM_HINTS(xWindowGroup, V, 9, 64, V).
  367.  
  368.  
  369. % WM_NORMAL_HINTS: format 32 
  370. xSetWMUserX(V) :- pxp_WM_NORMAL_HINTS(xUserX, V, 2, 1, V).
  371. xSetWMUserY(V) :- pxp_WM_NORMAL_HINTS(xUserY, V, 3, 1, V).
  372. xSetWMUserWidth(V) :- pxp_WM_NORMAL_HINTS(xUserWidth, V, 4, 2, V).
  373. xSetWMUserHeight(V) :- pxp_WM_NORMAL_HINTS(xUserHeight, V, 5, 2, V).
  374. xSetWMProgramX(V) :- pxp_WM_NORMAL_HINTS(xProgramX, V, 2, 4, V).
  375. xSetWMProgramY(V) :- pxp_WM_NORMAL_HINTS(xProgramY, V, 3, 4, V).
  376. xSetWMProgramWidth(V) :- pxp_WM_NORMAL_HINTS(xProgramWidth, V, 4, 8, V).
  377. xSetWMProgramHeight(V) :- pxp_WM_NORMAL_HINTS(xProgramHeight, V, 5, 8, V).
  378. xSetWMMinWidth(V) :- pxp_WM_NORMAL_HINTS(xMinWidth, V, 6, 16, V).
  379. xSetWMMinHeight(V) :- pxp_WM_NORMAL_HINTS(xMinHeight, V, 7, 16, V).
  380. xSetWMMaxWidth(V) :- pxp_WM_NORMAL_HINTS(xMaxWidth, V, 8, 32, V).
  381. xSetWMMaxHeight(V) :- pxp_WM_NORMAL_HINTS(xMaxHeight, V, 9, 32, V).
  382. xSetWMWidthIncrement(V) :- pxp_WM_NORMAL_HINTS(xWidthIncrement, V, 10, 64, V).
  383. xSetWMHeightIncrement(V) :- 
  384.     pxp_WM_NORMAL_HINTS(xHeightIncrement, V, 11, 64, V).
  385. xSetWMMinAspectNumerator(V) :- 
  386.     pxp_WM_NORMAL_HINTS(xMinAspectNumerator, V, 12, 128, V).
  387. xSetWMMinAspectDenominator(V) :- 
  388.     pxp_WM_NORMAL_HINTS(xMinAspectDenominator, V, 13, 128, V).
  389. xSetWMMaxAspectNumerator(V) :- 
  390.     pxp_WM_NORMAL_HINTS(xMaxAspectNumerator, V, 14, 128, V).
  391. xSetWMMaxAspectDenominator(V) :- 
  392.     pxp_WM_NORMAL_HINTS(xMaxAspectDenominator, V, 15, 128, V).
  393. xSetWMBaseWidth(V) :- pxp_WM_NORMAL_HINTS(xBaseWidth, V, 16, 256, V).
  394. xSetWMBaseHeight(V) :- pxp_WM_NORMAL_HINTS(xBaseHeight, V, 17, 256, V).
  395. xSetWMWindowGravity(V) :-  
  396.     pxp_WM_NORMAL_HINTS(xWindowGravity, V, 18, 512, V).
  397.  
  398.