equal
deleted
inserted
replaced
65 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
65 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
66 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
66 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
67 OTHER DEALINGS IN THE SOFTWARE. |
67 OTHER DEALINGS IN THE SOFTWARE. |
68 " |
68 " |
69 ! ! |
69 ! ! |
|
70 |
70 |
71 |
71 !MethodRewriter class methodsFor:'example templates'! |
72 !MethodRewriter class methodsFor:'example templates'! |
72 |
73 |
73 templateReplaceAtIfAbsentByAtAifAbsentPut |
74 templateReplaceAtIfAbsentByAtAifAbsentPut |
74 |
75 |
152 self templates |
153 self templates |
153 " |
154 " |
154 |
155 |
155 "Created: / 12-12-2007 / 11:03:32 / janfrog" |
156 "Created: / 12-12-2007 / 11:03:32 / janfrog" |
156 ! ! |
157 ! ! |
|
158 |
157 |
159 |
158 !MethodRewriter class methodsFor:'interface specs'! |
160 !MethodRewriter class methodsFor:'interface specs'! |
159 |
161 |
160 classesSpec |
162 classesSpec |
161 "This resource specification was automatically generated |
163 "This resource specification was automatically generated |
498 ) |
500 ) |
499 |
501 |
500 "Modified: / 12-12-2007 / 11:39:31 / janfrog" |
502 "Modified: / 12-12-2007 / 11:39:31 / janfrog" |
501 ! ! |
503 ! ! |
502 |
504 |
|
505 |
503 !MethodRewriter class methodsFor:'list specs'! |
506 !MethodRewriter class methodsFor:'list specs'! |
504 |
507 |
505 tabList |
508 tabList |
506 "This resource specification was automatically generated |
509 "This resource specification was automatically generated |
507 by the TabListEditor of ST/X." |
510 by the TabListEditor of ST/X." |
536 collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ] |
539 collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ] |
537 |
540 |
538 "Modified: / 12-12-2007 / 11:21:27 / janfrog" |
541 "Modified: / 12-12-2007 / 11:21:27 / janfrog" |
539 ! ! |
542 ! ! |
540 |
543 |
|
544 |
541 !MethodRewriter methodsFor:'accessing'! |
545 !MethodRewriter methodsFor:'accessing'! |
542 |
546 |
543 actionInProgress: aBoolean |
547 actionInProgress: aBoolean |
544 |
548 |
545 ^self actionInProgresHolder value: aBoolean |
549 ^self actionInProgresHolder value: aBoolean |
620 ^ templates |
624 ^ templates |
621 |
625 |
622 "Created: / 12-12-2007 / 11:17:55 / janfrog" |
626 "Created: / 12-12-2007 / 11:17:55 / janfrog" |
623 ! ! |
627 ! ! |
624 |
628 |
|
629 |
625 !MethodRewriter methodsFor:'actions'! |
630 !MethodRewriter methodsFor:'actions'! |
|
631 |
|
632 |
626 |
633 |
627 doRewrite: methodsMatching |
634 doRewrite: methodsMatching |
628 | changes compositeChangeCollector | |
635 | changes compositeChangeCollector | |
629 |
636 |
630 changes := ChangeSet new name:'Rewrite Changes'. |
637 changes := ChangeSet new name:'Rewrite Changes'. |
726 self selectedTabIndex value:1 |
733 self selectedTabIndex value:1 |
727 |
734 |
728 "Created: / 12-12-2007 / 11:14:15 / janfrog" |
735 "Created: / 12-12-2007 / 11:14:15 / janfrog" |
729 ! ! |
736 ! ! |
730 |
737 |
|
738 |
731 !MethodRewriter methodsFor:'aspects'! |
739 !MethodRewriter methodsFor:'aspects'! |
732 |
740 |
733 actionInProgresHolder |
741 actionInProgresHolder |
734 "automatically generated by UIPainter ..." |
742 "automatically generated by UIPainter ..." |
735 |
743 |
893 ^ templateSearchPatternHolder. |
901 ^ templateSearchPatternHolder. |
894 |
902 |
895 "Created: / 12-12-2007 / 11:17:16 / janfrog" |
903 "Created: / 12-12-2007 / 11:17:16 / janfrog" |
896 ! ! |
904 ! ! |
897 |
905 |
|
906 |
898 !MethodRewriter methodsFor:'change & update'! |
907 !MethodRewriter methodsFor:'change & update'! |
899 |
908 |
900 selectedTemplateIndexChanged |
909 selectedTemplateIndexChanged |
901 |
910 |
902 self templateSearchPatternHolder value: self selectedTemplate second. |
911 self templateSearchPatternHolder value: self selectedTemplate second. |
903 self templateReplacePatternHolder value: self selectedTemplate third. |
912 self templateReplacePatternHolder value: self selectedTemplate third. |
904 |
913 |
905 "Created: / 12-12-2007 / 11:20:16 / janfrog" |
914 "Created: / 12-12-2007 / 11:20:16 / janfrog" |
906 ! ! |
915 ! ! |
|
916 |
907 |
917 |
908 !MethodRewriter methodsFor:'drag & drop'! |
918 !MethodRewriter methodsFor:'drag & drop'! |
909 |
919 |
910 canDropClasses: dropContext |
920 canDropClasses: dropContext |
911 |
921 |
931 changed:#content |
941 changed:#content |
932 |
942 |
933 "Created: / 20-07-2007 / 16:58:16 / janfrog" |
943 "Created: / 20-07-2007 / 16:58:16 / janfrog" |
934 ! ! |
944 ! ! |
935 |
945 |
|
946 |
936 !MethodRewriter methodsFor:'hooks'! |
947 !MethodRewriter methodsFor:'hooks'! |
937 |
948 |
938 postBuildFindTextView: scrollableView |
949 postBuildFindTextView: scrollableView |
939 |
950 |
940 searchTextView := scrollableView scrolledView |
951 searchTextView := scrollableView scrolledView |
946 |
957 |
947 replaceTextView := scrollableView scrolledView |
958 replaceTextView := scrollableView scrolledView |
948 |
959 |
949 "Created: / 20-07-2007 / 15:55:29 / janfrog" |
960 "Created: / 20-07-2007 / 15:55:29 / janfrog" |
950 ! ! |
961 ! ! |
|
962 |
951 |
963 |
952 !MethodRewriter methodsFor:'private'! |
964 !MethodRewriter methodsFor:'private'! |
953 |
965 |
954 doSearch: pattern withResultDo: block |
966 doSearch: pattern withResultDo: block |
955 |
967 |
1065 finallyDo: finallyBlock |
1077 finallyDo: finallyBlock |
1066 |
1078 |
1067 "Modified: / 12-12-2007 / 10:32:48 / janfrog" |
1079 "Modified: / 12-12-2007 / 10:32:48 / janfrog" |
1068 ! ! |
1080 ! ! |
1069 |
1081 |
|
1082 |
1070 !MethodRewriter methodsFor:'testing method'! |
1083 !MethodRewriter methodsFor:'testing method'! |
1071 |
1084 |
1072 testXXX |
1085 testXXX |
1073 self halt:'Was halt' |
1086 self halt:'Was halt' |
1074 |
1087 |
1075 "Created: / 21-07-2007 / 07:55:24 / janfrog" |
1088 "Created: / 21-07-2007 / 07:55:24 / janfrog" |
1076 "Modified: / 12-12-2007 / 10:45:20 / janfrog" |
1089 "Modified: / 12-12-2007 / 10:45:20 / janfrog" |
1077 ! ! |
1090 ! ! |
1078 |
1091 |
|
1092 |
1079 !MethodRewriter class methodsFor:'documentation'! |
1093 !MethodRewriter class methodsFor:'documentation'! |
1080 |
1094 |
1081 version_CVS |
1095 version_CVS |
1082 ^ '§Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.16 2012/08/03 19:21:17 stefan Exp §' |
1096 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.16 2012-08-03 19:21:17 stefan Exp $' |
1083 ! |
1097 ! |
1084 |
1098 |
1085 version_SVN |
1099 version_SVN |
1086 ^ '$Id: Tools__MethodRewriter.st 8048 2012-09-07 17:28:09Z vranyj1 $' |
1100 ^ '§Id: Tools__MethodRewriter.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1087 ! ! |
1101 ! ! |
|
1102 |