home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / x / xscm105.zip / xscm / xm.scm < prev    next >
Text File  |  1992-08-29  |  12KB  |  360 lines
  1. ; $Header: /home/campbell/Languages/Scheme/scm/x-scm/RCS/xm.scm,v 1.2 1992/07/08 03:20:26 campbell Beta $
  2. ;
  3. ; Various definitions from Xm.h.
  4. ;
  5. ;  Author: Larry Campbell (campbell@redsox.bsw.com)
  6. ; 
  7. ;  Copyright 1992 by The Boston Software Works, Inc.
  8. ;  Permission to use for any purpose whatsoever granted, as long
  9. ;  as this copyright notice remains intact.  Please send bug fixes
  10. ;  or enhancements to the above email address.
  11. ;
  12. (define xm:n-accelerators "accelerators")
  13. (define xm:n-accelerator-text "acceleratorText")
  14. (define xm:n-adjustLast "adjustLast")
  15. (define xm:n-adjust-margin "adjustMargin")
  16. (define xm:n-alignment "alignment")
  17. (define xm:n-allow-horiz "allowHoriz")
  18. (define xm:n-allow-overlap "allowOverlap")
  19. (define xm:n-allow-shell-resize "allowShellResize")
  20. (define xm:n-allow-vert "allowVert")
  21. (define xm:n-arm-callback "armCallback")
  22. (define xm:n-arrow-direction "arrowDirection")
  23. (define xm:n-ancestor-sensitive "ancestorSensitive")
  24. (define xm:n-background "background")
  25. (define xm:n-background-pixmap "backgroundPixmap")
  26. (define xm:n-bitmap "bitmap")
  27. (define xm:n-border-color "borderColor")
  28. (define xm:n-border "borderColor")
  29. (define xm:n-border-pixmap "borderPixmap")
  30. (define xm:n-border-width "borderWidth")
  31. (define xm:n-browse-selection-callback "browseSelectionCallback")
  32. (define xm:n-callback "callback")
  33. (define xm:n-children "children")
  34. (define xm:n-colormap "colormap")
  35. (define xm:n-columns "columns")
  36. (define xm:n-decimal-points "decimalPoints")
  37. (define xm:n-delete-response "deleteResponse")
  38. (define xm:n-depth "depth")
  39. (define xm:n-destroy-callback "destroyCallback")
  40. (define xm:n-disarm-callback "disarmCallback")
  41. (define xm:n-drag-callback "dragCallback")
  42. (define xm:n-edit-mode "editMode")
  43. (define xm:n-edit-type "editType")
  44. (define xm:n-editable "editable")
  45. (define xm:n-expose-callback "exposeCallback")
  46. (define xm:n-file "file")
  47. (define xm:n-font "font")
  48. (define xm:n-force-bars "forceBars")
  49. (define xm:n-foreground "foreground")
  50. (define xm:n-function "function")
  51. (define xm:n-height "height")
  52. (define xm:n-highlight "highlight")
  53. (define xm:n-highlight-thickness "highlightThickness")
  54. (define xm:n-h-space "hSpace")
  55. (define xm:n-index "index")
  56. (define xm:n-initial-resources-persistent "initialResourcesPersistent")
  57. (define xm:n-inner-height "innerHeight")
  58. (define xm:n-inner-width "innerWidth")
  59. (define xm:n-inner-window "innerWindow")
  60. (define xm:n-insert-position "insertPosition")
  61. (define xm:n-internal-height "internalHeight")
  62. (define xm:n-internal-width "internalWidth")
  63. (define xm:n-items "items")
  64. (define xm:n-item-count "itemCount")
  65. (define xm:n-jump-proc "jumpProc")
  66. (define xm:n-justify "justify")
  67. (define xm:n-knob-height "knobHeight")
  68. (define xm:n-knob-indent "knobIndent")
  69. (define xm:n-knob-pixel "knobPixel")
  70. (define xm:n-knob-width "knobWidth")
  71. (define xm:n-label "label")
  72. (define xm:n-label-string "labelString")
  73. (define xm:n-length "length")
  74. (define xm:n-lower-right "lowerRight")
  75. (define xm:n-mapped-when-managed "mappedWhenManaged")
  76. (define xm:n-mapping-delay "mappingDelay")
  77. (define xm:n-margin-height "marginHeight")
  78. (define xm:n-margin-top "marginTop")
  79. (define xm:n-margin-bottom "marginBottom")
  80. (define xm:n-margin-width "marginWidth")
  81. (define xm:n-margin-right "marginRight")
  82. (define xm:n-margin-left "marginLeft")
  83. (define xm:n-maximum "maximum")
  84. (define xm:n-menu-accelerator "menuAccelerator")
  85. (define xm:n-menu-bar "menuBar")
  86. (define xm:n-menu-cursor "menuCursor")
  87. (define xm:n-menu-entry "menuEntry")
  88. (define xm:n-menu-help-widget "menuHelpWidget")
  89. (define xm:n-minimum "minimum")
  90. (define xm:n-multiple-selection-callback "multipleSelectionCallback")
  91. (define xm:n-name "name")
  92. (define xm:n-notify "notify")
  93. (define xm:n-num-children "numChildren")
  94. (define xm:n-num-columns "numColumns")
  95. (define xm:n-orientation "orientation")
  96. (define xm:n-packing "packing")
  97. (define xm:n-parameter "parameter")
  98. (define xm:n-pixmap "pixmap")
  99. (define xm:n-popup-callback "popupCallback")
  100. (define xm:n-popdown-callback "popdownCallback")
  101. (define xm:n-processing-direction "processingDirection")
  102. (define xm:n-recompute-size "recomputeSize")
  103. (define xm:n-resize "resize")
  104. (define xm:n-resize-callback "resizeCallback")
  105. (define xm:n-reverse-video "reverseVideo")
  106. (define xm:n-row-column-type "rowColumnType")
  107. (define xm:n-rows "rows")
  108. (define xm:n-scale-height "scaleHeight")
  109. (define xm:n-scale-multiple "scaleMultiple")
  110. (define xm:n-scale-width "scaleWidth")
  111. (define xm:n-screen "screen")
  112. (define xm:n-scroll-proc "scrollProc")
  113. (define xm:n-scroll-d-cursor "scrollDCursor")
  114. (define xm:n-scroll-h-cursor "scrollHCursor")
  115. (define xm:n-scroll-l-cursor "scrollLCursor")
  116. (define xm:n-scroll-r-cursor "scrollRCursor")
  117. (define xm:n-scroll-u-cursor "scrollUCursor")
  118. (define xm:n-scroll-v-cursor "scrollVCursor")
  119. (define xm:n-selected-items "selectedItems")
  120. (define xm:n-selected-item-count "selectedItemCount")
  121. (define xm:n-selection "selection")
  122. (define xm:n-selection-array "selectionArray")
  123. (define xm:n-selection-policy "selectionPolicy")
  124. (define xm:n-sensitive "sensitive")
  125. (define xm:n-set "set")
  126. (define xm:n-shadow-thickness "shadowThickness")
  127. (define xm:n-show-as-default "showAsDefault")
  128. (define xm:n-show-separator "showSeparator")
  129. (define xm:n-show-value "showValue")
  130. (define xm:n-shown "shown")
  131. (define xm:n-single-selection-callback "singleSelectionCallback")
  132. (define xm:n-space "space")
  133. (define xm:n-spacing "spacing")
  134. (define xm:n-string "string")
  135. (define xm:n-string-direction "stringDirection")
  136. (define xm:n-sub-menu-id "subMenuId")
  137. (define xm:n-text-options "textOptions")
  138. (define xm:n-text-sink "textSink")
  139. (define xm:n-text-source "textSource")
  140. (define xm:n-text-string "textString")
  141. (define xm:n-thickness "thickness")
  142. (define xm:n-thumb "thumb")
  143. (define xm:n-thumb-proc "thumbProc")
  144. (define xm:n-title "title")
  145. (define xm:n-title-string "titleString")
  146. (define xm:n-top "top")
  147. (define xm:n-translations "translations")
  148. (define xm:n-traversal-on "traversalOn")
  149. (define xm:n-unrealize-callback "unrealizeCallback")
  150. (define xm:n-update "update")
  151. (define xm:n-use-bottom "useBottom")
  152. (define xm:n-use-right "useRight")
  153. (define xm:n-value "value")
  154. (define xm:n-value-changed-callback "valueChangedCallback")
  155. (define xm:n-visible-item-count "visibleItemCount")
  156. (define xm:n-visible-when-off "visibleWhenOff")
  157. (define xm:n-v-space "vSpace")
  158. (define xm:n-which-button "whichButton")
  159. (define xm:n-width "width")
  160. (define xm:n-window "window")
  161. (define xm:n-x "x")
  162. (define xm:n-y "y")
  163.  
  164. ; Other miscellaneous definitions from Xm.h
  165.  
  166. (define xm:n-activate-callback "activateCallback")
  167.  
  168. (define xm:work-area           0)
  169. (define xm:menu-bar           1)
  170. (define xm:menu-pulldown       2)
  171. (define xm:menu-popup          3)
  172. (define xm:menu-option         4)
  173.  
  174.  
  175. ; Menu defines
  176.  
  177. (define xm:no-orientation    0)
  178. (define xm:vertical        1)
  179. (define xm:horizontal        2)
  180.  
  181. (define xm:work-area        0)
  182. (define xm:menu-bar        1)
  183. (define xm:menu-pulldown    2)
  184. (define xm:menu-popup        3)
  185. (define xm:menu-option        4)
  186.  
  187. (define xm:no-packing        0)
  188. (define xm:pack-tight        1)
  189. (define xm:pack-column        2)
  190. (define xm:pack-none        3)
  191.  
  192.  
  193. ; Label defines
  194.  
  195. (define xm:alignment-beginning    0)
  196. (define xm:alignment-center    1)
  197. (define xm:alignment-end    2)
  198.  
  199.  
  200. ; ToggleButton defines
  201.  
  202. (define xm:n-of-many        1)
  203. (define xm:one-of-many        2)
  204.  
  205. ; Form constraint resources
  206.  
  207. (define xm:n-top-attachment    "topAttachment")
  208. (define xm:n-bottom-attachment    "bottomAttachment")
  209. (define xm:n-left-attachment    "leftAttachment")
  210. (define xm:n-right-attachment    "rightAttachment")
  211.  
  212. (define xm:n-top-widget        "topWidget")
  213. (define xm:n-bottom-widget    "bottomWidget")
  214. (define xm:n-left-widget    "leftWidget")
  215. (define xm:n-right-widget    "rightWidget")
  216.  
  217. (define xm:n-top-position    "topPosition")
  218. (define xm:n-bottom-position    "bottomPosition")
  219. (define xm:n-left-position    "leftPosition")
  220. (define xm:n-right-position    "rightPosition")
  221. (define xm:n-top-offset        "topOffset")
  222. (define xm:n-bottom-offset    "bottomOffset")
  223. (define xm:n-left-offset    "leftOffset")
  224. (define xm:n-right-offset    "rightOffset")
  225.  
  226. (define xm:n-resizable        "resizable")
  227.  
  228.  
  229. ; Form defines
  230.  
  231. (define xm:attach-none            0)
  232. (define xm:attach-form            1)
  233. (define xm:attach-opposite-form        2)
  234. (define xm:attach-widget        3)
  235. (define xm:attach-opposite-widget    4)
  236. (define xm:attach-position        5)
  237. (define xm:attach-self            6)
  238.  
  239. (define xm:resize-none    0)
  240. (define xm:resize-grow    1)
  241. (define xm:resize-any    2)
  242.  
  243. ; XmMessageBox           stuff not common to other dialogs
  244.  
  245. (define xm:n-default-button-type    "defaultButtonType")
  246. (define xm:n-minimize-buttons        "minimizeButtons")
  247. (define xm:n-message-string        "messageString")
  248. (define xm:n-message-alignment        "messageAlignment")
  249. (define xm:n-symbol-pixmap        "symbolPixmap")
  250. (define xm:n-dialog-type        "dialogType")
  251.  
  252. ; DeleteResponse values
  253. (define xm:destroy     0)
  254. (define xm:unmap     1)
  255. (define xm:do-nothing    2)
  256.  
  257. ; defines for dialog type
  258.  
  259. (define xm:dialog-error        1)
  260. (define xm:dialog-information  2)
  261. (define xm:dialog-message      3)
  262. (define xm:dialog-question     4)
  263. (define xm:dialog-warning      5)
  264. (define xm:dialog-working      6)
  265.  
  266.  
  267. ; defines for callbacks
  268.  
  269. (define xm:n-apply-callback        "applyCallback")
  270. (define xm:n-cancel-callback        "cancelCallback")
  271. (define xm:n-command-entered-callback    "commandEnteredCallback")
  272. (define xm:n-command-changed-callback    "commandChangedCallback")
  273. (define xm:n-default-action-callback    "defaultActionCallback")
  274. (define xm:n-ok-callback        "okCallback")
  275. (define xm:n-no-match-callback        "noMatchCallback")
  276.  
  277.  
  278. ; XmN defines for subwidgets
  279.  
  280. (define xm:n-ok-label-string        "okLabelString")
  281. (define xm:n-cancel-label-string    "cancelLabelString")
  282. (define xm:n-help-label-string        "helpLabelString")
  283. (define xm:n-apply-label-string        "applyLabelString")
  284. (define xm:n-selection-label-string    "selectionLabelString")
  285. (define xm:n-list-label-string        "listLabelString")
  286. (define xm:n-prompt-string        "promptString")
  287.  
  288. ; Text mode stuff
  289.  
  290. (define xm:multi-line-edit    0)
  291. (define xm:single-line-edit    1)
  292.  
  293. (define xm:n-auto-show-cursor-position    "autoShowCursorPosition")
  294. (define xm:n-resize-width        "resizeWidth")
  295. (define xm:n-scroll-horizontal        "scrollHorizontal")
  296. (define xm:n-scroll-vertical        "scrollVertical")
  297.  
  298. ; ArrowButton stuff
  299.  
  300. (define xm:arrow-up    0)
  301. (define xm:arrow-down    1)
  302. (define xm:arrow-left    2)
  303. (define xm:arrow-right    3)
  304.  
  305. ; Selection types
  306.  
  307. (define xm:single-select    0)
  308. (define xm:multiple-select    1)
  309. (define xm:extended-select    2)
  310. (define xm:browse-select    3)
  311.  
  312. ; Scrolled Window defines.
  313.  
  314. (define xm:n-horizontal-scroll-bar    "horizontalScrollBar")
  315. (define xm:n-vertical-scroll-bar    "verticalScrollBar")
  316. (define xm:n-work-window        "workWindow")
  317. (define xm:n-clip-window        "clipWindow")
  318. (define xm:n-scrolling-policy        "scrollingPolicy")
  319. (define xm:n-visual-policy        "visualPolicy")
  320. (define xm:n-scroll-bar-display-policy    "scrollBarDisplayPolicy")
  321. (define xm:n-scroll-bar-placement    "scrollBarPlacement")
  322. (define xm:n-update-slider-size        "updateSliderSize")
  323. (define xm:n-scrolled-window-margin-height    "scrolledWindowMarginHeight")
  324. (define xm:n-scrolled-window-margin-width    "scrolledWindowMarginWidth")
  325.  
  326. (define xm:variable            0)
  327. (define xm:constant            1)
  328. (define xm:resize-if-possible    2)
  329.  
  330. (define xm:automatic        0)
  331. (define xm:application-defined    1)
  332.  
  333. (define xm:as-needed        1)
  334.  
  335. ; Defined values for scrollbar
  336.  
  337. (define xm:max-on-top        0)
  338. (define xm:max-on-bottom    1)
  339. (define xm:max-on-left        2)
  340. (define xm:max-on-right        3)
  341.  
  342.  
  343. ; Resources for vertical paned window
  344.  
  345. (define xm:n-refigure-mode        "refigureMode")
  346. (define xm:n-separator-on        "separatorOn")
  347. (define xm:n-sash-indent        "sashIndent")
  348. (define xm:n-sash-width            "sashWidth")
  349. (define xm:n-sash-height        "sashHeight")
  350. (define xm:n-sash-shadow-thickness    "sashShadowThickness")
  351.  
  352.  
  353. ; Constraint Resources for Vertical Paned Window
  354.  
  355. (define xm:n-allow-resize    "allowResize")
  356. (define xm:n-skip-adjust    "skipAdjust")
  357. (define xm:n-pane-minimum       "paneMinimum")
  358. (define xm:n-pane-maximum       "paneMaximum")
  359.  
  360.