/* 1999-2003, Rony G. Flatscher, Wirtschaftsuniversitaet Wien, Austria, Europe
   A *possible* solution to excercise: 7+8 (1)
*/


::CLASS  Euro   PUBLIC
::METHOD Bezeichnung            ATTRIBUTE
::METHOD Umrechnungskurs        ATTRIBUTE
::METHOD Land                   ATTRIBUTE
::METHOD Waehrung               ATTRIBUTE

::METHOD INIT
  EXPOSE Bezeichnung Land Umrechnungskurs Waehrung
  USE ARG Waehrung, Land, Bezeichnung, Umrechnungskurs
  self~INIT:super               /* let superclasses initialize too ...  */

::METHOD W2E                    /* calc EUR-value       */
  EXPOSE Umrechnungskurs
  USE ARG W_Betrag              /* get amount           */
  RETURN  W_Betrag / Umrechnungskurs    /* return EUR-value             */

::METHOD E2W                    /* calc value in currency of object     */
  RETURN ARG(1) * self~Umrechnungskurs