equal
deleted
inserted
replaced
326 aspectAt:#rootOfDirectory |
326 aspectAt:#rootOfDirectory |
327 put: (holder := Filename rootDirectory name asValue). |
327 put: (holder := Filename rootDirectory name asValue). |
328 ]. |
328 ]. |
329 ^ holder |
329 ^ holder |
330 |
330 |
331 "Modified: / 23.9.1998 / 16:34:59 / cg" |
331 "Modified: / 5.10.1998 / 12:46:10 / cg" |
332 ! |
332 ! |
333 |
333 |
334 selectionOfDirectory |
334 selectionOfDirectory |
335 |
335 |
336 |holder| |
336 |holder| |
366 root := parent. |
366 root := parent. |
367 parent := root directory. |
367 parent := root directory. |
368 ]. |
368 ]. |
369 ]. |
369 ]. |
370 |
370 |
371 self rootOfDirectory |
371 self rootOfDirectory value:root pathName |
372 value:root pathName |
|
373 |
372 |
374 "Created: / 23.9.1998 / 16:36:28 / cg" |
373 "Created: / 23.9.1998 / 16:36:28 / cg" |
375 "Modified: / 24.9.1998 / 22:26:01 / cg" |
374 "Modified: / 5.10.1998 / 12:46:06 / cg" |
376 ! |
375 ! |
377 |
376 |
378 valueOfFileName |
377 valueOfFileName |
379 |
378 |
380 |holder| |
379 |holder| |