# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 987004458 -7200
# Node ID 72a40564b16e4899a96a64ffa72186723a909bff
# Parent  8c15098c3469aa586a29dfab18ba10c5e2058f53
added goto home/default items to menu

diff -r 8c15098c3469 -r 72a40564b16e FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Wed Apr 11 15:56:59 2001 +0200
+++ b/FileSelectionBrowser.st	Wed Apr 11 17:54:18 2001 +0200
@@ -348,6 +348,19 @@
      #(#Menu
         #(
          #(#MenuItem
+            #label: 'Goto Home Directory'
+            #translateLabel: true
+            #value: #menuGotoHomeDirectory
+          )
+         #(#MenuItem
+            #label: 'Goto Default Directory'
+            #translateLabel: true
+            #value: #menuGotoDefaultDirectory
+          )
+         #(#MenuItem
+            #label: '-'
+          )
+         #(#MenuItem
             #label: 'Create directory...'
             #translateLabel: true
             #value: #menuCreateDirectory
@@ -508,6 +521,14 @@
     self menuUpdate
 !
 
+menuGotoDefaultDirectory
+    self selectionOfDirectory value:(Filename defaultDirectory pathName)
+!
+
+menuGotoHomeDirectory
+    self selectionOfDirectory value:(Filename homeDirectory pathName)
+!
+
 menuUpdate
     (self builder componentAt:#directoryTreeView) monitorCycle.
 !