equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3146 (decodedChar between:0 and:31) ifTrue:[ |
3148 (decodedChar between:0 and:31) ifTrue:[ |
3147 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
3149 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
3148 "/ are perfect here, but usually not available in the font |
3150 "/ are perfect here, but usually not available in the font |
3149 "/ and we have currently no way of knowing if they are... |
3151 "/ and we have currently no way of knowing if they are... |
3150 "/ (could let the font draw into a bitmap and check if there is something...) |
3152 "/ (could let the font draw into a bitmap and check if there is something...) |
3151 "/ For now, write a dot.· |
3153 "/ For now, write a dot.· |
3152 "/ charPrinted := (Character value:(byte + 16r2400)) |
3154 "/ charPrinted := (Character value:(byte + 16r2400)) |
3153 ]. |
3155 ]. |
3154 ]. |
3156 ]. |
3155 ]. |
3157 ]. |
3156 asciiLineStream nextPut:charPrinted. |
3158 asciiLineStream nextPut:charPrinted. |
8942 |
8944 |
8943 self withActivityIndicationDo:[ |
8945 self withActivityIndicationDo:[ |
8944 filesToRemove := OrderedCollection new. |
8946 filesToRemove := OrderedCollection new. |
8945 directories do:[:eachDirectoryToScan | |
8947 directories do:[:eachDirectoryToScan | |
8946 eachDirectoryToScan filesDo:[:fn | |
8948 eachDirectoryToScan filesDo:[:fn | |
8947 (#('sav' 'bak') includes:fn suffix) ifTrue:[ |
8949 (#('sav' 'bak') includes:fn suffix asLowercase) ifTrue:[ |
8948 filesToRemove add:fn. |
8950 filesToRemove add:fn. |
8949 ] |
8951 ] |
8950 ] |
8952 ] |
8951 ]. |
8953 ]. |
8952 filesToRemove isEmpty ifTrue:[ |
8954 filesToRemove isEmpty ifTrue:[ |
9095 redefKind := 'class'. |
9097 redefKind := 'class'. |
9096 isRedef := true. |
9098 isRedef := true. |
9097 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
9099 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
9098 label := msg := 'Breakpoint/Halt in fileIn'. |
9100 label := msg := 'Breakpoint/Halt in fileIn'. |
9099 sender := ex suspendedContext. |
9101 sender := ex suspendedContext. |
9100 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
9102 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
9101 ] ifFalse:[ |
9103 ] ifFalse:[ |
9102 label := 'Error in fileIn'. |
9104 label := 'Error in fileIn'. |
9103 msg := 'error in fileIn: %1' |
9105 msg := 'error in fileIn: %1' |
9104 ]]]. |
9106 ]]]. |
9105 |
9107 |