equal
deleted
inserted
replaced
2141 cls isNil ifTrue:[ |
2141 cls isNil ifTrue:[ |
2142 ^ self information:'class not existant'. |
2142 ^ self information:'class not existant'. |
2143 ]. |
2143 ]. |
2144 |
2144 |
2145 (cls respondsTo:specSelector) ifFalse:[ |
2145 (cls respondsTo:specSelector) ifFalse:[ |
2146 self halt. |
|
2147 ^ self information:('no method for: #' |
2146 ^ self information:('no method for: #' |
2148 , specSelector , ' in ' , cls name , |
2147 , specSelector , ' in ' , cls name , |
2149 '\\(did you install the spec ?)') withCRs. |
2148 '\\(did you install the spec ?)') withCRs. |
2150 ]. |
2149 ]. |
2151 cls new openInterface:specSelector |
2150 cls new openInterface:specSelector |