File does not understand first. Follow the comment and
reject any file that starts with '.' by first stripping
the path and converting it to a String.
Manually tested using interactive GST session on
'/Users/ich'. The issue was reported by Mark Bratcher
on github.
2015-08-08 Holger Hans Peter Freyther <hol...@freyther.de>
* Seaside-GST.st: Correct >>#filesIn:.
---
packages/seaside/core/ChangeLog | 4 ++++
packages/seaside/core/Seaside-GST.st | 2 +-
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/packages/seaside/core/ChangeLog b/packages/seaside/core/ChangeLog
index aef4adb..b4d1774 100644
--- a/packages/seaside/core/ChangeLog
+++ b/packages/seaside/core/ChangeLog
@@ -1,3 +1,7 @@
+2015-08-08 Holger Hans Peter Freyther <hol...@freyther.de>
+
+ * Seaside-GST.st: Correct >>#filesIn:.
+
2014-07-26 Holger Hans Peter Freyther <hol...@freyther.de>
* Seaside-Core.st: Remove WABrush class >> #new,
diff --git a/packages/seaside/core/Seaside-GST.st
b/packages/seaside/core/Seaside-GST.st
index a2f5c79..ab41acf 100644
--- a/packages/seaside/core/Seaside-GST.st
+++ b/packages/seaside/core/Seaside-GST.st
@@ -550,7 +550,7 @@ Object subclass: WAGNUSmalltalkPlatform [
| directory |
directory := File name: aPathString.
^(directory files
- reject: [ :each | each first = $. ])
+ reject: [ :each | each stripPath first = $. ])
collect: [ :each | each asString ]
]
--
2.3.5
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
https://lists.gnu.org/mailman/listinfo/help-smalltalk
