home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / CITDemos / CITGadgets < prev    next >
Encoding:
Text File  |  1993-03-30  |  3.4 KB  |  153 lines
  1. // All the CIT gadgets in one hand
  2.  
  3. USE CITScreen
  4. USE CITWindow
  5. USE CITGadgets
  6.  
  7. DIM Error OF SHORT
  8. DIM TermCode OF SHORT
  9.  
  10. DIM MyWd OF CITWindow
  11. MyWd.Size(550,220)
  12. MyWd.Activate
  13. MyWd.CloseGadget
  14. ComalScreen.InsObject(MyWd,Error)
  15. IF Error THEN
  16.   STOP "Could'nt open the window"
  17. ENDIF
  18.  
  19. DIM AcceptGad OF ButtonGadget
  20. AcceptGad.Position(10,8)
  21. AcceptGad.Label("Accept",INSIDE)
  22. AcceptGad.EventHandler(Accept())
  23. MyWd.InsObject(AcceptGad,Error)
  24.  
  25. DIM CancelGad OF ButtonGadget
  26. CancelGad.Label("Cancel",INSIDE)
  27. CancelGad.Position(150,8)
  28. CancelGad.EventHandler(Cancel())
  29. MyWd.InsObject(CancelGad,Error)
  30.  
  31. DIM CheckGad OF CheckboxGadget
  32. CheckGad.Label("Select me",RIGHT)
  33. CheckGad.Position(10,28)
  34. CheckGad.EventHandler(Check())
  35. MyWd.InsObject(CheckGad,Error)
  36.  
  37. DIM StringGad OF StringGadget
  38. StringGad.Label("Type in a text",LEFT)
  39. StringGad.Position(150,48)
  40. MyWd.InsObject(StringGad,Error)
  41.  
  42. DIM NumberGad OF IntegerGadget
  43. NumberGad.Label("Type in a number",LEFT)
  44. NumberGad.Position(150,68)
  45. NumberGad.Replace
  46. NumberGad.Number(25)
  47. NumberGad.EventHandler(NumGadHandler())
  48. MyWd.InsObject(NumberGad,Error)
  49.  
  50. DIM SliderGad OF SliderGadget
  51. SliderGad.Position(150,88)
  52. SliderGad.Limits(0,100)
  53. SliderGad.Label("Value:###%",LEFT)
  54. MyWd.InsObject(SliderGad,Error)
  55.  
  56. DIM Scroller OF ScrollerGadget
  57. Scroller.Orientation(HORIZONTAL)
  58. Scroller.Position(40,108)
  59. Scroller.Size(400,10)
  60. Scroller.Arrows(16)
  61. Scroller.Top(10)
  62. Scroller.Total(30)
  63. Scroller.Visible(5)
  64. MyWd.InsObject(Scroller,Error)
  65.  
  66. DIM CycleGad OF CycleGadget
  67. DIM CycleValg$(4) OF 20
  68. READ CycleValg$()
  69. CycleGad.Position(330,8)
  70. CycleGad.Size(190,14)
  71. CycleGad.Label("Press here",LEFT)
  72. CycleGad.Choices(CycleValg$())
  73. MyWd.InsObject(CycleGad,Error)
  74.  
  75. DIM Text OF TextGadget
  76. Text.Position(120,133)
  77. Text.Label("SELECT!",INSIDE+HIGHLIGHT)
  78. MyWd.InsObject(Text,Error)
  79.  
  80. DIM RadioButtons OF RadioButtonsGadget
  81. DIM RadioValg$(4) OF 20
  82. RESTORE
  83. READ RadioValg$()
  84. RadioButtons.Position(150,148)
  85. RadioButtons.Choices(RadioValg$(),LEFT)
  86. RadioButtons.Spacing(3)
  87. MyWd.InsObject(RadioButtons,Error)
  88.  
  89. DIM ListView OF ListViewGadget
  90. DIM ListViewTexts$(4) OF 20
  91. ListViewTexts$(1):="Choice1"
  92. ListViewTexts$(2):="Choice2"
  93. ListViewTexts$(3):="Choice3"
  94. ListViewTexts$(4):="Choice4"
  95. ListView.Position(200,128)
  96. ListView.Size(100,40)
  97. ListView.ChoiceArray(ListViewTexts$())
  98. ListView.Selected(0)
  99. MyWd.InsObject(ListView,Error)
  100.  
  101. DIM Palette OF PaletteGadget
  102. Palette.Position(350,128)
  103. Palette.Color(2)
  104. MyWd.InsObject(Palette,Error)
  105.  
  106. DATA "Choice number 1"
  107. DATA "Choice number 2"
  108. DATA "Choice number 3"
  109. DATA "Choice number 4"
  110.  
  111. IF Error THEN
  112.   PRINT "One or more gadgets could not be created"
  113. ELSE
  114.   WHILE TermCode=0 AND NOT MyWd.ClosePressed DO WAIT
  115.  
  116.   ComalScreen.RemObject(MyWd)
  117.  
  118.   PRINT "Check-gadget: ",CheckGad.Value
  119.   PRINT "String-gadget: ",StringGad.Value$
  120.   PRINT "Number-gadget: ",NumberGad.Value
  121.   PRINT "Slider-gadget: ",SliderGad.Value
  122.   PRINT "Scroller-gadget: ",Scroller.Value
  123.   PRINT "Cycle-gadget: ",CycleGad.Value
  124.   PRINT "Radio-knapper: ",RadioButtons.Value
  125.   PRINT "ListView-gadget: ",ListView.Value
  126.   PRINT "Palette: ",Palette.Value
  127. ENDIF
  128.  
  129. // ****** slut på hoveprogram *********
  130.  
  131.  
  132. PROC Accept(ID OF USHORT)
  133.   TermCode:=1
  134.   PRINT "You pressed 'Accept'"
  135. ENDPROC Accept
  136.  
  137. PROC Cancel(ID OF USHORT)
  138.   TermCode:=2
  139.   PRINT "You pressed 'Cancel'"
  140. ENDPROC Cancel
  141.  
  142. PROC Check(ID OF USHORT)
  143.   IF CheckGad.Value THEN
  144.     CancelGad.Disable
  145.   ELSE
  146.     CancelGad.Enable
  147.   ENDIF
  148. ENDPROC Check
  149.  
  150. PROC NumGadHandler(ID OF USHORT)
  151.   SliderGad.Level(NumberGad.Value)
  152. ENDPROC NumGadHandler
  153.