equal
deleted
inserted
replaced
904 ]. |
904 ]. |
905 spec := treeView exportedAspects. |
905 spec := treeView exportedAspects. |
906 spec size == 0 ifTrue:[^ nil]. |
906 spec size == 0 ifTrue:[^ nil]. |
907 |
907 |
908 "/ make it an array ... |
908 "/ make it an array ... |
909 spec := spec collect:[:entry | |
909 spec := spec collect:[:entry | |subAspect type| |
910 entry type isNil ifTrue:[ |
910 subAspect := entry subAspect asSymbol. |
911 entry subAspect |
911 (type := entry type) isNil ifTrue:[ |
|
912 subAspect |
912 ] ifFalse:[ |
913 ] ifFalse:[ |
913 Array with:entry subAspect with:entry type |
914 Array with:subAspect with:type asSymbol |
914 ]. |
915 ]. |
915 ]. |
916 ]. |
916 spec := spec asArray. |
917 spec := spec asArray. |
917 |
918 |
918 code := '!!' , cls name , ' class methodsFor:''plugIn spec''!!\\' . |
919 code := '!!' , cls name , ' class methodsFor:''plugIn spec''!!\\' . |
926 |
927 |
927 "Return a description of exported aspects; |
928 "Return a description of exported aspects; |
928 these can be connected to aspects of an embedding application |
929 these can be connected to aspects of an embedding application |
929 (if this app is embedded in a subCanvas)." |
930 (if this app is embedded in a subCanvas)." |
930 |
931 |
931 ^ ' , spec storeString , '\!!\'. |
932 ^ #(\'. |
|
933 spec do:[:el | code := code , (' ' , el storeString , '\') ]. |
|
934 code := code , ' ).\'. |
|
935 code := code , '\!!\'. |
932 code := code withCRs. |
936 code := code withCRs. |
933 ^ code |
937 ^ code |
934 |
938 |
|
939 "Modified: / 18.2.2000 / 02:08:34 / cg" |
935 ! |
940 ! |
936 |
941 |
937 generateAspectSetMethodFor:aspect spec:protoSpec inClass:targetClass |
942 generateAspectSetMethodFor:aspect spec:protoSpec inClass:targetClass |
938 |code| |
943 |code| |
939 |
944 |