<> <> <> <> <> <> <> <> <> <<>> <. This example file probably meets the requirements of the policies laid out in HowToUseAPublicCedarMachine.tioga.>> <<>> <> <> CommandTool.BootCommands: " _ IF (&watch _ ViewerOps.FindViewer[\"Watch\"]) # NIL THEN ViewerOps.SetOpenHeight[viewer: &watch, clientHeight: 120] ELSE NIL <> _ IF &watch # NIL THEN ViewerOps.OpenIcon[icon: &watch, bottom: FALSE] ELSE NIL <> cd ///Commands/ <> Bringover [Cedar]Top>Environment.df <> Run BootTool <> CommandToolProcedures <> DFTool <> cd <> Clock <> PseudoServerAdd Fonts -r $ Cyan Luther.Alpine PseudoServerAdd Cedar -r Cyan Cyan Luther.Alpine PseudoServerAdd Summoner Indigo Indigo PseudoServerAdd DATools -r Cyan Cyan Luther.Alpine <> PseudoServerPrint <> _ IF SystemVersion.machineType = dorado THEN &cmd[\"SummonerEnableAutoIdle\"] ELSE NIL <> STPServer start <> Openr FontCache.Tioga <> " CommandTool.NewUser: " AutoBackup off <> _ IF (&watch _ ViewerOps.FindViewer["Watch"]) # NIL THEN ViewerOps.SetOpenHeight[viewer: &watch, clientHeight: 120] ELSE NIL <> _ IF &watch # NIL THEN ViewerOps.OpenIcon[icon: &watch, bottom: FALSE] ELSE NIL cd /// Bringover [User]6.0>YournameRoot.DF <6.0>SpreitzerRoot.DF for an example. This is a good way to make sure you get the STPServer access control files right, and also to get the styles that everybody wants, but aren't considered "essential".>> cd Bringover [User]6.0>YournameHome.DF <> cd Commands Bringover [User]6.0>YournameHomeCmds.DF <> cd ///Commands/ Bringover [User]6.0>YournameRootCmds.DF <> AutoBackup on <> Run EditorComforts <> Run GmtDebug <> DeleteDFTools <> DFTool <> Alias ! Redo <> Alias GFR GetFromRelease Alias GFRM (arg) GetFromRelease arg _ -md <> cd _ ViewerOps.MoveBoundary[512, ViewerSpecs.openBottomY] <> FastMouse On <> Statistics off <> STPServer start <> Install GetDWIM <> Install KeyboardTioga <> Install WorkingDirectory <> Install Remember <> Install CommandToolProcedures <> DoTiogaOps SaveSelectionA LeaveInitCap SubstituteInSel TypeName "code" StyleName "Cedar" PropName "Comment" RestoreSelectionA <> _ ViewerOps.SetOpenHeight[viewer: ViewerOps.FindViewer["EditTool"], clientHeight: 195] <> PseudoServerAdd Fonts -r $ Cyan Luther.Alpine PseudoServerAdd Cedar -r Cyan Cyan Luther.Alpine PseudoServerAdd Summoner Indigo Indigo PseudoServerAdd DATools -r Cyan Cyan Luther.Alpine PseudoServerPrint <> SummonerClientOn <> DoRollbackStuff <> " CommandTool.PerLogin: " cd SetSearchRules ///Users/Yourname.Yourregistry/Commands/ ///Commands/ <> ClearMenu <> ExecHacks <> CreateButton SetBreak SetBreak $SelectedViewerName$ $ViewerPosition$ CreateButton CD CD $CurrentSelection$ CreateButton Open Open $FileNameSelection$ CreateButton OpenR OpenR $FileNameSelection$ <> Cookie <> " CommandTool.PerCommandTool: " NotePerLogin " <> <> AutoBackUp.Files: -d [User]6.0>YournameRoot.DF [User]6.0>YournameRootCmds.DF [User]6.0>YournameHome.DF [User]6.0>YournameHomeCmds.DF <> <> <> ExecHacks.For.DF: MakeDo -rgom ExecHacks.For.Profile: _ UserProfile.ProfileChanged[edit] ExecHacks.For.MachineProfile: _ UserProfile.ProfileChanged[edit] <> Tioga.UserCategory: Advanced <> <> Tioga.TiogaTIP: ///Commands/KeyboardScan.TIP ///Commands/KeyboardTioga.TIP Default Tioga.ReadonlyTiogaTIP: ///Commands/KeyboardScan.TIP ///Commands/KeyboardTioga.TIP Default Tioga.TypescriptTIP: ///Commands/KeyboardScan.TIP ///Commands/KeyboardTioga.TIP Default Tioga.ExtensionStyles: style Style <> Tioga.SourceFileExtensions: df mesa tioga cm config style load <> <> <> Compiler.IconicLogs: FALSE Compiler.BlinkLogs: FALSE Compiler.SeparateLogs: TRUE Compiler.ViewSeparateLogs: TRUE Compiler.VerboseComputeServer: TRUE <> <> Summoner.CachePrefixesOKToRead: "[Cedar]" "[Cedar]" "[DATools]" Summoner.OKToUseLocalDisk: TRUE <> Walnut.WalnutRootFile: "[Server.alpine]Walnut.Root" <> WalnutSend.MsgForms: [Cedar]Forms>CedarChestMsg.form [Indigo]Forms>ArchiveRequest.form [Indigo]Forms>RetrieveRequest.form <> <> Walnut.InitialActiveOpen: TRUE Walnut.AutoNewMail: TRUE WalnutSend.ReplyToSelf: TRUE Walnut.PlainTextStyle: Ascii <> <> Remember.EventFile: ///Users/Yourname.pa/Yourname.RememberEvents <> Remember.KeyWords: " Meeting: Leadtime: 15, IconFlavor: Meeting, IconLabelType: Prev Attend: Leadtime: 15, IconFlavor: Meeting, IconLabelType: Next Forum: Leadtime: 15, IconFlavor: Meeting, IconLabel: Forum, Time: \"Thursday, 3:45PM\" Dealer: Leadtime: 15, IconFlavor: Meeting, IconLabel: Dealer, Time: \"Wednesday, 1:15PM\" Call: Leadtime: 0, IconFlavor: Phone, IconLabelType: Next, Duration: NIL Phone: Leadtime: 0, IconFlavor: Phone, IconLabelType: Next, Duration: NIL See: IconFlavor: Conversation, IconLabelType: Next, Duration: NIL Write: IconFlavor: Envelope, IconLabelType: Next, Duration: NIL Menu: IconFlavor: Lunch, Repeat: WeekDays, Time: NOON Cookies: IconFlavor: Cookies, Duration: 30 BASS: LeadTime: 1440 Colloquium: LeadTime: 30 " <> Remember.Duration : 60 Remember.LeadTime : 25 <> <> RegisteredIcons: " Remember.defaultIcon: ///Commands/Remember.icons 11 -- a calendar Phone: ///Commands/Remember.Icons 0 -- pushbutton handset Conversation: ///Commands/Remember.Icons 1 -- two people talking over a desk Meeting: ///Commands/Remember.Icons 3 -- one person talking to a group of several Envelope: ///Commands/Remember.Icons 4 -- an envelope SoftBall: ///Commands/Remember.icons 6 Lunch: ///Commands/Remember.icons 7 Cookies: ///Commands/Remember.icons 13 " <> Finch.InitialDirectoriesLeft: TRUE Finch.TelephoneDirectory: " []<>Users>Yourname.pa>Yourname.TDir " <> DFTool.DFNamePrefixes: [Cedar]Top> [Cedar]Top> [User] DFTool.CompactLayout: FALSE <> <> <> VersionMap.SourceMaps: /Cedar/Cedar6.0/VersionMap/CedarSource.VersionMap /Cedar/CedarChest6.0/VersionMap/CedarChestSource.VersionMap VersionMap.SymbolsMaps: /Cedar/Cedar6.0/VersionMap/CedarSymbols.VersionMap /Cedar/CedarChest6.0/VersionMap/CedarChestSymbols.VersionMap <> SpellingTool.Wordlists: []<>Users>Yourname.Yourregistry>Missing.Wordlist (local) <> Viewers.SuppressIconPrefix: "[]<>Users>Yourname.pa>" <> Interminal.VBWEscape: 10 Interminal.VColorEscape: 10 <> Cookie.Enabled: TRUE Promptery.Enabled: TRUE <> <<>>