OberonCore

PROCEDURE ViewToPicture* (v: Views.View): Views.View;
VAR v1: Views.View; w, h: INTEGER;  isSingle: BOOLEAN;
  med: WinOle.STGMEDIUM;
BEGIN
  w := Views.undefined; h := Views.undefined; isSingle := TRUE;
  med.tymed := {};
  OleData.ExportPicture(v, w, h, 0, 0,isSingle, med);
  HostPictures.ImportDPict(med,v1, w, h, isSingle);
  RETURN v1;
END ViewToPicture;