Changeset 3646

Timestamp:

Sep 28, 2019, 12:44:52 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Avoid menu item 'Restore file...' for non-backup .Tree_Dir files.

File:

• trunk/src/netlabs/macros/popup.e (modified) (2 diffs)

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

@@ -203 +203 @@
 ; ---------------------------------------------------------------------------
 defproc PopupMenuItemsTree
+   fBackupTreeDir = 0
+   BackupDir = GetBackupDir()
+   LenBackupDir = length( BackupDir)
+   BackupDirPart = strip( leftstr( strip( substr( .filename, 11)), LenBackupDir))
+   if leftstr( .filename, 10) = '.Tree_Dir ' &
+      rightstr( .filename, 2) = '~*' &
+      (upcase( BackupDir) = upcase( BackupDirPart) | leftstr( BackupDir, 1) = '=') then
+      fBackupTreeDir = 1
+   endif
+
    DefMenuItem( '',                                                     -- Load file
                 LOAD_FILE_MENU__MSG''MenuAccelString( 'alt_1'),
@@ -210 +220 @@
    DefMenuSep()                                                         --------------------
 
-   DefMenuItem( '',                                                     -- Restore file
-                'Restore file...',
-                'Mc /MH_GoToPosition/RestoreFromTreeFile',
-                'Restore backup file under cursor to original file',
-                '')
-   DefMenuSep()                                                         --------------------
+   if fBackupTreeDir then
+      DefMenuItem( '',                                                  -- Restore file
+                   'Restore file...',
+                   'Mc /MH_GoToPosition/RestoreFromTreeFile',
+                   'Restore backup file under cursor to original file',
+                   '')
+      DefMenuSep()                                                      --------------------
+   endif
 
    DefNextItemStartsSubMenu()