func init()
  lng.include('KOLDirDlgEx')
  fvar(old)
  lng.decl_class_var(bdlg, 'POpenDirDialogEx')
  old = block.select(BLK_INIT)
  println(bdlg + ' := NewOpenDirDialogEx;')
  if(isndef(Path))
    println(bdlg + '.InitialPath := ', Path, ';')
  end
  if(isndef(Title))
    println(bdlg + '.Title := ', Title, ';')
  end
  if(isndef(OKCaption))
    println(bdlg + '.OKCaption := ', OKCaption, ';')
  end
  if(isndef(CancelCaption))
    println(bdlg + '.CancelCaption := ', CancelCaption, ';')
  end
  block.select(BLK_FREE)
  println(bdlg + '.Free;')
  block.select(old)
end

func doBrowse(_data)
  println('if ' + bdlg + '.Execute then')
  lng.begin()
    event(onBrowse, bdlg + '.Path')
  block.declvl()
  print('end')
  if(linked(onCancel))
    println('')
    println('else')
    lng.begin()
      event(onCancel)
    lng.end()
  else
    println(';')
  end
end