equal
deleted
inserted
replaced
1887 method notNil ifTrue:[ |
1887 method notNil ifTrue:[ |
1888 "/ special for #doIt |
1888 "/ special for #doIt |
1889 m := nil. |
1889 m := nil. |
1890 src := ('[' , method source , '\]') withCRs. |
1890 src := ('[' , method source , '\]') withCRs. |
1891 "/ blocksLineNr := self lineNumber. |
1891 "/ blocksLineNr := self lineNumber. |
1892 blocksLineNr := self home lineNumber. |
1892 blocksLineNr := (self home ? self) lineNumber. |
1893 extractFromBlock value. |
1893 extractFromBlock value. |
1894 ] |
1894 ] |
1895 ]. |
1895 ]. |
1896 |
1896 |
1897 method notNil ifTrue:[ |
1897 method notNil ifTrue:[ |
2114 ! ! |
2114 ! ! |
2115 |
2115 |
2116 !Context class methodsFor:'documentation'! |
2116 !Context class methodsFor:'documentation'! |
2117 |
2117 |
2118 version |
2118 version |
2119 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.123 2004-03-17 10:16:14 ca Exp $' |
2119 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.124 2004-03-20 13:43:21 cg Exp $' |
2120 ! ! |
2120 ! ! |
2121 |
2121 |
2122 Context initialize! |
2122 Context initialize! |