MODULE ObxPhoneUI1;
(**
project = "BlackBox"
organization = "www.oberon.ch"
contributors = "Oberon microsystems"
version = "System/Rsrc/About"
copyright = "System/Rsrc/About"
license = "Docu/BB-License"
changes = ""
issues = ""
**)
IMPORT Dialog, ObxPhoneDB;
VAR
phone*: RECORD
name*, number*: ObxPhoneDB.String
END;
PROCEDURE NameNotifier* (op, from, to: INTEGER);
BEGIN
ObxPhoneDB.LookupByName(phone.name, phone.number);
Dialog.Update(phone)
END NameNotifier;
PROCEDURE NumberNotifier* (op, from, to: INTEGER);
BEGIN
ObxPhoneDB.LookupByNumber(phone.number, phone.name);
Dialog.Update(phone)
END NumberNotifier;
END ObxPhoneUI1.