// Window & Text example for AmigaCOMAL-v3.4

USE CITScreen
USE CITWindow
USE CITText
PAGE
DIM Error OF SHORT

DIM DemoWindow OF CITWindow
DemoWindow.Position(50,20)
DemoWindow.Size(530,150)
DemoWindow.CloseGadget
DemoWindow.DragBar
DemoWindow.SizingGadget
DemoWindow.DepthGadget
DemoWindow.Activate
ComalScreen.InsObject(DemoWindow,Error)

IF Error THEN
  STOP "Couldn't open the window!"
ENDIF

DIM Text OF CITText
Text.Position(10,10)
Text.Size(490,50,DOWN)
DemoWindow.InsObject(Text,Error)

first$:="I AM THE SHADOW OF AmigaCOMAL v3.4"
a$:="(c) by www.lived.ch, October 10th 2025"
b$:="**** Long Live AmigaCOMAL ****"

Text.PenColor(1)
Text.Transparent(TRUE)
Text.Font("times.font",0,24)
Text.Print(12,12,first$)

Text.PenColor(3)
Text.Transparent(TRUE)
Text.Font("times.font",1,24)
Text.Print(10,10,first$)

Text.PenColor(8)
Text.Transparent(TRUE)
Text.Font("garnet.font",1,16)
Text.Print(80,60,a$)

Text.PenColor(7)
Text.Transparent(TRUE)
Text.Font("diamond.font",1,20)
Text.Print(55,90,b$)

WHILE NOT DemoWindow.ClosePressed DO WAIT

ComalScreen.RemObject(DemoWindow)