PeanutProfileImpl.mesa
Edited by Doug Wyatt, November 21, 1983 2:56 pm
DIRECTORY
PeanutProfile USING [],
Rope USING [ROPE],
UserProfile USING [Boolean, CallWhenProfileChanges, Number, ProfileChangedProc, Token];
PeanutProfileImpl: CEDAR PROGRAM
IMPORTS UserProfile
EXPORTS PeanutProfile
= BEGIN
ROPE: TYPE = Rope.ROPE;
automaticNewMail: PUBLIC BOOL; -- Peanut.AutomaticNewMail
ccToSelf: PUBLIC BOOL; -- Peanut.CarbonCopyToSelf
killViewersOnSaveAll: PUBLIC BOOL; -- Peanut.KillViewersOnSaveAll
startIconic: PUBLIC BOOL; -- Peanut.StartIconic
windowHeight: PUBLIC INT; -- Peanut.WindowHeight
activeMailFile: PUBLIC ROPE; -- Peanut.ActiveMailFile
outgoingMailFile: PUBLIC ROPE; -- Peanut.OutgoingMailFile
ChangePeanutProfile: UserProfile.ProfileChangedProc = {
automaticNewMail ← UserProfile.Boolean["Peanut.AutomaticNewMail", FALSE];
ccToSelf ← UserProfile.Boolean["Peanut.CarbonCopyToSelf", TRUE];
killViewersOnSaveAll ← UserProfile.Boolean["Peanut.KillViewersOnSaveAll", FALSE];
startIconic ← UserProfile.Boolean["Peanut.StartIconic", TRUE];
windowHeight ← UserProfile.Number["Peanut.WindowHeight", 80];
activeMailFile ← UserProfile.Token["Peanut.ActiveMailFile", "Active"];
outgoingMailFile ← UserProfile.Token["Peanut.OutgoingMailFile", ""];
};
UserProfile.CallWhenProfileChanges[ChangePeanutProfile];
END.