[Back to OOP SWAG index] [Back to Main SWAG index] [Original]

    {
    > I'm starting to play with TVision 1 and I would like to know how
    > to change the background fill character.

    Working example:
    }

    program otherbackground;

    uses
      app, objects;

    type
      pmyapp=^tmyapp;
      tmyapp=object(tapplication)
        constructor init;
      end;

    constructor tmyapp. init;

      var
        r: trect;

      begin
        tapplication. init;
        desktop^. getextent(r);
        dispose(desktop^. background, done);
        desktop^. background:=new(pbackground, init(r, #1));
        desktop^. insert(desktop^. background);
      end;

    var
      myapp: tmyapp;

    begin
      myapp. init;
      myapp. run;
      myapp. done;
    end.

[Back to OOP SWAG index] [Back to Main SWAG index] [Original]