#===========================================================================#
# CDTEST.LED - 05/12/95                                                     #
#===========================================================================#

#---------------------------------------------------------------------------#
# Icones da Barra de Primitivas.                                            #
#---------------------------------------------------------------------------#
imgLine = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "0 0 0" 
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
)

imgClip = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "0 0 0" 
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
 0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,
 0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,
 0,0,0,1,1,0,0,0,0,1,0,1,1,0,0,0,0,0,
 0,0,0,1,1,0,0,0,1,0,0,1,1,0,0,0,0,0,
 0,0,0,1,1,0,0,1,0,0,0,1,1,0,0,0,0,0,
 0,0,0,1,1,0,1,0,0,0,0,1,1,0,0,0,0,0,
 0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
)

imgImage = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "0 0 0", 
 2 = "255 255 255",
 3 = "153 153 153"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
 0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,
 0,0,0,0,1,1,2,2,2,2,2,1,1,0,0,0,0,0,
 0,0,0,0,1,1,2,2,2,2,2,1,1,0,0,0,0,0,
 0,0,0,1,1,2,1,1,2,1,1,2,1,1,0,0,0,0,
 0,0,0,1,2,2,1,2,2,2,1,2,2,1,0,0,0,0,
 0,0,0,1,2,2,2,2,1,2,2,2,2,1,0,0,0,0,
 0,0,0,1,1,2,2,2,1,3,2,2,1,1,0,0,0,0,
 0,0,0,0,1,2,2,2,2,1,2,2,1,3,0,0,0,0,
 0,0,0,0,1,2,2,2,1,1,2,2,1,3,0,0,0,0,
 0,0,0,0,1,2,2,2,2,2,2,2,1,3,0,0,0,0,
 0,0,0,0,0,1,2,1,3,1,2,1,3,0,0,0,0,0,
 0,0,0,0,0,1,2,2,1,3,2,1,3,0,0,0,0,0,
 0,0,0,0,0,0,1,2,2,2,1,3,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,1,1,3,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,2,1,3,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,2,1,3,0,0,0,0,0,0,0 
)

imgImageRGB = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "255 0 0", 
 2 = "0 255 0",
 3 = "0 0 255"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
)

imgBox = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "0 0 0", 
 2 = "255 255 255"
]
(
 18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgRect = IMAGE
[ 
 0 = "BGCOLOR",
 1 = "0 0 0", 
 2 = "255 255 255"
]
(
 18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
 0,0,1,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
 0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
 0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
 0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
 0,0,1,1,1,1,1,1,2,1,1,1,1,0,0,2,0,0,
 0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,
 0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,
 0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgSector = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0" ,
 2 = "255 255 255"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0,0,
 0,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0,
 0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,0,0,
 0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
)

imgChord = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0" ,
 2 = "255 255 255"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,1,2,2,2,0,0,0,0,0,0,0,
 0,0,0,0,1,1,1,1,1,2,2,2,2,0,0,0,0,0,
 0,0,0,1,1,1,1,1,1,1,2,2,2,2,0,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
)

imgArc = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0",
 2 = "255 255 255"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,2,0,0,0,2,0,0,0,0,0,0,0,0,0,0,
 0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
 0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
 0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
 0,0,0,2,0,0,0,2,0,0,1,2,2,0,0,0,0,0,
 0,0,0,0,2,2,2,0,1,1,0,0,0,2,2,0,0,0,
 0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,
 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
 0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,
 0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,0,0,
 0,0,0,0,0,0,0,0,0,0,1,1,2,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgText = IMAGE
[
 0 = "BGCOLOR",
 1 = "255 255 255",
 2 = "0 0 0"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,
 0,0,0,2,2,0,0,2,2,0,0,1,1,0,0,0,0,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,0,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,0,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,1,1,1,0,0,
 0,0,2,2,2,2,2,2,2,2,0,0,1,0,0,0,1,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
 0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
 0,0,2,2,0,0,0,0,2,2,0,1,1,1,1,1,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgPoly = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,
 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,
 0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,
 0,0,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,
 0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,
 0,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,0,
 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
 0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
 0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,0,0,
 0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,
 0,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,
 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgMark = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,
 0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,
 0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,
 0,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,
 0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
 0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,
 0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,
 0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,
 0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

imgPixel = IMAGE
[
 0 = "BGCOLOR",
 1 = "0 0 0",
 2 = "255 255 255"
]
(18, 18, 
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,2,2,0,0,0,0,0,0,0,2,2,0,0,0,0,
 0,0,0,2,2,0,0,0,0,0,0,0,2,2,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,2,2,0,0,0,1,1,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)

#---------------------------------------------------------------------------#
# Descricao dos Menus.                                                      #
#---------------------------------------------------------------------------#
mnOpen = MENU
(
 ITEM("MF...",  cmdPlayMF),
 itPlayCGM = ITEM[ACTIVE=NO]("CGM...", cmdPlayCGM),
 itPlayEMF = ITEM[ACTIVE=NO]("EMF...", cmdPlayEMF),
 itPlayWMF = ITEM[ACTIVE=NO]("WMF...", cmdPlayWMF)
)

mnSave = MENU
(
 ITEM("MF...",  cmdMF),
 ITEM("DEBUG...",  cmdDebug),
 itPDF = ITEM[ACTIVE=NO]("PDF...",  cmdPDF),
 itPS = ITEM[ACTIVE=NO]("PS...",  cmdPS),
 itEPS = ITEM[ACTIVE=NO]("EPS...",  cmdEPS),
 itSVG = ITEM[ACTIVE=NO]("SVG...",  cmdSVG),
 itCGMt = ITEM[ACTIVE=NO]("CGMt...", cmdCGMt),
 itCGMb = ITEM[ACTIVE=NO]("CGMb...", cmdCGMb),
 itDGN = ITEM[ACTIVE=NO]("DGN...", cmdDGN),
 itDXF = ITEM[ACTIVE=NO]("DXF...", cmdDXF),
 itEMF = ITEM[ACTIVE=NO]("EMF...", cmdEMF),
 itWMF = ITEM[ACTIVE=NO]("WMF...", cmdWMF)
)

mnFile = MENU
(
 SUBMENU[KEY=K_O]("Open", mnOpen),
 SEPARATOR(),
 SUBMENU[KEY=K_S]("Save", mnSave),
 SEPARATOR(),
 itPrint = ITEM[KEY=K_P]("Print...", cmdPrint),
 SEPARATOR(),
 ITEM[KEY=K_x]("Exit", cmdFileExit)
)

mnEdit = MENU
(
 itEditUndo = ITEM("Undo", cmdEditUndo),
 SEPARATOR(),
 itClipBoard = ITEM[ACTIVE=NO]("Copy as EMF/WMF", cmdClipBoard),
 itClipBoardBitmap = ITEM[ACTIVE=NO]("Copy as Bitmap", cmdClipBoardBitmap),
 itClipBoardMetafile = ITEM[ACTIVE=NO]("Copy as CD Metafile", cmdClipBoardMetafile),
 itClipBoardPaste = ITEM[ACTIVE=NO]("Paste", cmdClipBoardPaste),
 SEPARATOR(),
 ITEM("Clear", cmdEditClear),
 SEPARATOR(),
 ITEM("Options...", cmdOptions)
)

mnPrimitives = MENU
(
 ITEM("Pixel...", cmdPixel),
 ITEM("Mark...", cmdMark),
 ITEM("Line...", cmdLine),
 ITEM("Polygon...", cmdPoly),
 ITEM("Rect...", cmdRect),
 ITEM("Box...", cmdBox),
 ITEM("Arc...", cmdArc),
 ITEM("Sector...", cmdSector),
 ITEM("Chord...", cmdChord),
 ITEM("Text...", cmdText),
 SEPARATOR(),
 ITEM("Server Image...", cmdImage),
 ITEM("RGB Image...", cmdImageRGB)
)    

mnDraw = MENU[ISMENU=YES]
(
 SUBMENU[KEY=K_P]("Primitives", mnPrimitives),
 SEPARATOR(),
 ITEM("Clipping...", cmdClip),
 ITEM("Attributes...", cmdAttributes),
 SEPARATOR(),
 itWDCanvas = ITEM("Show WD Canvas", cmdWDCanvas),
 itPICCanvas = ITEM("Show Picture Canvas", cmdPICCanvas)
)    

mnHelp = MENU
(
 ITEM("About...", cmdHelpAbout)
)

mnMain = MENU
(
 SUBMENU[KEY=K_mF]("File", mnFile),
 SUBMENU[KEY=K_mE]("Edit", mnEdit),
 SUBMENU[KEY=K_mD]("Draw", mnDraw),
 SUBMENU[KEY=K_mH]("Help", mnHelp)
)

#===========================================================================#
# Barras de Ferramentas.                                                    #
#===========================================================================#

#---------------------------------------------------------------------------#
# Barra de status.                                                          #
#---------------------------------------------------------------------------#
lbStatusLine = LABEL[EXPAND=HORIZONTAL]("Esta eh a barra de status do CDTest.")

#---------------------------------------------------------------------------#
# Barra de Primitivas.                                                      #
#---------------------------------------------------------------------------#

btLine       = BUTTON[IMAGE=imgLine, TIP="Line"]("",cmdLine)
btBox        = BUTTON[IMAGE=imgBox, TIP="Box"]("",cmdBox)
btRect       = BUTTON[IMAGE=imgRect, TIP="Rect"]("",cmdRect)
btArc        = BUTTON[IMAGE=imgArc, TIP="Arc"]("", cmdArc)
btSector     = BUTTON[IMAGE=imgSector, TIP="Sector"]("", cmdSector)
btChord      = BUTTON[IMAGE=imgChord, TIP="Chord"]("", cmdChord)
btPixel      = BUTTON[IMAGE=imgPixel, TIP="Pixel"]("", cmdPixel)
btMark       = BUTTON[IMAGE=imgMark, TIP="Mark"]("", cmdMark)
btText       = BUTTON[IMAGE=imgText, TIP="Text"]("", cmdText)
btPoly       = BUTTON[IMAGE=imgPoly, TIP="Polygon"]("", cmdPoly)

btImageRGB   = BUTTON[IMAGE=imgImageRGB, TIP="RGB Image"]("", cmdImageRGB)
btImage      = BUTTON[IMAGE=imgImage, TIP="Server Image"]("", cmdImage)
btClip       = BUTTON[IMAGE=imgClip, TIP="Clipping Area"]("", cmdClip)

btCurPrim    = BUTTON[IMAGE=imgLine, TIP="Show primitive dialog"]("", cmdShowDialog)

lbMousePos = LABEL[SIZE=90]("(    ,    )")

PrimBar = VBOX[GAP=2]
(
 btCurPrim,
 FILL[SIZE=20](),
 btPixel,
 btMark,
 btLine,
 btPoly,
 btRect,
 btBox,
 btArc,
 btSector,
 btChord,
 btText,
 FILL[SIZE=5](),
 btImage,
 btImageRGB,
 FILL[SIZE=5](),
 btClip,
 FILL[SIZE=30]()
)

#---------------------------------------------------------------------------#
# Barra de Cores.                                                           #
#---------------------------------------------------------------------------#
cnvColorBar = CANVAS
[
 BUTTON_CB = cmdColorBarButtonCB,
 RESIZE_CB = cmdColorBarResizeCB,
 SIZE = 220x12,
 BORDER = NO,
 EXPAND = NO
]
(cmdColorBarRepaint)

#===========================================================================#
# Dialogo Principal                                                         #
#===========================================================================#

#---------------------------------------------------------------------------#
# Canvas para visualizacao das primitivas.                                  #
#---------------------------------------------------------------------------#
cnvMain = CANVAS
[
 MOTION_CB=cmdMotionCB,
 BUTTON_CB=cmdButtonCB,
 RESIZE_CB=cmdResizeCB
]
(cmdRepaint)

#---------------------------------------------------------------------------#
# Area de trabalho.                                                         #
#---------------------------------------------------------------------------#
DeskTop = VBOX
(
 FILL[SIZE=5](),
 HBOX
 (
  FILL[SIZE=5](),
  PrimBar,
  FILL[SIZE=2](),
  VBOX
  (
   FILL[SIZE=2](),
   lbMousePos,
   FILL[SIZE=5](),
   cnvMain,
   FILL[SIZE=2](),
   cnvColorBar,
   FILL[SIZE=5](),
   lbStatusLine
  ),
  FILL[SIZE=5]()
 ),
 FILL[SIZE=5]()
)

#---------------------------------------------------------------------------#
# Dialogo principal.                                                        #
#---------------------------------------------------------------------------#
dlgMain = DIALOG
[
 TITLE = "CD Test 5.3",
 MENU = mnMain,
 ICON = "CdTestIcon",
 K_cZ = cmdEditUndo,
 GETFOCUS_CB = cmdGetFocusCB,
 KILLFOCUS_CB = cmdKillFocusCB,
 CLOSE_CB = cmdFileExit
]
(DeskTop)

#===========================================================================#
# Especificacao dos dialogos auxiliares.                                    #
#===========================================================================#

#---------------------------------------------------------------------------#
# Dialogo com o canvas para exibiccao de primitivas WD.                     #
#---------------------------------------------------------------------------#
cnvWDCanvas = CANVAS[BORDER=NO](cmdWDRepaint)
dlgWDCanvas = DIALOG
[
 TITLE = "WD Canvas",
 CLISE_CB =	cmdCloseWD,
 SIZE = 200x200,
 PARENTDIALOG="dlgMain",
 GAP=5x5
]
(cnvWDCanvas)

cnvPICCanvas = CANVAS[BORDER=NO](cmdPICRepaint)
dlgPICCanvas = DIALOG
[
 TITLE = "PIC Canvas",
 CLISE_CB =	cmdClosePIC,
 SIZE = 200x200,
 PARENTDIALOG="dlgMain",
 GAP=5x5
]
(cnvPICCanvas)

#---------------------------------------------------------------------------#
# Dialogo Options                                                           #
#---------------------------------------------------------------------------#
btOptionsHide = BUTTON[SIZE=30]("Hide", cmdOptionsHide)

tgSimulate = TOGGLE[VALUE=OFF, SIZE=55]("Simulate", cmdSimulate)
tgStretchPlay = TOGGLE[VALUE=OFF, SIZE=70]("Stretch Play", cmdStretchPlay)

tgNoBuffering = TOGGLE[VALUE=ON]("No buffering", cmdNoBuffering)
tgImageBuffer = TOGGLE("CD_DBUFFER", cmdImageBuffer)
tgRGBBuffer   = TOGGLE("CD_DBUFFERRGB", cmdRGBBuffer)

rdBuffering = RADIO
(
 VBOX
 (
  tgNoBuffering,
  tgImageBuffer,
  tgRGBBuffer
 )
)

OptionsDesktop = VBOX
(
  VBOX[GAP=2]
  (
   FRAME[TITLE="Buffering:", MARGIN=5x5, SIZE=80]
   (
    rdBuffering
   ),
   FILL[SIZE=10](),
   tgSimulate,
   tgStretchPlay,
   FILL[SIZE=10](),
   btOptionsHide,
   FILL[SIZE=2]()
  )
)

dlgOptions = DIALOG
[
 TITLE="Options",
 PARENTDIALOG="dlgMain",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 MARGIN=5x2
]
(OptionsDesktop)

#---------------------------------------------------------------------------#
# Dialogo Attributes                                                        #
#---------------------------------------------------------------------------#
lstTextAlignment = LIST
[
 1="CD_NORTH",
 2="CD_SOUTH",
 3="CD_EAST",
 4="CD_WEST",
 5="CD_NORTH_EAST",
 6="CD_NORTH_WEST",
 7="CD_SOUTH_EAST",
 8="CD_SOUTH_WEST",
 9="CD_CENTER",
 10="CD_BASE_LEFT",
 11="CD_BASE_CENTER",
 12="CD_BASE_RIGHT",
 DROPDOWN=YES,
 VALUE=10,
 SIZE=89
]
(cmdTextAlignment)

txtMarkSize = TEXT[NC=4, SIZE=20x12, VALUE="10"](cmdInteger)

lstMarkType = LIST
[
 1="CD_PLUS",
 2="CD_STAR",
 3="CD_CIRCLE",
 4="CD_X",
 5="CD_BOX",
 6="CD_DIAMOND",
 7="CD_HOLLOW_CIRCLE",
 8="CD_HOLLOW_BOX",
 9="CD_HOLLOW_DIAMOND",
 DROPDOWN=YES,
 VALUE=2,
 SIZE=80
](cmdMarkType)

lstWriteMode = LIST
[
 1="CD_REPLACE",
 2="CD_XOR",
 3="CD_NOT_XOR",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdWriteMode)

lstFontTypeFace = LIST
[
 1="CD_SYSTEM",
 2="CD_COURIER",
 3="CD_TIMES_ROMAN",
 4="CD_HELVETICA",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdFontTypeFace)

lstLineCap = LIST
[
 1="CD_CAPFLAT",
 2="CD_CAPSQUARE",
 3="CD_CAPROUND",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdLineCap)

lstLineJoin = LIST
[
 1="CD_BEVEL",
 2="CD_MITER",
 3="CD_ROUND",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdLineJoin)

lstFillMode = LIST
[
 1="CD_EVENODD",
 2="CD_WINDING",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdFillMode)

lstFontStyle = LIST
[
 1="CD_PLAIN",
 2="CD_BOLD",
 3="CD_ITALIC",
 4="CD_BOLD_ITALIC",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdFontStyle)

txtLineWidth = TEXT[SIZE=30, NC=3, VALUE="1"](cmdInteger)
txtFontSize  = TEXT[SIZE=30, NC=3, VALUE="12"](cmdInteger)
txtTextOrientation  = TEXT[SIZE=30, NC=3, VALUE="0"](cmdInteger)

lstLineStyle = LIST
[
 1="CD_CONTINUOUS",
 2="CD_DASHED",
 3="CD_DOTTED",
 4="CD_DASH_DOT",
 5="CD_DASH_DOT_DOT",
 6="CD_CUSTOM",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80
]
(cmdLineStyle)

tgSolid   = TOGGLE[VALUE=ON] ("CD_SOLID",   cmdSolid)
tgHatch   = TOGGLE("CD_HATCH",   cmdHatch)
tgStipple = TOGGLE("CD_STIPPLE", cmdStipple)
tgPattern = TOGGLE("CD_PATTERN", cmdPattern)

lstOpacity = LIST
[
 1="CD_OPAQUE",
 2="CD_TRANSPARENT",
 VALUE=2,
 DROPDOWN=YES,
 SIZE=80,
 ACTIVE=YES
]
(cmdOpacity)

lstHatchStyle = LIST
[
 1="CD_HORIZONTAL",
 2="CD_VERTICAL",
 3="CD_FDIAGONAL",
 4="CD_BDIAGONAL",
 5="CD_CROSS",
 6="CD_DIAGCROSS",
 VALUE=1,
 DROPDOWN=YES,
 SIZE=80,
 ACTIVE=YES
]
(cmdHatchStyle)

btAttributesHide = BUTTON[SIZE=30]("Hide", cmdAttributesHide)

rdInteriorStyle = RADIO
(
 VBOX
 (
  tgSolid,
  tgHatch,
  tgStipple,
  tgPattern
 )
)

AttributesDesktop = VBOX
(
  HBOX
  (
    VBOX[GAP=2]
    (
      LABEL("Write Mode:"),
      lstWriteMode,
      FILL[SIZE=4](),
      FRAME[TITLE="Fill Attributes", MARGIN=5x5]
      (
        VBOX
        (
          LABEL("Back Opacity:"),
          lstOpacity,
          FILL[SIZE=2](),
          LABEL("Fill Mode:"),
          lstFillMode,
          FILL[SIZE=2](),
          FRAME[TITLE="Interior Style:", MARGIN=5x5, SIZE=80]
          (
            rdInteriorStyle
          ),
          FILL[SIZE=2](),
          LABEL("Hatch Style:"),
          lstHatchStyle
        )
      ),
      FILL[SIZE=10](),
      FRAME[TITLE="Mark Attributes", MARGIN=5x5]
      (
        VBOX
        (
          LABEL("Mark Type:"),
          lstMarkType,
          FILL[SIZE=2](),
          LABEL("Mark Size:"),
          txtMarkSize
        )
      ),
      FILL[SIZE=10](),
      btAttributesHide
    ),
    VBOX[GAP=2]
    (
      FRAME[TITLE="Text Attributes", MARGIN=5x5]
      (
        VBOX
        (
          LABEL("Font Typeface:"),
          lstFontTypeFace,
          FILL[SIZE=2](),
          LABEL("Font Style:"),
          lstFontStyle,
          FILL[SIZE=2](),
          LABEL("Font Size:"),
          txtFontSize,
          FILL[SIZE=2](),
          LABEL[SIZE=x9]("Text Alignment:"),
          lstTextAlignment,
          FILL[SIZE=2](),
          LABEL[SIZE=x9]("Text Orientation:"),
          txtTextOrientation
        )
      ),
      FILL[SIZE=10](),
      FRAME[TITLE="Line Attributes", MARGIN=5x5]
      (
        VBOX
        (
          LABEL("Line Style:"),
          lstLineStyle,
          FILL[SIZE=2](),
          LABEL("Line Width:"),
          txtLineWidth,
          FILL[SIZE=2](),
          LABEL("Line Cap:"),
          lstLineCap,
          FILL[SIZE=2](),
          LABEL("Line Join:"),
          lstLineJoin
        )
      )
    )
  )
)

dlgAttributes = DIALOG
[
 TITLE="Attributes",
 PARENTDIALOG="dlgMain",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdAttributesHide,
 MARGIN=5x2
]
(AttributesDesktop)

#---------------------------------------------------------------------------#
# Dialogo Line ou Box ou Rect.                                              #
#---------------------------------------------------------------------------#
txtLBX1 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBX2 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBY1 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBY2 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)

btLBDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btLBHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

LBData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=15x9]("X1:"),
  txtLBX1,
  FILL[SIZE=5](),
  LABEL[SIZE=15x9]("Y1:"),
  txtLBY1
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=15x9]("X2:"),
  txtLBX2,
  FILL[SIZE=5](),
  LABEL[SIZE=15x9]("Y2:"),
  txtLBY2
 )
)

LBDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  LBData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btLBDraw,
  FILL[SIZE=5](),
  btLBHide,
  FILL()
 )
)

dlgLB = DIALOG
[
 TITLE="Line Parameters",
 PARENTDIALOG="dlgMain",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdMsgHide,
 MARGIN=5x5
]
(LBDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Arc ou Sector.                                                    #
#---------------------------------------------------------------------------#
txtASXC     = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASYC     = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASW      = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASH      = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASAngle1 = TEXT[NC=10, SIZE=30x12, VALUE="0"](cmdReal)
txtASAngle2 = TEXT[NC=10, SIZE=30x12, VALUE="360"](cmdReal)

btASDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btASHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

ASData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("Xc:"),
  txtASXC,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Yc:"),
  txtASYC
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("W:"),
  txtASW,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("H:"),
  txtASH
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("Angle1:"),
  txtASAngle1,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Angle2:"),
  txtASAngle2
 )
)

ASDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  ASData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btASDraw,
  FILL[SIZE=5](),
  btASHide,
  FILL()
 )
)

dlgAS = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Arc Parameters",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdMsgHide,
 MARGIN=5x5
]
(ASDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Pixel.                                                            #
#---------------------------------------------------------------------------#
txtPixelX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtPixelY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)

btPixelDraw   = BUTTON[SIZE=30]("Draw", cmdDraw)
btPixelHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

PixelData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=10x9]("X:"),
  txtPixelX,
  FILL[SIZE=5](),
  LABEL[SIZE=10x9]("Y:"),
  txtPixelY
 )
)

PixelDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  PixelData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btPixelDraw,
  FILL[SIZE=5](),
  btPixelHide,
  FILL()
 )
)

dlgPixel = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Pixel Parameters",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdMsgHide,
 MARGIN=5x5
]
(PixelDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Mark.                                                             #
#---------------------------------------------------------------------------#
txtMarkX    = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtMarkY    = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)

btMarkDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btMarkHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

MarkData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  FILL(),
  LABEL[SIZE=10x9]("X:"),
  txtMarkX,
  FILL[SIZE=5](),
  LABEL[SIZE=10x9]("Y:"),
  txtMarkY,
  FILL()
 )
)

MarkDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  MarkData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btMarkDraw,
  FILL[SIZE=5](),
  btMarkHide,
  FILL()
 )
)

dlgMark = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Mark Parameters",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdMsgHide,
 MARGIN=5x5
]
(MarkDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Text.                                                             #
#---------------------------------------------------------------------------#
txtTextX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtTextY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtTextS = TEXT[NC=100, SIZE=89x12, VALUE="Text"](cmdString)
                                
btTextDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btTextHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

TextData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=10x9]("X:"),
  txtTextX,
  FILL[SIZE=5](),
  LABEL[SIZE=10x9]("Y:"),
  txtTextY
 ),
 HBOX
 (
  VBOX
  (
   LABEL[SIZE=25x9]("Text:"),
   txtTextS
  )
 )
)

TextDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  TextData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btTextDraw,
  FILL[SIZE=5](),
  btTextHide,
  FILL()
 )
)

dlgText = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Text Parameters", 
 MAXBOX=NO,
 MINBOX=NO,
 CLOSE_CB=cmdMsgHide,
 RESIZE=NO,
 MARGIN=5x5
]
(TextDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Poly.                                                             #
#---------------------------------------------------------------------------#
tgOpenLines   = TOGGLE[VALUE=ON]("CD_OPEN_LINES", cmdOpenLines)
tgClosedLines = TOGGLE("CD_CLOSED_LINES", cmdClosedLines)
tgFilled      = TOGGLE("CD_FILL", cmdFill)
tgClip        = TOGGLE("CD_CLIP", cmdPolyClip)
tgBezier      = TOGGLE("CD_BEZIER", cmdPolyBezier)

btPolyHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

rdMode = RADIO
(
 VBOX
 (
  tgOpenLines,
  tgClosedLines,
  tgFilled,
  tgClip,
  tgBezier
 )
)

PolyDesktop = VBOX
(
 FILL[SIZE=5](),
 HBOX
 (
  FILL(),
  FRAME[TITLE="Polygon Mode:"]
  (
   HBOX
   (
    FILL[SIZE=5](),
    rdMode
   )
  ),
  FILL()
 ),
 FILL[SIZE=10](),
 HBOX
 (
  FILL(),
  btPolyHide,
  FILL()
 ),
 FILL[SIZE=5]()
)

dlgPoly = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Polygon Parameters",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO,
 CLOSE_CB=cmdMsgHide
]
(PolyDesktop)

#---------------------------------------------------------------------------#
# Dialogo Clip.                                                             #
#---------------------------------------------------------------------------#
txtClipXmin = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipXmax = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipYmin = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipYmax = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)

btClipOff    = BUTTON[SIZE=30]("Off", cmdClipOff)
btClipArea   = BUTTON[SIZE=30]("Area", cmdClipArea)
btClipPoly   = BUTTON[SIZE=50]("Polygon", cmdClipPoly)
btClipHide   = BUTTON[SIZE=30]("Hide", cmdMsgHide)

ClipData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=25x9]("Xmin:"),
  txtClipXmin,
  FILL[SIZE=5](),
  LABEL[SIZE=25x9]("Ymin:"),
  txtClipYmin
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=25x9]("Xmax:"),
  txtClipXmax,
  FILL[SIZE=5](),
  LABEL[SIZE=25x9]("Ymax:"),
  txtClipYmax
 )
)

ClipDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  ClipData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btClipOff,
  FILL[SIZE=5](),
  btClipArea,
  FILL[SIZE=5](),
  btClipPoly,
  FILL[SIZE=5](),
  btClipHide,
  FILL()
 )
)

dlgClip = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Clipping",
 MAXBOX=NO,
 CLOSE_CB=cmdMsgHide,
 MINBOX=NO,
 RESIZE=NO,
 MARGIN=5x5
]
(ClipDeskTop)

#---------------------------------------------------------------------------#
# Dialogo Image.                                                            #
#---------------------------------------------------------------------------#
txtImageX   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageY   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageW   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageH   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)

btImagePut  = BUTTON[SIZE=30]("Put", cmdImagePut)
btImageGet  = BUTTON[SIZE=30]("Get", cmdImageGet)
btImageHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

ImageData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("X:"),
  txtImageX,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Y:"),
  txtImageY
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("Width:"),
  txtImageW,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Height:"),
  txtImageH
 )
)

ImageDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  ImageData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btImageGet,
  FILL[SIZE=5](),
  btImagePut,
  FILL[SIZE=5](),
  btImageHide,
  FILL()
 )
)

dlgImage = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="Server Image",
 MAXBOX=NO,
 MINBOX=NO,
 CLOSE_CB=cmdMsgHide,
 RESIZE=NO,
 MARGIN=5x5
]
(ImageDeskTop)

#---------------------------------------------------------------------------#
# Dialogo ImageRGB.                                                            #
#---------------------------------------------------------------------------#
txtImageRGBX   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBY   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBW   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBH   = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)

btImageRGBPut  = BUTTON[SIZE=30]("Put", cmdImageRGBPut)
btImageRGBGet  = BUTTON[SIZE=30]("Get", cmdImageRGBGet)
btImageRGBHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)

ImageRGBData = VBOX
(
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("X:"),
  txtImageRGBX,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Y:"),
  txtImageRGBY
 ),
 HBOX[ALIGNMENT=ACENTER]
 (
  LABEL[SIZE=30x9]("Width:"),
  txtImageRGBW,
  FILL[SIZE=5](),
  LABEL[SIZE=30x9]("Height:"),
  txtImageRGBH
 )
)

ImageRGBDeskTop = VBOX
(
 HBOX
 (
  FILL(),
  ImageRGBData,
  FILL()
 ),
 HBOX
 (
  FILL(),
  btImageRGBGet,
  FILL[SIZE=5](),
  btImageRGBPut,
  FILL[SIZE=5](),
  btImageRGBHide,
  FILL()
 )
)

dlgImageRGB = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="RGB Image",
 MAXBOX=NO,
 MINBOX=NO,
 CLOSE_CB=cmdMsgHide,
 RESIZE=NO,
 MARGIN=5x5
]
(ImageRGBDeskTop)

#---------------------------------------------------------------------------#
# Dialogo About.                                                            #
#---------------------------------------------------------------------------#

btCDTest = BUTTON("Close", cmdCloseAbout)

AboutDeskTop = HBOX[MARGIN=5x5, GAP=2]
(
 FILL(),
 VBOX[ALIGNMENT=ACENTER](
  LABEL("CD Test 5.3"),
  FILL[SIZE=5](),
  LABEL("Antonio Scuri"),
  LABEL("Diego Nehab"),
  FILL[SIZE=5](),
  LABEL("Tecgraf/PUC-Rio"),
  FILL[SIZE=5](),
  LABEL("CD Library Version"),
  lblVersion = LABEL(""),
  btCDTest
 ),
 FILL()
)

dlgHelpAbout = DIALOG
[
 PARENTDIALOG="dlgMain",
 TITLE="About",
 MAXBOX=NO,
 MINBOX=NO,
 RESIZE=NO
]
(AboutDeskTop)