equal
deleted
inserted
replaced
8094 |
8094 |
8095 openChangesBrowser |
8095 openChangesBrowser |
8096 "open a change browser on the selected file(s)" |
8096 "open a change browser on the selected file(s)" |
8097 |
8097 |
8098 self currentSelectedDirectories notEmptyOrNil ifTrue:[ |
8098 self currentSelectedDirectories notEmptyOrNil ifTrue:[ |
8099 self currentSelectedDirectories do:[:fn | |
8099 GitHubSmalltalkPackageReader notNil ifTrue:[ |
8100 (fn suffix = 'package') ifTrue:[ |
8100 self currentSelectedDirectories do:[:fn | |
8101 ChangeSetBrowser openOn:(GitHubSmalltalkPackageReader readPackageFrom:fn). |
8101 (fn suffix = 'package') ifTrue:[ |
8102 ]. |
8102 ChangeSetBrowser openOn:(GitHubSmalltalkPackageReader readPackageFrom:fn). |
8103 (fn suffix = 'class') ifTrue:[ |
8103 ]. |
8104 ChangeSetBrowser openOn:(GitHubSmalltalkClassReader readPackageFrom:fn). |
8104 (fn suffix = 'class') ifTrue:[ |
8105 ]. |
8105 ChangeSetBrowser openOn:(GitHubSmalltalkClassReader readClassFrom:fn). |
8106 ]. |
8106 ]. |
8107 ^ self. |
8107 ]. |
|
8108 ^ self. |
|
8109 ]. |
8108 ]. |
8110 ]. |
8109 |
8111 |
8110 self openTool:(UserPreferences current changesBrowserClass) |
8112 self openTool:(UserPreferences current changesBrowserClass) |
8111 |
8113 |
8112 "Modified: / 30-06-2018 / 18:35:51 / Claus Gittinger" |
8114 "Modified: / 30-06-2018 / 20:33:24 / Claus Gittinger" |
8113 ! |
8115 ! |
8114 |
8116 |
8115 openDiffView |
8117 openDiffView |
8116 "open a diff-view on the two selected files" |
8118 "open a diff-view on the two selected files" |
8117 |
8119 |