2082 treeView := self treeView. |
2082 treeView := self treeView. |
2083 selector := treeView selectorName. |
2083 selector := treeView selectorName. |
2084 menu := treeView asMenu. |
2084 menu := treeView asMenu. |
2085 |
2085 |
2086 menu isNil ifTrue:[ |
2086 menu isNil ifTrue:[ |
2087 ^ self information:'No menu defined.' |
2087 ^ self information:'No menu defined!!' |
2088 ]. |
2088 ]. |
2089 menu := menu literalArrayEncoding. |
2089 menu := menu literalArrayEncoding. |
2090 spec := WriteStream on:String new. |
2090 spec := WriteStream on:String new. |
2091 UISpecification prettyPrintSpecArray:menu on:spec indent:5. |
2091 UISpecification prettyPrintSpecArray:menu on:spec indent:5. |
2092 spec := spec contents. |
2092 spec := spec contents. |
2093 |
2093 |
2094 "/ if that method already exists, do not overwrite the category |
2094 "/ if that method already exists, do not overwrite the category |
2095 |
2095 |
2096 category := 'interface specs'. |
2096 category := 'menu specs'. |
2097 (mthd := cls class compiledMethodAt:selector) notNil ifTrue:[ |
2097 (mthd := cls class compiledMethodAt:selector) notNil ifTrue:[ |
2098 category := mthd category. |
2098 category := mthd category. |
2099 ]. |
2099 ]. |
2100 |
2100 |
2101 code := Character excla asString |
2101 code := Character excla asString |