Module cCJDeoMenuItemClasses.pkg
1// various DEO menu classes
2
3Use cCJCommandBarSystem.pkg
4Use LanguageText.pkg
5
6// These are regsistered here so that this will compile without the DD/DEO class support added.
7// If objects are created that send these messages and you don't add the DD/DEO classes (e.g. use DFAllentry.pkg)
8// you will get runtime errors when these messages are sent.
9Register_Procedure Zoom
10Register_Procedure Find_Ge
11Register_Function Deo_Find_Object Returns Integer
12Register_Procedure Find_Next
13Register_Procedure Find_Previous
14Register_Procedure Find_First
15Register_Procedure Find_Last
16Register_Procedure Superfind
17Register_Procedure Superfind_Next
18Register_Procedure Superfind_Previous
19
20// Sub-class for all Date entry menu items
21
22{ OverrideProperty=psCategory InitialValue=C_$CategoryDEO}
23{ OverrideProperty=pbActiveUpdate InitialValue=True }
24{ ClassType=Abstract }
25Class cCJDeoMenuItem is a cCJMenuItem
26
27 Procedure Construct_Object
28 Forward Send Construct_Object
29 Set psCategory to C_$CategoryDEO
30 Set pbActiveUpdate to True
31 End_Procedure
32
33 // This just redirects to cCJCommandBarsSystem object
34 // returns information about the Focus object. If it returns True its a DEO. If a DEO the
35 // server, hasRecord, changed and hasindex info will all be returned by ref.
36 // If false, these are all unchanged.
37 Function DEOInformation Handle ByRef hoServer Boolean ByRef bHasRecord Boolean ByRef bChanged Boolean ByRef bHasIndex Returns Boolean
38 Handle hoCommandBars
39 Boolean bISDeo
40 Get CommandBarSystemObject to hoCommandBars // must exist or a programming bug
41 Get DEOInformation of hoCommandBars (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDEO
42 Function_Return bISDeo
43 End_Function
44
45End_Class
46
47// use by all navigate DEOs.
48
49{ OverrideProperty=psCategory InitialValue=C_$CategoryNavigate}
50{ ClassType=Abstract }
51Class cCJDEONavigateMenuItem is a cCJDeoMenuItem
52 Procedure Construct_Object
53 Forward Send Construct_Object
54 Set psCategory to C_$CategoryNavigate
55 End_Procedure
56
57 Function IsEnabled Returns Boolean
58 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
59 Handle hoServer
60 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
61 Function_Return (bIsDEO)
62 End_Function
63
64End_Class
65
66{ OverrideProperty=psCaption InitialValue=C_$CaptionClear }
67{ OverrideProperty=psToolTip InitialValue=C_$ToolTipClear }
68{ OverrideProperty=psDescription InitialValue=C_$DescClear }
69{ OverrideProperty=psImage InitialValue="ActionClear.ico" }
70{ OverrideProperty=psShortcut InitialValue="F5" }
71
72Class cCJClearMenuItem is a cCJDeoMenuItem
73
74 Procedure Construct_Object
75 Forward Send Construct_Object
76 Set psCaption to C_$CaptionClear
77 Set psToolTip to C_$ToolTipClear
78 Set psDescription to C_$DescClear
79 Set psImage to "ActionClear.ico"
80 Set psShortcut to "F5"
81 End_Procedure
82
83
84 Procedure OnExecute Variant vCommandBarControl
85 Send Request_Clear of (focus(Self))
86 End_Procedure
87
88 Function IsEnabled Returns Boolean
89 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
90 Handle hoServer
91 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
92 Function_Return (bIsDEO and hoServer and (bChanged or bHasRecord))
93 End_Function
94
95End_Class
96
97{ OverrideProperty=psCaption InitialValue=C_$CaptionClearAll }
98{ OverrideProperty=psToolTip InitialValue=C_$ToolTipClearAll}
99{ OverrideProperty=psDescription InitialValue=C_$DescClearAll }
100{ OverrideProperty=psImage InitialValue="ActionClearAll.ico" }
101{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_F5 }
102
103Class cCJClearAllMenuItem is a cCJDeoMenuItem
104
105 Procedure Construct_Object
106 Forward Send Construct_Object
107 Set psCaption to C_$CaptionClearAll
108 Set psToolTip to C_$ToolTipClearAll
109 Set psDescription to C_$DescClearAll
110 Set psImage to "ActionClearAll.ico"
111 Set psShortcut to C_$Key_Ctrl_F5
112 End_Procedure
113
114 Procedure OnExecute Variant vCommandBarControl
115 Send Request_Clear_All of (focus(Self))
116 End_Procedure
117
118 // returns true if a relates-to constrained parent DD has a record. This checks up
119 // the DDO structure. We do this to figure out if a record exists up the parent
120 // tree. We only need to check relates-to contrained parents because non-constrained
121 // parents already set the DD changed_state to true. Becuase you should only have
122 // one relate-to constraint per DD, this only has to search up one branch
123 Function ConstrainedServerHasRecord Handle hoServer Returns Boolean
124 Boolean bHasRecord
125 Handle hoParent
126 Integer iServers i iFile iMain
127 Get Constrain_File of hoServer to iFile
128 If (iFile) Begin
129 // if a constraint, attempt to find the related to DD parent and test it
130 Get Data_Set_Server_Count of hoServer to iServers
131 For i from 0 to (iServers-1)
132 Get Data_Set_Server of hoServer i to hoParent
133 Get Main_File of hoParent to iMain
134 If (iMain=iFile) Begin
135 // found parent constrained DD. If it has a record, return True,
136 // else check it parent's for a change.
137 Get HasRecord of hoParent to bHasRecord
138 If not bHasRecord Begin
139 Get ConstrainedServerHasRecord hoParent to bHasRecord
140 End
141 Function_Return bHasRecord
142 End
143 Loop
144 End
145 Function_Return False
146 End_Function
147
148 // Returns True if the DD or any of its server DDs (parents, grandparents, etc.)
149 // have a DD record or have changes
150 Function IsEnabled Returns Boolean
151 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
152 Handle hoServer
153 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
154 If (bIsDEO and hoServer) Begin
155 If (bChanged or bHasRecord) Begin
156 Function_Return True
157 End
158 // with clear all, we want to know if contrained parents exist.
159 Get ConstrainedServerHasRecord hoServer to bHasRecord
160 Function_Return bHasRecord
161 End
162 Function_Return False
163 End_Function
164
165End_Class
166
167
168{ OverrideProperty=psCaption InitialValue=C_$CaptionSave}
169{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSave}
170{ OverrideProperty=psDescription InitialValue=C_$DescSave }
171{ OverrideProperty=psImage InitialValue="ActionSaveRecord.ico" }
172{ OverrideProperty=psShortcut InitialValue="F2" }
173
174Class cCJSaveMenuItem is a cCJDeoMenuItem
175
176 Procedure Construct_Object
177 Forward Send Construct_Object
178 Set psCaption to C_$CaptionSave
179 Set psToolTip to C_$ToolTipSave
180 Set psDescription to C_$DescSave
181 Set psImage to "ActionSaveRecord.ico"
182 Set psShortcut to "F2"
183 End_Procedure
184
185
186 Procedure OnExecute Variant vCommandBarControl
187 Send Request_save of (focus(Self))
188 End_Procedure
189
190 Function IsEnabled Returns Boolean
191 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
192 Handle hoServer
193 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
194 Function_Return (bIsDEO and hoServer and bChanged)
195 End_Function
196
197End_Class
198
199{ OverrideProperty=psCaption InitialValue=C_$CaptionDeleteRec}
200{ OverrideProperty=psToolTip InitialValue=C_$ToolTipDeleteRec}
201{ OverrideProperty=psDescription InitialValue=C_$DescDeleteRec }
202{ OverrideProperty=psImage InitialValue="ActionDeleteRecord.ico" }
203{ OverrideProperty=psShortcut InitialValue=C_$Key_Shift_F2 }
204
205Class cCJDeleteMenuItem is a cCJDeoMenuItem
206
207 Procedure Construct_Object
208 Forward Send Construct_Object
209 Set psCaption to C_$CaptionDeleteRec
210 Set psToolTip to C_$ToolTipDeleteRec
211 Set psDescription to C_$DescDeleteRec
212 Set psImage to "ActionDeleteRecord.ico"
213 Set psShortcut to C_$Key_Shift_F2
214 End_Procedure
215
216 Procedure OnExecute Variant vCommandBarControl
217 Send Request_Delete of (focus(Self))
218 End_Procedure
219
220 Function IsEnabled Returns Boolean
221 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
222 Handle hoServer
223 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
224 Function_Return (bIsDEO and hoServer and bHasRecord)
225 End_Function
226
227End_Class
228
229{ OverrideProperty=psCaption InitialValue=C_$CaptionPrompt }
230{ OverrideProperty=psToolTip InitialValue=C_$ToolTipPrompt}
231{ OverrideProperty=psDescription InitialValue=C_$DescPrompt }
232{ OverrideProperty=psImage InitialValue="ActionPrompt.ico" }
233{ OverrideProperty=psShortcut InitialValue="F4" }
234
235Class cCJPromptMenuItem is a cCJDeoMenuItem
236 Procedure Construct_Object
237 Forward Send Construct_Object
238 Set psCaption to C_$CaptionPrompt
239 Set psToolTip to C_$ToolTipPrompt
240 Set psDescription to C_$DescPrompt
241 Set psImage to "ActionPrompt.Ico"
242 Set psShortcut to "F4"
243 End_Procedure
244
245 Procedure OnExecute Variant vCommandBarControl
246 Send Prompt of (focus(Self))
247 End_Procedure
248
249 Function IsEnabled Returns Boolean
250 Handle hoFocus hoPrompt
251 Integer iDelegate
252 Get Focus to hoFocus
253 If (hoFocus>Desktop) Begin
254 Get Delegation_mode of hoFocus to iDelegate
255 Set Delegation_mode of hoFocus to No_Delegate_or_Error
256 Get Prompt_object of hoFocus to hoPrompt
257 Set Delegation_mode of hoFocus to iDelegate
258 End
259 Function_Return (hoPrompt<>0)
260 End_Function
261
262End_Class
263
264{ OverrideProperty=psCaption InitialValue=C_$CaptionZoom }
265{ OverrideProperty=psToolTip InitialValue=C_$ToolTipZoom}
266{ OverrideProperty=psDescription InitialValue=C_$DescZoom }
267{ OverrideProperty=psShortcut InitialValue=C_$Key_Alt_F9 }
268
269Class cCJZoomMenuItem is a cCJDeoMenuItem
270 Procedure Construct_Object
271 Forward Send Construct_Object
272 Set psCaption to C_$CaptionZoom
273 Set psToolTip to C_$ToolTipZoom
274 Set psDescription to C_$DescZoom
275 Set psShortcut to C_$Key_Alt_F9
276 End_Procedure
277
278 Procedure OnExecute Variant vCommandBarControl
279 Send Zoom of (focus(Self))
280 End_Procedure
281
282 Function IsEnabled Returns Boolean
283 Handle hoFocus hoZoom
284 Integer iDelegate
285 Get Focus to hoFocus
286 If (hoFocus>Desktop) Begin
287 Get Delegation_mode of hoFocus to iDelegate
288 Set Delegation_mode of hoFocus to No_Delegate_or_Error
289 Get Zoom_object of hoFocus to hoZoom
290 Set Delegation_mode of hoFocus to iDelegate
291 End
292 Function_Return (hoZoom<>0)
293 End_Function
294
295End_Class
296
297{ OverrideProperty=psCaption InitialValue=C_$CaptionFindGE}
298{ OverrideProperty=psToolTip InitialValue=C_$ToolTipFindGE}
299{ OverrideProperty=psDescription InitialValue=C_$DescFindGE }
300{ OverrideProperty=psImage InitialValue="ActionFindEq.ico" }
301{ OverrideProperty=psShortcut InitialValue="F9" }
302
303Class cCJFindMenuItem is a cCJDeoMenuItem
304
305 Procedure Construct_Object
306 Forward Send Construct_Object
307 Set psCaption to C_$CaptionFindGE
308 Set psToolTip to C_$ToolTipFindGE
309 Set psDescription to C_$DescFindGE
310 Set psImage to "ActionFindEq.ico"
311 Set psShortcut to "F9"
312
313 End_Procedure
314
315 Procedure OnExecute Variant vCommandBarControl
316 Send Find_GE of (focus(Self))
317 End_Procedure
318
319 Function IsEnabled Returns Boolean
320 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex bIsFind
321 Handle hoServer hoFocus hoCommandBars
322 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
323 If (bIsDEO and hoServer and bHasIndex) Begin
324 // if it is a candidate for finding we must check if this supports the DEO Find protocol
325 Get Focus of desktop to hoFocus
326 Get CommandBarSystemObject to hoCommandBars // must exist or a programming bug
327 Get Is_Function of hoCommandBars Get_Deo_Find_Object hoFocus True to bIsFind
328 Function_Return bIsFind
329 End
330 Function_Return False
331 End_Function
332
333End_Class
334
335
336{ OverrideProperty=psCaption InitialValue=C_$CaptionFindGT}
337{ OverrideProperty=psToolTip InitialValue=C_$ToolTipFindGT}
338{ OverrideProperty=psDescription InitialValue=C_$DescFindGT }
339{ OverrideProperty=psImage InitialValue="ActionNext.ico" }
340{ OverrideProperty=psShortcut InitialValue="F8" }
341Class cCJFindNextMenuItem is a cCJFindMenuItem
342
343 Procedure Construct_Object
344 Forward Send Construct_Object
345 Set psCaption to C_$CaptionFindGT
346 Set psToolTip to C_$ToolTipFindGT
347 Set psDescription to C_$DescFindGT
348 Set psImage to "ActionNext.ico"
349 Set psShortcut to "F8"
350 End_Procedure
351
352 Procedure OnExecute Variant vCommandBarControl
353 Send Find_Next of (focus(Self))
354 End_Procedure
355
356End_Class
357
358{ OverrideProperty=psCaption InitialValue=C_$CaptionFindLT}
359{ OverrideProperty=psToolTip InitialValue=C_$ToolTipFindLT}
360{ OverrideProperty=psDescription InitialValue=C_$DescFindLT }
361{ OverrideProperty=psImage InitialValue="ActionPrevious.ico" }
362{ OverrideProperty=psShortcut InitialValue="F7" }
363
364Class cCJFindPreviousMenuItem is a cCJFindMenuItem
365
366 Procedure Construct_Object
367 Forward Send Construct_Object
368 Set psCaption to C_$CaptionFindLT
369 Set psToolTip to C_$ToolTipFindLT
370 Set psDescription to C_$DescFindLT
371 Set psImage to "ActionPrevious.ico"
372 Set psShortcut to "F7"
373 End_Procedure
374
375 Procedure OnExecute Variant vCommandBarControl
376 Send Find_Previous of (focus(Self))
377 End_Procedure
378
379End_Class
380
381{ OverrideProperty=psCaption InitialValue=C_$CaptionFindFirst}
382{ OverrideProperty=psToolTip InitialValue=C_$ToolTipFindFirst}
383{ OverrideProperty=psDescription InitialValue=C_$DescFindFirst }
384{ OverrideProperty=psImage InitialValue="ActionFirst.ico" }
385{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_Home }
386
387Class cCJFindFirstMenuItem is a cCJFindMenuItem
388
389 Procedure Construct_Object
390 Forward Send Construct_Object
391 Set psCaption to C_$CaptionFindFirst
392 Set psToolTip to C_$ToolTipFindFirst
393 Set psDescription to C_$DescFindFirst
394 Set psImage to "ActionFirst.ico"
395 Set psShortcut to C_$Key_Ctrl_Home
396 End_Procedure
397
398 Procedure OnExecute Variant vCommandBarControl
399 Send Find_First of (focus(Self))
400 End_Procedure
401
402End_Class
403
404{ OverrideProperty=psCaption InitialValue=C_$CaptionFindLast}
405{ OverrideProperty=psToolTip InitialValue=C_$ToolTipFindLast}
406{ OverrideProperty=psDescription InitialValue=C_$DescFindLast }
407{ OverrideProperty=psImage InitialValue="ActionLast.ico" }
408{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_End }
409
410Class cCJFindLastMenuItem is a cCJFindMenuItem
411
412 Procedure Construct_Object
413 Forward Send Construct_Object
414 Set psCaption to C_$CaptionFindLast
415 Set psToolTip to C_$ToolTipFindLast
416 Set psDescription to C_$DescFindLast
417 Set psImage to "ActionLast.ico"
418 Set psShortcut to C_$Key_Ctrl_End
419 End_Procedure
420
421 Procedure OnExecute Variant vCommandBarControl
422 Send Find_Last of (focus(Self))
423 End_Procedure
424
425End_Class
426
427
428{ OverrideProperty=psCaption InitialValue=C_$CaptionSuperFindGE}
429{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSuperFindGE}
430{ OverrideProperty=psDescription InitialValue=C_$DescSuperFindGE }
431{ OverrideProperty=psImage InitialValue="ActionSuperFindEq.ico" }
432{ OverrideProperty=psShortcut InitialValue="Shift+F9" }
433
434Class cCJSuperFindMenuItem is a cCJFindMenuItem
435
436 Procedure Construct_Object
437 Forward Send Construct_Object
438 Set psCaption to C_$CaptionSuperFindGE
439 Set psToolTip to C_$ToolTipSuperFindGE
440 Set psDescription to C_$DescSuperFindGE
441 Set psImage to "ActionSuperFindEq.ico"
442 Set psShortcut to "F9"
443
444 End_Procedure
445
446 Procedure OnExecute Variant vCommandBarControl
447 Send SuperFind of (focus(Self))
448 End_Procedure
449
450 Function IsEnabled Returns Boolean
451 Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex
452 Handle hoServer
453 Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo
454 Function_Return (bIsDEO and hoServer and bHasIndex)
455 End_Function
456
457End_Class
458
459
460{ OverrideProperty=psCaption InitialValue=C_$CaptionSuperFindGT}
461{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSuperFindGT}
462{ OverrideProperty=psDescription InitialValue=C_$DescSuperFindGT }
463{ OverrideProperty=psImage InitialValue="ActionSuperFindNext.ico" }
464{ OverrideProperty=psShortcut InitialValue="Shift+F8" }
465
466Class cCJSuperFindNextMenuItem is a cCJFindMenuItem
467
468 Procedure Construct_Object
469 Forward Send Construct_Object
470 Set psCaption to C_$CaptionSuperFindGT
471 Set psToolTip to C_$ToolTipSuperFindGT
472 Set psDescription to C_$DescSuperFindGT
473 Set psImage to "ActionSuperFindNext.ico"
474 Set psShortcut to "F8"
475 End_Procedure
476
477 Procedure OnExecute Variant vCommandBarControl
478 Send SuperFind_Next of (focus(Self))
479 End_Procedure
480
481End_Class
482
483{ OverrideProperty=psCaption InitialValue=C_$CaptionSuperFindLT}
484{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSuperFindLT}
485{ OverrideProperty=psDescription InitialValue=C_$DescSuperFindLT }
486{ OverrideProperty=psImage InitialValue="ActionSuperFindPrev.ico" }
487{ OverrideProperty=psShortcut InitialValue="Shift+F7" }
488
489Class cCJSuperFindPreviousMenuItem is a cCJFindMenuItem
490
491 Procedure Construct_Object
492 Forward Send Construct_Object
493 Set psCaption to C_$CaptionSuperFindLT
494 Set psToolTip to C_$ToolTipSuperFindLT
495 Set psDescription to C_$DescSuperFindLT
496 Set psImage to "ActionSuperFindPrev.ico"
497 Set psShortcut to "F7"
498 End_Procedure
499
500 Procedure OnExecute Variant vCommandBarControl
501 Send SuperFind_Previous of (focus(Self))
502 End_Procedure
503
504End_Class
505
506{ OverrideProperty=psCaption InitialValue=C_$CaptionNextArea}
507{ OverrideProperty=psToolTip InitialValue=C_$ToolTipNextArea}
508{ OverrideProperty=psDescription InitialValue=C_$DescNextArea }
509{ OverrideProperty=psImage InitialValue="ActionNextArea.ico" }
510{ OverrideProperty=psShortcut InitialValue="F6" }
511
512Class cCJNextAreaMenu is a cCJDeoNavigateMenuItem
513
514 Procedure Construct_Object
515 Forward Send Construct_Object
516 Set psCaption to C_$CaptionNextArea
517 Set psDescription to C_$DescNextArea
518 Set psToolTip to C_$ToolTipNextArea
519 Set psShortcut to "F6"
520 Set psImage to "ActionNextArea.ico"
521 End_Procedure
522
523 Procedure OnExecute Variant vCommandBarControl
524 Send Switch_Next_Area of (Focus(Self))
525 End_Procedure
526
527End_Class
528
529{ OverrideProperty=psCaption InitialValue=C_$CaptionPriorArea}
530{ OverrideProperty=psToolTip InitialValue=C_$ToolTipPriorArea}
531{ OverrideProperty=psDescription InitialValue=C_$DescPriorArea }
532{ OverrideProperty=psImage InitialValue="ActionPrevArea.ico" }
533{ OverrideProperty=psShortcut InitialValue=C_$Key_Shift_F6 }
534Class cCJPriorAreaMenu is a cCJDeoNavigateMenuItem
535
536 Procedure Construct_Object
537 Forward Send Construct_Object
538 Set psCaption to C_$CaptionPriorArea
539 Set psDescription to C_$DescPriorArea
540 Set psToolTip to C_$ToolTipPriorArea
541 Set psShortcut to C_$Key_Shift_F6
542 Set psImage to "ActionPrevArea.ico"
543 End_Procedure
544
545 Procedure OnExecute Variant vCommandBarControl
546 Send Switch_Prior_Area of (Focus(Self))
547 End_Procedure
548
549End_Class
550
551{ OverrideProperty=psCaption InitialValue=C_$CaptionNextView}
552{ OverrideProperty=psToolTip InitialValue=C_$ToolTipNextView}
553{ OverrideProperty=psDescription InitialValue=C_$DescNextView }
554{ OverrideProperty=psImage InitialValue="ActionNextView.ico" }
555{ OverrideProperty=psShortcut InitialValue=C_$Key_Alt_F6 }
556Class cCJNextViewMenu is a cCJDeoNavigateMenuItem
557
558 Procedure Construct_Object
559 Forward Send Construct_Object
560 Set psCaption to C_$CaptionNextView
561 Set psDescription to C_$DescNextView
562 Set psToolTip to C_$ToolTipNextView
563 Set psShortcut to C_$Key_Alt_F6
564 Set psImage to "ActionNextView.ico"
565 End_Procedure
566
567 Procedure OnExecute Variant vCommandBarControl
568 Handle hoCommandBars hoClientArea
569 Get CommandBarSystemObject to hoCommandBars
570 Get ClientAreaObject of hoCommandBars to hoClientArea
571 If hoClientArea Begin
572 Send Switch_Next_View of hoClientArea
573 End
574 End_Procedure
575
576End_Class
577
578{ OverrideProperty=psCaption InitialValue=C_$CaptionPriorView}
579{ OverrideProperty=psToolTip InitialValue=C_$ToolTipPriorView}
580{ OverrideProperty=psDescription InitialValue=C_$DescPriorView }
581{ OverrideProperty=psImage InitialValue="ActionPrevView.ico" }
582{ OverrideProperty=psShortcut InitialValue=C_$Key_Ctrl_F6 }
583Class cCJPriorViewMenu is a cCJDeoNavigateMenuItem
584
585 Procedure Construct_Object
586 Forward Send Construct_Object
587 Set psCaption to C_$CaptionPriorView
588 Set psDescription to C_$DescPriorView
589 Set psToolTip to C_$ToolTipPriorView
590 Set psShortcut to C_$Key_Ctrl_F6
591 Set psImage to "ActionPrevView.ico"
592 End_Procedure
593
594 Procedure OnExecute Variant vCommandBarControl
595 Handle hoCommandBars hoClientArea
596 Get CommandBarSystemObject to hoCommandBars
597 Get ClientAreaObject of hoCommandBars to hoClientArea
598 If hoClientArea Begin
599 Send Switch_Prior_View of hoClientArea
600 End
601 End_Procedure
602
603End_Class
604