#FEATURE by cgexept.de
authorClaus Gittinger <cg@exept.de>
Sun, 04 Nov 2018 15:03:00 +0100
changeset 18512 7fc203b4010e
parent 18511 4b7bd1293f9d
child 18513 2c65045fca36
#FEATURE by cgexept.de class: FileDialog added: #enableGotoDocuments #enableGotoDownloads changed: #enableDocuments #enableGotoDesktop class: FileDialog class changed: #mainMenu #toolBarMenu
FileDialog.st
--- a/FileDialog.st	Sun Nov 04 14:57:49 2018 +0100
+++ b/FileDialog.st	Sun Nov 04 15:03:00 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1054,13 +1056,19 @@
                   translateLabel: true
                 )
                (MenuItem
-                  enabled: enableDocuments
+                  enabled: enableGotoDesktop
+                  label: 'Desktop Directory'
+                  itemValue: doGotoDesktopDirectory
+                  translateLabel: true
+                )
+               (MenuItem
+                  enabled: enableGotoDocuments
                   label: 'Documents Directory'
                   itemValue: doGotoDocumentsDirectory
                   translateLabel: true
                 )
                (MenuItem
-                  enabled: enableDownloads
+                  enabled: enableGotoDownloads
                   label: 'Downloads Directory'
                   itemValue: doGotoDownloadsDirectory
                   translateLabel: true
@@ -1198,7 +1206,7 @@
           )
          (MenuItem
             activeHelpKey: fileDesktop
-            enabled: enableGotoDesktop
+            enabled: enableGotoDesktopDirectory
             label: 'Desktop'
             itemValue: doGotoDesktopDirectory
             translateLabel: true
@@ -1529,7 +1537,15 @@
 !
 
 enableGotoDesktop
-    ^ treeBrowser enableGotoDesktop.
+    ^ treeBrowser enableGotoDesktopDirectory.
+!
+
+enableGotoDocuments
+    ^ treeBrowser enableGotoDocumentsDirectory.
+!
+
+enableGotoDownloads
+    ^ treeBrowser enableGotoDownloadsDirectory.
 !
 
 enableHome