equal
deleted
inserted
replaced
8369 redefKind := 'class'. |
8369 redefKind := 'class'. |
8370 isRedef := true. |
8370 isRedef := true. |
8371 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8371 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8372 label := msg := 'Breakpoint/Halt in fileIn'. |
8372 label := msg := 'Breakpoint/Halt in fileIn'. |
8373 sender := ex suspendedContext. |
8373 sender := ex suspendedContext. |
8374 msg := msg , '\\in ' , sender receiver class name , '>>' , sender sender selector |
8374 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8375 ] ifFalse:[ |
8375 ] ifFalse:[ |
8376 label := 'Error in fileIn'. |
8376 label := 'Error in fileIn'. |
8377 msg := 'error in fileIn: %1' |
8377 msg := 'error in fileIn: %1' |
8378 ]]]. |
8378 ]]]. |
8379 |
8379 |