equal
deleted
inserted
replaced
2731 queryBox initialText:(prefix , oldName). |
2731 queryBox initialText:(prefix , oldName). |
2732 ] ifFalse:[ |
2732 ] ifFalse:[ |
2733 queryBox initialText:oldName. |
2733 queryBox initialText:oldName. |
2734 ]. |
2734 ]. |
2735 queryBox action:[:newName | |
2735 queryBox action:[:newName | |
|
2736 fileListView removeFromSelection:(fileList indexOf:oldName). |
2736 self doRename:oldName to:newName. |
2737 self doRename:oldName to:newName. |
2737 lastOldName := oldName. |
2738 lastOldName := oldName. |
2738 lastNewName := newName. |
2739 lastNewName := newName. |
2739 ]. |
2740 ]. |
2740 |
2741 |
7299 ! ! |
7300 ! ! |
7300 |
7301 |
7301 !FileBrowser class methodsFor:'documentation'! |
7302 !FileBrowser class methodsFor:'documentation'! |
7302 |
7303 |
7303 version |
7304 version |
7304 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.412 2001-07-29 12:46:36 cg Exp $' |
7305 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.413 2001-07-29 15:32:19 cg Exp $' |
7305 ! ! |
7306 ! ! |