home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / CITDemos / CITText < prev    next >
Encoding:
Text File  |  1993-03-30  |  599 b   |  32 lines
  1. USE CITScreen
  2. USE CITWindow
  3. USE CITText
  4.  
  5. DIM Error OF SHORT
  6.  
  7. DIM DemoWindow OF CITWindow
  8. DemoWindow.Position(50,20)
  9. DemoWindow.Size(530,150)
  10. DemoWindow.CloseGadget
  11. DemoWindow.DragBar
  12. DemoWindow.SizingGadget
  13. DemoWindow.DepthGadget
  14. DemoWindow.Activate
  15. ComalScreen.InsObject(DemoWindow,Error)
  16. IF Error THEN
  17.   STOP "Could'nt open the window"
  18. ENDIF
  19.  
  20. DIM Text OF CITText
  21. Text.Position(100,50)
  22. Text.Size(250,50,DOWN)
  23. DemoWindow.InsObject(Text,Error)
  24.  
  25. Text.PenColor(3)
  26. Text.Font("times.font",24)
  27. Text.Print(10,10,"Hello world!")
  28.  
  29. WHILE NOT DemoWindow.ClosePressed DO WAIT
  30.  
  31. ComalScreen.RemObject(DemoWindow)
  32.