diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-25 10:48:55 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-10-25 10:48:55 +0100 |
| commit | 53c1df30e07af532133db05ee0254f9c1dae66f7 (patch) | |
| tree | 461dc291d466ef5f3f4a77b59f325768cf8c9238 | |
| parent | bed9af405db67aff779cece9b72029b7b22b0c1e (diff) | |
| download | tuxcmd-53c1df30e07af532133db05ee0254f9c1dae66f7.tar.xz | |
Don't leave networking VFS engine on Go Up
i.e. triggered by Backspace key or Go Up panel button.
Also, the Home panel buttons and Ctrl+/ shortcut will now jump
to the root of an engine (local and vfs) instead of hard jump
to local root.
| -rw-r--r-- | UMain.pas | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -2072,10 +2072,13 @@ begin else Exit; // Close VFS connections - if ((Sender = LeftRootButton) or (Sender = LeftHomeButton)) and (not (LeftPanelEngine is TLocalTreeEngine)) then + if (Sender = LeftHomeButton) and (not (LeftPanelEngine is TLocalTreeEngine)) then while (LeftPanelEngine is TVFSEngine) do CloseVFS(LeftPanel, True); - if ((Sender = RightRootButton) or (Sender = RightHomeButton)) and (not (RightPanelEngine is TLocalTreeEngine)) then + if (Sender = RightHomeButton) and (not (RightPanelEngine is TLocalTreeEngine)) then while (RightPanelEngine is TVFSEngine) do CloseVFS(LeftPanel, True); + if ((Sender = LeftUpButton) and (LeftPanelEngine is TVFSEngine) and (not (LeftPanelEngine as TVFSEngine).ArchiveMode) and (LeftPanelEngine.Path = '/')) or + ((Sender = RightUpButton) and (RightPanelEngine is TVFSEngine) and (not (RightPanelEngine as TVFSEngine).ArchiveMode) and (RightPanelEngine.Path = '/')) + then NewPath := '/'; ChangingDir(LeftPanel, NewPath); if LeftPanel then LeftListView.SetFocus |