break on
dim $oDialog
$oDialog = CreateObject('cjDialogs.SelectFont')
if $oDialog.Execute 
	"Name: " $oDialog.FontName ?
	"Size: " $oDialog.Size ?
	"Colour: " $oDialog.Color ?
	"Bold: " if $oDialog.Bold "true" else "false" endif ?
	"Italics: " if $oDialog.Italic "true" else "false" endif ?
	"StrikeOut: " if $oDialog.Strikeout "true" else "false" endif ?
	"Underline: " if $oDialog.Underline "true" else "false" endif ?
else
	"cancel"
endif
?