equal
deleted
inserted
replaced
826 class := classArg. |
826 class := classArg. |
827 selector := selectorArg. |
827 selector := selectorArg. |
828 ]) ifFalse:[^ self]. |
828 ]) ifFalse:[^ self]. |
829 |
829 |
830 selector isNil ifTrue:[ |
830 selector isNil ifTrue:[ |
831 stderr nextPutAll:(class definition); cr. |
831 stderr nextPutLine:(class definition). |
832 stderr nextPutAll:(class commentOrDocumentationString); cr. |
832 stderr nextPutLine:(class commentOrDocumentationString). |
833 ] ifFalse:[ |
833 ] ifFalse:[ |
834 source := class sourceCodeAt:selector asSymbol. |
834 source := class sourceCodeAt:selector asSymbol. |
835 source isEmptyOrNil ifTrue:[ |
835 stderr nextPutLine:(source isEmptyOrNil ifTrue:['Sorry, no sourcecode found'] ifFalse:[source]) |
836 stderr nextPutLine:'Sorry, no sourcecode found' |
|
837 ] ifFalse:[ |
|
838 stderr nextPutAll:source; cr |
|
839 ]. |
|
840 ]. |
836 ]. |
841 |
837 |
842 " |
838 " |
843 (ReadEvalPrintLoop basicNew error:Stderr) |
839 (ReadEvalPrintLoop basicNew error:Stderr) |
844 input:Stdin; |
840 input:Stdin; |