DIRECTORYCursors USING [SetCursor],IconManager,InputFocus USING [GetInputFocus, SetInputFocus],MessageWindow USING [Append, Blink, Confirm],Process USING [Detach],Rope USING [Cat],TIPUser USING [InstantiateNewTIPTable, TIPScreenCoords, TIPTable],ViewerOps USING [DestroyViewer,	OpenIcon, PaintViewer,	ChangeColumn],ViewerClasses,WindowManager USING [colorDisplayOn];IconManagerImpl: PROGRAMIMPORTS Cursors, InputFocus, MessageWindow, Process, Rope, TIPUser, ViewerOps,WindowManagerEXPORTS IconManagerSHARES ViewerClasses =BEGIN OPEN Cursors, ViewerClasses;IconNotify: PUBLIC ViewerClasses.NotifyProc = BEGINmx, my: INTEGER;closeOthers, switchDisplays: BOOL _ FALSE;FOR l: LIST OF REF ANY _ input, l.rest UNTIL l = NIL DO WITH l.first SELECT FROMz: TIPUser.TIPScreenCoords => [mx, ----, my] _ z^;z: ATOM	=> SELECT z FROM$CloseOthers		=>	closeOthers _ TRUE;$Color			=>	IF WindowManager.colorDisplayOn THENViewerOps.ChangeColumn[self, color];$Delete			=> DestroyIcon[self];$Left				=> ViewerOps.ChangeColumn[self, left];$MouseMove	=> Cursors.SetCursor[textPointer];$Open			=> ViewerOps.OpenIcon[self, closeOthers];$Right			=> ViewerOps.ChangeColumn[self, right];$Select			=> SelectIcon[self];$TogglePos		=> ViewerOps.ChangeColumn[self, SELECT self.column FROMleft	=> right,right	=> left,color	=> left,ENDCASE	=> ERROR];ENDCASE		=> NULL;ENDCASE	=> NULL;ENDLOOP;END;IconModify: PUBLIC ViewerClasses.ModifyProc = BEGINSELECT change FROMset		=> ViewerOps.PaintViewer[self, all];kill	=> {selectedIcon _ NIL; ViewerOps.PaintViewer[self, all]};ENDCASE;END;selectedIcon: PUBLIC ViewerClasses.Viewer _ NIL;DestroyIcon: PROC [icon: Viewer] = BEGINIF icon.inhibitDestroy THEN {MessageWindow.Append["That icon cannot be destroyed.", TRUE];MessageWindow.Blink[];RETURN};IF icon.link = NIL AND (icon.newVersion OR icon.newFile) THEN[] _ Process.Detach[FORK ConfirmDestroyIcon[icon]]	-- fork for confirmationELSE ViewerOps.DestroyViewer[icon];END;ConfirmDestroyIcon: PROC [icon: Viewer] = BEGINIF MessageWindow.Confirm[Rope.Cat["Confirm delete (and loss of edits) for icon: ", icon.name]]THEN ViewerOps.DestroyViewer[icon];END;SelectIcon: PROC [viewer: Viewer] = BEGINIF InputFocus.GetInputFocus[].owner#viewer THEN BEGINInputFocus.SetInputFocus[NIL];	-- kill old so we don't smash selectedIconselectedIcon _ viewer;InputFocus.SetInputFocus[viewer];END;END;Open: PROC [viewer: Viewer, closeOthers: BOOL] = {ViewerOps.OpenIcon[viewer, closeOthers]};iconTIP: PUBLIC TIPUser.TIPTable _TIPUser.InstantiateNewTIPTable["/Indigo/CedarViewers/Viewers/Icons.tip"] ;END.    ~  IconManagerImpl.mesa; Edited by McGregor on August 30, 1982 10:11 amLast Edited by: Maxwell, December 7, 1982 11:11 amÊ@  –"Mesa" style˜ JšÏcD™DJ™2šÏk	˜	Jšœžœ˜J˜Jšœžœ ˜0Jšœžœ˜-Jšœžœ
˜Jšœžœ˜Jšœžœ5˜BJšœ
žœ6˜EJ˜Jšœžœ˜%J˜ —Jšœž˜J˜ šžœG˜NJ˜—Jšžœ˜Jšžœ˜J˜ Jšžœžœ˜"J˜ šœžœž˜3Jšœžœ˜Jšœžœžœ˜*šžœžœžœžœžœžœžœžœžœ	žœž˜PJšœ#œ˜2šœžœžœž˜Jšœžœ˜$šœžœž˜0J˜$—J˜J˜/J˜-J˜1J˜0J˜šœ,žœž˜CJ˜J˜J˜Jšžœžœ˜—Jšžœžœ˜—Jšžœžœ˜Jšžœ˜—Jšžœ˜J˜ —šœžœž˜3šžœž˜J˜)Jšœžœ$˜?Jšžœ˜—Jšžœ˜J˜ —Jšœžœžœ˜0J˜ šÏnœžœž˜(šžœžœ˜Jšœ7žœ˜=Jšœ˜Jšžœ˜—š	žœžœžœžœž˜=Jšœžœ˜K—Jšžœ˜#Jšžœ˜J˜ —šŸœžœž˜/šžœ\˜^Jšžœ˜#—Jšžœ˜J˜ —šŸ
œžœž˜)šžœ)žœž˜5Jšœžœ*˜IJ˜J˜!Jšžœ˜—Jšžœ˜J˜ —JšŸœžœžœ.˜[J˜ šœ	žœ˜"J˜JJ˜ —Jšžœ˜J˜ J˜ — …—    
F    