// Apple's Currency Converter example in Objective Modula-2
//
// Converter.mod -- Converter model implementation
//
// http://objective.modula2.net/samples/Converter.mod

IMPLEMENTATION MODULE Converter;

FROM Cocoa IMPORT *; <*FRAMEWORK*>

(* accessor and mutator for sourceCurrencyAmount *)

METHOD (self : Converter) sourceCurrencyAmount : REAL;
BEGIN
    RETURN self.sourceCurrencyAmount;
END sourceCurrencyAmount ;

METHOD (self : Converter) setSourceCurrencyAmount: (newAmount : REAL);
BEGIN
    self.sourceCurrencyAmount := newAmount;
END setSourceCurrencyAmount: ;

(* accessor and mutator for rate *)

METHOD (self : Converter) rate : REAL;
BEGIN
    RETURN self.rate;
END rate ;

METHOD (self : Converter) setRate: (newRate : REAL);
BEGIN
    self.rate := newRate;
END setRate: ;

(* conversion method *)

METHOD (self : Converter) convertCurrency : REAL;
BEGIN
    REUTRN self.sourceCurrencyAmount * self.rate;
END convertCurrency ;

END Converter.