# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 950274864 -3600
# Node ID 0793db434b211c9d0ef518ed3aa1cfa4de332170
# Parent  218b7fcff239d91e01aa7fabddaaddf3c95dd555
*** empty log message ***

diff -r 218b7fcff239 -r 0793db434b21 DirectoryView.st
--- a/DirectoryView.st	Fri Feb 11 14:09:42 2000 +0100
+++ b/DirectoryView.st	Fri Feb 11 14:14:24 2000 +0100
@@ -85,54 +85,57 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Directory View'
-              #layout: #(#LayoutFrame 412 0 367 0 811 0 666 0)
-              #label: 'Directory View'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 412 367 812 667)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#DataSetSpec
-                    #name: 'filesDataSetView'
-                    #layout: #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
-                    #model: #selectionOfFile
-                    #hasHorizontalScrollBar: true
-                    #hasVerticalScrollBar: true
-                    #miniScrollerHorizontal: true
-                    #dataList: #listOfFiles
-                    #useIndex: false
-                    #doubleClickSelector: #fileDoubleClicked
-                    #columnHolder: #fileAttributeColumns
-                    #valueChangeSelector: #fileSelected
-                    #verticalSpacing: 1
-                )
-                 #(#ComboBoxSpec
-                    #name: 'formatComboBox'
-                    #layout: #(#LayoutFrame 63 0.0 0 0 0 1.0 22 0)
-                    #model: #selectionOfFileFilter
-                    #immediateAccept: false
-                    #acceptOnTab: false
-                    #comboList: #listOfFileFilters
-                )
-                 #(#LabelSpec
-                    #name: 'filterLabel'
-                    #layout: #(#LayoutFrame 0 0 0 0 62 0 22 0)
-                    #label: 'Filter: '
-                    #adjust: #right
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #windowSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Directory View'
+          #name: 'Directory View'
+          #min: #(#Point 10 10)
+          #max: #(#Point 1152 900)
+          #bounds: #(#Rectangle 13 23 413 323)
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#DataSetSpec
+              #name: 'filesDataSetView'
+              #layout: #(#LayoutFrame 0 0.0 24 0.0 -2 1.0 0 1.0)
+              #model: #selectionOfFile
+              #menu: #fileListMenu
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #miniScrollerHorizontal: true
+              #dataList: #listOfFiles
+              #useIndex: false
+              #has3Dsepartors: false
+              #doubleClickSelector: #fileDoubleClicked
+              #columnHolder: #fileAttributeColumns
+              #valueChangeSelector: #fileSelected
+              #verticalSpacing: 1
+            )
+           #(#ComboBoxSpec
+              #name: 'formatComboBox'
+              #layout: #(#LayoutFrame 63 0.0 0 0 0 1.0 22 0)
+              #model: #selectionOfFileFilter
+              #immediateAccept: false
+              #acceptOnTab: false
+              #acceptOnPointerLeave: false
+              #comboList: #listOfFileFilters
+            )
+           #(#LabelSpec
+              #label: 'Filter: '
+              #name: 'filterLabel'
+              #layout: #(#LayoutFrame 0 0 0 0 62 0 22 0)
+              #adjust: #right
+            )
+           )
+         
+        )
       )
+
+    "Modified: / 11.2.2000 / 00:11:43 / cg"
 ! !
 
 !DirectoryView class methodsFor:'list specs'!
@@ -203,6 +206,38 @@
      )
 ! !
 
+!DirectoryView class methodsFor:'menu specs'!
+
+fileListMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+    "
+     MenuEditor new openOnClass:DirectoryView andSelector:#fileListMenu
+     (Menu new fromLiteralArrayEncoding:(DirectoryView fileListMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(#Menu
+        #(
+         #(#MenuItem
+            #label: 'Update'
+            #translateLabel: true
+            #value: #updateFileList
+          )
+         )
+        nil
+        nil
+      )
+
+    "Created: / 11.2.2000 / 00:11:39 / cg"
+! !
+
 !DirectoryView methodsFor:'accessing'!
 
 directory: aDirectory
@@ -368,6 +403,16 @@
     "Modified: / 20.6.1998 / 14:46:10 / cg"
 ! !
 
+!DirectoryView methodsFor:'menu actions'!
+
+updateFileList
+    DirectoryContents flushCache.
+    self readDirectory
+
+    "Created: / 11.2.2000 / 00:12:46 / cg"
+    "Modified: / 11.2.2000 / 00:14:32 / cg"
+! !
+
 !DirectoryView methodsFor:'private'!
 
 readDirectory