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