equal
deleted
inserted
replaced
1369 (self filenameHolder value notNil |
1369 (self filenameHolder value notNil |
1370 and:[newFile notNil |
1370 and:[newFile notNil |
1371 and:[newFile asFilename isDirectory]]) ifTrue:[ |
1371 and:[newFile asFilename isDirectory]]) ifTrue:[ |
1372 entryFieldFilename := self filenameHolder value asFilename. |
1372 entryFieldFilename := self filenameHolder value asFilename. |
1373 self startFilename asFilename baseName = entryFieldFilename baseName ifTrue:[ |
1373 self startFilename asFilename baseName = entryFieldFilename baseName ifTrue:[ |
1374 entryFieldFilename isDirectory not ifTrue:[ |
1374 entryFieldFilename isDirectory ifFalse:[ |
1375 newFile := newFile asFilename construct:entryFieldFilename baseName. |
1375 newFile := newFile asFilename construct:entryFieldFilename baseName. |
1376 ]. |
1376 ]. |
1377 ]. |
1377 ]. |
1378 ]. |
1378 ]. |
1379 self filenameHolder value:newFile withoutNotifying:self. |
1379 self filenameHolder value:newFile withoutNotifying:self. |
1623 ! ! |
1623 ! ! |
1624 |
1624 |
1625 !FileDialog class methodsFor:'documentation'! |
1625 !FileDialog class methodsFor:'documentation'! |
1626 |
1626 |
1627 version |
1627 version |
1628 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.81 2004-11-04 15:19:16 cg Exp $' |
1628 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.82 2005-04-14 09:12:38 cg Exp $' |
1629 ! ! |
1629 ! ! |