equal
deleted
inserted
replaced
107 modelToInspect := nil. |
107 modelToInspect := nil. |
108 ]. |
108 ]. |
109 ]. |
109 ]. |
110 |
110 |
111 |
111 |
112 s nextPutLine:('View: ' , aView class name). |
112 s nextPutLine:('View: ' , aView class name, ' "',aView name printString,'"'). |
113 modelToInspect notNil ifTrue:[ |
113 modelToInspect notNil ifTrue:[ |
114 s nextPutLine:('Model: ' , modelToInspect class name). |
114 s nextPutLine:('Model: ' , modelToInspect class name). |
115 ]. |
115 ]. |
116 topViewToInspect notNil ifTrue:[ |
116 topViewToInspect notNil ifTrue:[ |
117 s nextPutLine:('Topview: ' , topViewToInspect class name). |
117 s nextPutLine:('Topview: ' , topViewToInspect class name). |