func init()
  fvar(old)
  lng.decl_class_var(odlg, 'POpenSaveDialog')
  old = block.select(BLK_INIT)
  println(odlg + ' := NewOpenSaveDialog(', Title, ',', StartDir, ',[]);')
  println(odlg + '.OpenDialog := false;')
  println(odlg + '.WndOwner := ' + WIN_PARENT + '.Handle;')
  println(odlg + '.Filter := ', Filter, ';')
  block.select(BLK_FREE)
  println(odlg + '.Free;')
  block.select(old)
end

func doExecute(_data)
  println('if ' + odlg + '.Execute then')
  lng.begin()
    event(onExecute, odlg + '.Filename')
  block.declvl()
  print('end')
  if(linked(onCancel))
    println('')
    println('else')
    lng.begin()
      event(onCancel)
    lng.end()
  else
    println(';')
  end
end