Java tutorial
/* * BuildToolsPackagePanel.java * * Copyright (C) 2009-12 by RStudio, Inc. * * Unless you have received this program directly from RStudio pursuant * to the terms of a commercial license agreement with RStudio, then * this program is licensed to you under the terms of version 3 of the * GNU Affero General Public License. This program is distributed WITHOUT * ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT, * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the * AGPL (http://www.gnu.org/licenses/agpl-3.0.txt) for more details. * */ package org.rstudio.studio.client.projects.ui.prefs.buildtools; import org.rstudio.core.client.widget.OperationWithInput; import org.rstudio.core.client.widget.ThemedButton; import org.rstudio.studio.client.RStudioGinjector; import org.rstudio.studio.client.common.HelpLink; import org.rstudio.studio.client.common.PackagesHelpLink; import org.rstudio.studio.client.projects.model.RProjectBuildOptions; import org.rstudio.studio.client.projects.model.RProjectConfig; import org.rstudio.studio.client.projects.model.RProjectOptions; import org.rstudio.studio.client.projects.ui.prefs.ProjectPreferencesDialogResources; import org.rstudio.studio.client.workbench.WorkbenchContext; import com.google.gwt.dom.client.Style.Unit; import com.google.gwt.event.dom.client.ClickEvent; import com.google.gwt.event.dom.client.ClickHandler; import com.google.gwt.event.logical.shared.ValueChangeEvent; import com.google.gwt.event.logical.shared.ValueChangeHandler; import com.google.gwt.safehtml.shared.SafeHtmlBuilder; import com.google.gwt.user.client.ui.CheckBox; import com.google.gwt.user.client.ui.HorizontalPanel; import com.google.gwt.user.client.ui.VerticalPanel; import com.google.inject.Inject; public class BuildToolsPackagePanel extends BuildToolsPanel { public BuildToolsPackagePanel() { RStudioGinjector.INSTANCE.injectMembers(this); ProjectPreferencesDialogResources RES = ProjectPreferencesDialogResources.INSTANCE; pathSelector_ = new DirectorySelector("Package directory:"); pathSelector_.getElement().getStyle().setMarginBottom(10, Unit.PX); add(pathSelector_); pathSelector_.addValueChangeHandler(new ValueChangeHandler<String>() { @Override public void onValueChange(ValueChangeEvent<String> event) { if (pathSelector_.getText().equals(workbenchContext_.getActiveProjectDir().getPath())) { pathSelector_.setText(""); } } }); chkUseDevtools_ = checkBox("Use devtools package functions if available"); chkUseDevtools_.addStyleName(RES.styles().buildToolsDevtools()); add(chkUseDevtools_); roxygenizePanel_ = new VerticalPanel(); roxygenizePanel_.addStyleName(RES.styles().buildToolsRoxygenize()); HorizontalPanel rocletPanel = new HorizontalPanel(); chkUseRoxygen_ = checkBox("Generate documentation with Roxygen"); rocletPanel.add(chkUseRoxygen_); btnConfigureRoxygen_ = new ThemedButton("Configure..."); btnConfigureRoxygen_.addClickHandler(new ClickHandler() { @Override public void onClick(ClickEvent event) { new BuildToolsRoxygenOptionsDialog(roxygenOptions_, new OperationWithInput<BuildToolsRoxygenOptions>() { @Override public void execute(BuildToolsRoxygenOptions input) { roxygenOptions_ = input; chkUseRoxygen_.setValue(input.getRocletRd() || input.getRocletCollate() || input.getRocletNamespace() || input.getRocletVignette()); } }).showModal(); } }); rocletPanel.add(btnConfigureRoxygen_); roxygenizePanel_.add(rocletPanel); add(roxygenizePanel_); add(installAdditionalArguments_ = new AdditionalArguments(new SafeHtmlBuilder() .appendHtmlConstant("Build and Reload — R CMD INSTALL additional options:").toSafeHtml())); add(checkAdditionalArguments_ = new AdditionalArguments(new SafeHtmlBuilder() .appendHtmlConstant("Check Package — R CMD check additional options:").toSafeHtml())); add(buildAdditionalArguments_ = new AdditionalArguments(new SafeHtmlBuilder() .appendHtmlConstant("Build Source Package — R CMD build additional options:").toSafeHtml())); add(buildBinaryAdditionalArguments_ = new AdditionalArguments(new SafeHtmlBuilder() .appendHtmlConstant("Build Binary Package — R CMD INSTALL additional options:") .toSafeHtml())); HelpLink packagesHelpLink = new PackagesHelpLink(); packagesHelpLink.getElement().getStyle().setMarginTop(7, Unit.PX); add(packagesHelpLink); } @Inject public void initialize(WorkbenchContext workbenchContext) { workbenchContext_ = workbenchContext; } @Override protected void provideDefaults() { installAdditionalArguments_.setText("--no-multiarch --with-keep.source"); chkUseDevtools_.setValue(true); } @Override void load(RProjectOptions options) { RProjectConfig config = options.getConfig(); pathSelector_.setText(config.getPackagePath()); installAdditionalArguments_.setText(config.getPackageInstallArgs()); buildAdditionalArguments_.setText(config.getPackageBuildArgs()); buildBinaryAdditionalArguments_.setText(config.getPackageBuildBinaryArgs()); checkAdditionalArguments_.setText(config.getPackageCheckArgs()); roxygenOptions_ = new BuildToolsRoxygenOptions(config.getPackageRoxygenzieRd(), config.getPackageRoxygenizeCollate(), config.getPackageRoxygenizeNamespace(), config.getPackageRoxygenizeVignette(), options.getBuildOptions().getAutoRogyginizeOptions()); boolean showRoxygenize = config.hasPackageRoxygenize() || options.getBuildContext().isRoxygen2Installed(); roxygenizePanel_.setVisible(showRoxygenize); chkUseDevtools_.setValue(config.getPackageUseDevtools()); chkUseRoxygen_.setValue(config.hasPackageRoxygenize()); chkUseRoxygen_.addValueChangeHandler(new ValueChangeHandler<Boolean>() { @Override public void onValueChange(ValueChangeEvent<Boolean> event) { if (event.getValue()) { if (!roxygenOptions_.hasActiveRoclet()) { roxygenOptions_.setRocletRd(true); roxygenOptions_.setRocletCollate(true); roxygenOptions_.setRocletNamespace(true); } btnConfigureRoxygen_.click(); } else { roxygenOptions_.clearRoclets(); } } }); } @Override void save(RProjectOptions options) { RProjectConfig config = options.getConfig(); config.setPackageUseDevtools(chkUseDevtools_.getValue()); config.setPackagePath(pathSelector_.getText()); config.setPackageInstallArgs(installAdditionalArguments_.getText()); config.setPackageBuildArgs(buildAdditionalArguments_.getText()); config.setPackageBuildBinaryArgs(buildBinaryAdditionalArguments_.getText()); config.setPackageCheckArgs(checkAdditionalArguments_.getText()); config.setPackageRoxygenize(roxygenOptions_.getRocletRd(), roxygenOptions_.getRocletCollate(), roxygenOptions_.getRocletNamespace(), roxygenOptions_.getRocletVignette()); RProjectBuildOptions buildOptions = options.getBuildOptions(); buildOptions.setAutoRoxyginizeOptions(roxygenOptions_.getAutoRoxygenize()); } private PathSelector pathSelector_; private AdditionalArguments installAdditionalArguments_; private AdditionalArguments buildAdditionalArguments_; private AdditionalArguments buildBinaryAdditionalArguments_; private AdditionalArguments checkAdditionalArguments_; private BuildToolsRoxygenOptions roxygenOptions_; private VerticalPanel roxygenizePanel_; private CheckBox chkUseRoxygen_; private CheckBox chkUseDevtools_; private ThemedButton btnConfigureRoxygen_; private WorkbenchContext workbenchContext_; }