equal
deleted
inserted
replaced
1406 newDrive := self selectedDeviceDrive value. |
1406 newDrive := self selectedDeviceDrive value. |
1407 curSel := self currentFileNameHolder value. |
1407 curSel := self currentFileNameHolder value. |
1408 curSel notEmpty ifTrue:[ |
1408 curSel notEmpty ifTrue:[ |
1409 curSel first volume = newDrive ifTrue:[ ^self]. |
1409 curSel first volume = newDrive ifTrue:[ ^self]. |
1410 ]. |
1410 ]. |
|
1411 |
1411 newDrive notNil ifTrue:[ |
1412 newDrive notNil ifTrue:[ |
1412 newFile := newDrive asFilename. |
1413 newFile := newDrive asFilename. |
1413 |
1414 |
1414 newFile isReadable ifTrue:[ |
1415 newFile isReadable ifTrue:[ |
1415 self gotoFile:newFile. |
1416 self gotoFile:newFile. |
1738 ! ! |
1739 ! ! |
1739 |
1740 |
1740 !FileBrowserV2 class methodsFor:'documentation'! |
1741 !FileBrowserV2 class methodsFor:'documentation'! |
1741 |
1742 |
1742 version |
1743 version |
1743 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.148 2006-02-03 11:03:32 cg Exp $' |
1744 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.149 2006-02-21 12:19:14 cg Exp $' |
1744 ! ! |
1745 ! ! |
1745 |
1746 |
1746 FileBrowserV2 initialize! |
1747 FileBrowserV2 initialize! |