equal
deleted
inserted
replaced
387 #nameKey: #delete |
387 #nameKey: #delete |
388 #value: #doDelete |
388 #value: #doDelete |
389 #shortcutKeyCharacter: #Delete |
389 #shortcutKeyCharacter: #Delete |
390 ) |
390 ) |
391 #(#MenuItem |
391 #(#MenuItem |
392 #label: 'Rename' |
392 #label: 'Rename...' |
393 #translateLabel: true |
393 #translateLabel: true |
394 #value: #renameSelection |
394 #value: #renameSelection |
395 #enabled: #hasSelection |
395 #enabled: #hasSelection |
396 #shortcutKeyCharacter: #Replace |
396 #shortcutKeyCharacter: #Replace |
397 ) |
397 ) |
901 window ifNotNil:[ |
901 window ifNotNil:[ |
902 sensor := window sensor. |
902 sensor := window sensor. |
903 sensor ifNotNil:[ |
903 sensor ifNotNil:[ |
904 sensor flushUserEventsFor:self withType:#updateFromModel. |
904 sensor flushUserEventsFor:self withType:#updateFromModel. |
905 sensor pushUserEvent:#updateFromModel for:self. |
905 sensor pushUserEvent:#updateFromModel for:self. |
906 ^ self |
906 ^ self |
907 ]. |
907 ]. |
908 ]. |
908 ]. |
909 self fileNamesChanged:aModel value. |
909 self fileNamesChanged:aModel value. |
910 " do not return here because the AbstractFileBrowserComponent have to do something |
910 " do not return here because the AbstractFileBrowser have to do something |
911 for every application " |
911 for every application " |
912 "/ ^ self. |
912 "/ ^ self. |
913 ]. |
913 ]. |
914 aModel == self sortCaseless ifTrue:[ |
914 aModel == self sortCaseless ifTrue:[ |
915 ^ self sortList:#baseName withReverse:false. |
915 ^ self sortList:#baseName withReverse:false. |
2583 ! ! |
2583 ! ! |
2584 |
2584 |
2585 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2585 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2586 |
2586 |
2587 version |
2587 version |
2588 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.4 2002-09-27 15:23:00 penk Exp $' |
2588 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.5 2002-09-30 07:59:53 penk Exp $' |
2589 ! ! |
2589 ! ! |