home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / CITDemos / CITMenu < prev    next >
Encoding:
Text File  |  1993-03-30  |  1.7 KB  |  76 lines
  1. USE CITWindow
  2. USE CITMenus
  3.  
  4. DIM Terminate OF SHORT
  5.  
  6. Info
  7.  
  8. DIM Menu OF CITMenu
  9. Menu.Title("Project",0,ProjectId)
  10. Menu.Item("Open","O",0,0,PrcOpen(),OpenId)
  11. Menu.Item("Save","",0,0,PrcSave(),SaveId)
  12. Menu.Bar
  13. Menu.Item("Print Mode","",0,0,PrcMode(),ModeId)
  14. Menu.SubItem("Draft","",CHECKIT+CHECKED,%10,PrcMode(),DraftId)
  15. Menu.SubItem("NLQ","",CHECKIT,%01,PrcMode(),NLQId)
  16. Menu.Item("Print","P",0,0,PrcPrint(),PrintId)
  17. Menu.Bar
  18. Menu.Item("Quit","Q",0,0,PrcQuit(),QuitId)
  19. Menu.Title("Edit",0,EditId)
  20. Menu.Item("Cut","X",0,0,PrcCut(),CutId)
  21. Menu.Item("Copy","C",0,0,PrcCopy(),CopyId)
  22. Menu.Item("Paste","V",0,0,PrcPaste(),PasteId)
  23. Menu.Bar
  24. Menu.Item("Undo","Z",0,0,PrcUndo(),UndoId)
  25. ComalWindow.InsObject(Menu,Error)
  26. IF Error THEN
  27.   PRINT "Could not create menu"
  28. ELSE
  29.   WHILE NOT Terminate DO WAIT
  30.   ComalWindow.RemObject(Menu)
  31. ENDIF
  32.  
  33. // ********** Event procedures *************
  34.  
  35. PROC PrcQuit(Num OF USHORT)
  36.   Terminate:=TRUE
  37. ENDPROC PrcQuit
  38.  
  39. PROC PrcOpen(Num OF USHORT)
  40. ENDPROC PrcOpen
  41.  
  42. PROC PrcSave(Num OF USHORT)
  43. ENDPROC PrcSave
  44.  
  45. PROC PrcMode(Num OF USHORT)
  46.   CASE Num OF
  47.   WHEN DraftId
  48.     PRINT AT 15,50: "Draft print mode"
  49.   WHEN NLQId
  50.     PRINT AT 15,50: "NLQ print mode  "
  51.   ENDCASE
  52. ENDPROC PrcMode
  53.  
  54. PROC PrcPrint(Num OF USHORT)
  55. ENDPROC PrcPrint
  56.  
  57. PROC PrcCut(Num OF USHORT)
  58. ENDPROC PrcCut
  59.  
  60. PROC PrcCopy(Num OF USHORT)
  61. ENDPROC PrcCopy
  62.  
  63. PROC PrcPaste(Num OF USHORT)
  64. ENDPROC PrcPaste
  65.  
  66. PROC PrcUndo(Num OF USHORT)
  67. ENDPROC PrcUndo
  68.  
  69. // *********** Information ************
  70.  
  71. PROC Info
  72.   PRINT AT 5,10: "In fact this program does'nt do anything except waiting";
  73.   PRINT AT 6,10: "for you to select the 'Print Mode' and 'Quit' menu."
  74.   PRINT AT 8,10: "Try to select the Print Mode menu."
  75. ENDPROC Info
  76.