--- a/Tools__TagsBrowser.st	Fri Mar 01 22:03:34 2019 +0100
+++ b/Tools__TagsBrowser.st	Sat Mar 02 11:47:37 2019 +0100
@@ -2846,58 +2846,61 @@
 
 middleButtonMenu
     ^ [
-	|menu suffix file item|
-
-	tagsMenu notNil ifTrue:[
-	    tagsMenu
-	] ifFalse:[
-	    menus isNil ifTrue:[
-		menus := IdentityDictionary new.
-	    ].
-
-	    menu := nil.
-
-	    (file := self editedFile) notNil ifTrue:[
-		(tagList supportsFile:file) ifTrue:[
-		    menu := menus at:#exists ifAbsentPut:[
-							menu := self class middleButtonMenu decodeAsLiteralArray.
-							menu receiver:self.
-							menu findGuiResourcesIn:self.
-							menu
-						       ].
-		    menu := MenuPanel menu:menu receiver:self.
-		] ifFalse:[
-		    suffix := file suffix.
-
-		    suffix size ~~ 0 ifTrue:[
-			menu := menus at:#new ifAbsentPut:[
-			    menu := Menu new.
-			    item := MenuItem label:('assign ', (Text string:suffix emphasis:#underline), ' to:').
-			    item enabled:false.
-			    menu addItem:item.
-			    menu addItem:(MenuItem separator).
-
-			    tagList class tagsSuffixes keysAndValuesDo:[:aKey :aValue|
-				item := MenuItem label:('  - ', aKey )
-						 itemValue:[ |list|
-							list := aValue asOrderedCollection.
-							list add:(suffix asLowercase).
-							tagList class tagsSuffixes at:aKey put:list.
-							self editedFileChanged.
-						       ].
-				menu addItem:item.
-			    ].
-			    menu
-			].
-
-		    ]
-		].
-	    ].
-	    menu
-	]
+        |menu suffix file item|
+
+        tagsMenu notNil ifTrue:[
+            tagsMenu
+        ] ifFalse:[
+            menus isNil ifTrue:[
+                menus := IdentityDictionary new.
+            ].
+
+            menu := nil.
+
+            (file := self editedFile) notNil ifTrue:[
+                (tagList supportsFile:file) ifTrue:[
+                    menu := menus 
+                                at:#exists 
+                                ifAbsentPut:[
+                                    menu := self class middleButtonMenu decodeAsLiteralArray.
+                                    menu receiver:self.
+                                    menu findGuiResourcesIn:self.
+                                    menu
+                                ].
+                    menu := MenuPanel menu:menu receiver:self.
+                ] ifFalse:[
+                    suffix := file suffix.
+
+                    suffix size ~~ 0 ifTrue:[
+                        menu := menus at:#new ifAbsentPut:[
+                            menu := Menu new.
+                            item := MenuItem label:('assign ', (Text string:suffix emphasis:#underline), ' to:').
+                            item enabled:false.
+                            menu addItem:item.
+                            menu addItem:(MenuItem separator).
+
+                            tagList class tagsSuffixes keysAndValuesDo:[:aKey :aValue|
+                                item := MenuItem label:('  - ', aKey )
+                                                 itemValue:[ |list|
+                                                        list := aValue asOrderedCollection.
+                                                        list add:(suffix asLowercase).
+                                                        tagList class tagsSuffixes at:aKey put:list.
+                                                        self editedFileChanged.
+                                                       ].
+                                menu addItem:item.
+                            ].
+                            menu
+                        ].
+
+                    ]
+                ].
+            ].
+            menu
+        ]
       ]
 
     "Modified: / 08-09-2012 / 19:51:03 / cg"
+    "Modified (format): / 02-03-2019 / 11:44:27 / Claus Gittinger"
 !
 
 sortByLineNumber