--- a/Filename.st	Mon Oct 11 17:56:23 1999 +0200
+++ b/Filename.st	Tue Oct 12 16:50:50 1999 +0200
@@ -1446,6 +1446,15 @@
     "Created: 9.1.1996 / 15:32:28 / cg"
 !
 
+makeExecutableForGroup
+    "make the file executable for the group - you must have permission to do so.
+     For directories, execution means: 'allow changing into it'"
+
+    ^ self addAccessRights:#(executeGroup)
+
+    "Created: 9.1.1996 / 15:32:28 / cg"
+!
+
 makeReadable
     "make the file readable for  the owner - you must have permission to do so."
 
@@ -1458,6 +1467,12 @@
     ^ self addAccessRights:#(readUser readGroup readOthers)
 !
 
+makeReadableForGroup
+    "make the file readable for the group - you must have permission to do so."
+
+    ^ self addAccessRights:#(readGroup)
+!
+
 makeUnwritable
     "make the file unwritable for all - you must have permission to do so."
 
@@ -1476,6 +1491,12 @@
     ^ self addAccessRights:#(writeUser writeGroup writeOthers)
 !
 
+makeWritableForGroup
+    "make the file writable for the group - you must have permission to do so."
+
+    ^ self addAccessRights:#(writeGroup)
+!
+
 moveTo:newName
     "copy the file represented by the receiver, then delete it.
      This is different to renaming in case of cross device moves.
@@ -3364,6 +3385,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.163 1999-10-11 09:01:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.164 1999-10-12 14:50:50 ca Exp $'
 ! !
 Filename initialize!