equal
deleted
inserted
replaced
2006 |
2006 |
2007 subDirs := OrderedCollection new. |
2007 subDirs := OrderedCollection new. |
2008 |
2008 |
2009 [ |
2009 [ |
2010 directoryContents := dir directoryContents. |
2010 directoryContents := dir directoryContents. |
2011 ] on:FileStream openErrorSignal do:[:ex| |
2011 ] on:OpenError do:[:ex| |
2012 self showUnreadableFilesAndDirectoriesHolder value ifTrue:[ |
2012 self showUnreadableFilesAndDirectoriesHolder value ifTrue:[ |
2013 list add:((ex pathName , ' -> ' , ex description) withColor:Color darkRed). |
2013 list add:((ex pathName , ' -> ' , ex description) withColor:Color darkRed). |
2014 ]. |
2014 ]. |
2015 "/ self warn:('Cannot access %1\(%2)' |
2015 "/ self warn:('Cannot access %1\(%2)' |
2016 "/ bindWith:ex parameter printString |
2016 "/ bindWith:ex parameter printString |