13 |
13 |
14 UIObjectView subclass:#UIPainterView |
14 UIObjectView subclass:#UIPainterView |
15 instanceVariableNames:'treeView listHolder superclassName className methodName |
15 instanceVariableNames:'treeView listHolder superclassName className methodName |
16 categoryName handleColorBlack handleColorWhite handleMasterColor |
16 categoryName handleColorBlack handleColorWhite handleMasterColor |
17 sketchPainter listOfAspectsHolder' |
17 sketchPainter listOfAspectsHolder' |
18 classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances |
18 classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances' |
19 GenerateCommentedCode' |
|
20 poolDictionaries:'' |
19 poolDictionaries:'' |
21 category:'Interface-UIPainter' |
20 category:'Interface-UIPainter' |
22 ! |
21 ! |
23 |
22 |
24 Object subclass:#ViewProperty |
23 Object subclass:#ViewProperty |
92 ! |
91 ! |
93 |
92 |
94 generateCommentedCode |
93 generateCommentedCode |
95 "comments in generated aspect methods; yes or no." |
94 "comments in generated aspect methods; yes or no." |
96 |
95 |
97 ^ GenerateCommentedCode ? true |
96 ^ UserPreferences current generateComments |
98 |
97 and:[ UserPreferences current generateCommentsForAspectMethods ] |
99 "Modified: / 12-01-2008 / 10:21:06 / cg" |
|
100 ! |
98 ! |
101 |
99 |
102 generateCommentedCode:aBoolean |
100 generateCommentedCode:aBoolean |
103 "comments in generated aspect methods; yes or no." |
101 "comments in generated aspect methods; yes or no." |
104 |
102 |
105 GenerateCommentedCode := aBoolean |
103 UserPreferences current |
|
104 generateComments:true; |
|
105 generateCommentsForAspectMethods:true. |
106 ! |
106 ! |
107 |
107 |
108 redefineAspectMethods |
108 redefineAspectMethods |
109 "redefine methods yes or no. |
109 "redefine methods yes or no. |
110 If a method is defined in super class should the message be reinstalled ?" |
110 If a method is defined in super class should the message be reinstalled ?" |
1018 ! |
1018 ! |
1019 |
1019 |
1020 generateAspectMethodCode |
1020 generateAspectMethodCode |
1021 "generate aspect, action & menu methods |
1021 "generate aspect, action & menu methods |
1022 - but do not overwrite existing ones. |
1022 - but do not overwrite existing ones. |
1023 Return a string ready to compile into the application class." |
1023 Return a string ready to compile into the application class. |
|
1024 TODO: refactor and move to CodeGenerator" |
1024 |
1025 |
1025 ^ self generateAspectMethodCodeFiltering:nil |
1026 ^ self generateAspectMethodCodeFiltering:nil |
1026 ! |
1027 ! |
1027 |
1028 |
1028 generateAspectMethodCodeFiltering:aFilterOrEmpty |
1029 generateAspectMethodCodeFiltering:aFilterOrEmpty |
1029 "generate aspect, action & menu methods |
1030 "generate aspect, action & menu methods |
1030 - but do not overwrite existing ones. |
1031 - but do not overwrite existing ones. |
1031 Return a string ready to compile into the application class." |
1032 Return a string ready to compile into the application class. |
|
1033 TODO: refactor and move to CodeGenerator" |
1032 |
1034 |
1033 |cls codePieces skip protoSpec thisCode |
1035 |cls codePieces skip protoSpec thisCode |
1034 definedMethodSelectors iVars t exportSels| |
1036 definedMethodSelectors iVars t exportSels| |
1035 |
1037 |
1036 cls := self targetClass. |
1038 cls := self targetClass. |