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. NPeanutProfileImpl.mesa Edited by Doug Wyatt, November 21, 1983 2:56 pm Êr˜Jšœ™J™/J™šÏk ˜ Jšœœ˜Jšœœœ˜Jšœ œF˜WJ˜—Jšœœ˜ Jšœ ˜Jšœ˜Jšœ˜J˜Jšœœœ˜J˜JšœœœÏc˜9Jšœ œœž˜1Jšœœœž˜AJšœ œœž˜/Jšœœœž˜0Jšœœœž˜5Jšœœœž˜9J˜šÏnœ$˜7JšœBœ˜IJšœ:œ˜@JšœJœ˜QJšœ8œ˜>Jšœ=˜=JšœF˜FJšœD˜DJ˜—J˜J˜8J˜Jšœ˜—…—Þž