Fix #1261 and #1260

Iceberg/Iceberg.class.st

@@ -74,7 +74,7 @@ Iceberg class >> enableMetacelloIntegration: anObject [
 	EnableMetacelloIntegration := anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 Iceberg class >> icebergRepositoriesURLs [
 	^ {
 		'[email protected]:pharo-vcs/iceberg.git'. 
@@ -98,7 +98,7 @@ Iceberg class >> initializeSettings [
 			class updateSettingNodes: nodes ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 Iceberg class >> mcRepositoryFor: aLocationString [
 	^ (IceMetacelloRepositoryType for: aLocationString) mcRepository 
 ]
@@ -157,7 +157,8 @@ Iceberg class >> settingsOn: aBuilder [
 						description: 'When creating an Iceberg repository out of a github:// URL choose whether you want to user an SCP URL (i.e. with the form ''[email protected]:<username>/<project>.git'') or an HTTPS URL (i.e. with the form ''https://github.com/<username>/<project>.git''';
 						domainValues:
 							{('SCP ([email protected]:<username>/<project>.git)' -> #scpUrl).
-							('HTTPS (https://github.com/<username>/<project>.git)' -> #httpsUrl)} ] ]
+							('HTTPS (https://github.com/<username>/<project>.git)' -> #httpsUrl).
+							('HTTP (http://github.com/<username>/<project>.git)' -> #httpUrl)} ] ]
 ]
 
 { #category : #settings }

Iceberg/MCGitBasedNetworkRepository.extension.st

@@ -45,3 +45,15 @@ MCGitBasedNetworkRepository >> getOrCreateIcebergRepository [
 			remote := IceGitRemote url: remoteUrl.
 			self createIcebergRepositoryWithFallbackFor: remote url: remoteUrl ]
 ]
+
+{ #category : #'*Iceberg' }
+MCGitBasedNetworkRepository >> httpUrl [
+
+	^ self httpsUrl copyReplaceAll: 'https://' with: 'http://'
+]
+
+{ #category : #'*Iceberg' }
+MCGitBasedNetworkRepository >> httpsUrl [
+
+	self subclassResponsibility
+]