36835 |pkcs7SignedData patchesDir expeccoVersionArray| |
36835 |pkcs7SignedData patchesDir expeccoVersionArray| |
36836 |
36836 |
36837 expeccoVersionArray := (Smalltalk at:#'Expecco::Expecco') versionArray. |
36837 expeccoVersionArray := (Smalltalk at:#'Expecco::Expecco') versionArray. |
36838 patchesDir := (Smalltalk at:#exept_expecco) packageDirectory / 'patches' |
36838 patchesDir := (Smalltalk at:#exept_expecco) packageDirectory / 'patches' |
36839 / ('%1.%2.%3' expandPlaceholdersWith:expeccoVersionArray). |
36839 / ('%1.%2.%3' expandPlaceholdersWith:expeccoVersionArray). |
36840 |
36840 patchesDir exists ifFalse:[ |
|
36841 "if the version specific patch director does not exists, suggest parent" |
|
36842 patchesDir := patchesDir directoryName. |
|
36843 ]. |
|
36844 patchesDir := Dialog |
|
36845 requestDirectoryName:'Select patch directory:' |
|
36846 default:patchesDir. |
|
36847 patchesDir isNil ifTrue:[ |
|
36848 ^ self. |
|
36849 ]. |
|
36850 patchesDir := patchesDir asFilename. |
36841 patchesDir exists ifFalse:[ |
36851 patchesDir exists ifFalse:[ |
36842 "Not an expecco development version - fall back" |
36852 "Not an expecco development version - fall back" |
36843 patchesDir := (Smalltalk at:#'Expecco::Expecco') patchesDir. |
36853 patchesDir := (Smalltalk at:#'Expecco::Expecco') patchesDir. |
36844 patchesDir exists ifFalse:[ |
36854 patchesDir exists ifFalse:[ |
36845 patchesDir recursiveMakeDirectory. |
36855 patchesDir recursiveMakeDirectory. |
36871 UserPreferences fileBrowserClass openOn:generatedPatchFilename |
36881 UserPreferences fileBrowserClass openOn:generatedPatchFilename |
36872 ]. |
36882 ]. |
36873 |
36883 |
36874 "Created: / 26-09-2012 / 15:13:07 / cg" |
36884 "Created: / 26-09-2012 / 15:13:07 / cg" |
36875 "Modified: / 17-01-2014 / 11:55:51 / sr" |
36885 "Modified: / 17-01-2014 / 11:55:51 / sr" |
|
36886 "Modified: / 07-03-2017 / 12:43:34 / stefan" |
36876 ! |
36887 ! |
36877 |
36888 |
36878 doCompareClassesWithRepository:collectionOfClasses |
36889 doCompareClassesWithRepository:collectionOfClasses |
36879 self doCompareClassesWithRepository:collectionOfClasses usingManager:nil |
36890 self doCompareClassesWithRepository:collectionOfClasses usingManager:nil |
36880 |
36891 |