Newsgroups: comp.lang.pascal
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!snorkelwacker.mit.edu!thunder.mcrcim.mcgill.edu!quiche!storm
From: storm@cs.mcgill.ca (Marc WANDSCHNEIDER)
Subject: TP6.0 OOP Quiery
Message-ID: <1991Jun16.075044.18283@cs.mcgill.ca>
Sender: news@cs.mcgill.ca (Netnews Administrator)
Organization: SOCS, McGill University, Montreal, Canada
Date: Sun, 16 Jun 91 07:50:44 GMT


In the TP 6.0 Users manual, they start building up OOPs with objects typed
Location and Point.

However, on page 89, they give the following declarations:

type 
  Location = object
    X, Y: integer;
    procedure Init(InitX, InitY: integer);
    function GetX: Integer;
    function GetY: Integer;
  end;

  Point = object(Location)
    Visible: Boolean;
    procedure Init(InitX, InitY: integer);
    procedure Show;
    procedure Hide;
    function IsVisible: boolean;
    procedure MoveTo (NewX, NewY: Integer);
  end;



MY problem is: Why have they declared an INIT procedure for type Point, when 
Location already has this procedure declared.  If objects have inheritance,
then there should already be an INIT procedure built into the Point type.

Any Insight...>?

./*-
storm@bart.cs.mcgill.ca
storm@sizone.UUCP
-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
storm@cs.mcgill.ca         McGill University           It's 11pm, do YOU
Marc Wandschneider         Montreal, CANADA            know what time it is?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~