[PATCH] seaside: Correct WAGNUSmalltalkPlatform >> #filesIn:

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

[PATCH] seaside: Correct WAGNUSmalltalkPlatform >> #filesIn:

Holger Freyther
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  <[hidden email]>

        * 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  <[hidden email]>
+
+ * Seaside-GST.st: Correct >>#filesIn:.
+
 2014-07-26  Holger Hans Peter Freyther  <[hidden email]>
 
  * 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
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
Reply | Threaded
Open this post in threaded view
|

Re: [PATCH] seaside: Correct WAGNUSmalltalkPlatform >> #filesIn:

fifacome56
The Spain and Real Madrid legend signed out on a high by helping New York Cosmos reclaim the NASL Bowl with a championship clinching 3 2 win over Ottawa Fury.




-----------------------------------------------------------------
[url=http://www.utfifa.co/]utfifas[/url]
[url=http://www.hellofifa.com/]buy fifa 16 coins ps3[/url]