// Apple's Currency Converter example in Objective Modula-2 // // ConverterController.def -- Converter controller interface // // http:/objective.modula2.net/samples/ConverterController.def DEFINITION MODULE ConverterController; FROM Cocoa IMPORT *; <*FRAMEWORK*> TYPE ConverterController = CLASS ( NSObject ) (* instance variable connecting to amount text field *) amountField : NSTextField; <*IBOutlet*> (* instance variable connecting to dollar text field *) dollarField : NSTextField; <*IBOutlet*> (* instance variable connecting to rate text field *) rateField : NSTextField; <*IBOutlet*> END; (* CLASS *) (* instance method to read input, convert and write result back *) METHOD (self : ConverterController) convert: (sender : OBJECT); <*IBAction*> END ConverterController.