91 |
91 |
92 currentDirectory |
92 currentDirectory |
93 "create and return a new FileDirectory for the current directory" |
93 "create and return a new FileDirectory for the current directory" |
94 |
94 |
95 "/ self obsoleteMethodWarning:'use Filename'. |
95 "/ self obsoleteMethodWarning:'use Filename'. |
96 ^ (self basicNew) pathName:(Filename currentDirectory name) |
96 ^ self on:(Filename currentDirectory name) |
97 |
97 |
98 " |
98 " |
99 FileDirectory currentDirectory contents |
99 FileDirectory currentDirectory contents |
100 FileDirectory currentDirectory files |
100 FileDirectory currentDirectory files |
101 FileDirectory currentDirectory isReadable |
101 FileDirectory currentDirectory isReadable |
102 FileDirectory currentDirectory pathName |
102 FileDirectory currentDirectory pathName |
103 " |
103 " |
|
104 |
|
105 "Modified: / 20-08-2011 / 12:19:51 / cg" |
104 ! |
106 ! |
105 |
107 |
106 directoryNamed:name |
108 directoryNamed:name |
107 "create and return a new FileDirectory for the directory |
109 "create and return a new FileDirectory for the directory |
108 with given pathname" |
110 with given pathname" |
109 |
111 |
110 "/ self obsoleteMethodWarning:'use Filename'. |
112 "/ self obsoleteMethodWarning:'use Filename'. |
111 name asString = '.' ifTrue:[ |
113 name asString = '.' ifTrue:[ |
112 Filename currentDirectory name ~= '.' ifTrue:[ |
114 Filename currentDirectory name ~= '.' ifTrue:[ |
113 ^ self currentDirectory |
115 ^ self currentDirectory |
114 ] |
116 ] |
115 ]. |
117 ]. |
116 ^ (self basicNew) pathName:(name asFilename constructString:'') |
118 ^ self on:(name asFilename constructString:'') |
117 |
119 |
118 " |
120 " |
119 (FileDirectory directoryNamed:'..') pathName |
121 (FileDirectory directoryNamed:'..') pathName |
120 (FileDirectory directoryNamed:'../..') files |
122 (FileDirectory directoryNamed:'../..') files |
121 " |
123 " |
|
124 |
|
125 "Modified: / 20-08-2011 / 12:19:57 / cg" |
122 ! |
126 ! |
123 |
127 |
124 directoryNamed:name in:aFileDirectory |
128 directoryNamed:name in:aFileDirectory |
125 "create and return a new FileDirectory for the directory with given name |
129 "create and return a new FileDirectory for the directory with given name |
126 in another FileDirectory" |
130 in another FileDirectory" |
136 (aFileDirectory isKindOf:FileDirectory) ifTrue:[ |
140 (aFileDirectory isKindOf:FileDirectory) ifTrue:[ |
137 baseName := aFileDirectory pathName |
141 baseName := aFileDirectory pathName |
138 ] ifFalse:[ |
142 ] ifFalse:[ |
139 baseName := aFileDirectory |
143 baseName := aFileDirectory |
140 ]. |
144 ]. |
141 ^ (self basicNew) pathName:((Filename named:baseName) constructString:name) |
145 ^ self on:((Filename named:baseName) constructString:name) |
142 |
146 |
143 "Modified: 28.4.1997 / 23:23:51 / cg" |
147 "Modified: / 28-04-1997 / 22:34:47 / dq" |
144 "Modified: 28.4.1997 / 22:34:47 / dq" |
148 "Modified: / 20-08-2011 / 12:20:03 / cg" |
|
149 ! |
|
150 |
|
151 on:aDirectoryPathName |
|
152 ^ (self basicNew) pathName:aDirectoryPathName |
|
153 |
|
154 "Created: / 20-08-2011 / 12:19:28 / cg" |
145 ! |
155 ! |
146 |
156 |
147 rootDirectory |
157 rootDirectory |
148 "create and return a new FileDirectory for the root directory" |
158 "create and return a new FileDirectory for the root directory" |
149 |
159 |
150 "/ self obsoleteMethodWarning:'use Filename'. |
160 "/ self obsoleteMethodWarning:'use Filename'. |
151 ^ (self basicNew) pathName:(Filename rootDirectory name) |
161 ^ self on:(Filename rootDirectory name) |
152 |
162 |
153 " |
163 " |
154 FileDirectory rootDirectory contents |
164 FileDirectory rootDirectory contents |
155 FileDirectory rootDirectory files |
165 FileDirectory rootDirectory files |
156 FileDirectory rootDirectory isReadable |
166 FileDirectory rootDirectory isReadable |
157 " |
167 " |
|
168 |
|
169 "Modified: / 20-08-2011 / 12:20:09 / cg" |
158 ! ! |
170 ! ! |
159 |
171 |
160 !FileDirectory class methodsFor:'Compatibility-Squeak'! |
172 !FileDirectory class methodsFor:'Compatibility-Squeak'! |
161 |
173 |
162 default |
174 default |