Changeset 3538

Timestamp:

Mar 19, 2019, 9:09:24 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Added unlink of TAGS.EX after calling Tags_Supported, if it wasn't linked.

File:

• trunk/src/netlabs/macros/newmenu.e (modified) (1 diff)

trunk/src/netlabs/macros/newmenu.e ¶

@@ -4187 +4187 @@
 
 defc menuinit_tags
-   'LinkVerify tags'  -- Remains linked afterwards
-   on = Tags_Supported( GetMode())
+   -- Tags_Supported is defined in TAGS.E.
+   fLinkedBefore = 0
+   if linked( 'tags') then
+      fLinkedBefore = 1
+   else
+      'Link tags'
+   endif
+   if isadefproc( 'Tags_Supported') then
+      on = Tags_Supported( GetMode())
+   else
+      on = 1
+   endif
+   if not fLinkedBefore then
+      'UnLink tags'
+   endif
    SetMenuAttribute( GetAVar( 'mid_tagfindcurrent'), MIA_DISABLED, on)
    SetMenuAttribute( GetAVar( 'mid_tagfindall'),     MIA_DISABLED, on)