equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3016 (decodedChar between:0 and:31) ifTrue:[ |
3014 (decodedChar between:0 and:31) ifTrue:[ |
3017 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
3015 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
3018 "/ are perfect here, but usually not available in the font |
3016 "/ are perfect here, but usually not available in the font |
3019 "/ and we have currently no way of knowing if they are... |
3017 "/ and we have currently no way of knowing if they are... |
3020 "/ (could let the font draw into a bitmap and check if there is something...) |
3018 "/ (could let the font draw into a bitmap and check if there is something...) |
3021 "/ For now, write a dot.· |
3019 "/ For now, write a dot.· |
3022 "/ charPrinted := (Character value:(byte + 16r2400)) |
3020 "/ charPrinted := (Character value:(byte + 16r2400)) |
3023 ]. |
3021 ]. |
3024 ]. |
3022 ]. |
3025 ]. |
3023 ]. |
3026 asciiLineStream nextPut:charPrinted. |
3024 asciiLineStream nextPut:charPrinted. |
4101 |
4099 |
4102 "Created: / 06-01-2012 / 13:05:14 / cg" |
4100 "Created: / 06-01-2012 / 13:05:14 / cg" |
4103 ! |
4101 ! |
4104 |
4102 |
4105 lineEndConvention: aSymbol |
4103 lineEndConvention: aSymbol |
4106 self lineEndConventionHolder value: aSymbol asSymbol |
4104 self lineEndConventionHolder value:(aSymbol ifNotNil:[aSymbol asSymbol]) |
4107 |
4105 |
4108 "Created: / 11-07-2012 / 19:51:58 / cg" |
4106 "Created: / 11-07-2012 / 19:51:58 / cg" |
|
4107 "Modified: / 13-11-2018 / 11:13:41 / Stefan Vogel" |
4109 ! |
4108 ! |
4110 |
4109 |
4111 lineEndConventionHolder |
4110 lineEndConventionHolder |
4112 ^ self |
4111 ^ self |
4113 aspectFor:#lineEndConventionHolder |
4112 aspectFor:#lineEndConventionHolder |
8825 redefKind := 'class'. |
8824 redefKind := 'class'. |
8826 isRedef := true. |
8825 isRedef := true. |
8827 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8826 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8828 label := msg := 'Breakpoint/Halt in fileIn'. |
8827 label := msg := 'Breakpoint/Halt in fileIn'. |
8829 sender := ex suspendedContext. |
8828 sender := ex suspendedContext. |
8830 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8829 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8831 ] ifFalse:[ |
8830 ] ifFalse:[ |
8832 label := 'Error in fileIn'. |
8831 label := 'Error in fileIn'. |
8833 msg := 'error in fileIn: %1' |
8832 msg := 'error in fileIn: %1' |
8834 ]]]. |
8833 ]]]. |
8835 |
8834 |