rem ' cedit borders
cedit_border$ = stbl("!COMPAT","CEDIT_BORDER")
cedit_border = sgn(pos("TRUE"=cedit_border$))
if cedit_border then flags$ = $0004$ else flags$ = $0000$
sysgui = unt
open (sysgui)"X0"
print (sysgui)'window'(100,100,350,200,"",$00090003$,$02000000$)
gosub cedit
print (sysgui)'checkbox'(103,200,160,150,25,"Always show borders",flags$)
dim event$:tmpl(sysgui)
repeat
  read record(sysgui,siz=10)event$
  if event.code$="c" then gosub toggle
until event.code$="X"
release
toggle:
  if event.flags then cedit_border$="TRUE" else cedit_border$="FALSE"
  cedit_border$ = stbl("!COMPAT","CEDIT_BORDER="+cedit_border$)
  print (sysgui)'destroy'(101),'destroy'(102)
cedit:
  print (sysgui)'cedit'(101,50,50,100,100,"CEdit with border",$0006$)
  print (sysgui)'cedit'(102,200,50,100,100,"CEdit without border",$0002$)
return