equal
deleted
inserted
replaced
29929 browseClassPackagesResourceDirectoryOf:aClass |
29929 browseClassPackagesResourceDirectoryOf:aClass |
29930 "open a filebrowser in the class package's resource directory" |
29930 "open a filebrowser in the class package's resource directory" |
29931 |
29931 |
29932 |fileBrowser dir fn| |
29932 |fileBrowser dir fn| |
29933 |
29933 |
29934 fileBrowser := UserPreferences fileBrowserClass. |
29934 fileBrowser := FileBrowser default. |
29935 |
29935 |
29936 dir := aClass theNonMetaclass packageDirectory. |
29936 dir := aClass theNonMetaclass packageDirectory. |
29937 (dir asFilename exists and:[(fn := dir / 'resources') exists]) ifTrue:[ |
29937 (dir asFilename exists and:[(fn := dir / 'resources') exists]) ifTrue:[ |
29938 fileBrowser openIn:fn |
29938 fileBrowser openIn:fn |
29939 ] ifFalse:[ |
29939 ] ifFalse:[ |
29940 fileBrowser openIn:dir |
29940 fileBrowser openIn:dir |
29941 ] |
29941 ] |
29942 |
29942 |
29943 "Created: / 25-11-2016 / 15:05:01 / cg" |
29943 "Created: / 25-11-2016 / 15:05:01 / cg" |
|
29944 "Modified: / 01-09-2017 / 14:06:06 / cg" |
29944 ! |
29945 ! |
29945 |
29946 |
29946 browseClassesPackageDirectoryOf:aClassOrMeta |
29947 browseClassesPackageDirectoryOf:aClassOrMeta |
29947 "open a filebrowser in the classes package directory" |
29948 "open a filebrowser in the classes package directory" |
29948 |
29949 |
29953 aClass package == PackageId noProjectID ifTrue:[ |
29954 aClass package == PackageId noProjectID ifTrue:[ |
29954 Dialog warn:'No project directory (the class is not assigned to any package).'. |
29955 Dialog warn:'No project directory (the class is not assigned to any package).'. |
29955 ^ self. |
29956 ^ self. |
29956 ]. |
29957 ]. |
29957 |
29958 |
29958 fileBrowser := UserPreferences fileBrowserClass. |
29959 fileBrowser := FileBrowser default. |
29959 |
29960 |
29960 dir := aClass theNonMetaclass packageDirectory. |
29961 dir := aClass theNonMetaclass packageDirectory. |
29961 dir isNil ifTrue:[ |
29962 dir isNil ifTrue:[ |
29962 dir := Smalltalk packageDirectoryForPackageId:aClass package. |
29963 dir := Smalltalk packageDirectoryForPackageId:aClass package. |
29963 dir isNil ifTrue:[ |
29964 dir isNil ifTrue:[ |
29970 ] ifFalse:[ |
29971 ] ifFalse:[ |
29971 fileBrowser openIn:dir |
29972 fileBrowser openIn:dir |
29972 ] |
29973 ] |
29973 |
29974 |
29974 "Created: / 25-11-2016 / 15:06:05 / cg" |
29975 "Created: / 25-11-2016 / 15:06:05 / cg" |
29975 "Modified: / 24-02-2017 / 16:54:27 / cg" |
29976 "Modified: / 01-09-2017 / 14:06:10 / cg" |
29976 ! |
29977 ! |
29977 |
29978 |
29978 checkCompilabilityOf:aClass errorsOnly:errorsOnly notify:warningCollector reportFailedMethodsInto:aBlock |
29979 checkCompilabilityOf:aClass errorsOnly:errorsOnly notify:warningCollector reportFailedMethodsInto:aBlock |
29979 "check compilability of aClass; write warning and errormessages to outStream. |
29980 "check compilability of aClass; write warning and errormessages to outStream. |
29980 (meant for a human to read)" |
29981 (meant for a human to read)" |
30678 ]. |
30679 ]. |
30679 files isEmpty ifTrue:[ |
30680 files isEmpty ifTrue:[ |
30680 self warn:'No resource files'. |
30681 self warn:'No resource files'. |
30681 ]. |
30682 ]. |
30682 files do:[:eachFile | |
30683 files do:[:eachFile | |
30683 UserPreferences fileBrowserClass openOn:eachFile |
30684 FileBrowser default openOn:eachFile |
30684 ]. |
30685 ]. |
|
30686 |
|
30687 "Modified: / 01-09-2017 / 14:06:15 / cg" |
30685 ! |
30688 ! |
30686 |
30689 |
30687 classMenuExcludeFromProject |
30690 classMenuExcludeFromProject |
30688 |projectDefinitionClasses| |
30691 |projectDefinitionClasses| |
30689 |
30692 |
37129 answer == #show ifTrue:[ |
37132 answer == #show ifTrue:[ |
37130 browseFile := true. |
37133 browseFile := true. |
37131 ]. |
37134 ]. |
37132 |
37135 |
37133 browseFile ifTrue:[ |
37136 browseFile ifTrue:[ |
37134 UserPreferences fileBrowserClass openOn:generatedPatchFilename |
37137 FileBrowser default openOn:generatedPatchFilename |
37135 ]. |
37138 ]. |
37136 |
37139 |
37137 "Created: / 26-09-2012 / 15:13:07 / cg" |
37140 "Created: / 26-09-2012 / 15:13:07 / cg" |
37138 "Modified: / 17-01-2014 / 11:55:51 / sr" |
37141 "Modified: / 17-01-2014 / 11:55:51 / sr" |
37139 "Modified: / 07-03-2017 / 12:43:34 / stefan" |
37142 "Modified: / 07-03-2017 / 12:43:34 / stefan" |
|
37143 "Modified: / 01-09-2017 / 14:06:20 / cg" |
37140 ! |
37144 ! |
37141 |
37145 |
37142 doCompareClassesWithRepository:collectionOfClasses |
37146 doCompareClassesWithRepository:collectionOfClasses |
37143 self doCompareClassesWithRepository:collectionOfClasses usingManager:nil |
37147 self doCompareClassesWithRepository:collectionOfClasses usingManager:nil |
37144 |
37148 |
41728 ! |
41732 ! |
41729 |
41733 |
41730 projectMenuBrowsePackageDirectory |
41734 projectMenuBrowsePackageDirectory |
41731 "open a filebrowser in the package directory" |
41735 "open a filebrowser in the package directory" |
41732 |
41736 |
41733 UserPreferences fileBrowserClass |
41737 FileBrowser default |
41734 openIn:(self theSingleSelectedProject asPackageId packageDirectory) |
41738 openIn:(self theSingleSelectedProject asPackageId packageDirectory) |
|
41739 |
|
41740 "Modified: / 01-09-2017 / 14:06:23 / cg" |
41735 ! |
41741 ! |
41736 |
41742 |
41737 projectMenuBuild |
41743 projectMenuBuild |
41738 self projectMenuBuildExeOnly:false |
41744 self projectMenuBuildExeOnly:false |
41739 |
41745 |