doGotoDesktopDirectory
authorClaus Gittinger <cg@exept.de>
Fri, 02 May 2008 16:27:21 +0200
changeset 8092 c75f44bd9e69
parent 8091 803f4df78b72
child 8093 426a17ddceb6
doGotoDesktopDirectory
FileDialog.st
--- a/FileDialog.st	Fri May 02 15:27:20 2008 +0200
+++ b/FileDialog.st	Fri May 02 16:27:21 2008 +0200
@@ -936,6 +936,15 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
           )
          (MenuItem
+            activeHelpKey: fileDesktop
+            enabled: enableHome
+            label: 'Desktop'
+            itemValue: doGotoDesktopDirectory
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary desktopIcon)
+          )
+         (MenuItem
             activeHelpKey: fileGotoBookmark
             label: 'Bookmarks'
             translateLabel: true
@@ -1620,6 +1629,11 @@
     treeBrowser doGoDirectoryUp.
 !
 
+doGotoDesktopDirectory
+
+    treeBrowser doGotoDesktopDirectory.
+!
+
 doGotoHomeDirectory
 
     treeBrowser doGotoHomeDirectory.
@@ -1652,5 +1666,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.94 2008-01-10 10:42:38 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.95 2008-05-02 14:27:21 cg Exp $'
 ! !