equal
deleted
inserted
replaced
1844 |
1844 |
1845 key := anEvent key. |
1845 key := anEvent key. |
1846 rawKey := anEvent rawKey. |
1846 rawKey := anEvent rawKey. |
1847 |
1847 |
1848 "/ (key ~= #'Alt_L') ifTrue:[self halt.]. |
1848 "/ (key ~= #'Alt_L') ifTrue:[self halt.]. |
1849 key == #Accept ifTrue:[ |
1849 "/ cg: removed; too dangerous, because it depends on which view has |
1850 self withActivityIndicationDo:[ |
1850 "/ the focus - in the codeView, it is a save; in the list, it is a fileIn. |
1851 self fileFileIn. |
1851 "/ this is confusing to newcomers. |
1852 ]. |
1852 "/ key == #Accept ifTrue:[ |
1853 ^ true. |
1853 "/ self withActivityIndicationDo:[ |
1854 ]. |
1854 "/ self fileFileIn. |
|
1855 "/ ]. |
|
1856 "/ ^ true. |
|
1857 "/ ]. |
1855 key == #Paste ifTrue:[ |
1858 key == #Paste ifTrue:[ |
1856 self pasteFiles. |
1859 self pasteFiles. |
1857 ^ true. |
1860 ^ true. |
1858 ]. |
1861 ]. |
1859 "/ strange feeling, because behavior is different depending on |
1862 "/ strange feeling, because behavior is different depending on |