@Override
protected Control createContents(final Composite parent) {
mic = new ModuleInclusionComposite(parent, SWT.NONE);
IFile f = (IFile) getElement();
IContainer src = ResourceUtil.getSourceContainer(f);
if (src != null) {
info = new ModuleCreationInfo();
info.setSourceContainer(src);
IPath p = ResourceUtil.getSourceRelativePath(src, f);
info.setFolders(p);
info.setModuleName(f.getProjectRelativePath().removeFileExtension().lastSegment());
mic.init(f, src, info.getQualifiedModuleName(), false);
} else {
mic.initNoSourceFolder();
}
Dialog.applyDialogFont(parent);
return mic;
}
@Override
public boolean performOk() {
if (info != null) {
mic.populateInfo(info);
ModuleCreationOperation mco = new ModuleCreationOperation(info);
mco.setGeneratedFile((IFile) getElement());
try {
mco.run(new NullProgressMonitor());
return true;
} catch (Exception ex) {
HaskellUIPlugin.log(UITexts.module_inclusion_error, ex);
return false;
}
}
return true;
}
