DIRECTORYCD,CDIO,CDTipEtc,CDValue,Icons,Rope,RuntimeError,TerminalIO,TEditImpl USING [ReloadTable], --crazy tiptable load procedureTIPUser,UserProfile;CDTipEtcImpl: CEDAR PROGRAM IMPORTS CDIO, CDValue, Icons, RuntimeError, Rope, TEditImpl, TerminalIO, TIPUser, UserProfileEXPORTS CDTipEtc =BEGINSetTipTable: PUBLIC PROC [onto: REF, tipTable: Rope.ROPE] =BEGIN tTable: TIPUser.TIPTable _ NIL;IF tipTable=NIL OR Rope.Equal[tipTable, "Standard"] THEN tTable _ NewMakeTipTable[onto]ELSE tTable _ OldMakeTipTable[onto, tipTable];IF tTable#NIL THEN CDValue.Store[boundTo: onto, key: $TipTable, value: tTable];END;rememberList: LIST OF CD.Technology_NIL;NoteProfileChange: UserProfile.ProfileChangedProc =BEGINFOR l: LIST OF CD.Technology _ rememberList, l.rest WHILE l#NIL DOSetTipTable[onto: l.first, tipTable: NIL]ENDLOOPEND; NewMakeTipTable: PROC [onto: REF, remember: BOOL_TRUE] RETURNS [tTable: TIPUser.TIPTable _ NIL] =BEGIN WITH onto SELECT FROMd: CD.Design => tTable _ NewMakeTipTable[d.technology, FALSE]; tech: CD.Technology => {profileKey: Rope.ROPE _ Rope.Cat["ChipNDale.", tech.name, ".TIP"];default: Rope.ROPE _ Rope.Cat[CDIO.MakeName[base: "ChipNDale", ext: "tip", modifier: tech.name, wDir: CDIO.GetWorkingDirectory[tech]], " ",CDIO.MakeName[base: "ChipNDale", ext: "tip", wDir: CDIO.GetWorkingDirectory[NIL]] ]; tTable _ TEditImpl.ReloadTable[oldTIP: NIL, profileKey: profileKey, default: default];IF tTable=NIL THEN TerminalIO.WriteRope["Tiptable not installed\n"];IF remember THENFOR l: LIST OF CD.Technology _ rememberList, l.rest WHILE l#NIL DOIF l.first=tech THEN EXIT;REPEAT FINISHED => rememberList _ CONS[tech, rememberList]ENDLOOP};ENDCASE => TerminalIO.WriteRope["Tiptable not installed\n"];END;OldMakeTipTable: PROC [onto: REF, tipTable: Rope.ROPE] RETURNS [tTable: TIPUser.TIPTable _ NIL] =BEGIN tipTable _ CDIO.MakeName[base: tipTable, ext: "tip", wDir: GlobalWDir[onto]];tTable _ TIPUser.InstantiateNewTIPTable[tipTable ! TIPUser.InvalidTable => {TerminalIO.WriteRope["Tiptable not installed; "];TerminalIO.WriteRope[errorMsg];TerminalIO.WriteLn[];GOTO NotDone}]; EXITSNotDone => NULLEND;GetTipTable: PUBLIC PROC [for: REF] RETURNS [TIPUser.TIPTable] =BEGIN 	WITH CDValue.Fetch[boundTo: for, key: $TipTable, propagation: global] SELECT FROMttr: TIPUser.TIPTable => RETURN [ttr];ENDCASE => RETURN [NIL];END;SetIcon: PUBLIC PROC [onto: REF, file: Rope.ROPE, n: NAT] =BEGINicon: REF Icons.IconFlavor = NEW[Icons.IconFlavor_tool];file _ CDIO.MakeName[base: file, ext: "icon", wDir: GlobalWDir[onto]];icon^ _ Icons.NewIconFromFile[file, n ! RuntimeError.UNCAUGHT => GOTO notDone];CDValue.Store[boundTo: onto, key: $Icon, value: icon];EXITS notDone => TerminalIO.WriteRope["**Icon not initialized\n"];END;GetIcon: PUBLIC PROC [for: REF] RETURNS [Icons.IconFlavor] =BEGINWITH CDValue.Fetch[boundTo: for, key: $Icon, propagation: global] SELECT FROMip: REF Icons.IconFlavor => RETURN [ip^];ENDCASE => RETURN [Icons.IconFlavor[unInit]] END;SetPanelIcon: PUBLIC PROC [onto: REF, file: Rope.ROPE, n: NAT] =BEGINicon: REF Icons.IconFlavor = NEW[Icons.IconFlavor_tool];file _ CDIO.MakeName[base: file, ext: "icon", wDir: GlobalWDir[onto]];icon^ _ Icons.NewIconFromFile[file, n ! RuntimeError.UNCAUGHT => GOTO notDone];CDValue.Store[boundTo: onto, key: $PanelIcon, value: icon];EXITS notDone => TerminalIO.WriteRope["**Panel-Icon not initialized\n"];END;GetPanelIcon: PUBLIC PROC [for: REF] RETURNS [Icons.IconFlavor] =BEGINWITH CDValue.Fetch[boundTo: for, key: $PanelIcon, propagation: global] SELECT FROMip: REF Icons.IconFlavor => RETURN [ip^];ENDCASE => RETURN [Icons.IconFlavor[unInit]] END;GlobalWDir: PROC [onto: REF] RETURNS [Rope.ROPE] =BEGINWITH onto SELECT FROMd: CD.Design => onto _ d.technologyENDCASE => NULL;RETURN [CDIO.GetWorkingDirectory[onto]]END;Init: PROC [] =BEGINpanelIcon: REF Icons.IconFlavor = NEW[Icons.IconFlavor_tool];designIcon: REF Icons.IconFlavor = NEW[Icons.IconFlavor_tool];CDValue.EnregisterKey[key: $TipTable];CDValue.EnregisterKey[key: $Icon];designIcon^ _ Icons.NewIconFromFile["Chipndale.icons", 0 ! RuntimeError.UNCAUGHT => CONTINUE];CDValue.Store[boundTo: NIL, key: $Icon, value: designIcon];CDValue.EnregisterKey[key: $PanelIcon];panelIcon^ _ Icons.NewIconFromFile["Chipndale.icons", 1 ! RuntimeError.UNCAUGHT => CONTINUE];CDValue.Store[boundTo: NIL, key: $PanelIcon, value: panelIcon];UserProfile.CallWhenProfileChanges[NoteProfileChange];END;Init[];END.    Š  CDTipEtcImpl.mesa        (part of Chipndale)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi   August 11, 1983 11:32 am last edited by Christian Jacobi   January 15, 1985 9:44:07 am PST-- tip tables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~-- PROC [reason: ProfileChangeReason]-- Icons ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--onto: Design, Technology or global--only new viewers will get the new icon--for: Design, Technology or global--onto: Design, Technology or global--only new viewers will get the new icon--for: Design, Technology or global-- init ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Ê—  ˜ šœ,™,Jšœ
Ïmœ7™BJšœ/™/JšœA™A—J˜ šÏk	˜	Jšžœ˜Jšœ˜Jšœ	˜	J˜Jšœ˜J˜Jšœ˜Jšœ˜Jšœ
žœÏc˜>Jšœ˜Jšœ˜J˜ —šÏbœžœžœ˜JšžœV˜]Jšžœ˜—Jšž˜J˜ Jšœ6™6J™ š
Ïnœžœžœžœžœ˜;Jšžœ˜Jšœžœ˜šžœ
žœžœ"žœ˜9Jšœ˜—šžœ˜Jšœ)˜)—Jšžœžœžœ=˜OJšžœ˜J˜ —Jš	œžœžœžœžœ˜(J˜ š œ"˜3Jšœžœ™%Jšž˜šžœžœžœžœ#žœžœž˜BJšœ%žœ˜)Jšž˜—Jšžœ˜—J˜ š¡œžœžœžœžœžœžœ˜aJšžœ˜šžœžœž˜Jšœžœ2žœ˜?šœžœ˜Jšœžœ-˜Bšœžœ˜JšžœDžœ˜iJšœ˜Jšžœ/žœžœ˜RJšœ˜—Jšœ'žœ,˜VJšžœžœžœ2˜Dšžœ
ž˜šžœžœžœžœ#žœžœž˜BJšžœžœžœ˜šžœ˜Jšžœžœ˜3—Jšž˜——Jšœ˜—Jšžœ5˜<—Jšžœ˜J˜ —š¡œžœžœžœžœžœ˜aJšžœ˜Jšœžœ>˜Mšœ3˜3šœ˜J˜1Jšœ˜J˜Jšœ˜Jšœ˜—Jšœ˜—šž˜Jšœž˜—Jšžœ˜J˜ —š
¡œžœžœžœžœ˜@Jšžœ˜šžœBžœž˜QJšœžœ˜&Jšžœžœžœ˜—Jšžœ˜—J˜ J™ Jšœ4™4J˜ š
¡œžœžœžœžœ˜;JšŸ$™$Jšœ(™(Jšž˜Jšœžœžœ˜8Jšœžœ;˜FJšœ5žœžœ
˜OJšœ6˜6Jšžœ=˜BJšžœ˜J˜ —š¡œžœžœžœ˜<JšŸ#™#Jšž˜šžœ>žœž˜MJšœžœžœ˜)Jšžœžœ˜-—Jšžœ˜—J˜ š
¡œžœžœžœžœ˜@JšŸ$™$Jšœ(™(Jšž˜Jšœžœžœ˜8Jšœžœ;˜FJšœ5žœžœ
˜OJšœ;˜;JšžœC˜HJšžœ˜J˜ —š¡œžœžœžœ˜AJšŸ#™#Jšž˜šžœCžœž˜RJšœžœžœ˜)Jšžœžœ˜-—Jšžœ˜—J˜ Jšœ)™)J˜ š
¡
œžœžœžœžœ˜2Jšž˜šžœžœž˜Jšœžœ˜#Jšžœžœ˜—Jšžœžœ˜'Jšžœ˜—J˜ š¡œžœ˜Jšž˜Jšœžœžœ˜=Jšœžœžœ˜>J˜ Jšœ&˜&J˜ Jšœ"˜"JšœHžœžœ˜^Jšœžœ!˜;J˜ Jšœ'˜'JšœGžœžœ˜]Jšœžœ%˜?J˜ Jšœ6˜6Jšžœ˜J˜ —J˜ Jšœ˜Jšžœ˜J˜ J˜ J˜ — …—    Ò  ó  