even if there is an intromission from "IceLog" class that need to be …

…reviewed

Iceberg-Libgit.package/IceLibgitLocalRepository.class/instance/cloneRepositoryFrom.branch..st

@@ -7,10 +7,12 @@ cloneRepositoryFrom: aRemote branch: aBranchName
 		| repo cloneOptions |
 		repo := LGitRepository on: self location.
 		cloneOptions := LGitCloneOptions withCredentialsProvider: IceCredentialsProvider default.
-
+		cloneOptions checkoutOptions checkoutStrategy: LGitCheckoutStrategyEnum git_checkout_none.
 		repo clone: url options: cloneOptions.
-		aBranchName ifNotNil: [ 
-			repo checkout: aBranchName ].
+		repo checkout: (aBranchName ifNil: [ 
+			self branch
+				ifNotNil: [ :b | b name ]
+				ifNil: [ 'master' ] ]).
 
 		(LGitRemote of: repo named: 'origin')
 			lookup;

Iceberg-Plugin.package/IcePluginManager.class/class/managerFor..st

@@ -1,5 +1,3 @@
 instance creation
 managerFor: aRepository
-	^ self managers 
-		at: aRepository 
-		ifAbsentPut: [ self basicNew initializeRepository: aRepository ].
+	^ self basicNew initializeRepository: aRepository

Iceberg-Plugin.package/IcePluginManager.class/instance/availablePluginsFor..st

@@ -1,4 +1,4 @@
-initialization
+private
 availablePluginsFor: aRepository
 	^ (IcePlugin allAvailableFor: aRepository) 
 		collect: #new

Iceberg-Plugin.package/IcePluginManager.class/instance/configurePluginsFor..st

@@ -0,0 +1,3 @@
+accessing
+configurePluginsFor: aRepository
+	plugins := self availablePluginsFor: aRepository

Iceberg-Plugin.package/IcePluginManager.class/instance/initializeRepository..st

@@ -1,4 +1,4 @@
 initialization
 initializeRepository: aRepository.
 	self initialize.
-	plugins := self availablePluginsFor: aRepository
+	self configurePluginsFor: aRepository

Iceberg-Plugin.package/IcePluginManager.class/properties.json

@@ -4,9 +4,7 @@
 	"category" : "Iceberg-Plugin-Base",
 	"classinstvars" : [ ],
 	"pools" : [ ],
-	"classvars" : [
-		"Managers"
-	],
+	"classvars" : [ ],
 	"instvars" : [
 		"plugins"
 	],

Iceberg-Plugin.package/monticello.meta/categories.st

@@ -1,4 +1,4 @@
 SystemOrganization addCategory: #'Iceberg-Plugin'!
-SystemOrganization addCategory: 'Iceberg-Plugin-Base'!
-SystemOrganization addCategory: 'Iceberg-Plugin-General'!
-SystemOrganization addCategory: 'Iceberg-Plugin-Pharo-FogBugz'!
+SystemOrganization addCategory: #'Iceberg-Plugin-Base'!
+SystemOrganization addCategory: #'Iceberg-Plugin-General'!
+SystemOrganization addCategory: #'Iceberg-Plugin-Pharo-FogBugz'!

Iceberg-UI.package/IceAbstractModel.class/class/compactIfNeeded.st

@@ -1,5 +1,7 @@
 private
 compactIfNeeded
+	| newModelCache |
 	self models size > 250 ifFalse: [ ^ self ].
-	"it looks like rehash will do what I need :)"
-	modelCache rehash
+	newModelCache := self models select: [ :each | each notNil ].
+	modelCache := newModelCache
+

Iceberg-UI.package/IceAbstractModel.class/class/modelFor..st

@@ -1,14 +1,17 @@
 instance creation
 modelFor: entity
 	| model |
-	"We are using a WeakSet for keeping models because using a dictionary (sorted by 
-	 name) has problems when cleaning. This should be efficient enough, but we'll see."
-	model := self models 
-		detect: [ :each | each entity name = entity name ] 
-		ifNone: [ nil ].
+	"We are using WeakValueDictionary to keep this sinchronized (in case you have more than 
+	 one window open, you want always same model). Now, it has to be cleaned when windows are 
+	 no longer around, but associations will be nil... so we cannot use a simple ifAbsentPut:. 
+	 Yep, ugly... but effective."
+
+	model := self models at: entity name ifAbsent: [ nil ].
 	^ model ifNil: [ 
 		self compactIfNeeded.
-		self models add: (self basicNew 
-			entity: entity; 
-			initialize; 
-			yourself) ]
+		self models 
+			at: entity name
+			put: (self basicNew 
+				entity: entity; 
+				initialize; 
+				yourself) ]

Iceberg-UI.package/IceAbstractModel.class/class/models.st

@@ -3,4 +3,4 @@ models
 	"since a repository can have same name as a package (and we keep models by name), 
 	 I need to keep this as an instance of class and not a variable (who would be 
 	 shared by all hierarchy and because of that prone to errors)"
-	^ modelCache ifNil: [ modelCache := WeakSet new ]
+	^ modelCache ifNil: [ modelCache := WeakValueDictionary new ]

Iceberg-UI.package/IceCloneRepositoryModel.class/instance/configureRepository..st

@@ -0,0 +1,3 @@
+private
+configureRepository: aRepository
+	aRepository register	

Iceberg-UI.package/IceCloneRepositoryModel.class/instance/createRepository.st

@@ -8,7 +8,7 @@ createRepository
 			location: self location;
 			subdirectory: subdirectory text;
 			createRepository.
-		repository register.
+		self configureRepository: repository.
 
 		self window delete. 
 	]

Iceberg-UI.package/IceRepositoryModel.class/instance/restore.st

@@ -1,4 +1,3 @@
 actions
 restore
-	self repository backend cloneRepository.
-	self repository refresh.
+	(IceRestoreRepositoryModel repository: self repository) openWithSpec

Iceberg-UI.package/IceRestoreRepositoryModel.class/class/new.st

@@ -0,0 +1,3 @@
+instance creation
+new
+	self error: 'Use #repository:'

Iceberg-UI.package/IceRestoreRepositoryModel.class/class/repository..st

@@ -0,0 +1,5 @@
+instance creation
+repository: aRepository
+	^ self basicNew 
+		initializeRepository: aRepository;
+		yourself

Iceberg-UI.package/IceRestoreRepositoryModel.class/instance/configureRepository..st

@@ -0,0 +1,6 @@
+private
+configureRepository: aRepository
+	repository location = aRepository location 
+		ifFalse: [ repository location: aRepository location ].
+	repository subdirectory = aRepository subdirectory 
+		ifFalse: [ repository subdirectory: aRepository subdirectory ]

Iceberg-UI.package/IceRestoreRepositoryModel.class/instance/initializeRepository..st

@@ -0,0 +1,8 @@
+initialization
+initializeRepository: aRepository
+	repository := aRepository.	
+	self initialize.
+	repository location ifNotNil: [ 
+		remoteUrl text: repository origin url.
+		localDirectoryLocation location: repository location ].
+	 subdirectory text: repository subdirectory

Iceberg-UI.package/IceRestoreRepositoryModel.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "IceCloneRepositoryModel",
+	"category" : "Iceberg-UI-View",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"repository"
+	],
+	"name" : "IceRestoreRepositoryModel",
+	"type" : "normal"
+}

Iceberg.package/IceCommitInfo.class/instance/mergeBaseWith..st

@@ -1,4 +1,4 @@
 querying
 mergeBaseWith: anotherCommit
 	^ self repository commitAt: 
-		(self repository backend mergeBaseBetween: self id and: anotherCommit id)
+		(self repository mergeBaseBetween: self id and: anotherCommit id)

Iceberg.package/IceLog.class/class/for..st

@@ -0,0 +1,5 @@
+instance creation
+for: aRepository
+	^ self basicNew
+		initializeRepository: aRepository;
+		yourself	

Iceberg.package/IceLog.class/class/new.st

@@ -0,0 +1,3 @@
+instance creation
+new
+	self error: '#for:'

Iceberg.package/IceLog.class/instance/cypressClassOrTraitName..st

@@ -0,0 +1,4 @@
+private
+cypressClassOrTraitName: aMethod
+	^ aMethod origin name, (self cypressMethodClassExtension: aMethod)
+

Iceberg.package/IceLog.class/instance/cypressMethodClassExtension..st

@@ -0,0 +1,5 @@
+private
+cypressMethodClassExtension: aMethod 
+	aMethod isExtension ifTrue: [ ^ '.extension' ].
+	aMethod origin isTrait ifTrue: [ ^ '.trait' ].
+	^ '.class'

Iceberg.package/IceLog.class/instance/cypressMethodName..st

@@ -0,0 +1,3 @@
+private
+cypressMethodName: aMethod
+	^ (MCFileTreeStCypressWriter fileNameForSelector: aMethod selector asString), '.st'

Iceberg.package/IceLog.class/instance/cypressMethodSideName..st

@@ -0,0 +1,5 @@
+private
+cypressMethodSideName: aMethod 
+	^ aMethod origin isClassSide
+		ifTrue: [ 'class' ]
+		ifFalse: [ 'instance' ]

Iceberg.package/IceLog.class/instance/cypressPackageName..st

@@ -0,0 +1,3 @@
+private
+cypressPackageName: aPackage 
+	^ aPackage name, '.package'

Iceberg.package/IceLog.class/instance/fileNameForMethod..st

@@ -0,0 +1,15 @@
+private
+fileNameForMethod: aMethod
+	| path |
+
+	path := OrderedCollection new.
+	self repository subdirectory 
+		ifNotEmpty: [ :subDir | path add: subDir ].
+	path 
+		add: (self cypressPackageName: aMethod origin package);
+		add: (self cypressClassOrTraitName: aMethod);
+		add: (self cypressMethodSideName: aMethod);
+		add: (self cypressMethodName: aMethod).
+
+	^ String streamContents: [ :stream |
+		path asStringOn: stream delimiter: '/' ]

Iceberg.package/IceLog.class/instance/historyOfMethod..st

@@ -0,0 +1,27 @@
+accessing
+historyOfMethod: aMethod
+	| path commit pathSpec options history |
+
+	path := self fileNameForMethod: aMethod.
+
+	commit := self repository branch lastCommit.
+	pathSpec := LGitPathSpec withAll: { path }.
+	options := LGitDiffOptions defaults.
+	options pathspec: (LGitStringArray withAll: { path }).
+
+	history := OrderedCollection new.
+	self repository newCommitWalk 
+		fromCommit: commit;
+		rawResultsDo: [ :eachCommit | | parents tree | 
+			parents := eachCommit numberOfParents.
+			tree := eachCommit tree.
+			parents = 0 
+				ifTrue: [
+					(tree matchesPathSpec: pathSpec)
+						ifTrue: [ history add: eachCommit ] ]
+				ifFalse: [ 
+					eachCommit parents do: [ :eachParent | | diff |
+						diff := tree diffTo: eachParent tree options: options. 
+						diff numberOfDeltas > 0 
+							ifTrue: [ history add: eachCommit ] ] ] ].
+	^ history collect: [ :each | IceLibgitLocalRepository parseCommitInfo: each ]

Iceberg.package/IceLog.class/instance/initializeRepository..st

@@ -0,0 +1,4 @@
+initialization
+initializeRepository: aRepository
+	repository := aRepository.
+	self initialize

Iceberg.package/IceLog.class/instance/repository.st

@@ -0,0 +1,3 @@
+accessing
+repository
+	^ repository

Iceberg.package/IceLog.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Iceberg-Changes",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"repository"
+	],
+	"name" : "IceLog",
+	"type" : "normal"
+}

Iceberg.package/IceRepository.class/instance/log.st

@@ -0,0 +1,3 @@
+accessing
+log
+	^ IceLog for: self