PCFilename.st
changeset 25075 5f8d55a5a56f
parent 24067 e8db1317a6c7
child 25201 77076599ba0c
--- a/PCFilename.st	Fri Dec 06 11:11:45 2019 +0100
+++ b/PCFilename.st	Fri Dec 06 11:12:43 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -289,10 +291,12 @@
     ^ expandedString
 
     "
-        self nameWithSpecialExpansions:'c:/windows'
-        self nameWithSpecialExpansions:'%ProgramFiles%\exept\expecco'
-        self nameWithSpecialExpansions:'~\exept\expecco'
-        self nameWithSpecialExpansions:'~stefan\exept\expecco'
+     self nameWithSpecialExpansions:'c:/windows'
+     self nameWithSpecialExpansions:'%ProgramFiles%\exept\expecco'
+     self nameWithSpecialExpansions:'~\exept\expecco'
+     self nameWithSpecialExpansions:'~stefan\exept\expecco'
+     self nameWithSpecialExpansions:'~\work'  
+     self nameWithSpecialExpansions:'%HOMEDRIVE%%HOMEPATH%\work'   
     "
 ! !