use of org.rstudio.core.client.widget.FullscreenPopupPanel in project rstudio by rstudio.
the class PresentationPane method zoom.
@Override
public void zoom(String title, String url, final Command onClosed) {
// create the titlebar (no title for now)
HorizontalPanel titlePanel = new HorizontalPanel();
ThemeStyles styles = ThemeResources.INSTANCE.themeStyles();
Label titleLabel = new Label(title);
titleLabel.addStyleName(styles.fullscreenCaptionLabel());
titlePanel.add(titleLabel);
// create the frame
AnchorableFrame frame = new PresentationFrame(true);
frame.setSize("100%", "100%");
// create the popup panel & add close handler
activeZoomPanel_ = new FullscreenPopupPanel(titlePanel, frame, false);
activeZoomPanel_.addCloseHandler(new CloseHandler<PopupPanel>() {
@Override
public void onClose(CloseEvent<PopupPanel> event) {
activeZoomPanel_ = null;
onClosed.execute();
}
});
// load the frame and show the zoom panel
frame.navigate(url);
activeZoomPanel_.center();
}
Aggregations