home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2056 / Xkal.ad < prev   
Encoding:
Text File  |  1990-12-28  |  7.4 KB  |  300 lines
  1. !
  2. !    Xkal - graphical appointment calendar
  3. !
  4. !    George Ferguson (ferguson@cs.rochester.edu), 27 Oct 1990.
  5. !
  6. !    $Id: Xkal.ad,v 1.8 90/11/12 13:15:08 ferguson Exp $
  7. !
  8.  
  9. ! This has must be the first line in the "official" app-defaults file.
  10. Xkal.revision:                  $Revision: 1.8 $
  11. Xkal.title:            Xkal 1.0 (beta)
  12.  
  13. !
  14. ! Application defaults
  15. !
  16. Xkal.appoints:            ~/.appoints
  17. Xkal.bothShown:            True
  18. Xkal.numMonths:            1
  19. Xkal.opaqueDates:        False
  20. Xkal.dowLabels:            False
  21.  
  22. !
  23. ! The toplevel shell and form
  24. !
  25. Xkal*allowShellResize: True
  26. Xkal*Form.defaultDistance:    0
  27. Xkal*bothForm.defaultDistance:    2
  28.  
  29. !
  30. ! The menu buttons in the main window
  31. !
  32. Xkal*fileButton.label:        File
  33. Xkal*fileButton.menuName:    fileMenu
  34. Xkal*fileMenu.menu:\
  35.     (item "File") \
  36.     (line) \
  37.     (item "[S] Save" (action "xkal-save()")) \
  38.     (item "[Q] Quit" (action "xkal-quit()")) \
  39.     (item "[X] Exit" (action "xkal-exit()"))
  40.  
  41. Xkal*viewButton.label:        View
  42. Xkal*viewButton.fromHoriz:    fileButton
  43. Xkal*viewButton.menuName:    viewMenu
  44. Xkal*viewMenu.menu:\
  45.     (item "View") \
  46.     (line) \
  47.     (item "[N] Next" (action "xkal-next()")) \
  48.     (item "[P] Prev" (action "xkal-prev()")) \
  49.     (item "[T] Today" (action "xkal-today()")) \
  50.     (item "[1] 1 Month" (action "xkal-numMonths(1)")) \
  51.     (item "[2] 3 Months" (action "xkal-numMonths(3)")) \
  52.     (item "[3] 12 Months" (action "xkal-numMonths(12)"))
  53.  
  54. Xkal*otherButton.label:        Other
  55. Xkal*otherButton.fromHoriz:    viewButton
  56. Xkal*otherButton.menuName:    otherMenu
  57. Xkal*otherMenu.menu:\
  58.     (item "Other") \
  59.     (line) \
  60.     (item "[E] Edit schedule" (action "xkal-edit-schedule()"))
  61.  
  62. !
  63. ! The month forms
  64. !
  65. Xkal*allMonthsForm.fromVert:        fileButton
  66. Xkal*allMonthsForm*resizable:        True
  67. Xkal*allMonthsForm*internalWidth:    1
  68. Xkal*allMonthsForm*internalHeight:    1
  69. Xkal*allMonthsForm*translations:#override\n\
  70.     <Key>Q:        xkal-quit() \n\
  71.     <Key>X:        xkal-exit() \n\
  72.     <Key>N:        xkal-next() \n\
  73.     <Key>P:        xkal-prev() \n\
  74.     <Key>T:        xkal-today() \n\
  75.     <Key>S:        xkal-save() \n\
  76.     <Key>E:        xkal-edit-schedule() \n\
  77.     <Key>1:        xkal-numMonths(1) \n\
  78.     <Key>2:        xkal-numMonths(3) \n\
  79.     <Key>3:        xkal-numMonths(12) \n
  80.  
  81. Xkal*monthForm1.fromHoriz:    NULL
  82. Xkal*monthForm1.fromVert:    NULL
  83.  
  84. Xkal*monthForm3_1.fromHoriz:    NULL
  85. Xkal*monthForm3_1.fromVert:    NULL
  86. Xkal*monthForm3_2.fromVert:    monthForm3_1
  87. Xkal*monthForm3_3.fromVert:    monthForm3_2
  88.  
  89. Xkal*monthForm12_1.fromHoriz:    NULL
  90. Xkal*monthForm12_1.fromVert:    NULL
  91. Xkal*monthForm12_2.fromHoriz:    monthForm12_1
  92. Xkal*monthForm12_3.fromHoriz:    monthForm12_2
  93. Xkal*monthForm12_4.fromHoriz:    monthForm12_3
  94.  
  95. Xkal*monthForm12_5.fromVert:    monthForm12_1
  96. Xkal*monthForm12_6.fromHoriz:    monthForm12_5
  97. Xkal*monthForm12_6.fromVert:    monthForm12_2
  98. Xkal*monthForm12_7.fromHoriz:    monthForm12_6
  99. Xkal*monthForm12_7.fromVert:    monthForm12_3
  100. Xkal*monthForm12_8.fromHoriz:    monthForm12_7
  101. Xkal*monthForm12_8.fromVert:    monthForm12_4
  102.  
  103. Xkal*monthForm12_9.fromVert:    monthForm12_5
  104. Xkal*monthForm12_10.fromHoriz:    monthForm12_9
  105. Xkal*monthForm12_10.fromVert:    monthForm12_6
  106. Xkal*monthForm12_11.fromHoriz:    monthForm12_10
  107. Xkal*monthForm12_11.fromVert:    monthForm12_7
  108. Xkal*monthForm12_12.fromHoriz:    monthForm12_11
  109. Xkal*monthForm12_12.fromVert:    monthForm12_8
  110.  
  111. ! The month labels in the monthForms
  112. ! monthLabelX.width = (dateWidthX+internalWidth)*7+borderWidth*12
  113.  
  114. Xkal*monthLabel1.font:        *fixed*bold*
  115. Xkal*monthLabel1.borderWidth:    0
  116. Xkal*monthLabel1.justify:    center
  117. Xkal*monthLabel1.width:        376
  118. Xkal*monthLabel1.resize:    False
  119.  
  120. Xkal*monthLabel3.font:        6x9
  121. Xkal*monthLabel3.borderWidth:    0
  122. Xkal*monthLabel3.justify:    center
  123. Xkal*monthLabel3.width:        201
  124. Xkal*monthLabel3.resize:    False
  125.  
  126. Xkal*monthLabel12.font:        5x8
  127. Xkal*monthLabel12.borderWidth:    0
  128. Xkal*monthLabel12.justify:    center
  129. Xkal*monthLabel12.width:    131
  130. Xkal*monthLabel12.resize:    False
  131.  
  132. ! The day-of-week labels (if .dowLabels is True)
  133. ! dowLabelX.width = dateWidthX+internalWidth*2
  134.  
  135. Xkal*dowLabel1.font:        *fixed*bold*
  136. Xkal*dowLabel1.borderWidth:    1
  137. Xkal*dowLabel1.width:        52
  138. Xkal*dowLabel1.resize:        False
  139.  
  140. Xkal*dowLabel3.font:        6x9
  141. Xkal*dowLabel3.borderWidth:    1
  142. Xkal*dowLabel3.width:        27
  143. Xkal*dowLabel3.resize:        False
  144.  
  145. Xkal*dowLabel12.font:        5x8
  146. Xkal*dowLabel12.borderWidth:    1
  147. Xkal*dowLabel12.width:        17
  148. Xkal*dowLabel12.resize:        False
  149.  
  150. ! The day buttons in the monthForms
  151.  
  152. Xkal.dateFont1:            *fixed*bold*
  153. Xkal.datePosition1:        +10+10
  154. Xkal.dateWidth1:        50
  155. Xkal.dateHeight1:        50
  156.  
  157. Xkal.dateFont3:            6x9
  158. Xkal.datePosition3:        +0+6
  159. Xkal.dateWidth3:        25
  160. Xkal.dateHeight3:        25
  161.  
  162. Xkal.dateFont12:        5x8
  163. Xkal.datePosition12:        +0+6
  164. Xkal.dateWidth12:        15
  165. Xkal.dateHeight12:        15
  166.  
  167. !
  168. ! The dayForm stuff (one day's appointments)
  169. !
  170.  
  171. Xkal*popupForm.defaultDistance:    2
  172.  
  173. Xkal*dayForm.defaultDistance:    4
  174. Xkal*TopLevelShell.title:    Xkal Day Window
  175.  
  176. ! if it's a popup
  177. Xkal*popupForm*dayForm.fromVert:    dismissButton
  178. Xkal*popupForm*dayForm.borderWidth:    0
  179.  
  180. ! if it's not a popup
  181. Xkal*bothForm*dayForm.fromHoriz:    allMonthsForm
  182. Xkal*bothForm*dayForm.fromVert:        fileButton
  183.  
  184. !
  185. ! The buttons in the dayForm
  186. !
  187. Xkal*dismissButton.label:        Dismiss
  188.  
  189. Xkal*selectButton.label:        Select
  190. Xkal*selectButton.fromHoriz:        dismissButton
  191.  
  192. Xkal*unselectButton.label:        Unselect
  193. Xkal*unselectButton.fromHoriz:        selectButton
  194.  
  195. !
  196. ! The widgets in the dayForm
  197. !
  198. Xkal*dayLabel.justify:        center
  199. Xkal*dayLabel.width:        230
  200. Xkal*dayLabel.borderWidth:    0
  201. Xkal*dayLabel.label:        Xkal 1.0(alpha)
  202.  
  203. Xkal*timeLabel.font:        fixed
  204. Xkal*timeLabel.borderWidth:    0
  205. Xkal*timeLabel.vertDistance:    2
  206.  
  207. Xkal*textText*font:            fixed
  208. Xkal*textText.width:            200
  209. Xkal*textText.height:            20
  210. Xkal*textText.vertDistance:        2
  211. Xkal*textText.borderWidth:        0
  212. Xkal*textText.topMargin:        0
  213. Xkal*textText*editType:            edit
  214. Xkal*textText*resize:            True
  215. Xkal*textText*displayCaret:        False
  216. Xkal*textText.scrollHorizontal:        whenNeeded
  217. Xkal*textText*Scrollbar.thickness:    5
  218. Xkal*textText.translations:#override\n\
  219.     <Enter>:    display-caret(True) \n\
  220.     <Leave>:    display-caret(False) \n\
  221.     <Key>Return:    no-op() \n
  222.  
  223. !
  224. ! The schedule editor
  225. !
  226. Xkal*schedulePopupShell.title:        Xkal Schedule Window
  227.  
  228. Xkal*dismissSchedButton.label:        Dismiss
  229.  
  230. Xkal*applySchedButton.label:        Apply
  231. Xkal*applySchedButton.fromHoriz:    dismissSchedButton
  232.  
  233. Xkal*schedulePopupShell*dayForm.fromVert: dismissSchedButton
  234.  
  235. Xkal*schedulePopupShell*dayForm*font:    5x8
  236. Xkal*schedulePopupShell*Text*width:    100
  237. Xkal*schedulePopupShell*Text*height:    12
  238. Xkal*schedulePopupShell*Text*Scrollbar.height:    3
  239.  
  240.  
  241. !
  242. ! For calendar boxes without dates
  243. !
  244. Xkal.noDayShade:    cross_weave
  245.  
  246. !
  247. ! For mono displays, the patterns reflecting the number of appointments
  248. ! These bitmaps are found in the directory specified by the global resource
  249. ! bitmapFilePath (/usr/staff/include/X11/bitmaps by default).
  250. !
  251. Xkal.shade1:        gray3
  252. Xkal.shade2:        gray3
  253. Xkal.shade3:        light_gray
  254. Xkal.shade4:        light_gray
  255. Xkal.shade5:        gray
  256. Xkal.shade6:        gray
  257. Xkal.shade7:        flipped_gray
  258. Xkal.shade8:        flipped_gray
  259. Xkal.shade9:        flipped_gray
  260. Xkal.shade10:        flipped_gray
  261. Xkal.shade11:        flipped_gray
  262. Xkal.shade12:        flipped_gray
  263. Xkal.shade13:        flipped_gray
  264. Xkal.shade14:        flipped_gray
  265. Xkal.shade15:        flipped_gray
  266. Xkal.shade16:        flipped_gray
  267. Xkal.shade17:        flipped_gray
  268. Xkal.shade18:        flipped_gray
  269. Xkal.shade19:        flipped_gray
  270. Xkal.shade20:        flipped_gray
  271. Xkal.shade21:        flipped_gray
  272. Xkal.shade22:        flipped_gray
  273.  
  274. !
  275. ! For color displays, the colors reflecting the number of appointments
  276. !
  277. Xkal.color1:        green
  278. Xkal.color2:        green
  279. Xkal.color3:        blue
  280. Xkal.color4:        blue
  281. Xkal.color5:        yellow
  282. Xkal.color6:        yellow
  283. Xkal.color7:        red
  284. Xkal.color8:        red
  285. Xkal.color9:        red
  286. Xkal.color10:        red
  287. Xkal.color11:        red
  288. Xkal.color12:        red
  289. Xkal.color13:        red
  290. Xkal.color14:        red
  291. Xkal.color15:        red
  292. Xkal.color16:        red
  293. Xkal.color17:        red
  294. Xkal.color18:        red
  295. Xkal.color19:        red
  296. Xkal.color20:        red
  297. Xkal.color21:        red
  298. Xkal.color22:        red
  299.  
  300.