OberonCore

         PROCEDURE WriteSaveAsButton;
            VAR p: Controls.Prop;
            v: Views.View;
            w, h: INTEGER;
         BEGIN
            NEW(p);
            p.label := "Сохранить как";
            p.link := "AccountDirectory.SaveAs";
            v := Controls.dir.NewPushButton(p);
            f.WriteView(v);
            IF v.context # NIL THEN
               v.context.GetSize(w, h);
               v.context.SetSize(w * 2, h)
            END
         END WriteSaveAsButton;