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 _ FALSE; -- Peanut.AutomaticNewMail ccToSelf: PUBLIC BOOL _ FALSE; -- Peanut.CarbonCopyToSelf killViewersOnSaveAll: PUBLIC BOOL _ FALSE; -- Peanut.KillViewersOnSaveAll startIconic: PUBLIC BOOL _ FALSE; -- Peanut.StartIconic windowHeight: PUBLIC INT _ 0; -- Peanut.WindowHeight activeMailFile: PUBLIC ROPE _ NIL; -- Peanut.ActiveMailFile outgoingMailFile: PUBLIC ROPE _ NIL; -- Peanut.OutgoingMailFile workingDirectory: PUBLIC ROPE _ NIL; -- Peanut.WorkingDirectory 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", ""]; workingDirectory _ UserProfile.Token["Peanut.WorkingDirectory", NIL]; }; UserProfile.CallWhenProfileChanges[ChangePeanutProfile]; END. JPeanutProfileImpl.mesa Doug Wyatt, February 6, 1984 4:08:43 pm PST Ê«˜šœ™J™+—J™šÏk ˜ Jšœœ˜Jšœœœ˜Jšœ œF˜WJ˜—Jšœœ˜ Jšœ ˜Jšœ˜Jšœ˜J˜Jšœœœ˜J˜JšœœœœÏc˜AJšœ œœœž˜9Jšœœœœž˜IJšœ œœœž˜7Jšœœœž˜4Jšœœœœž˜;Jšœœœœž˜?Jšœœœœž˜?J˜šÏnœ$˜7JšœBœ˜IJšœ:œ˜@JšœJœ˜QJšœ8œ˜>Jšœ=˜=JšœF˜FJšœD˜DJšœ@œ˜EJ˜—J˜J˜8J˜Jšœ˜—…—”‰