diff --git a/.github/scripts/preLoading.st b/.github/scripts/preLoading.st index 3eb1cbe92e..f9256bda11 100644 --- a/.github/scripts/preLoading.st +++ b/.github/scripts/preLoading.st @@ -1,3 +1,3 @@ #( 'BaselineOfLibGit' 'BaselineOfIceberg' ) do: [ :each | - (RPackageOrganizer default packageNamed: each ifAbsent: [ nil ]) + (PackageOrganizer default packageNamed: each ifAbsent: [ nil ]) ifNotNil: [ :aPackage | aPackage removeFromSystem ] ] diff --git a/Iceberg-Tests/IceSinglePackageLocalRepositoryTest.class.st b/Iceberg-Tests/IceSinglePackageLocalRepositoryTest.class.st index 15e4c35637..0a8bce3418 100644 --- a/Iceberg-Tests/IceSinglePackageLocalRepositoryTest.class.st +++ b/Iceberg-Tests/IceSinglePackageLocalRepositoryTest.class.st @@ -430,7 +430,7 @@ IceSinglePackageLocalRepositoryTest >> testCheckoutCodeRepositoryInstallsCodeInI self repository commitWithMessage: message. self repository unload. - self deny: (RPackageOrganizer default includesPackageNamed: self packageName1). + self deny: (PackageOrganizer default includesPackageNamed: self packageName1). self repository head checkoutAllPackages. self assertClassExists: #IceGeneratedClassForTesting. @@ -458,7 +458,7 @@ IceSinglePackageLocalRepositoryTest >> testCheckoutCommitInstallsCodeInImage [ self repository commitWithMessage: message. self repository unload. - self deny: (RPackageOrganizer default includesPackageNamed: self packageName1). + self deny: (PackageOrganizer default includesPackageNamed: self packageName1). self repository branch commit checkoutAllPackages. self assertClassExists: #IceGeneratedClassForTesting. diff --git a/Iceberg-TipUI/Clipboard.extension.st b/Iceberg-TipUI/Clipboard.extension.st index c811d6fe5c..21ac6f2c76 100644 --- a/Iceberg-TipUI/Clipboard.extension.st +++ b/Iceberg-TipUI/Clipboard.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Clipboard } +Extension { #name : 'Clipboard' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } Clipboard class >> clipboardText: aText informing: aString [ UIManager inform: aString. ^ self clipboardText: aText diff --git a/Iceberg-TipUI/CmCommandGroup.extension.st b/Iceberg-TipUI/CmCommandGroup.extension.st index 6f36bc0b04..37988d8338 100644 --- a/Iceberg-TipUI/CmCommandGroup.extension.st +++ b/Iceberg-TipUI/CmCommandGroup.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CmCommandGroup } +Extension { #name : 'CmCommandGroup' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } CmCommandGroup >> commandOrGroupNamed: aString ifFound: aBlock [ ^ entries diff --git a/Iceberg-TipUI/CmCommandGroupDecorator.extension.st b/Iceberg-TipUI/CmCommandGroupDecorator.extension.st index 8ef6886348..306bf40201 100644 --- a/Iceberg-TipUI/CmCommandGroupDecorator.extension.st +++ b/Iceberg-TipUI/CmCommandGroupDecorator.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CmCommandGroupDecorator } +Extension { #name : 'CmCommandGroupDecorator' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } CmCommandGroupDecorator >> commandOrGroupNamed: aString ifFound: aBlock [ ^ self decoratedGroup commandOrGroupNamed: aString ifFound: aBlock diff --git a/Iceberg-TipUI/CmUICommandDisplayStrategy.extension.st b/Iceberg-TipUI/CmUICommandDisplayStrategy.extension.st index f356aa3469..b0c6cb73fc 100644 --- a/Iceberg-TipUI/CmUICommandDisplayStrategy.extension.st +++ b/Iceberg-TipUI/CmUICommandDisplayStrategy.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CmUICommandDisplayStrategy } +Extension { #name : 'CmUICommandDisplayStrategy' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } CmUICommandDisplayStrategy >> ifVisible: aCmSpecCommand do: aBlock [ self subclassResponsibility diff --git a/Iceberg-TipUI/CmUIDisableWhenCantBeRun.extension.st b/Iceberg-TipUI/CmUIDisableWhenCantBeRun.extension.st index 7f1636c79c..a9fb4ab426 100644 --- a/Iceberg-TipUI/CmUIDisableWhenCantBeRun.extension.st +++ b/Iceberg-TipUI/CmUIDisableWhenCantBeRun.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CmUIDisableWhenCantBeRun } +Extension { #name : 'CmUIDisableWhenCantBeRun' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } CmUIDisableWhenCantBeRun >> ifVisible: aCmSpecCommand do: aBlock [ "Always visible" diff --git a/Iceberg-TipUI/CmUIHideWhenCantBeRun.extension.st b/Iceberg-TipUI/CmUIHideWhenCantBeRun.extension.st index ff2501af9c..aad5f38218 100644 --- a/Iceberg-TipUI/CmUIHideWhenCantBeRun.extension.st +++ b/Iceberg-TipUI/CmUIHideWhenCantBeRun.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CmUIHideWhenCantBeRun } +Extension { #name : 'CmUIHideWhenCantBeRun' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } CmUIHideWhenCantBeRun >> ifVisible: aCmSpecCommand do: aBlock [ "Visible if #canBeExecuted" diff --git a/Iceberg-TipUI/FTBasicItem.extension.st b/Iceberg-TipUI/FTBasicItem.extension.st index 889a7a7367..d4e904d427 100644 --- a/Iceberg-TipUI/FTBasicItem.extension.st +++ b/Iceberg-TipUI/FTBasicItem.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #FTBasicItem } +Extension { #name : 'FTBasicItem' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } FTBasicItem >> toggle [ self isExpanded ifTrue: [ self collapseAndRefresh ] diff --git a/Iceberg-TipUI/FTRootItem.extension.st b/Iceberg-TipUI/FTRootItem.extension.st index 95874a9068..7aa97b2e24 100644 --- a/Iceberg-TipUI/FTRootItem.extension.st +++ b/Iceberg-TipUI/FTRootItem.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #FTRootItem } +Extension { #name : 'FTRootItem' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } FTRootItem >> isRoot [ ^ true ] diff --git a/Iceberg-TipUI/FTTableMorph.extension.st b/Iceberg-TipUI/FTTableMorph.extension.st index b5f26040a5..9d329d59d1 100644 --- a/Iceberg-TipUI/FTTableMorph.extension.st +++ b/Iceberg-TipUI/FTTableMorph.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #FTTableMorph } +Extension { #name : 'FTTableMorph' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } FTTableMorph >> selectFirstVisibleRow [ ^ self selectIndex: @@ -9,7 +9,7 @@ FTTableMorph >> selectFirstVisibleRow [ ifEmpty: [ 0 ]) ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } FTTableMorph >> useFunction: aFilterFunctionClass do: aBlock [ function := aFilterFunctionClass table: self. aBlock cull: function cull: self diff --git a/Iceberg-TipUI/FTTreeItem.extension.st b/Iceberg-TipUI/FTTreeItem.extension.st index 252972c9d7..9f7286ecfd 100644 --- a/Iceberg-TipUI/FTTreeItem.extension.st +++ b/Iceberg-TipUI/FTTreeItem.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #FTTreeItem } +Extension { #name : 'FTTreeItem' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } FTTreeItem >> isRoot [ ^ false ] diff --git a/Iceberg-TipUI/IceAbstractCredentials.extension.st b/Iceberg-TipUI/IceAbstractCredentials.extension.st index 533cab5b40..c305485223 100644 --- a/Iceberg-TipUI/IceAbstractCredentials.extension.st +++ b/Iceberg-TipUI/IceAbstractCredentials.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #IceAbstractCredentials } +Extension { #name : 'IceAbstractCredentials' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceAbstractCredentials >> askForModelClass [ ^ self subclassResponsibility ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceAbstractCredentials >> editModelClass [ ^ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceAddition.extension.st b/Iceberg-TipUI/IceAddition.extension.st index 37dc983ddf..c38ab65190 100644 --- a/Iceberg-TipUI/IceAddition.extension.st +++ b/Iceberg-TipUI/IceAddition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceAddition } +Extension { #name : 'IceAddition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceAddition >> icon [ ^ self iconNamed: #changeAdd diff --git a/Iceberg-TipUI/IceCheckoutAllPackages.extension.st b/Iceberg-TipUI/IceCheckoutAllPackages.extension.st index 0771c4e508..d26a6bad1f 100644 --- a/Iceberg-TipUI/IceCheckoutAllPackages.extension.st +++ b/Iceberg-TipUI/IceCheckoutAllPackages.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceCheckoutAllPackages } +Extension { #name : 'IceCheckoutAllPackages' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceCheckoutAllPackages class >> description [ ^ 'Checkout ALL packages in the repository' ] diff --git a/Iceberg-TipUI/IceCheckoutAlreadyLoadedPackages.extension.st b/Iceberg-TipUI/IceCheckoutAlreadyLoadedPackages.extension.st index e08c84d409..5b4216bc8f 100644 --- a/Iceberg-TipUI/IceCheckoutAlreadyLoadedPackages.extension.st +++ b/Iceberg-TipUI/IceCheckoutAlreadyLoadedPackages.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceCheckoutAlreadyLoadedPackages } +Extension { #name : 'IceCheckoutAlreadyLoadedPackages' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceCheckoutAlreadyLoadedPackages class >> description [ ^ 'Checkout packages ALREADY LOADED in the image' ] diff --git a/Iceberg-TipUI/IceCheckoutDoNotLoadPackages.extension.st b/Iceberg-TipUI/IceCheckoutDoNotLoadPackages.extension.st index 0a9c967d0c..67ec10aa6a 100644 --- a/Iceberg-TipUI/IceCheckoutDoNotLoadPackages.extension.st +++ b/Iceberg-TipUI/IceCheckoutDoNotLoadPackages.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceCheckoutDoNotLoadPackages } +Extension { #name : 'IceCheckoutDoNotLoadPackages' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceCheckoutDoNotLoadPackages class >> description [ ^ 'DO NOT CHECKOUT any packages, I will load them manually (for experts only)' ] diff --git a/Iceberg-TipUI/IceCheckoutStrategy.extension.st b/Iceberg-TipUI/IceCheckoutStrategy.extension.st index 51de95c72f..ac78658726 100644 --- a/Iceberg-TipUI/IceCheckoutStrategy.extension.st +++ b/Iceberg-TipUI/IceCheckoutStrategy.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #IceCheckoutStrategy } +Extension { #name : 'IceCheckoutStrategy' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceCheckoutStrategy >> description [ ^ self class description ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceCheckoutStrategy class >> description [ ^ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceClassDefinition.extension.st b/Iceberg-TipUI/IceClassDefinition.extension.st index e5be73baae..857e7aae8c 100644 --- a/Iceberg-TipUI/IceClassDefinition.extension.st +++ b/Iceberg-TipUI/IceClassDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceClassDefinition } +Extension { #name : 'IceClassDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceClassDefinition >> icon [ ^ self iconNamed: #class ] diff --git a/Iceberg-TipUI/IceConflictingOperation.extension.st b/Iceberg-TipUI/IceConflictingOperation.extension.st index 2a2670af63..fd38d1af90 100644 --- a/Iceberg-TipUI/IceConflictingOperation.extension.st +++ b/Iceberg-TipUI/IceConflictingOperation.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #IceConflictingOperation } +Extension { #name : 'IceConflictingOperation' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceConflictingOperation >> operationIcon [ ^ self iconNamed: #changeUpdate ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceConflictingOperation >> preferredColor [ ^ self isResolved diff --git a/Iceberg-TipUI/IceCreateBranchCommand.class.st b/Iceberg-TipUI/IceCreateBranchCommand.class.st index 67b297b6be..decf79bec0 100644 --- a/Iceberg-TipUI/IceCreateBranchCommand.class.st +++ b/Iceberg-TipUI/IceCreateBranchCommand.class.st @@ -3,12 +3,14 @@ I'm a command to create a new branch from a commit. this is usefull in the case of commiting changes in unsync repositories (so you open a branch and you commit there) " Class { - #name : #IceCreateBranchCommand, - #superclass : #IceRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceCreateBranchCommand', + #superclass : 'IceRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #execute } +{ #category : 'execute' } IceCreateBranchCommand >> execute [ | selection | diff --git a/Iceberg-TipUI/IceDefinition.extension.st b/Iceberg-TipUI/IceDefinition.extension.st index 8b2c9bdb7d..c453e2a0df 100644 --- a/Iceberg-TipUI/IceDefinition.extension.st +++ b/Iceberg-TipUI/IceDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceDefinition } +Extension { #name : 'IceDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceDefinition >> icon [ self subclassResponsibility diff --git a/Iceberg-TipUI/IceDirectoryDefinition.extension.st b/Iceberg-TipUI/IceDirectoryDefinition.extension.st index e16b919e0d..7ad08d0c15 100644 --- a/Iceberg-TipUI/IceDirectoryDefinition.extension.st +++ b/Iceberg-TipUI/IceDirectoryDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceDirectoryDefinition } +Extension { #name : 'IceDirectoryDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceDirectoryDefinition >> icon [ ^ self iconNamed: #emptyPackage ] diff --git a/Iceberg-TipUI/IceErrorVisitor.extension.st b/Iceberg-TipUI/IceErrorVisitor.extension.st index a0d887b790..baf0ab6cc2 100644 --- a/Iceberg-TipUI/IceErrorVisitor.extension.st +++ b/Iceberg-TipUI/IceErrorVisitor.extension.st @@ -1,13 +1,13 @@ -Extension { #name : #IceErrorVisitor } +Extension { #name : 'IceErrorVisitor' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceErrorVisitor >> visitExperimentalFeature: aWarning [ "By default experimental features are just accepted when we are not in an interactive mode". aWarning resume ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceErrorVisitor >> visitNoCommitMessage: aWarning [ self visitGenericError: aWarning ] diff --git a/Iceberg-TipUI/IceExperimentalFeature.class.st b/Iceberg-TipUI/IceExperimentalFeature.class.st index ddcaf03e3a..db10719754 100644 --- a/Iceberg-TipUI/IceExperimentalFeature.class.st +++ b/Iceberg-TipUI/IceExperimentalFeature.class.st @@ -4,12 +4,14 @@ Everytime an user tries to use an experimental feature, maybe the UI want to sho This is useful to guarantee the correct keeping of the changes. " Class { - #name : #IceExperimentalFeature, - #superclass : #IceWarning, - #category : #'Iceberg-TipUI-Exceptions' + #name : 'IceExperimentalFeature', + #superclass : 'IceWarning', + #category : 'Iceberg-TipUI-Exceptions', + #package : 'Iceberg-TipUI', + #tag : 'Exceptions' } -{ #category : #visiting } +{ #category : 'visiting' } IceExperimentalFeature >> acceptError: aVisitor [ aVisitor visitExperimentalFeature: self diff --git a/Iceberg-TipUI/IceExtensionDefinition.extension.st b/Iceberg-TipUI/IceExtensionDefinition.extension.st index 25018c3c79..f16ab89a3f 100644 --- a/Iceberg-TipUI/IceExtensionDefinition.extension.st +++ b/Iceberg-TipUI/IceExtensionDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceExtensionDefinition } +Extension { #name : 'IceExtensionDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceExtensionDefinition >> icon [ ^ self iconNamed: #group ] diff --git a/Iceberg-TipUI/IceFileDefinition.extension.st b/Iceberg-TipUI/IceFileDefinition.extension.st index ec7f3d821f..9ada4d36b9 100644 --- a/Iceberg-TipUI/IceFileDefinition.extension.st +++ b/Iceberg-TipUI/IceFileDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceFileDefinition } +Extension { #name : 'IceFileDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceFileDefinition >> icon [ ^ self iconNamed: #book ] diff --git a/Iceberg-TipUI/IceFileSystemDefinition.extension.st b/Iceberg-TipUI/IceFileSystemDefinition.extension.st index 6d556411dc..5c26a26b36 100644 --- a/Iceberg-TipUI/IceFileSystemDefinition.extension.st +++ b/Iceberg-TipUI/IceFileSystemDefinition.extension.st @@ -1,13 +1,13 @@ -Extension { #name : #IceFileSystemDefinition } +Extension { #name : 'IceFileSystemDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceFileSystemDefinition >> canBeBrowsed [ "It can always be browsed through the libgit file system" ^ true ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceFileSystemDefinition >> canBrowseReferences [ "We do not track file references..." diff --git a/Iceberg-TipUI/IceMergeListWrapper.class.st b/Iceberg-TipUI/IceMergeListWrapper.class.st index e8fb3896b2..3c7447bcfb 100644 --- a/Iceberg-TipUI/IceMergeListWrapper.class.st +++ b/Iceberg-TipUI/IceMergeListWrapper.class.st @@ -2,67 +2,69 @@ I am a morphic list wrapper that wraps iceberg diff tree nodes (potentially with conflicts) " Class { - #name : #IceMergeListWrapper, - #superclass : #ListItemWrapper, - #category : #'Iceberg-TipUI-Morphic' + #name : 'IceMergeListWrapper', + #superclass : 'ListItemWrapper', + #category : 'Iceberg-TipUI-Morphic', + #package : 'Iceberg-TipUI', + #tag : 'Morphic' } -{ #category : #comparing } +{ #category : 'comparing' } IceMergeListWrapper >> = aWrapper [ ^ self item = aWrapper item ] -{ #category : #'morphic-compatibility' } +{ #category : 'morphic-compatibility' } IceMergeListWrapper >> actualClass [ ^ self item value actualClass ] -{ #category : #testing } +{ #category : 'testing' } IceMergeListWrapper >> asString [ ^item value description ] -{ #category : #resolution } +{ #category : 'resolution' } IceMergeListWrapper >> chooseLocal [ ^ item value selectRight ] -{ #category : #resolution } +{ #category : 'resolution' } IceMergeListWrapper >> chooseRemote [ ^ item value selectLeft ] -{ #category : #testing } +{ #category : 'testing' } IceMergeListWrapper >> contents [ "Answer the contents of the change from the model." ^ item children collect: [ :each | IceMergeListWrapper with: each model: model ] ] -{ #category : #comparing } +{ #category : 'comparing' } IceMergeListWrapper >> hash [ ^ self item hash ] -{ #category : #testing } +{ #category : 'testing' } IceMergeListWrapper >> icon [ ^ item value icon ] -{ #category : #testing } +{ #category : 'testing' } IceMergeListWrapper >> isConflict [ ^ item value isConflict ] -{ #category : #accessing } +{ #category : 'accessing' } IceMergeListWrapper >> preferredColor [ ^ self item value preferredColor diff --git a/Iceberg-TipUI/IceMergeWorkingCopyCommand.class.st b/Iceberg-TipUI/IceMergeWorkingCopyCommand.class.st index fd1a3b7e5d..bc9b7f4006 100644 --- a/Iceberg-TipUI/IceMergeWorkingCopyCommand.class.st +++ b/Iceberg-TipUI/IceMergeWorkingCopyCommand.class.st @@ -2,12 +2,14 @@ I'm a command to perform a merge of current image sources with head commit. " Class { - #name : #IceMergeWorkingCopyCommand, - #superclass : #IceRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceMergeWorkingCopyCommand', + #superclass : 'IceRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #execute } +{ #category : 'execute' } IceMergeWorkingCopyCommand >> execute [ | commit | commit := self repository headCommit. diff --git a/Iceberg-TipUI/IceMethodContainerDefinition.extension.st b/Iceberg-TipUI/IceMethodContainerDefinition.extension.st index bed0c4d10d..a8a94cb0b3 100644 --- a/Iceberg-TipUI/IceMethodContainerDefinition.extension.st +++ b/Iceberg-TipUI/IceMethodContainerDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceMethodContainerDefinition } +Extension { #name : 'IceMethodContainerDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodContainerDefinition >> actualClass [ | actualClass | @@ -8,7 +8,7 @@ IceMethodContainerDefinition >> actualClass [ ^ isMeta ifTrue: [ actualClass classSide ] ifFalse: [ actualClass ] ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodContainerDefinition >> browse [ | browsed | @@ -17,13 +17,13 @@ IceMethodContainerDefinition >> browse [ browsed browse ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodContainerDefinition >> canBeBrowsed [ ^ Smalltalk globals includesKey: name ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodContainerDefinition >> canBrowseReferences [ ^ self canBeBrowsed diff --git a/Iceberg-TipUI/IceMethodDefinition.extension.st b/Iceberg-TipUI/IceMethodDefinition.extension.st index 7f8cee63e9..48b2d71867 100644 --- a/Iceberg-TipUI/IceMethodDefinition.extension.st +++ b/Iceberg-TipUI/IceMethodDefinition.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #IceMethodDefinition } +Extension { #name : 'IceMethodDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodDefinition >> browse [ (self contextClass >> name) browse ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodDefinition >> canBeBrowsed [ ^ self contextClass @@ -14,13 +14,13 @@ IceMethodDefinition >> canBeBrowsed [ ifNil: [ false ] ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodDefinition >> canBrowseReferences [ ^ false ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceMethodDefinition >> icon [ ^ self iconNamed: #changeUpdate diff --git a/Iceberg-TipUI/IceModification.extension.st b/Iceberg-TipUI/IceModification.extension.st index 9ecdccb45c..91a3649b5f 100644 --- a/Iceberg-TipUI/IceModification.extension.st +++ b/Iceberg-TipUI/IceModification.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceModification } +Extension { #name : 'IceModification' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceModification >> icon [ ^ self iconNamed: #changeUpdate diff --git a/Iceberg-TipUI/IceNoCommitMessage.class.st b/Iceberg-TipUI/IceNoCommitMessage.class.st index 01e8ce6729..7f5ba3de28 100644 --- a/Iceberg-TipUI/IceNoCommitMessage.class.st +++ b/Iceberg-TipUI/IceNoCommitMessage.class.st @@ -3,23 +3,25 @@ I indicate when a commit will be performed without a message comment. This is usually possible, but bad, very bad. Do not do it. " Class { - #name : #IceNoCommitMessage, - #superclass : #IceWarning, - #category : #'Iceberg-TipUI-Exceptions' + #name : 'IceNoCommitMessage', + #superclass : 'IceWarning', + #category : 'Iceberg-TipUI-Exceptions', + #package : 'Iceberg-TipUI', + #tag : 'Exceptions' } -{ #category : #accessing } +{ #category : 'accessing' } IceNoCommitMessage class >> defaultMessageText [ ^ 'You are trying to commit without a message! When this is possible, is not a good practice.' ] -{ #category : #visiting } +{ #category : 'visiting' } IceNoCommitMessage >> acceptError: aVisitor [ aVisitor visitNoCommitMessage: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceNoCommitMessage >> messageText [ ^ messageText ifNil: [ self class defaultMessageText ] ] diff --git a/Iceberg-TipUI/IceNoModification.extension.st b/Iceberg-TipUI/IceNoModification.extension.st index c57e45a902..a49e299b2a 100644 --- a/Iceberg-TipUI/IceNoModification.extension.st +++ b/Iceberg-TipUI/IceNoModification.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceNoModification } +Extension { #name : 'IceNoModification' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceNoModification >> icon [ ^ definition icon diff --git a/Iceberg-TipUI/IceNode.extension.st b/Iceberg-TipUI/IceNode.extension.st index d269a8d67e..cfba09c027 100644 --- a/Iceberg-TipUI/IceNode.extension.st +++ b/Iceberg-TipUI/IceNode.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceNode } +Extension { #name : 'IceNode' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceNode >> inspectorItems [ diff --git a/Iceberg-TipUI/IceNodeCodeDisplayVisitor.class.st b/Iceberg-TipUI/IceNodeCodeDisplayVisitor.class.st index 790c80f427..a9a5fe9c83 100644 --- a/Iceberg-TipUI/IceNodeCodeDisplayVisitor.class.st +++ b/Iceberg-TipUI/IceNodeCodeDisplayVisitor.class.st @@ -3,47 +3,49 @@ I am a IceNode (containing an IceOperationMerge) visitor meant to update a SpCod with the highlighted code. " Class { - #name : #IceNodeCodeDisplayVisitor, - #superclass : #Object, + #name : 'IceNodeCodeDisplayVisitor', + #superclass : 'Object', #instVars : [ 'codePresenter' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceNodeCodeDisplayVisitor class >> onCodePresenter: aSpCodePresenter [ ^ self new codePresenter: aSpCodePresenter ; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceNodeCodeDisplayVisitor >> codePresenter [ ^ codePresenter ] -{ #category : #accessing } +{ #category : 'accessing' } IceNodeCodeDisplayVisitor >> codePresenter: aSpCodePresenter [ codePresenter := aSpCodePresenter ] -{ #category : #visiting } +{ #category : 'visiting' } IceNodeCodeDisplayVisitor >> visitClassDefinition: anIceClassDefinition [ codePresenter text: anIceClassDefinition contents. codePresenter behavior: nil ] -{ #category : #visiting } +{ #category : 'visiting' } IceNodeCodeDisplayVisitor >> visitConflictingOperation: anIceConflictingOperation [ anIceConflictingOperation chosenOperation definition accept: self ] -{ #category : #visiting } +{ #category : 'visiting' } IceNodeCodeDisplayVisitor >> visitMethodNode: anIceMethodDefinition [ codePresenter @@ -53,13 +55,13 @@ IceNodeCodeDisplayVisitor >> visitMethodNode: anIceMethodDefinition [ UndefinedObject ]) ] -{ #category : #visiting } +{ #category : 'visiting' } IceNodeCodeDisplayVisitor >> visitNonConflictingOperation: anIceNonConflictingOperation [ anIceNonConflictingOperation definition accept: self ] -{ #category : #visiting } +{ #category : 'visiting' } IceNodeCodeDisplayVisitor >> visitPackage: anIcePackageDefinition [ codePresenter diff --git a/Iceberg-TipUI/IceNonConflictingOperation.extension.st b/Iceberg-TipUI/IceNonConflictingOperation.extension.st index a9d80139e9..e1735a623d 100644 --- a/Iceberg-TipUI/IceNonConflictingOperation.extension.st +++ b/Iceberg-TipUI/IceNonConflictingOperation.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #IceNonConflictingOperation } +Extension { #name : 'IceNonConflictingOperation' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceNonConflictingOperation >> operationIcon [ ^ operation icon ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceNonConflictingOperation >> preferredColor [ ^ self isResolved diff --git a/Iceberg-TipUI/IceOperation.extension.st b/Iceberg-TipUI/IceOperation.extension.st index e247689488..bafe10e4da 100644 --- a/Iceberg-TipUI/IceOperation.extension.st +++ b/Iceberg-TipUI/IceOperation.extension.st @@ -1,30 +1,30 @@ -Extension { #name : #IceOperation } +Extension { #name : 'IceOperation' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperation >> browse [ ^ self leftDefinition browse ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperation >> canBeBrowsed [ ^ self leftDefinition canBeBrowsed ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperation >> canBrowseReferences [ ^ false ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperation >> icon [ self subclassResponsibility ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperation >> preferredColor [ "Use the default color" diff --git a/Iceberg-TipUI/IceOperationMerge.extension.st b/Iceberg-TipUI/IceOperationMerge.extension.st index 8d9566c0cb..fa98848b61 100644 --- a/Iceberg-TipUI/IceOperationMerge.extension.st +++ b/Iceberg-TipUI/IceOperationMerge.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceOperationMerge } +Extension { #name : 'IceOperationMerge' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperationMerge >> icon [ self isRightChosen ifTrue: [ ^ self iconNamed: #changeBlock ]. @@ -9,7 +9,7 @@ IceOperationMerge >> icon [ ^ self operationIcon ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceOperationMerge >> operationIcon [ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IcePackage.extension.st b/Iceberg-TipUI/IcePackage.extension.st index b932cb71e4..43d5054bcc 100644 --- a/Iceberg-TipUI/IcePackage.extension.st +++ b/Iceberg-TipUI/IcePackage.extension.st @@ -1,7 +1,7 @@ -Extension { #name : #IcePackage } +Extension { #name : 'IcePackage' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePackage >> browse [ - (RPackageOrganizer default packageNamed: self name) browse + (PackageOrganizer default packageNamed: self name) browse ] diff --git a/Iceberg-TipUI/IcePackageDefinition.extension.st b/Iceberg-TipUI/IcePackageDefinition.extension.st index 4839af1d7a..36f9b23914 100644 --- a/Iceberg-TipUI/IcePackageDefinition.extension.st +++ b/Iceberg-TipUI/IcePackageDefinition.extension.st @@ -1,25 +1,25 @@ -Extension { #name : #IcePackageDefinition } +Extension { #name : 'IcePackageDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePackageDefinition >> browse [ "Open a browser on the package, if it exists." (self packageOrganizer packageNamed: name ifAbsent: [ ^ self ]) browse ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePackageDefinition >> canBeBrowsed [ ^ self packageOrganizer hasPackage: name ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePackageDefinition >> canBrowseReferences [ ^ false ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePackageDefinition >> icon [ ^ self iconNamed: #package ] diff --git a/Iceberg-TipUI/IcePlaintextCredentials.extension.st b/Iceberg-TipUI/IcePlaintextCredentials.extension.st index 2280cbb78b..77fc415434 100644 --- a/Iceberg-TipUI/IcePlaintextCredentials.extension.st +++ b/Iceberg-TipUI/IcePlaintextCredentials.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #IcePlaintextCredentials } +Extension { #name : 'IcePlaintextCredentials' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePlaintextCredentials >> askForModelClass [ ^ IceTipAskForPlaintextCredentialsPresenter ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePlaintextCredentials >> askForModelClassOn: aString [ ^ (aString includesSubstring: 'github.com' caseSensitive: false) @@ -13,7 +13,7 @@ IcePlaintextCredentials >> askForModelClassOn: aString [ ifFalse: [ self askForModelClass ] ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePlaintextCredentials >> editModelClass [ ^ IceTipEditPlaintextCredentialsPresenter ] diff --git a/Iceberg-TipUI/IcePlaintextOtpCredentials.extension.st b/Iceberg-TipUI/IcePlaintextOtpCredentials.extension.st index c69cf7dd5e..01215e50ad 100644 --- a/Iceberg-TipUI/IcePlaintextOtpCredentials.extension.st +++ b/Iceberg-TipUI/IcePlaintextOtpCredentials.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IcePlaintextOtpCredentials } +Extension { #name : 'IcePlaintextOtpCredentials' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IcePlaintextOtpCredentials >> askForModelClass [ ^ IceTipAskForPlaintextOtpCredentialsPresenter ] diff --git a/Iceberg-TipUI/IcePullRemoteCommand.class.st b/Iceberg-TipUI/IcePullRemoteCommand.class.st index 35ba209da8..92f9253947 100644 --- a/Iceberg-TipUI/IcePullRemoteCommand.class.st +++ b/Iceberg-TipUI/IcePullRemoteCommand.class.st @@ -2,27 +2,29 @@ I'm a command to perform a pull from a remote. " Class { - #name : #IcePullRemoteCommand, - #superclass : #IceRepositoryCommand, + #name : 'IcePullRemoteCommand', + #superclass : 'IceRepositoryCommand', #instVars : [ 'remote' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #execute } +{ #category : 'execute' } IcePullRemoteCommand >> execute [ self repository branch pullFrom: self remote. self beSuccess ] -{ #category : #accessing } +{ #category : 'accessing' } IcePullRemoteCommand >> remote [ ^ remote ] -{ #category : #accessing } +{ #category : 'accessing' } IcePullRemoteCommand >> remote: anObject [ remote := anObject ] diff --git a/Iceberg-TipUI/IceRemoval.extension.st b/Iceberg-TipUI/IceRemoval.extension.st index fb9aaa8acc..9887f589e2 100644 --- a/Iceberg-TipUI/IceRemoval.extension.st +++ b/Iceberg-TipUI/IceRemoval.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceRemoval } +Extension { #name : 'IceRemoval' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceRemoval >> icon [ ^ self iconNamed: #changeRemove diff --git a/Iceberg-TipUI/IceRepository.extension.st b/Iceberg-TipUI/IceRepository.extension.st index ce7f0e2d32..17235036b4 100644 --- a/Iceberg-TipUI/IceRepository.extension.st +++ b/Iceberg-TipUI/IceRepository.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceRepository } +Extension { #name : 'IceRepository' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceRepository >> inspectorItems [ diff --git a/Iceberg-TipUI/IceRepositoryCommand.class.st b/Iceberg-TipUI/IceRepositoryCommand.class.st index 1c769a782e..0e64b96592 100644 --- a/Iceberg-TipUI/IceRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceRepositoryCommand.class.st @@ -2,56 +2,58 @@ I'm a generic command for iceberg repositories. " Class { - #name : #IceRepositoryCommand, - #superclass : #Object, + #name : 'IceRepositoryCommand', + #superclass : 'Object', #instVars : [ 'repository', 'success', 'context' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceRepositoryCommand class >> isAbstract [ ^ self == IceRepositoryCommand ] -{ #category : #accessing } +{ #category : 'accessing' } IceRepositoryCommand >> beSuccess [ success := true ] -{ #category : #execute } +{ #category : 'execute' } IceRepositoryCommand >> execute [ self subclassResponsibility ] -{ #category : #execute } +{ #category : 'execute' } IceRepositoryCommand >> executeWithContext: aContext [ context := aContext. self execute ] -{ #category : #initialization } +{ #category : 'initialization' } IceRepositoryCommand >> initialize [ super initialize. success := false ] -{ #category : #testing } +{ #category : 'testing' } IceRepositoryCommand >> isSuccess [ ^ success ] -{ #category : #accessing } +{ #category : 'accessing' } IceRepositoryCommand >> repository [ ^ repository ] -{ #category : #accessing } +{ #category : 'accessing' } IceRepositoryCommand >> repository: anObject [ repository := anObject ] diff --git a/Iceberg-TipUI/IceSavedPackageVersion.extension.st b/Iceberg-TipUI/IceSavedPackageVersion.extension.st index b699275f27..66160db0c5 100644 --- a/Iceberg-TipUI/IceSavedPackageVersion.extension.st +++ b/Iceberg-TipUI/IceSavedPackageVersion.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceSavedPackageVersion } +Extension { #name : 'IceSavedPackageVersion' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceSavedPackageVersion >> description [ ^ self commit description ] diff --git a/Iceberg-TipUI/IceSortingStrategy.class.st b/Iceberg-TipUI/IceSortingStrategy.class.st index 45945aeaaa..0c9b0ea815 100644 --- a/Iceberg-TipUI/IceSortingStrategy.class.st +++ b/Iceberg-TipUI/IceSortingStrategy.class.st @@ -15,26 +15,28 @@ Internal Representation and Key Implementation Points. last: Represent the entities to display last. " Class { - #name : #IceSortingStrategy, - #superclass : #Object, + #name : 'IceSortingStrategy', + #superclass : 'Object', #instVars : [ 'first', 'last' ], - #category : #'Iceberg-TipUI-View-WorkingCopy' + #category : 'Iceberg-TipUI-View-WorkingCopy', + #package : 'Iceberg-TipUI', + #tag : 'View-WorkingCopy' } -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy class >> possibleValues [ ^ #(#none #modified #notLoaded) ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> first [ ^ first ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> first: anObject [ first := anObject. @@ -42,19 +44,19 @@ IceSortingStrategy >> first: anObject [ ifTrue: [ self last: #none ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceSortingStrategy >> initialize [ super initialize. first := #modified. last := #notLoaded ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> last [ ^ last ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> last: anObject [ last := anObject. @@ -62,7 +64,7 @@ IceSortingStrategy >> last: anObject [ ifTrue: [ self first: #none ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> selectMatching: aSymbol from: aCollection [ aSymbol = #modified ifTrue: [ ^ aCollection select: #isModified ]. @@ -71,7 +73,7 @@ IceSortingStrategy >> selectMatching: aSymbol from: aCollection [ self error: 'This sorting is not accepted: ' , aSymbol ] -{ #category : #sorting } +{ #category : 'sorting' } IceSortingStrategy >> sort: aListOfPackages [ | result packages lasts | packages := aListOfPackages. @@ -85,12 +87,12 @@ IceSortingStrategy >> sort: aListOfPackages [ ^ result ] -{ #category : #sorting } +{ #category : 'sorting' } IceSortingStrategy >> sortByName: aCollection [ ^ aCollection sorted: #packageName ascending ] -{ #category : #accessing } +{ #category : 'accessing' } IceSortingStrategy >> withOthers: aSymbol [ self first = aSymbol ifTrue: [ self first: nil ]. self last = aSymbol ifTrue: [ self last: nil ] diff --git a/Iceberg-TipUI/IceSshCredentials.extension.st b/Iceberg-TipUI/IceSshCredentials.extension.st index e3ad3fed5c..6c5858fbf7 100644 --- a/Iceberg-TipUI/IceSshCredentials.extension.st +++ b/Iceberg-TipUI/IceSshCredentials.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #IceSshCredentials } +Extension { #name : 'IceSshCredentials' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceSshCredentials >> askForModelClass [ ^ self notYetImplemented ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceSshCredentials >> editModelClass [ ^ IceTipEditSSHCredentialsPresenter ] diff --git a/Iceberg-TipUI/IceTipAbstractCredentialCommand.class.st b/Iceberg-TipUI/IceTipAbstractCredentialCommand.class.st index 0c1558c81a..1d47f72c91 100644 --- a/Iceberg-TipUI/IceTipAbstractCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipAbstractCredentialCommand.class.st @@ -2,24 +2,26 @@ I am the common class of all the commands over an specific credential. " Class { - #name : #IceTipAbstractCredentialCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAbstractCredentialCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractCredentialCommand class >> isAbstract [ ^ self == IceTipAbstractCredentialCommand ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialCommand >> credential [ ^ self item ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialCommand >> store [ ^ self context model diff --git a/Iceberg-TipUI/IceTipAbstractCredentialStoreCommand.class.st b/Iceberg-TipUI/IceTipAbstractCredentialStoreCommand.class.st index fdb3e9165c..1742f97fae 100644 --- a/Iceberg-TipUI/IceTipAbstractCredentialStoreCommand.class.st +++ b/Iceberg-TipUI/IceTipAbstractCredentialStoreCommand.class.st @@ -2,30 +2,32 @@ I am the abstract class of all the general commands in the credentials list. " Class { - #name : #IceTipAbstractCredentialStoreCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAbstractCredentialStoreCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractCredentialStoreCommand class >> isAbstract [ ^ self == IceTipAbstractCredentialStoreCommand ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAbstractCredentialStoreCommand >> iconName [ ^ #add ] -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractCredentialStoreCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipAbstractCredentialStoreCommand >> store [ ^ self context store diff --git a/Iceberg-TipUI/IceTipAbstractCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAbstractCredentialsPresenter.class.st index ec0f14565a..ff95d0bfdc 100644 --- a/Iceberg-TipUI/IceTipAbstractCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAbstractCredentialsPresenter.class.st @@ -5,8 +5,8 @@ to ask / add / edit credentials. There are subclasses to each of the actions and the types of keys. " Class { - #name : #IceTipAbstractCredentialsPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipAbstractCredentialsPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'storeCheckbox', 'credentialStore', @@ -15,10 +15,12 @@ Class { 'credentials', 'askingHostname' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> acceptAddAction [ credentials := self newCredentials. @@ -31,7 +33,7 @@ IceTipAbstractCredentialsPresenter >> acceptAddAction [ tool refresh ] -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> acceptAskAction [ credentials := self newCredentials. @@ -45,7 +47,7 @@ IceTipAbstractCredentialsPresenter >> acceptAskAction [ ^ credentials ] -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> acceptEditAction [ self refreshCredentialsFromPresenter. @@ -55,19 +57,19 @@ IceTipAbstractCredentialsPresenter >> acceptEditAction [ ^ credentials ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> askingHostname: aString [ askingHostname := aString ] -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> cancelAction [ "Action to execute on cancel." ] -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> cancelAskAction [ accepted := true. @@ -75,43 +77,43 @@ IceTipAbstractCredentialsPresenter >> cancelAskAction [ LGitNoCredentialsProvided signal ] -{ #category : #actions } +{ #category : 'actions' } IceTipAbstractCredentialsPresenter >> closeAction [ accepted ifFalse: [ self cancelAction ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> credentialStore: aStore [ credentialStore := aStore ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> credentials [ ^ credentials ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> credentials: anIceCredentials [ credentials := anIceCredentials. self refreshPresenterFromCredentials ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> hostnameFromInput [ "Answer the remoote hostname for the credentials." ^ self subclassResponsibility ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAbstractCredentialsPresenter >> initialize [ super initialize. accepted := false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> initializeDialogWindow: aDialogWindowPresenter [ super initializeDialogWindow: aDialogWindowPresenter. @@ -121,7 +123,7 @@ IceTipAbstractCredentialsPresenter >> initializeDialogWindow: aDialogWindowPrese ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAbstractCredentialsPresenter >> initializePresenters [ storeCheckbox := self newCheckBox @@ -131,27 +133,27 @@ IceTipAbstractCredentialsPresenter >> initializePresenters [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractCredentialsPresenter >> isOkEnabled [ "Determite if the user should be enabled to press on the accept button." ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> newCredentials [ "Answer a new instance of the credentials using the form inputs." ^ self subclassResponsibility ] -{ #category : #updating } +{ #category : 'updating' } IceTipAbstractCredentialsPresenter >> okButton [ ^ self window buttons first ] -{ #category : #'API - opening' } +{ #category : 'API - opening' } IceTipAbstractCredentialsPresenter >> open [ self openModal. @@ -159,36 +161,36 @@ IceTipAbstractCredentialsPresenter >> open [ ^ self credentials ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> refreshCredentialsFromPresenter [ "Hook to update the credentials object from the presenter inputs." ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> refreshPresenterFromCredentials [ "Hook to update the presenter input fields from the credentials object." ] -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractCredentialsPresenter >> shouldStoreCredentials [ ^ storeCheckbox state ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> storeCheckbox [ ^ storeCheckbox ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractCredentialsPresenter >> tool: aBrowser [ "Set the tool that triggered this dialog, and therefore might need a #refresh after the users accepts the dialog and it produces an effect on the system." tool := aBrowser ] -{ #category : #updating } +{ #category : 'updating' } IceTipAbstractCredentialsPresenter >> updateOkButton [ self window ifNil: [ ^ self ]. diff --git a/Iceberg-TipUI/IceTipAbstractPlaintextCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAbstractPlaintextCredentialsPresenter.class.st index 24f88809b7..654595d3ee 100644 --- a/Iceberg-TipUI/IceTipAbstractPlaintextCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAbstractPlaintextCredentialsPresenter.class.st @@ -3,18 +3,20 @@ I implement the basic behavior of all the plaintext credentials. My subclasses implements the specific behavior for each of the operations. " Class { - #name : #IceTipAbstractPlaintextCredentialsPresenter, - #superclass : #IceTipAbstractCredentialsPresenter, + #name : 'IceTipAbstractPlaintextCredentialsPresenter', + #superclass : 'IceTipAbstractCredentialsPresenter', #instVars : [ 'usernameLabel', 'usernameInput', 'passwordLabel', 'passwordInput' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipAbstractPlaintextCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -32,13 +34,13 @@ IceTipAbstractPlaintextCredentialsPresenter >> initializePresenters [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractPlaintextCredentialsPresenter >> isOkEnabled [ ^ self username isNotEmpty and: [ self password isNotEmpty ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractPlaintextCredentialsPresenter >> newCredentials [ ^ IcePlaintextCredentials new @@ -47,31 +49,31 @@ IceTipAbstractPlaintextCredentialsPresenter >> newCredentials [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractPlaintextCredentialsPresenter >> password [ ^ passwordInput text ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAbstractPlaintextCredentialsPresenter >> passwordInput [ ^ passwordInput ] -{ #category : #private } +{ #category : 'private' } IceTipAbstractPlaintextCredentialsPresenter >> passwordLabel [ ^ 'Password:' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractPlaintextCredentialsPresenter >> username [ ^ usernameInput text ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAbstractPlaintextCredentialsPresenter >> usernameInput [ ^ usernameInput diff --git a/Iceberg-TipUI/IceTipAbstractSSHCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAbstractSSHCredentialsPresenter.class.st index d0f96fe3b3..4b529092fd 100644 --- a/Iceberg-TipUI/IceTipAbstractSSHCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAbstractSSHCredentialsPresenter.class.st @@ -3,8 +3,8 @@ I implement the basic behavior of all the ssh credentials. My subclasses implements the specific behavior for each of the operations. " Class { - #name : #IceTipAbstractSSHCredentialsPresenter, - #superclass : #IceTipAbstractCredentialsPresenter, + #name : 'IceTipAbstractSSHCredentialsPresenter', + #superclass : 'IceTipAbstractCredentialsPresenter', #instVars : [ 'usernameInput', 'usernameLabel', @@ -15,10 +15,12 @@ Class { 'publicKeyLabel', 'privateKeyLabel' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipAbstractSSHCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -56,20 +58,20 @@ IceTipAbstractSSHCredentialsPresenter >> initializePresenters [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipAbstractSSHCredentialsPresenter >> isOkEnabled [ ^ self username isNotEmpty and: [ self publicKey isNotEmpty and: [ self privateKey isNotEmpty ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractSSHCredentialsPresenter >> passphrase [ ^ passphraseInput text ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractSSHCredentialsPresenter >> privateKey [ ^ privateKeyInput location @@ -77,7 +79,7 @@ IceTipAbstractSSHCredentialsPresenter >> privateKey [ ifNotNil: [ :x | x pathString ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractSSHCredentialsPresenter >> publicKey [ ^ publicKeyInput location @@ -85,7 +87,7 @@ IceTipAbstractSSHCredentialsPresenter >> publicKey [ ifNotNil: [ :x | x pathString ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAbstractSSHCredentialsPresenter >> username [ ^ usernameInput text diff --git a/Iceberg-TipUI/IceTipAction.class.st b/Iceberg-TipUI/IceTipAction.class.st index c062c89d67..7f2a1337db 100644 --- a/Iceberg-TipUI/IceTipAction.class.st +++ b/Iceberg-TipUI/IceTipAction.class.st @@ -2,41 +2,43 @@ I'm like a lightweight command, used in general for apply concrete actions. " Class { - #name : #IceTipAction, - #superclass : #Object, + #name : 'IceTipAction', + #superclass : 'Object', #instVars : [ 'context', 'repository', 'successBlock' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceTipAction class >> isAbstract [ ^ self == IceTipAction ] -{ #category : #executing } +{ #category : 'executing' } IceTipAction >> basicExecute [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAction >> context [ ^ context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAction >> context: aContext [ context := aContext ] -{ #category : #executing } +{ #category : 'executing' } IceTipAction >> execute [ | result | @@ -48,19 +50,19 @@ IceTipAction >> execute [ ^ result. ] -{ #category : #executing } +{ #category : 'executing' } IceTipAction >> executeWithContext: aContext [ self context: aContext. ^ self execute ] -{ #category : #private } +{ #category : 'private' } IceTipAction >> finishSuccess [ successBlock ifNotNil: [ successBlock value ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAction >> onSuccess: aBlock [ "Some actions need to execute something right after finish. Like a refresh of panels, etc. If a block is defined here, it will be evaluated right after the command is executed, if @@ -68,17 +70,17 @@ IceTipAction >> onSuccess: aBlock [ successBlock := aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAction >> repository [ ^ repository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAction >> repository: anObject [ repository := anObject ] -{ #category : #private } +{ #category : 'private' } IceTipAction >> withErrorHandlingDo: aBlock [ aBlock on: IceError, IceWarning diff --git a/Iceberg-TipUI/IceTipAddNewPackagesDialogPresenter.class.st b/Iceberg-TipUI/IceTipAddNewPackagesDialogPresenter.class.st index 5604783f88..cb70097b35 100644 --- a/Iceberg-TipUI/IceTipAddNewPackagesDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddNewPackagesDialogPresenter.class.st @@ -2,8 +2,8 @@ I am an small dialog to ask the user to select new packages to load. New packages are packages in the commit but not in the image. " Class { - #name : #IceTipAddNewPackagesDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipAddNewPackagesDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'packagesList', 'selectedPackages', @@ -12,10 +12,12 @@ Class { 'checkoutModel', 'checkoutPreviewWindow' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #commands } +{ #category : 'commands' } IceTipAddNewPackagesDialogPresenter class >> buildCommandsGroupWith: presenterInstance forRoot: rootCommandGroup [ rootCommandGroup register: @@ -25,7 +27,7 @@ IceTipAddNewPackagesDialogPresenter class >> buildCommandsGroupWith: presenterIn yourself) ] -{ #category : #actions } +{ #category : 'actions' } IceTipAddNewPackagesDialogPresenter >> accept [ | selectedPackageNames | @@ -42,19 +44,19 @@ IceTipAddNewPackagesDialogPresenter >> accept [ executeWithContext: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddNewPackagesDialogPresenter >> checkoutModel: anIceTipCheckoutModel [ checkoutModel := anIceTipCheckoutModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddNewPackagesDialogPresenter >> checkoutPreviewWindow: anIceTipCheckoutPreviewBrowser [ checkoutPreviewWindow := anIceTipCheckoutPreviewBrowser ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddNewPackagesDialogPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -63,13 +65,13 @@ IceTipAddNewPackagesDialogPresenter >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddNewPackagesDialogPresenter >> iconForWindow [ ^ self iconNamed: #branch ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddNewPackagesDialogPresenter >> initializePackagesList [ packagesList @@ -90,7 +92,7 @@ IceTipAddNewPackagesDialogPresenter >> initializePackagesList [ contextMenu: [ (self rootCommandsGroup / 'package list commands') beRoot asMenuPresenter ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddNewPackagesDialogPresenter >> initializePresenters [ selectedPackages := OrderedCollection new. @@ -108,49 +110,49 @@ Please select the packages if you wish to load them in the image'. self initializePackagesList ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddNewPackagesDialogPresenter >> packagesList [ ^ packagesList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddNewPackagesDialogPresenter >> selectedPackage [ ^ packagesList selectedItem ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddNewPackagesDialogPresenter >> selectedPackages [ ^ selectedPackages ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddNewPackagesDialogPresenter >> selectedPackages: anObject [ selectedPackages := anObject ] -{ #category : #'accessing - model' } +{ #category : 'accessing - model' } IceTipAddNewPackagesDialogPresenter >> setModelBeforeInitialization: somePackages [ packages := somePackages ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddNewPackagesDialogPresenter >> titleForWindow [ ^ 'Select New Packages to Load'. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddNewPackagesDialogPresenter >> updatePresenter [ packagesList items: packages ] -{ #category : #validation } +{ #category : 'validation' } IceTipAddNewPackagesDialogPresenter >> validate [ self diff --git a/Iceberg-TipUI/IceTipAddPackageCommand.class.st b/Iceberg-TipUI/IceTipAddPackageCommand.class.st index b426fd154f..abb62edab1 100644 --- a/Iceberg-TipUI/IceTipAddPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipAddPackageCommand.class.st @@ -2,24 +2,26 @@ Command that opens a dialog to add a/many package/s into the selected repository. " Class { - #name : #IceTipAddPackageCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipAddPackageCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddPackageCommand class >> defaultDescription [ ^ 'Adds an existing package to this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddPackageCommand class >> defaultName [ ^ 'Add package' ] -{ #category : #executing } +{ #category : 'executing' } IceTipAddPackageCommand >> execute [ (IceTipAddPackagesDialogPresenter @@ -30,19 +32,19 @@ IceTipAddPackageCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackageCommand >> iconName [ ^ #add ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackageCommand >> shortcutKey [ ^ $n meta ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddPackageCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipAddPackagesDialogPresenter.class.st b/Iceberg-TipUI/IceTipAddPackagesDialogPresenter.class.st index 94800447f8..00b95cc901 100644 --- a/Iceberg-TipUI/IceTipAddPackagesDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddPackagesDialogPresenter.class.st @@ -2,18 +2,20 @@ I'm a dialog to add packages to a repository. " Class { - #name : #IceTipAddPackagesDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipAddPackagesDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'model', 'packagesList', 'packageNameText', 'selectedPackages' ], - #category : #'Iceberg-TipUI-View-WorkingCopy' + #category : 'Iceberg-TipUI-View-WorkingCopy', + #package : 'Iceberg-TipUI', + #tag : 'View-WorkingCopy' } -{ #category : #actions } +{ #category : 'actions' } IceTipAddPackagesDialogPresenter >> accept [ "ensure window goes away (in case accept comes from a keybinding and not the ok button)" @@ -25,15 +27,13 @@ IceTipAddPackagesDialogPresenter >> accept [ executeWithContext: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> allPackages [ - ^ RPackageOrganizer default packages - asOrderedCollection - sort: [ :a :b | a name < b name ] + ^ self packageOrganizer packages asOrderedCollection sort: [ :a :b | a name < b name ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> allPackagesNotRegistered [ | currentPackagesNames | @@ -42,7 +42,7 @@ IceTipAddPackagesDialogPresenter >> allPackagesNotRegistered [ currentPackagesNames includes: rPackage name ] ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddPackagesDialogPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -51,13 +51,13 @@ IceTipAddPackagesDialogPresenter >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> iconForWindow [ ^ self iconNamed: #branch ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> initializePackageNameText [ packageNameText @@ -66,7 +66,7 @@ IceTipAddPackagesDialogPresenter >> initializePackageNameText [ whenTextChangedDo: [ :text | self refresh ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> initializePackagesList [ packagesList addColumn: (SpCompositeTableColumn new @@ -86,7 +86,7 @@ IceTipAddPackagesDialogPresenter >> initializePackagesList [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> initializePresenters [ selectedPackages := OrderedCollection new. @@ -97,32 +97,32 @@ IceTipAddPackagesDialogPresenter >> initializePresenters [ self initializePackageNameText ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> model: anObject [ model := anObject. self refresh ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddPackagesDialogPresenter >> packageNameText [ ^ packageNameText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddPackagesDialogPresenter >> packagesList [ ^ packagesList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> refresh [ packagesList items: (packageNameText text @@ -135,31 +135,31 @@ IceTipAddPackagesDialogPresenter >> refresh [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> selectedPackage [ ^ packagesList selectedItem ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> titleForWindow [ ^ 'Add packages' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPackagesDialogPresenter >> updatePresenter [ self refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPackagesDialogPresenter >> validate [ self diff --git a/Iceberg-TipUI/IceTipAddPlainTextCredentialCommand.class.st b/Iceberg-TipUI/IceTipAddPlainTextCredentialCommand.class.st index ff725f569e..0bda874a9b 100644 --- a/Iceberg-TipUI/IceTipAddPlainTextCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipAddPlainTextCredentialCommand.class.st @@ -2,22 +2,24 @@ I create a new plaintext credential on the credential store. " Class { - #name : #IceTipAddPlainTextCredentialCommand, - #superclass : #IceTipAbstractCredentialStoreCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAddPlainTextCredentialCommand', + #superclass : 'IceTipAbstractCredentialStoreCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddPlainTextCredentialCommand class >> defaultDescription [ ^ 'Add a new plain text credential' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddPlainTextCredentialCommand class >> defaultName [ ^ 'Plain Text' ] -{ #category : #executing } +{ #category : 'executing' } IceTipAddPlainTextCredentialCommand >> execute [ ((IceTipAddPlaintextCredentialsPresenter newApplication: context application) diff --git a/Iceberg-TipUI/IceTipAddPlaintextCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAddPlaintextCredentialsPresenter.class.st index 34e65aa27d..9d957b8259 100644 --- a/Iceberg-TipUI/IceTipAddPlaintextCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddPlaintextCredentialsPresenter.class.st @@ -2,22 +2,24 @@ I implement the dialog to add plaintext credentials. " Class { - #name : #IceTipAddPlaintextCredentialsPresenter, - #superclass : #IceTipAbstractPlaintextCredentialsPresenter, + #name : 'IceTipAddPlaintextCredentialsPresenter', + #superclass : 'IceTipAbstractPlaintextCredentialsPresenter', #instVars : [ 'hostLabel', 'hostInput' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #testing } +{ #category : 'testing' } IceTipAddPlaintextCredentialsPresenter >> accept [ self acceptAddAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddPlaintextCredentialsPresenter >> defaultLayout [ ^ SpGridLayout new @@ -30,20 +32,20 @@ IceTipAddPlaintextCredentialsPresenter >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddPlaintextCredentialsPresenter >> hostnameFromInput [ ^ hostInput text ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPlaintextCredentialsPresenter >> initialExtentForWindow [ ^ (350 @ (self class inputTextHeight * 5 + self class buttonHeight)) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPlaintextCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -54,13 +56,13 @@ IceTipAddPlaintextCredentialsPresenter >> initializePresenters [ yourself ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddPlaintextCredentialsPresenter >> isOkEnabled [ ^ super isOkEnabled and: [ self hostnameFromInput isNotEmpty ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddPlaintextCredentialsPresenter >> titleForWindow [ ^ 'Add new Plain Text Credential' diff --git a/Iceberg-TipUI/IceTipAddRemoteCommand.class.st b/Iceberg-TipUI/IceTipAddRemoteCommand.class.st index 9664e8295b..4cf7dfdbe0 100644 --- a/Iceberg-TipUI/IceTipAddRemoteCommand.class.st +++ b/Iceberg-TipUI/IceTipAddRemoteCommand.class.st @@ -2,31 +2,33 @@ Command that opens a dialog to add a remote to a repository. " Class { - #name : #IceTipAddRemoteCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipAddRemoteCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddRemoteCommand class >> defaultDescription [ ^ 'Adds a remote to this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddRemoteCommand class >> defaultName [ ^ 'Add remote' ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddRemoteCommand >> canBeExecuted [ "Any repository can have more remotes." ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipAddRemoteCommand >> execute [ (IceTipAddRemoteDialogPresenter @@ -37,13 +39,13 @@ IceTipAddRemoteCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRemoteCommand >> iconName [ ^ #add ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddRemoteCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipAddRemoteDialogPresenter.class.st b/Iceberg-TipUI/IceTipAddRemoteDialogPresenter.class.st index a7e1f9eb46..a5964fae34 100644 --- a/Iceberg-TipUI/IceTipAddRemoteDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddRemoteDialogPresenter.class.st @@ -2,8 +2,8 @@ I'm a dialog to add remotes to a repository. " Class { - #name : #IceTipAddRemoteDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipAddRemoteDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'model', 'nameLabel', @@ -12,10 +12,12 @@ Class { 'nameText', 'acceptBlock' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipAddRemoteDialogPresenter >> accept [ self validate. @@ -27,7 +29,7 @@ IceTipAddRemoteDialogPresenter >> accept [ ^ acceptBlock ifNotNil: [ acceptBlock cull: self remoteName ] ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddRemoteDialogPresenter >> defaultLayout [ ^ SpGridLayout new @@ -41,7 +43,7 @@ IceTipAddRemoteDialogPresenter >> defaultLayout [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddRemoteDialogPresenter >> initialExtentForWindow [ ^ (500@( @@ -51,7 +53,7 @@ IceTipAddRemoteDialogPresenter >> initialExtentForWindow [ )) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddRemoteDialogPresenter >> initializePresenters [ nameLabel := self newLabel @@ -70,73 +72,73 @@ IceTipAddRemoteDialogPresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRemoteDialogPresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRemoteDialogPresenter >> model: anObject [ model := anObject ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddRemoteDialogPresenter >> nameLabel [ ^ nameLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddRemoteDialogPresenter >> nameText [ ^ nameText ] -{ #category : #events } +{ #category : 'events' } IceTipAddRemoteDialogPresenter >> onAccept: aBlock [ acceptBlock := aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRemoteDialogPresenter >> remoteName [ ^ self nameText text trimmed ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRemoteDialogPresenter >> remoteUrl [ ^ self urlText text trimmed ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddRemoteDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddRemoteDialogPresenter >> titleForWindow [ ^ 'Add remote' ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddRemoteDialogPresenter >> urlLabel [ ^ urlLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipAddRemoteDialogPresenter >> urlText [ ^ urlText ] -{ #category : #actions } +{ #category : 'actions' } IceTipAddRemoteDialogPresenter >> validate [ self diff --git a/Iceberg-TipUI/IceTipAddRepositoryCommand.class.st b/Iceberg-TipUI/IceTipAddRepositoryCommand.class.st index 0aa7d9688d..0ac4f307df 100644 --- a/Iceberg-TipUI/IceTipAddRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceTipAddRepositoryCommand.class.st @@ -3,31 +3,33 @@ I register Iceberg projects. I will open a dialog to take the new possible repository (from available options) and I will register it into the IceRepository>>#registry list. " Class { - #name : #IceTipAddRepositoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipAddRepositoryCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddRepositoryCommand class >> defaultDescription [ ^ 'Add a repository (new, local, cloned) to your managed repositories.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddRepositoryCommand class >> defaultName [ ^ 'Add' ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddRepositoryCommand >> canBeExecuted [ "This command can be executed with our without selection" ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipAddRepositoryCommand >> execute [ (IceTipRegisterRepositoryDialogPresenter newApplication: context application) @@ -36,19 +38,19 @@ IceTipAddRepositoryCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRepositoryCommand >> iconName [ ^ #add ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddRepositoryCommand >> shortcutKey [ ^ $n meta ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddRepositoryCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipAddSSHCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAddSSHCredentialsPresenter.class.st index 57f671869e..0d5ea539bb 100644 --- a/Iceberg-TipUI/IceTipAddSSHCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddSSHCredentialsPresenter.class.st @@ -2,22 +2,24 @@ I implement the dialog to add SSH credentials. " Class { - #name : #IceTipAddSSHCredentialsPresenter, - #superclass : #IceTipAbstractSSHCredentialsPresenter, + #name : 'IceTipAddSSHCredentialsPresenter', + #superclass : 'IceTipAbstractSSHCredentialsPresenter', #instVars : [ 'hostLabel', 'hostInput' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipAddSSHCredentialsPresenter >> accept [ self acceptAddAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddSSHCredentialsPresenter >> defaultLayout [ ^ SpGridLayout new @@ -31,20 +33,20 @@ IceTipAddSSHCredentialsPresenter >> defaultLayout [ add: passphraseLabel; add: passphraseInput; nextRow ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddSSHCredentialsPresenter >> hostnameFromInput [ ^ hostInput text ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddSSHCredentialsPresenter >> initialExtentForWindow [ ^ (350 @ (self class inputTextHeight * 7 + self class buttonHeight)) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddSSHCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -57,7 +59,7 @@ IceTipAddSSHCredentialsPresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddSSHCredentialsPresenter >> newCredentials [ ^ IceSshCredentials new @@ -68,7 +70,7 @@ IceTipAddSSHCredentialsPresenter >> newCredentials [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddSSHCredentialsPresenter >> titleForWindow [ ^ 'Add SSH credential' diff --git a/Iceberg-TipUI/IceTipAddSshCredentialCommand.class.st b/Iceberg-TipUI/IceTipAddSshCredentialCommand.class.st index db86f547fd..49a17d55b3 100644 --- a/Iceberg-TipUI/IceTipAddSshCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipAddSshCredentialCommand.class.st @@ -2,22 +2,24 @@ I add a new IceSshCredentials to the store " Class { - #name : #IceTipAddSshCredentialCommand, - #superclass : #IceTipAbstractCredentialStoreCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAddSshCredentialCommand', + #superclass : 'IceTipAbstractCredentialStoreCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddSshCredentialCommand class >> defaultDescription [ ^ 'Add a SSH pair of credential' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddSshCredentialCommand class >> defaultName [ ^ 'SSH Pair' ] -{ #category : #execution } +{ #category : 'execution' } IceTipAddSshCredentialCommand >> execute [ ((IceTipAddSSHCredentialsPresenter newApplication: context application) diff --git a/Iceberg-TipUI/IceTipAddTokenCredentialCommand.class.st b/Iceberg-TipUI/IceTipAddTokenCredentialCommand.class.st index a1570d8283..6d47533e52 100644 --- a/Iceberg-TipUI/IceTipAddTokenCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipAddTokenCredentialCommand.class.st @@ -1,21 +1,23 @@ Class { - #name : #IceTipAddTokenCredentialCommand, - #superclass : #IceTipAbstractCredentialStoreCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAddTokenCredentialCommand', + #superclass : 'IceTipAbstractCredentialStoreCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddTokenCredentialCommand class >> defaultDescription [ ^ 'Add a new token credential' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAddTokenCredentialCommand class >> defaultName [ ^ 'Token' ] -{ #category : #executing } +{ #category : 'executing' } IceTipAddTokenCredentialCommand >> execute [ ((IceTipAddTokenCredentialsPresenter newApplication: context application) diff --git a/Iceberg-TipUI/IceTipAddTokenCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAddTokenCredentialsPresenter.class.st index e6b33e71f7..c4931d633d 100644 --- a/Iceberg-TipUI/IceTipAddTokenCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAddTokenCredentialsPresenter.class.st @@ -2,8 +2,8 @@ I am a dialog to add token credentials. " Class { - #name : #IceTipAddTokenCredentialsPresenter, - #superclass : #IceTipAbstractCredentialsPresenter, + #name : 'IceTipAddTokenCredentialsPresenter', + #superclass : 'IceTipAbstractCredentialsPresenter', #instVars : [ 'hostInput', 'tokenInput', @@ -12,16 +12,18 @@ Class { 'usernameInput', 'usernameLabel' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddTokenCredentialsPresenter >> accept [ self acceptAddAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipAddTokenCredentialsPresenter >> defaultLayout [ ^ SpGridLayout new @@ -36,19 +38,19 @@ IceTipAddTokenCredentialsPresenter >> defaultLayout [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddTokenCredentialsPresenter >> hostnameFromInput [ ^ hostInput text ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddTokenCredentialsPresenter >> initialExtentForWindow [ ^ (350 @ (self class inputTextHeight * 5 + self class buttonHeight)) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddTokenCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -80,7 +82,7 @@ IceTipAddTokenCredentialsPresenter >> initializePresenters [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipAddTokenCredentialsPresenter >> isOkEnabled [ ^ self usernameFromInput isNotEmpty and: [ @@ -88,7 +90,7 @@ IceTipAddTokenCredentialsPresenter >> isOkEnabled [ self tokenFromInput isNotEmpty ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddTokenCredentialsPresenter >> newCredentials [ ^ IceTokenCredentials new @@ -98,19 +100,19 @@ IceTipAddTokenCredentialsPresenter >> newCredentials [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAddTokenCredentialsPresenter >> titleForWindow [ ^ 'Add token credentials' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddTokenCredentialsPresenter >> tokenFromInput [ ^ tokenInput text ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAddTokenCredentialsPresenter >> usernameFromInput [ ^ usernameInput text diff --git a/Iceberg-TipUI/IceTipAdoptCommitCommand.class.st b/Iceberg-TipUI/IceTipAdoptCommitCommand.class.st index 7942ae2db3..f6c3ef79f8 100644 --- a/Iceberg-TipUI/IceTipAdoptCommitCommand.class.st +++ b/Iceberg-TipUI/IceTipAdoptCommitCommand.class.st @@ -5,37 +5,39 @@ I won't modify the loaded code, but will calculate the differences between the loaded packages and the new commit, to mark packages as dirty. " Class { - #name : #IceTipAdoptCommitCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipAdoptCommitCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipAdoptCommitCommand class >> defaultDescription [ ^ 'Sets this commit as the commit of your working copy. It will not modify your loaded code, but it will calculate the differences between your loaded packages and the the new commit to mark packages as dirty.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAdoptCommitCommand >> defaultNameFromContext [ ^ 'Adopt commit ' , self selectedCommitish shortId ] -{ #category : #executing } +{ #category : 'executing' } IceTipAdoptCommitCommand >> execute [ self selectedCommitish adopt. Iceberg announcer announce: (IceRepositoryModified for: self repository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAdoptCommitCommand >> iconName [ ^ #recoverLostChanges ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAdoptCommitCommand >> name [ "Answer the name for the command. In order to have a specialized string for certain parameters of the context, and given the fact that sometimes the context is nil (e.g. when a context menu is calculated when the selection is empty)." @@ -45,7 +47,7 @@ IceTipAdoptCommitCommand >> name [ ifNotNil: [ self defaultNameFromContext ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAdoptCommitCommand >> selectedCommitish [ ^ self item diff --git a/Iceberg-TipUI/IceTipAnnouncement.class.st b/Iceberg-TipUI/IceTipAnnouncement.class.st index dbdedd4dc5..e41c5c55a8 100644 --- a/Iceberg-TipUI/IceTipAnnouncement.class.st +++ b/Iceberg-TipUI/IceTipAnnouncement.class.st @@ -3,7 +3,9 @@ I'm a general announcement for Tip UI events. (the announcements happened here are just for UI consumption) " Class { - #name : #IceTipAnnouncement, - #superclass : #IceAnnouncement, - #category : #'Iceberg-TipUI-Announcements' + #name : 'IceTipAnnouncement', + #superclass : 'IceAnnouncement', + #category : 'Iceberg-TipUI-Announcements', + #package : 'Iceberg-TipUI', + #tag : 'Announcements' } diff --git a/Iceberg-TipUI/IceTipAskForPlaintextCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAskForPlaintextCredentialsPresenter.class.st index 365540a064..07247e0c33 100644 --- a/Iceberg-TipUI/IceTipAskForPlaintextCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAskForPlaintextCredentialsPresenter.class.st @@ -3,30 +3,32 @@ I implement the dialog to ask plaintext credentials. This dialog is used when the IceTipInteractiveCredentialsProvider needs to ask a plaintext credential. " Class { - #name : #IceTipAskForPlaintextCredentialsPresenter, - #superclass : #IceTipAbstractPlaintextCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAskForPlaintextCredentialsPresenter', + #superclass : 'IceTipAbstractPlaintextCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipAskForPlaintextCredentialsPresenter >> accept [ ^ self acceptAskAction ] -{ #category : #actions } +{ #category : 'actions' } IceTipAskForPlaintextCredentialsPresenter >> cancel [ self cancelAskAction ] -{ #category : #actions } +{ #category : 'actions' } IceTipAskForPlaintextCredentialsPresenter >> cancelAction [ self cancelAskAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipAskForPlaintextCredentialsPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -44,13 +46,13 @@ IceTipAskForPlaintextCredentialsPresenter >> defaultLayout [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAskForPlaintextCredentialsPresenter >> initialExtentForWindow [ ^ (450 @ 180) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAskForPlaintextCredentialsPresenter >> titleForWindow [ ^ 'Please log in to ' , askingHostname diff --git a/Iceberg-TipUI/IceTipAskForPlaintextOtpCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAskForPlaintextOtpCredentialsPresenter.class.st index eaa0b052c5..b288110683 100644 --- a/Iceberg-TipUI/IceTipAskForPlaintextOtpCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAskForPlaintextOtpCredentialsPresenter.class.st @@ -1,14 +1,16 @@ Class { - #name : #IceTipAskForPlaintextOtpCredentialsPresenter, - #superclass : #IceTipAskForPlaintextCredentialsPresenter, + #name : 'IceTipAskForPlaintextOtpCredentialsPresenter', + #superclass : 'IceTipAskForPlaintextCredentialsPresenter', #instVars : [ 'tokenLabel', 'tokenInput' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #layout } +{ #category : 'layout' } IceTipAskForPlaintextOtpCredentialsPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -26,13 +28,13 @@ IceTipAskForPlaintextOtpCredentialsPresenter >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAskForPlaintextOtpCredentialsPresenter >> initialExtentForWindow [ ^ (350 @ 210) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipAskForPlaintextOtpCredentialsPresenter >> initializePresenters [ super initializePresenters. @@ -43,7 +45,7 @@ IceTipAskForPlaintextOtpCredentialsPresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAskForPlaintextOtpCredentialsPresenter >> newCredentials [ ^ IcePlaintextOtpCredentials new @@ -53,7 +55,7 @@ IceTipAskForPlaintextOtpCredentialsPresenter >> newCredentials [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAskForPlaintextOtpCredentialsPresenter >> token [ ^ tokenInput text diff --git a/Iceberg-TipUI/IceTipAskGithubForPlaintextCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAskGithubForPlaintextCredentialsPresenter.class.st index a9c3aba0a3..b99c95dd5d 100644 --- a/Iceberg-TipUI/IceTipAskGithubForPlaintextCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAskGithubForPlaintextCredentialsPresenter.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipAskGithubForPlaintextCredentialsPresenter, - #superclass : #IceTipAskForPlaintextCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAskGithubForPlaintextCredentialsPresenter', + #superclass : 'IceTipAskForPlaintextCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #private } +{ #category : 'private' } IceTipAskGithubForPlaintextCredentialsPresenter >> passwordLabel [ ^ 'Token:' diff --git a/Iceberg-TipUI/IceTipAskSSHCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipAskSSHCredentialsPresenter.class.st index 19347ecf1f..792093d429 100644 --- a/Iceberg-TipUI/IceTipAskSSHCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipAskSSHCredentialsPresenter.class.st @@ -2,24 +2,26 @@ I am a dialog to ask for SSH credentials. " Class { - #name : #IceTipAskSSHCredentialsPresenter, - #superclass : #IceTipEditSSHCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipAskSSHCredentialsPresenter', + #superclass : 'IceTipEditSSHCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipAskSSHCredentialsPresenter >> accept [ ^ self acceptAskAction ] -{ #category : #actions } +{ #category : 'actions' } IceTipAskSSHCredentialsPresenter >> cancelAction [ self cancelAskAction ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipAskSSHCredentialsPresenter >> newCredentials [ self refreshCredentialsFromPresenter. diff --git a/Iceberg-TipUI/IceTipBranchModel.class.st b/Iceberg-TipUI/IceTipBranchModel.class.st index b12d7e9824..bb754a13e1 100644 --- a/Iceberg-TipUI/IceTipBranchModel.class.st +++ b/Iceberg-TipUI/IceTipBranchModel.class.st @@ -2,17 +2,19 @@ I expose data of a branch. " Class { - #name : #IceTipBranchModel, - #superclass : #IceTipCommitishModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipBranchModel', + #superclass : 'IceTipCommitishModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> checkoutStrategies [ ^ IceCheckoutStrategy allStrategies ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> commitModels [ | commits | commits := OrderedCollection new. @@ -24,12 +26,12 @@ IceTipBranchModel >> commitModels [ ^ commits ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> commits [ self shouldBeImplemented. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> description [ ^ self entity isRemote @@ -37,49 +39,49 @@ IceTipBranchModel >> description [ ifFalse: [ self name ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> descriptionDecorator [ self entity isHead ifTrue: [ ^ IceTipDescriptionDecorator head ]. ^ super descriptionDecorator ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> diffFromHead [ | commitModel | commitModel := IceTipCommitModel on: self entity commit. ^ commitModel diffFromHead ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> diffToWorkingCopy [ | commitModel | commitModel := IceTipCommitModel on: self entity commit. ^ commitModel diffToWorkingCopy ] -{ #category : #testing } +{ #category : 'testing' } IceTipBranchModel >> hasUpstream [ ^ entity hasUpstream ] -{ #category : #testing } +{ #category : 'testing' } IceTipBranchModel >> isHead [ ^ self entity isHead ] -{ #category : #testing } +{ #category : 'testing' } IceTipBranchModel >> isLocal [ ^ self entity isLocal ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> name [ ^ self entity name ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> newCheckoutWithStrategyAction: aCheckoutStrategy [ @@ -91,7 +93,7 @@ IceTipBranchModel >> newCheckoutWithStrategyAction: aCheckoutStrategy [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> newDeleteAction [ @@ -103,7 +105,7 @@ IceTipBranchModel >> newDeleteAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> newDirectMergeAction [ @@ -115,7 +117,7 @@ IceTipBranchModel >> newDirectMergeAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> newSwitchAndMergeAction [ @@ -127,7 +129,7 @@ IceTipBranchModel >> newSwitchAndMergeAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> previewCheckout [ "this will open a 'checkout browser' that will allow user to validate the changes before @@ -137,7 +139,7 @@ IceTipBranchModel >> previewCheckout [ (IceTipCheckoutPreviewBrowser onBranch: self) open ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchModel >> previewMerge: aMergeType [ "this will open a 'checkout browser' that will allow user to validate the changes before actually checking out (checkout operation will be called in my sibling method, #checkout)" @@ -147,7 +149,7 @@ IceTipBranchModel >> previewMerge: aMergeType [ open ] -{ #category : #printing } +{ #category : 'printing' } IceTipBranchModel >> printOn: aStream [ super printOn: aStream. aStream @@ -156,12 +158,12 @@ IceTipBranchModel >> printOn: aStream [ nextPut: $] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchModel >> repositoryName [ ^ self repositoryModel name ] -{ #category : #'API - commits' } +{ #category : 'API - commits' } IceTipBranchModel >> resetToCommit: anIceTipCachedModel [ entity resetToCommit: anIceTipCachedModel entity diff --git a/Iceberg-TipUI/IceTipBranchPanel.class.st b/Iceberg-TipUI/IceTipBranchPanel.class.st index bd527e9559..223476e280 100644 --- a/Iceberg-TipUI/IceTipBranchPanel.class.st +++ b/Iceberg-TipUI/IceTipBranchPanel.class.st @@ -3,22 +3,24 @@ I'm a generic panel to checkout panels. My children will define different strategies to checkout (select an existing branch -local or remote-, or enter a new branch name) " Class { - #name : #IceTipBranchPanel, - #superclass : #IceTipPresenter, + #name : 'IceTipBranchPanel', + #superclass : 'IceTipPresenter', #instVars : [ 'model', 'acceptBlock' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipBranchPanel class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) beCached ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchPanel >> accept [ self validate. @@ -26,49 +28,49 @@ IceTipBranchPanel >> accept [ acceptBlock ifNotNil: [ acceptBlock cull: self ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipBranchPanel >> doAccept [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchPanel >> icon [ ^ self subclassResponsibility ] -{ #category : #testing } +{ #category : 'testing' } IceTipBranchPanel >> isNewBranch [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchPanel >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchPanel >> model: anObject [ model := anObject ] -{ #category : #events } +{ #category : 'events' } IceTipBranchPanel >> onAccept: aBlock [ acceptBlock := aBlock ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBranchPanel >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBranchPanel >> validate [ ^ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceTipBrowseCommand.class.st b/Iceberg-TipUI/IceTipBrowseCommand.class.st index 4f1a7e77d5..0e0dcaef76 100644 --- a/Iceberg-TipUI/IceTipBrowseCommand.class.st +++ b/Iceberg-TipUI/IceTipBrowseCommand.class.st @@ -2,43 +2,45 @@ I'm a command to ""browse"" a change definition (method, class or package). " Class { - #name : #IceTipBrowseCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipBrowseCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowseCommand class >> defaultDescription [ ^ 'Browse the selected item' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowseCommand class >> defaultName [ ^ 'Browse...' ] -{ #category : #testing } +{ #category : 'testing' } IceTipBrowseCommand >> canBeExecuted [ "In the case of a method removal it is not possible to browse the selected element." ^ self hasSelectedItem and: [ self item value definition canBeBrowsed ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipBrowseCommand >> execute [ self item value definition browse ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowseCommand >> iconName [ ^ #smallSystemBrowser ] -{ #category : #activation } +{ #category : 'activation' } IceTipBrowseCommand >> shortcutKey [ ^ $b meta diff --git a/Iceberg-TipUI/IceTipBrowsePackageCommand.class.st b/Iceberg-TipUI/IceTipBrowsePackageCommand.class.st index 25f9b31ca2..421c10e49f 100644 --- a/Iceberg-TipUI/IceTipBrowsePackageCommand.class.st +++ b/Iceberg-TipUI/IceTipBrowsePackageCommand.class.st @@ -2,36 +2,38 @@ Command that browses the selected package as it is loaded in the image. " Class { - #name : #IceTipBrowsePackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipBrowsePackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowsePackageCommand class >> defaultDescription [ ^ 'Browse the selected package as it is loaded in the image' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowsePackageCommand class >> defaultName [ ^ 'Browse' ] -{ #category : #testing } +{ #category : 'testing' } IceTipBrowsePackageCommand >> canBeExecuted [ ^ super canBeExecuted and: [ self isPackageLoaded ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipBrowsePackageCommand >> execute [ self packageModel browsePackage ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowsePackageCommand >> shortcutKey [ ^ $b meta diff --git a/Iceberg-TipUI/IceTipBrowseRepositoryPackageVersionCommand.class.st b/Iceberg-TipUI/IceTipBrowseRepositoryPackageVersionCommand.class.st index 47509f917b..94a27379a2 100644 --- a/Iceberg-TipUI/IceTipBrowseRepositoryPackageVersionCommand.class.st +++ b/Iceberg-TipUI/IceTipBrowseRepositoryPackageVersionCommand.class.st @@ -4,24 +4,26 @@ Command that opens a browser on the code of the repository. The current implementation relies on a monticello MCSnapshotBrowser " Class { - #name : #IceTipBrowseRepositoryPackageVersionCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipBrowseRepositoryPackageVersionCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowseRepositoryPackageVersionCommand class >> defaultDescription [ ^ 'Browse the version in the repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipBrowseRepositoryPackageVersionCommand class >> defaultName [ ^ 'Browse this version in Monticello' ] -{ #category : #executing } +{ #category : 'executing' } IceTipBrowseRepositoryPackageVersionCommand >> execute [ self packageModel browseRepositoryVersion diff --git a/Iceberg-TipUI/IceTipBrowser.class.st b/Iceberg-TipUI/IceTipBrowser.class.st index dc8780dad2..1ed279f6d2 100644 --- a/Iceberg-TipUI/IceTipBrowser.class.st +++ b/Iceberg-TipUI/IceTipBrowser.class.st @@ -9,16 +9,18 @@ Some design remarks: * Browsers have a context menu on list or table items, that provide commands that are specific for the selection. " Class { - #name : #IceTipBrowser, - #superclass : #IceTipPresenter, + #name : 'IceTipBrowser', + #superclass : 'IceTipPresenter', #instVars : [ 'model', 'toolbar' ], - #category : #'Iceberg-TipUI-View' + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> buildCommandsGroupWith: presenter forRoot: aCommandGroup [ | generalCommandGroup selectionCommandGroup selectionExtraCommandGroup | @@ -42,81 +44,81 @@ IceTipBrowser class >> buildCommandsGroupWith: presenter forRoot: aCommandGroup ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ self subclassResponsibility ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ self subclassResponsibility ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> buildSelectionExtraCommandGroupWith: presenter for: aCommandGroup [ aCommandGroup register: IceTipInspectCommand forSpec. aCommandGroup register: IceFiletreeToTonelCommand forSpec ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> generalCommandGroupName [ ^ 'General' ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> selectionCommandGroupName [ ^ 'Selection' ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser class >> selectionExtraCommandGroupName [ ^ 'Extra' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> connectPresenters [ self mainList whenSelectionChangedDo: [ self refreshCommands ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> defaultKeyboardFocus [ ^ self mainList ] -{ #category : #testing } +{ #category : 'testing' } IceTipBrowser >> hasSelectedItem [ ^ self mainList selection isEmpty not ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> iconForWindow [ ^ self iconNamed: #komitterSmalltalkhubRemote ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> initialExtentForWindow [ ^ (600 @ 400) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> initialize [ super initialize. self subscribeToAnnouncements ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> initializeWindow: aSpWindowPresenter [ super initializeWindow: aSpWindowPresenter. @@ -125,31 +127,31 @@ IceTipBrowser >> initializeWindow: aSpWindowPresenter [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowser >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowser >> model: anObject [ model := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowser >> refresh [ "Update the UI elements given a possible update in the model." ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser >> refreshCommands [ | rootGroup | @@ -163,7 +165,7 @@ IceTipBrowser >> refreshCommands [ ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser >> refreshMainListContextMenuWith: rootGroup [ "Update context menu (for mainList)." @@ -173,7 +175,7 @@ IceTipBrowser >> refreshMainListContextMenuWith: rootGroup [ self mainList contextMenuFromCommandsGroup: subgroup ]. ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser >> refreshShortcutsWith: rootGroup [ "Update shortcuts with available commands" @@ -184,7 +186,7 @@ IceTipBrowser >> refreshShortcutsWith: rootGroup [ ] -{ #category : #commands } +{ #category : 'commands' } IceTipBrowser >> refreshToolbarWith: rootGroup [ "Update toolbar (in window)." @@ -208,31 +210,31 @@ IceTipBrowser >> refreshToolbarWith: rootGroup [ self window toolbar: toolbar ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowser >> repositoryModel [ "Answer the IceTipRepositoryModel associated to this presenter." ^ self model repositoryModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipBrowser >> selectedItem [ "Answer the object selected in the main list of this browser. The answer is nil when there isn't a selection." ^ self mainList selection selectedItem ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipBrowser >> subscribeToAnnouncements [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipBrowser >> toolbar [ ^ toolbar diff --git a/Iceberg-TipUI/IceTipCache.class.st b/Iceberg-TipUI/IceTipCache.class.st index 363621bbfd..cc06b437d3 100644 --- a/Iceberg-TipUI/IceTipCache.class.st +++ b/Iceberg-TipUI/IceTipCache.class.st @@ -5,70 +5,72 @@ I'm used to cache values to be used on the UI. I can be reseted (sending #reset), but responsibility of reset caches belongs to presenters who use them. " Class { - #name : #IceTipCache, - #superclass : #Object, + #name : 'IceTipCache', + #superclass : 'Object', #instVars : [ 'proxy', 'objects' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCache class >> proxy: aProxy [ ^ self new proxy: aProxy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> at: aKey ifAbsent: anObject [ ^ objects at: aKey ifAbsent: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> at: aKey ifAbsentPut: anObject [ ^ objects at: aKey ifAbsentPut: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> at: aKey ifPresent: anObject [ ^ objects at: aKey ifPresent: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> at: aKey put: anObject [ ^ objects at: aKey put: anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCache >> initialize [ super initialize. self reset ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> objects [ ^ objects ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> proxy [ ^ proxy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCache >> proxy: anObject [ proxy := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCache >> reset [ objects := SmallDictionary new ] diff --git a/Iceberg-TipUI/IceTipCachedModel.class.st b/Iceberg-TipUI/IceTipCachedModel.class.st index f69b645173..b522f0299b 100644 --- a/Iceberg-TipUI/IceTipCachedModel.class.st +++ b/Iceberg-TipUI/IceTipCachedModel.class.st @@ -4,28 +4,30 @@ I take all unary messages sent to my realObject and I cache their values. I keep a cache with rules for reset it, which can be accessedon the #resetOn: family of messages. " Class { - #name : #IceTipCachedModel, - #superclass : #Object, + #name : 'IceTipCachedModel', + #superclass : 'Object', #instVars : [ 'realObject', 'cache' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCachedModel class >> for: anObject [ ^ self basicNew initializeObject: anObject ] -{ #category : #comparing } +{ #category : 'comparing' } IceTipCachedModel >> = aObject [ self species ~= aObject species ifTrue: [ ^ false ]. ^ self realObject = aObject realObject ] -{ #category : #'reflective operations' } +{ #category : 'reflective operations' } IceTipCachedModel >> doesNotUnderstand: aMessage [ aMessage selector isUnary ifTrue: [ @@ -42,27 +44,27 @@ IceTipCachedModel >> doesNotUnderstand: aMessage [ ^ self forwardMessage: aMessage ] -{ #category : #'reflective operations' } +{ #category : 'reflective operations' } IceTipCachedModel >> forwardMessage: aMessage [ ^ realObject perform: aMessage selector withArguments: aMessage arguments ] -{ #category : #comparing } +{ #category : 'comparing' } IceTipCachedModel >> hash [ ^ self realObject hash ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCachedModel >> initializeObject: anObject [ realObject := anObject. cache := IceTipCache proxy: self. self initialize ] -{ #category : #printing } +{ #category : 'printing' } IceTipCachedModel >> printOn: aStream [ super printOn: aStream. aStream nextPut: $(. @@ -70,12 +72,12 @@ IceTipCachedModel >> printOn: aStream [ aStream nextPut: $) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCachedModel >> realObject [ ^ realObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCachedModel >> reset [ cache reset ] diff --git a/Iceberg-TipUI/IceTipCalculateDirtyPackagesCommand.class.st b/Iceberg-TipUI/IceTipCalculateDirtyPackagesCommand.class.st index b7408e9fe8..d188d62fe5 100644 --- a/Iceberg-TipUI/IceTipCalculateDirtyPackagesCommand.class.st +++ b/Iceberg-TipUI/IceTipCalculateDirtyPackagesCommand.class.st @@ -2,25 +2,27 @@ I'm a command that makes a working copy to recalculate the dirty packages (via #forceCalculateDirtyPackages). " Class { - #name : #IceTipCalculateDirtyPackagesCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCalculateDirtyPackagesCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCalculateDirtyPackagesCommand class >> defaultName [ ^ 'Recalculate dirty packages' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCalculateDirtyPackagesCommand >> canBeExecuted [ ^ self hasSelectedItem ] -{ #category : #executing } +{ #category : 'executing' } IceTipCalculateDirtyPackagesCommand >> execute [ IceTipStandardAction new @@ -31,7 +33,7 @@ IceTipCalculateDirtyPackagesCommand >> execute [ executeWithContext: context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCalculateDirtyPackagesCommand >> iconName [ ^ #repair diff --git a/Iceberg-TipUI/IceTipCheckoutBranchCommand.class.st b/Iceberg-TipUI/IceTipCheckoutBranchCommand.class.st index f846b99bd8..790e79a87f 100644 --- a/Iceberg-TipUI/IceTipCheckoutBranchCommand.class.st +++ b/Iceberg-TipUI/IceTipCheckoutBranchCommand.class.st @@ -2,36 +2,38 @@ Command that opens a dialog to checkout a (new or already existing) branch. " Class { - #name : #IceTipCheckoutBranchCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCheckoutBranchCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutBranchCommand class >> defaultDescription [ ^ 'Checkout a new or existing branch.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutBranchCommand class >> defaultName [ ^ 'Checkout branch' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutBranchCommand class >> defaultToolbarItemName [ ^ 'Branch' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCheckoutBranchCommand >> canBeExecuted [ ^ super canBeExecuted and: [ self isRepositoryMissing not] ] -{ #category : #executing } +{ #category : 'executing' } IceTipCheckoutBranchCommand >> execute [ (IceTipCheckoutBranchDialog @@ -42,7 +44,7 @@ IceTipCheckoutBranchCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchCommand >> iconName [ ^ #branch diff --git a/Iceberg-TipUI/IceTipCheckoutBranchDialog.class.st b/Iceberg-TipUI/IceTipCheckoutBranchDialog.class.st index 8371ddd3c5..4c0ac85745 100644 --- a/Iceberg-TipUI/IceTipCheckoutBranchDialog.class.st +++ b/Iceberg-TipUI/IceTipCheckoutBranchDialog.class.st @@ -4,28 +4,30 @@ I'm a dialog to perform a checkout of a branch. (self onRepository: IceRepository registry anyOne) openDialogWithSpec " Class { - #name : #IceTipCheckoutBranchDialog, - #superclass : #IceTipOptionDialogPresenter, + #name : 'IceTipCheckoutBranchDialog', + #superclass : 'IceTipOptionDialogPresenter', #instVars : [ 'model', 'types' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCheckoutBranchDialog class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) beCached ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchDialog >> allTypes [ ^ types ifNil: [ types := self createCheckoutBranchTypes ] ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipCheckoutBranchDialog >> createCheckoutBranchTypes [ | allTypes | @@ -49,50 +51,50 @@ IceTipCheckoutBranchDialog >> createCheckoutBranchTypes [ ^ allTypes ] -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutBranchDialog >> doAccept [ self selectedType doAccept ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutBranchDialog >> initialExtentForWindow [ ^ (600 @ 400) scaledByDisplayScaleFactor ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchDialog >> model [ ^ model ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutBranchDialog >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutBranchDialog >> titleForWindow [ ^ 'Checkout branch' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchDialog >> withOnlyNewBranch [ types := self allTypes select: #isNewBranch. typeList items: types ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchDialog >> withTypes: aCollection [ types := aCollection. typeList items: types. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutBranchDialog >> withoutNewBranch [ types := self allTypes reject: #isNewBranch. typeList items: types. diff --git a/Iceberg-TipUI/IceTipCheckoutBranchPanel.class.st b/Iceberg-TipUI/IceTipCheckoutBranchPanel.class.st index a03e98d39b..69d4df247d 100644 --- a/Iceberg-TipUI/IceTipCheckoutBranchPanel.class.st +++ b/Iceberg-TipUI/IceTipCheckoutBranchPanel.class.st @@ -2,12 +2,14 @@ I'm a panel to peform the checkout of an existing branch. " Class { - #name : #IceTipCheckoutBranchPanel, - #superclass : #IceTipExistingBranchPanel, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipCheckoutBranchPanel', + #superclass : 'IceTipExistingBranchPanel', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutBranchPanel >> doAccept [ self selectedBranch previewCheckout diff --git a/Iceberg-TipUI/IceTipCheckoutCommitCommand.class.st b/Iceberg-TipUI/IceTipCheckoutCommitCommand.class.st index 69cc6b43da..410e447df7 100644 --- a/Iceberg-TipUI/IceTipCheckoutCommitCommand.class.st +++ b/Iceberg-TipUI/IceTipCheckoutCommitCommand.class.st @@ -3,37 +3,39 @@ I checkout a specific commit from history. I will let your repository in detach mode! " Class { - #name : #IceTipCheckoutCommitCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCheckoutCommitCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutCommitCommand class >> defaultDescription [ ^ 'Set the selected commit as current commit and load the code in the image' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutCommitCommand class >> defaultName [ ^ 'Checkout' ] -{ #category : #executing } +{ #category : 'executing' } IceTipCheckoutCommitCommand >> execute [ (IceTipCheckoutPreviewBrowser onBranch: self selectedCommit) open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutCommitCommand >> iconName [ ^ #refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutCommitCommand >> selectedCommit [ ^ self context selectedCommit diff --git a/Iceberg-TipUI/IceTipCheckoutModel.class.st b/Iceberg-TipUI/IceTipCheckoutModel.class.st index 50cdb34b4a..c1290c529e 100644 --- a/Iceberg-TipUI/IceTipCheckoutModel.class.st +++ b/Iceberg-TipUI/IceTipCheckoutModel.class.st @@ -1,20 +1,22 @@ Class { - #name : #IceTipCheckoutModel, - #superclass : #IceTipDiffPreviewModel, + #name : 'IceTipCheckoutModel', + #superclass : 'IceTipDiffPreviewModel', #instVars : [ 'checkoutStrategy', 'checkoutStrategies' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutModel >> calculateDiff [ ^ commitish entity diffTo: self repository workingCopy ] -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutModel >> checkout [ checkoutStrategy @@ -24,30 +26,30 @@ IceTipCheckoutModel >> checkout [ self commitish checkout: checkoutStrategy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutModel >> checkoutStrategies [ ^ checkoutStrategies ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutModel >> checkoutStrategy [ ^ checkoutStrategy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutModel >> checkoutStrategy: aStrategy [ checkoutStrategy := aStrategy ] -{ #category : #testing } +{ #category : 'testing' } IceTipCheckoutModel >> hasNewPackages [ ^ diffModel tree anySatisfy:[ :aNode | aNode isAddition and: [ aNode definition isPackageDefinition]] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutModel >> initialize [ super initialize. @@ -55,7 +57,7 @@ IceTipCheckoutModel >> initialize [ checkoutStrategy := checkoutStrategies first. ] -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutModel >> newCheckoutAction [ @@ -67,7 +69,7 @@ IceTipCheckoutModel >> newCheckoutAction [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutModel >> newPackages [ | packageNodes | diff --git a/Iceberg-TipUI/IceTipCheckoutNewBranchCommand.class.st b/Iceberg-TipUI/IceTipCheckoutNewBranchCommand.class.st index e7fa896dcc..c1ba72ea9d 100644 --- a/Iceberg-TipUI/IceTipCheckoutNewBranchCommand.class.st +++ b/Iceberg-TipUI/IceTipCheckoutNewBranchCommand.class.st @@ -3,24 +3,26 @@ Action to start the creation of a new branch from the selected commit. Then checkout the selected branch. " Class { - #name : #IceTipCheckoutNewBranchCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCheckoutNewBranchCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutNewBranchCommand class >> defaultDescription [ ^ 'Create a new branch from the selected commit and switch to it' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutNewBranchCommand class >> defaultName [ ^ 'Branch...' ] -{ #category : #executing } +{ #category : 'executing' } IceTipCheckoutNewBranchCommand >> execute [ ((IceTipCheckoutNewBranchPanel @@ -33,13 +35,13 @@ IceTipCheckoutNewBranchCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchCommand >> iconName [ ^ #branch ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchCommand >> selectedCommit [ ^ self item entity diff --git a/Iceberg-TipUI/IceTipCheckoutNewBranchPanel.class.st b/Iceberg-TipUI/IceTipCheckoutNewBranchPanel.class.st index fc93346154..c902606842 100644 --- a/Iceberg-TipUI/IceTipCheckoutNewBranchPanel.class.st +++ b/Iceberg-TipUI/IceTipCheckoutNewBranchPanel.class.st @@ -2,8 +2,8 @@ I'm a panel to create a new local branch " Class { - #name : #IceTipCheckoutNewBranchPanel, - #superclass : #IceTipBranchPanel, + #name : 'IceTipCheckoutNewBranchPanel', + #superclass : 'IceTipBranchPanel', #instVars : [ 'currentBranchLabel', 'branchLabel', @@ -11,40 +11,42 @@ Class { 'branchCommitish', 'callback' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCheckoutNewBranchPanel >> branchInputText [ ^ branchInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCheckoutNewBranchPanel >> branchLabel [ ^ branchLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchPanel >> branchName [ ^ self branchInputText text asString trimBoth ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchPanel >> commitish: anIceTipModel [ branchCommitish := anIceTipModel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCheckoutNewBranchPanel >> currentBranchLabel [ ^ currentBranchLabel ] -{ #category : #layout } +{ #category : 'layout' } IceTipCheckoutNewBranchPanel >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -60,7 +62,7 @@ IceTipCheckoutNewBranchPanel >> defaultLayout [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutNewBranchPanel >> doAccept [ (self model @@ -72,26 +74,26 @@ IceTipCheckoutNewBranchPanel >> doAccept [ executeWithContext: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchPanel >> icon [ ^ self iconNamed: #smallNew ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutNewBranchPanel >> iconForWindow [ ^ self icon ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutNewBranchPanel >> initializeCurrentBranchLabel [ currentBranchLabel := self newLabel label: 'Current branch: ', self model branchName ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutNewBranchPanel >> initializePresenters [ self initializeCurrentBranchLabel. @@ -103,13 +105,13 @@ IceTipCheckoutNewBranchPanel >> initializePresenters [ yourself ] -{ #category : #testing } +{ #category : 'testing' } IceTipCheckoutNewBranchPanel >> isNewBranch [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchPanel >> openDialog [ ^ self asDialogWindow @@ -117,13 +119,13 @@ IceTipCheckoutNewBranchPanel >> openDialog [ open ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutNewBranchPanel >> titleForWindow [ ^ 'New branch' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutNewBranchPanel >> validate [ self @@ -134,7 +136,7 @@ IceTipCheckoutNewBranchPanel >> validate [ description: 'You can''t have spaces in your branch name.' ] -{ #category : #callbacks } +{ #category : 'callbacks' } IceTipCheckoutNewBranchPanel >> withResultDo: aBlockClosure [ callback := aBlockClosure diff --git a/Iceberg-TipUI/IceTipCheckoutPreviewBrowser.class.st b/Iceberg-TipUI/IceTipCheckoutPreviewBrowser.class.st index 6757094f5f..7ce1870ee7 100644 --- a/Iceberg-TipUI/IceTipCheckoutPreviewBrowser.class.st +++ b/Iceberg-TipUI/IceTipCheckoutPreviewBrowser.class.st @@ -4,23 +4,25 @@ I preview the changes that will be introduced in the image when a checkout occur (self onBranch: IceRepository registry anyOne branch) openWithSpec. " Class { - #name : #IceTipCheckoutPreviewBrowser, - #superclass : #IceTipPreviewBrowser, + #name : 'IceTipCheckoutPreviewBrowser', + #superclass : 'IceTipPreviewBrowser', #instVars : [ 'checkoutStrategyLabel', 'checkoutStrategyList', 'selectedCheckoutStrategy' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #private } +{ #category : 'private' } IceTipCheckoutPreviewBrowser class >> maxBranchNameLength [ ^ 32 ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCheckoutPreviewBrowser class >> onBranch: aBranch [ ^ self on: (IceTipCheckoutModel new @@ -28,19 +30,19 @@ IceTipCheckoutPreviewBrowser class >> onBranch: aBranch [ yourself) ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCheckoutPreviewBrowser >> checkoutStrategyLabel [ ^ checkoutStrategyLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCheckoutPreviewBrowser >> checkoutStrategyList [ ^ checkoutStrategyList ] -{ #category : #layout } +{ #category : 'layout' } IceTipCheckoutPreviewBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -57,7 +59,7 @@ IceTipCheckoutPreviewBrowser >> defaultLayout [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipCheckoutPreviewBrowser >> doCheckout [ (self model hasNewPackages and: [ self model checkoutStrategy isLoadAlreadyLoadedStrategy ]) @@ -69,7 +71,7 @@ IceTipCheckoutPreviewBrowser >> doCheckout [ executeWithContext: self ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutPreviewBrowser >> initializeCheckoutStrategyList [ | checkoutStrategies | @@ -81,7 +83,7 @@ IceTipCheckoutPreviewBrowser >> initializeCheckoutStrategyList [ self model checkoutStrategy: aStrategy ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutPreviewBrowser >> initializePresenters [ super initializePresenters. @@ -96,7 +98,7 @@ IceTipCheckoutPreviewBrowser >> initializePresenters [ self initializeCheckoutStrategyList ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipCheckoutPreviewBrowser >> newActionButton [ ^ self newButton @@ -107,7 +109,7 @@ IceTipCheckoutPreviewBrowser >> newActionButton [ yourself ] -{ #category : #operations } +{ #category : 'operations' } IceTipCheckoutPreviewBrowser >> openAddNewPackagesDialog [ ((IceTipAddNewPackagesDialogPresenter @@ -120,13 +122,13 @@ IceTipCheckoutPreviewBrowser >> openAddNewPackagesDialog [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutPreviewBrowser >> selectedCheckoutStrategy [ ^ selectedCheckoutStrategy ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCheckoutPreviewBrowser >> titleForWindow [ ^ 'Preview checkout of {1}/{2}' format: { diff --git a/Iceberg-TipUI/IceTipCheckoutSelectedBranchCommand.class.st b/Iceberg-TipUI/IceTipCheckoutSelectedBranchCommand.class.st index 2dbcfef159..5e9ecbb7d4 100644 --- a/Iceberg-TipUI/IceTipCheckoutSelectedBranchCommand.class.st +++ b/Iceberg-TipUI/IceTipCheckoutSelectedBranchCommand.class.st @@ -2,36 +2,38 @@ Command that checks out the selected branch " Class { - #name : #IceTipCheckoutSelectedBranchCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCheckoutSelectedBranchCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutSelectedBranchCommand class >> defaultDescription [ ^ 'Checkout this branch' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutSelectedBranchCommand class >> defaultName [ ^ 'Checkout branch' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCheckoutSelectedBranchCommand >> actsOnBranch: aBranchModel [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipCheckoutSelectedBranchCommand >> execute [ self item previewCheckout ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutSelectedBranchCommand >> iconName [ ^ #branch ] diff --git a/Iceberg-TipUI/IceTipCheckoutSelectedTagCommand.class.st b/Iceberg-TipUI/IceTipCheckoutSelectedTagCommand.class.st index c1d25d3348..4d2092de3c 100644 --- a/Iceberg-TipUI/IceTipCheckoutSelectedTagCommand.class.st +++ b/Iceberg-TipUI/IceTipCheckoutSelectedTagCommand.class.st @@ -2,35 +2,37 @@ Command that checks out the selected tag " Class { - #name : #IceTipCheckoutSelectedTagCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCheckoutSelectedTagCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutSelectedTagCommand class >> defaultDescription [ ^ 'Checkout this tag for this repository. Repository will then be in Detached Head state!' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCheckoutSelectedTagCommand class >> defaultName [ ^ 'Checkout tag' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCheckoutSelectedTagCommand >> actsOnTag: aRemoteModel [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipCheckoutSelectedTagCommand >> execute [ self item previewCheckout ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCheckoutSelectedTagCommand >> iconName [ ^ #branch diff --git a/Iceberg-TipUI/IceTipCherryPickCommand.class.st b/Iceberg-TipUI/IceTipCherryPickCommand.class.st index 373462f0e1..d93f271031 100644 --- a/Iceberg-TipUI/IceTipCherryPickCommand.class.st +++ b/Iceberg-TipUI/IceTipCherryPickCommand.class.st @@ -2,38 +2,40 @@ Generic command to cherry pick changes " Class { - #name : #IceTipCherryPickCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCherryPickCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCherryPickCommand class >> defaultDescription [ ^ 'Cherrypick this commit and apply changes to the working copy' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCherryPickCommand class >> defaultName [ ^ 'Cherrypick' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCherryPickCommand >> canBeExecuted [ self flag: #pharoTodo. "TODO: Still not ready" ^ false ] -{ #category : #executing } +{ #category : 'executing' } IceTipCherryPickCommand >> execute [ (IceTipCherrypickPreviewBrowser onCommitish: self selectedCommitish) open ] -{ #category : #executing } +{ #category : 'executing' } IceTipCherryPickCommand >> selectedCommitish [ ^ self context selectedCommit realObject entity diff --git a/Iceberg-TipUI/IceTipCherrypickModel.class.st b/Iceberg-TipUI/IceTipCherrypickModel.class.st index b3ec970b3a..125c2afe8c 100644 --- a/Iceberg-TipUI/IceTipCherrypickModel.class.st +++ b/Iceberg-TipUI/IceTipCherrypickModel.class.st @@ -1,14 +1,16 @@ Class { - #name : #IceTipCherrypickModel, - #superclass : #IceTipModel, + #name : 'IceTipCherrypickModel', + #superclass : 'IceTipModel', #instVars : [ 'mergeTree', 'commitish' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCherrypickModel class >> onCommitish: aCommitish [ ^ self new @@ -16,33 +18,33 @@ IceTipCherrypickModel class >> onCommitish: aCommitish [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> commitish [ ^commitish ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> commitish: aCommistish [ commitish := aCommistish. mergeTree := commitish repository cherryPickFrom: aCommistish ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> diff [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> mergeTree [ ^mergeTree ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> repository [ ^commitish repository. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickModel >> treeToShow [ " Return the tree to display in windows " ^ self mergeTree diff --git a/Iceberg-TipUI/IceTipCherrypickPreviewBrowser.class.st b/Iceberg-TipUI/IceTipCherrypickPreviewBrowser.class.st index 71727fdcec..42dd79ac32 100644 --- a/Iceberg-TipUI/IceTipCherrypickPreviewBrowser.class.st +++ b/Iceberg-TipUI/IceTipCherrypickPreviewBrowser.class.st @@ -1,39 +1,41 @@ Class { - #name : #IceTipCherrypickPreviewBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipCherrypickPreviewBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'diffPanel', 'buttonBar' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #commands } +{ #category : 'commands' } IceTipCherrypickPreviewBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #commands } +{ #category : 'commands' } IceTipCherrypickPreviewBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCherrypickPreviewBrowser class >> onCommitish: aCommitish [ ^ self on: (IceTipCherrypickModel onCommitish: aCommitish) ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCherrypickPreviewBrowser >> buttonBar [ ^ buttonBar ] -{ #category : #layout } +{ #category : 'layout' } IceTipCherrypickPreviewBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -42,13 +44,13 @@ IceTipCherrypickPreviewBrowser >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCherrypickPreviewBrowser >> diffPanel [ ^ diffPanel ] -{ #category : #actions } +{ #category : 'actions' } IceTipCherrypickPreviewBrowser >> doCherryPick [ | root | @@ -58,13 +60,13 @@ IceTipCherrypickPreviewBrowser >> doCherryPick [ self closeWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCherrypickPreviewBrowser >> initialExtentForWindow [ ^ (800 @ 600) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCherrypickPreviewBrowser >> initializePresenters [ diffPanel := self @@ -76,20 +78,20 @@ IceTipCherrypickPreviewBrowser >> initializePresenters [ diffPanel rightLabel: ' With Cherrypicked commit ' ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCherrypickPreviewBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ diffPanel iceNodesTree ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCherrypickPreviewBrowser >> mergeType: anObject [ self model mergeType: anObject ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipCherrypickPreviewBrowser >> newActionButton [ ^ self newButton @@ -100,7 +102,7 @@ IceTipCherrypickPreviewBrowser >> newActionButton [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCherrypickPreviewBrowser >> titleForWindow [ ^ 'Preview result of Cherrypick' diff --git a/Iceberg-TipUI/IceTipCleanCommandGroupVisitor.class.st b/Iceberg-TipUI/IceTipCleanCommandGroupVisitor.class.st index bf24223abd..d97c3a3ad8 100644 --- a/Iceberg-TipUI/IceTipCleanCommandGroupVisitor.class.st +++ b/Iceberg-TipUI/IceTipCleanCommandGroupVisitor.class.st @@ -3,18 +3,20 @@ I'm a CmVisitor that in one hand, tells each command to be hidden if it can't be " Class { - #name : #IceTipCleanCommandGroupVisitor, - #superclass : #CmVisitor, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCleanCommandGroupVisitor', + #superclass : 'CmVisitor', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #visiting } +{ #category : 'visiting' } IceTipCleanCommandGroupVisitor >> visitCommand: aCmCommand [ aCmCommand beHiddenWhenCantBeRun ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipCleanCommandGroupVisitor >> visitCommandGroup: aCmCommandsGroup [ super visitCommandGroup: aCmCommandsGroup. diff --git a/Iceberg-TipUI/IceTipCommand.class.st b/Iceberg-TipUI/IceTipCommand.class.st index 5df99320f2..bd90248921 100644 --- a/Iceberg-TipUI/IceTipCommand.class.st +++ b/Iceberg-TipUI/IceTipCommand.class.st @@ -2,31 +2,33 @@ I'm the superclass of all commands of the IceTip UI. " Class { - #name : #IceTipCommand, - #superclass : #CmCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCommand', + #superclass : 'CmCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCommand class >> defaultToolbarItemName [ ^ self defaultName ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand class >> isAbstract [ ^ self == IceTipCommand ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> application [ ^ SpApplication defaultApplication ] -{ #category : #converting } +{ #category : 'converting' } IceTipCommand >> asSpecCommand [ | spCommand | @@ -45,31 +47,31 @@ IceTipCommand >> asSpecCommand [ ^ spCommand ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> badge [ "Answer a number as extra information in the button. An answer of nil means no information." ^ nil ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> hasRepository [ ^ self repositoryModel notNil ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> hasSelectedItem [ ^ self context selectedItem notNil ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> hasUnbornProject [ ^ self repositoryModel hasUnbornProject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> iconName [ "Answer the icon name (a Symbol) for this command." @@ -77,13 +79,13 @@ IceTipCommand >> iconName [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> isRepositoryDetached [ ^ self repositoryModel isNil or: [ self repositoryModel isDetached ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> isRepositoryMissing [ ^ self hasRepository and: [ @@ -91,32 +93,32 @@ IceTipCommand >> isRepositoryMissing [ self repositoryModel isCodeMissing ] ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> isRepositoryOperational [ ^ self isRepositoryMissing not and: [ self isRepositoryDetached not and: [ self hasUnbornProject not ] ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipCommand >> item [ ^ self context selectedItem ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> repository [ ^ self repositoryModel entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> repositoryModel [ ^ self context repositoryModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> shortcutKey [ "Answer the key combination to execute this command. Answer nil if there isn't a key combination." @@ -124,31 +126,31 @@ IceTipCommand >> shortcutKey [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> tool [ ^ self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> toolAnnouncer [ ^ self tool announcer ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> toolbarItemName [ ^ self class defaultToolbarItemName ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommand >> withErrorHandlingDo: aBlock [ aBlock diff --git a/Iceberg-TipUI/IceTipCommandToPresenterBuildingStrategy.class.st b/Iceberg-TipUI/IceTipCommandToPresenterBuildingStrategy.class.st index 43fac26d0a..e1963c220c 100644 --- a/Iceberg-TipUI/IceTipCommandToPresenterBuildingStrategy.class.st +++ b/Iceberg-TipUI/IceTipCommandToPresenterBuildingStrategy.class.st @@ -4,18 +4,20 @@ I'm an abstract strategy to build Spec2 buttons wrapping a IceTipSpCommand. My c " Class { - #name : #IceTipCommandToPresenterBuildingStrategy, - #superclass : #Object, - #category : #'Iceberg-TipUI-Spec2' + #name : 'IceTipCommandToPresenterBuildingStrategy', + #superclass : 'Object', + #category : 'Iceberg-TipUI-Spec2', + #package : 'Iceberg-TipUI', + #tag : 'Spec2' } -{ #category : #hook } +{ #category : 'hook' } IceTipCommandToPresenterBuildingStrategy >> buttonPresenterClass [ ^ self subclassResponsibility ] -{ #category : #public } +{ #category : 'public' } IceTipCommandToPresenterBuildingStrategy >> resultOn: aCommand [ ^ self buttonPresenterClass new diff --git a/Iceberg-TipUI/IceTipCommentPanel.class.st b/Iceberg-TipUI/IceTipCommentPanel.class.st index 77166b9f7b..49adb26e1c 100644 --- a/Iceberg-TipUI/IceTipCommentPanel.class.st +++ b/Iceberg-TipUI/IceTipCommentPanel.class.st @@ -3,8 +3,8 @@ I'm a comment panel. I can obtain a comment text and certain ""commit specific"" options. " Class { - #name : #IceTipCommentPanel, - #superclass : #IceTipPresenter, + #name : 'IceTipCommentPanel', + #superclass : 'IceTipPresenter', #instVars : [ 'repositoryModel', 'commentText', @@ -15,34 +15,36 @@ Class { 'fixesLabel', 'optionsButton' ], - #category : #'Iceberg-TipUI-View-Commit' + #category : 'Iceberg-TipUI-View-Commit', + #package : 'Iceberg-TipUI', + #tag : 'View-Commit' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> actionButtonBar [ ^ actionButtonBar ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> clear [ commentText text: '' ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommentPanel >> commentText [ ^ commentText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommentPanel >> commitButton [ ^ commitButton ] -{ #category : #layout } +{ #category : 'layout' } IceTipCommentPanel >> defaultLayout [ self flag: #pharoTodo. "FIXES ISSUE NUMBER INPUT is disabled. See below. @@ -63,19 +65,19 @@ IceTipCommentPanel >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> fixesField [ ^ fixesField ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> fixesLabel [ ^ fixesLabel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommentPanel >> initializePresenters [ | fixesHelpString | @@ -132,25 +134,25 @@ IceTipCommentPanel >> initializePresenters [ yourself) ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommentPanel >> isPushing [ ^ IceTipCommitSettings pushOnCommit and: [ self repositoryModel branchModel hasUpstream ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommentPanel >> isRunningCriticsOnCommit [ ^ IceTipCommitSettings critiquesOnCommit ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommentPanel >> isSaving [ ^ IceTipCommitSettings saveImageOnCommit ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> message [ self fixesField text isAllDigits ifFalse: [ @@ -163,7 +165,7 @@ IceTipCommentPanel >> message [ nextPutAll: self fixesField number asString ] ] -{ #category : #events } +{ #category : 'events' } IceTipCommentPanel >> onCommit: aBlock [ commitButton action: [ @@ -172,62 +174,62 @@ IceTipCommentPanel >> onCommit: aBlock [ cull: self isPushing ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommentPanel >> pushCheckbox [ ^ pushCheckbox ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> pushOnCommit: aBoolean [ IceTipCommitSettings pushOnCommit: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> refresh [ commitButton help: ('Commit your changes to {1}' format: { self repositoryName }). pushCheckbox label: ('Push changes to {1}' format: { self repositoryRemoteName }) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> repositoryModel [ ^ repositoryModel ] -{ #category : #'private - accessing' } +{ #category : 'private - accessing' } IceTipCommentPanel >> repositoryName [ ^ self repositoryModel name ] -{ #category : #'private - accessing' } +{ #category : 'private - accessing' } IceTipCommentPanel >> repositoryRemoteName [ ^ self repositoryModel pushRemoteName ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> runCriticsOnCommit: aBoolean [ IceTipCommitSettings critiquesOnCommit: aBoolean ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommentPanel >> saveOnCommit: aBoolean [ IceTipCommitSettings saveImageOnCommit: aBoolean ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommentPanel >> setModelBeforeInitialization: aRepositoryModel [ repositoryModel := aRepositoryModel ] -{ #category : #specs } +{ #category : 'specs' } IceTipCommentPanel >> titleForWindow [ ^ 'Comment' diff --git a/Iceberg-TipUI/IceTipCommitAction.class.st b/Iceberg-TipUI/IceTipCommitAction.class.st index 094b708f93..de9362e209 100644 --- a/Iceberg-TipUI/IceTipCommitAction.class.st +++ b/Iceberg-TipUI/IceTipCommitAction.class.st @@ -2,17 +2,19 @@ I perform a commit " Class { - #name : #IceTipCommitAction, - #superclass : #IceTipAction, + #name : 'IceTipCommitAction', + #superclass : 'IceTipAction', #instVars : [ 'diff', 'items', 'message' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #executing } +{ #category : 'executing' } IceTipCommitAction >> basicExecute [ self validateCanCommit. UIManager default @@ -25,49 +27,49 @@ IceTipCommitAction >> basicExecute [ Iceberg announcer announce: (IceCommited for: self repository). ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> diff [ ^ diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> diff: anObject [ diff := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> items [ ^ items ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> items: anObject [ items := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> message [ ^ message ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitAction >> message: anObject [ message := anObject ] -{ #category : #validating } +{ #category : 'validating' } IceTipCommitAction >> validateCanCommit [ self validateMessageNotEmpty ] -{ #category : #validating } +{ #category : 'validating' } IceTipCommitAction >> validateChangeListNotEmpty [ "If there are no selected changed, no point on commiting :)" items ifEmpty: [ IceNothingToCommit signal ] ] -{ #category : #validating } +{ #category : 'validating' } IceTipCommitAction >> validateMessageNotEmpty [ self message ifEmpty: [ IceNoCommitMessage signal ] ] diff --git a/Iceberg-TipUI/IceTipCommitBrowser.class.st b/Iceberg-TipUI/IceTipCommitBrowser.class.st index f03933e7a0..f763966e4f 100644 --- a/Iceberg-TipUI/IceTipCommitBrowser.class.st +++ b/Iceberg-TipUI/IceTipCommitBrowser.class.st @@ -4,23 +4,25 @@ I'm a browser to commit changes to a repository. (self onRepository: IceRepository registry anyOne) openWithSpec " Class { - #name : #IceTipCommitBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipCommitBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'diffPanel', 'commentPanel', 'saveAction' ], - #category : #'Iceberg-TipUI-View-Commit' + #category : 'Iceberg-TipUI-View-Commit', + #package : 'Iceberg-TipUI', + #tag : 'View-Commit' } -{ #category : #commands } +{ #category : 'commands' } IceTipCommitBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ aCommandGroup register: IceTipRefreshCommitCommand forSpec ] -{ #category : #commands } +{ #category : 'commands' } IceTipCommitBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { @@ -37,31 +39,31 @@ IceTipCommitBrowser class >> buildSelectionCommandGroupWith: presenter for: aCom ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipCommitBrowser class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitBrowser >> accept [ ^ self doCommit ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommitBrowser >> commentPanel [ ^ commentPanel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommitBrowser >> commentPanel: aSpPresenter [ commentPanel := aSpPresenter ] -{ #category : #layout } +{ #category : 'layout' } IceTipCommitBrowser >> defaultLayout [ ^ SpPanedLayout newTopToBottom @@ -71,25 +73,25 @@ IceTipCommitBrowser >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommitBrowser >> diffPanel [ ^ diffPanel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommitBrowser >> diffPanel: aSpPresenter [ diffPanel := aSpPresenter ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitBrowser >> doCollapseSelection [ diffPanel doCollapseSelection ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitBrowser >> doCommit [ | selectedItems message isPushing isSaving commitBlock| @@ -111,7 +113,7 @@ IceTipCommitBrowser >> doCommit [ openIfCritiques ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitBrowser >> doCommit: aCollection message: aString pushing: pushingBoolean saving: savingBoolean [ self model newCommitAction @@ -127,26 +129,26 @@ IceTipCommitBrowser >> doCommit: aCollection message: aString pushing: pushingBo executeWithContext: self ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitBrowser >> doExpandSelection [ diffPanel doExpandSelection ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> initialExtentForWindow [ ^ (800@600) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> initialize [ super initialize. saveAction := IceTipSaveImageAction new ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> initializeAcceptShortcut [ self @@ -159,7 +161,7 @@ IceTipCommitBrowser >> initializeAcceptShortcut [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> initializePresenters [ diffPanel := self instantiate: IceTipDiffSelectingPanel on: self model workingCopyDiff. @@ -172,27 +174,27 @@ IceTipCommitBrowser >> initializePresenters [ self initializeAcceptShortcut ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> initializeWindow: aWindow [ super initializeWindow: aWindow. aWindow bindKeyCombination: $s meta toAction: [ self accept ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCommitBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ diffPanel iceNodesTree ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitBrowser >> refresh [ diffPanel refresh ] -{ #category : #private } +{ #category : 'private' } IceTipCommitBrowser >> refreshWhenRepository: ann [ (self model isModelOf: ann repository) @@ -201,13 +203,13 @@ IceTipCommitBrowser >> refreshWhenRepository: ann [ self refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitBrowser >> saveAction: anAction [ saveAction := anAction ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> subscribeToAnnouncements [ self announcer @@ -216,7 +218,7 @@ IceTipCommitBrowser >> subscribeToAnnouncements [ to: self ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitBrowser >> titleForWindow [ ^ 'Commit on {1} branch {2}' format: { @@ -224,7 +226,7 @@ IceTipCommitBrowser >> titleForWindow [ self model branchName } ] -{ #category : #private } +{ #category : 'private' } IceTipCommitBrowser >> verifyNeedsRefreshOrClose [ "Verifies if there are remaining changes to commit. In case there are none, close the window." diff --git a/Iceberg-TipUI/IceTipCommitCommand.class.st b/Iceberg-TipUI/IceTipCommitCommand.class.st index 8020364cbb..2f4e759cfa 100644 --- a/Iceberg-TipUI/IceTipCommitCommand.class.st +++ b/Iceberg-TipUI/IceTipCommitCommand.class.st @@ -2,30 +2,32 @@ I open a the commit window, with all latest changes. " Class { - #name : #IceTipCommitCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCommitCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCommitCommand class >> defaultDescription [ ^ 'Commit changes to this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCommitCommand class >> defaultName [ ^ 'Commit' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommitCommand >> canBeExecuted [ ^ self isRepositoryOperational ] -{ #category : #executing } +{ #category : 'executing' } IceTipCommitCommand >> execute [ (IceTipCommitBrowser @@ -34,13 +36,13 @@ IceTipCommitCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitCommand >> iconName [ ^ #smallOk ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitCommand >> shortcutKey [ ^ $s meta diff --git a/Iceberg-TipUI/IceTipCommitDiffModel.class.st b/Iceberg-TipUI/IceTipCommitDiffModel.class.st index c9b056036f..4265e1cb76 100644 --- a/Iceberg-TipUI/IceTipCommitDiffModel.class.st +++ b/Iceberg-TipUI/IceTipCommitDiffModel.class.st @@ -3,12 +3,14 @@ I'm a ""static"" diff. I represent a diff between two concrete commits. " Class { - #name : #IceTipCommitDiffModel, - #superclass : #IceTipDiffModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipCommitDiffModel', + #superclass : 'IceTipDiffModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitDiffModel >> diff [ ^ self entity ] diff --git a/Iceberg-TipUI/IceTipCommitInfoPresenter.class.st b/Iceberg-TipUI/IceTipCommitInfoPresenter.class.st index 55ac9d5b45..43aa07baaf 100644 --- a/Iceberg-TipUI/IceTipCommitInfoPresenter.class.st +++ b/Iceberg-TipUI/IceTipCommitInfoPresenter.class.st @@ -4,8 +4,8 @@ I'm a panel to show the history of a commitish (usually a branch or a tag). I di I'm usually used as part of an IceTipHistoryBrowser. " Class { - #name : #IceTipCommitInfoPresenter, - #superclass : #SpPresenter, + #name : 'IceTipCommitInfoPresenter', + #superclass : 'SpPresenter', #instVars : [ 'model', 'selectedModel', @@ -16,10 +16,12 @@ Class { 'headPage', 'ancestorPage' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #layout } +{ #category : 'layout' } IceTipCommitInfoPresenter class >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -27,21 +29,21 @@ IceTipCommitInfoPresenter class >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitInfoPresenter >> beForCommit [ headTabContainer := IceTipHistoryDiffFromHead tab: headPage. ancestorTabContainer := IceTipHistoryDiffToAncestor tab: ancestorPage ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitInfoPresenter >> beForMerge [ headTabContainer := IceTipHistoryDiffToHead tab: headPage. ancestorTabContainer := IceTipHistoryDiffToAncestor tab: ancestorPage ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> commitInfo [ selectedModel ifNil: [ ^ self newEmpty ]. @@ -50,28 +52,28 @@ IceTipCommitInfoPresenter >> commitInfo [ application: self application ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> diffFromAncestor [ selectedModel ifNil: [ ^ self newEmpty ]. ^ IceTipDiffPanel on: (ancestorTabContainer diffFor: selectedModel) ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> diffFromHead [ selectedModel ifNil: [ ^ self newEmpty ]. ^ IceTipDiffPanel on: (headTabContainer diffFor: selectedModel) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitInfoPresenter >> initialize [ self beForCommit. super initialize ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitInfoPresenter >> initializeCommitPanel [ "This will be initialised in fact on the first refresh" @@ -87,14 +89,14 @@ IceTipCommitInfoPresenter >> initializeCommitPanel [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitInfoPresenter >> initializePresenters [ notebookPanel := self newNotebook. self initializeCommitPanel ] -{ #category : #'private factory' } +{ #category : 'private factory' } IceTipCommitInfoPresenter >> newDiffPage [ ^ SpNotebookPage @@ -103,7 +105,7 @@ IceTipCommitInfoPresenter >> newDiffPage [ provider: [ "It will be overriden" ] ] -{ #category : #'private factory' } +{ #category : 'private factory' } IceTipCommitInfoPresenter >> newEmpty [ ^ self newLabel @@ -111,7 +113,7 @@ IceTipCommitInfoPresenter >> newEmpty [ yourself ] -{ #category : #'private factory' } +{ #category : 'private factory' } IceTipCommitInfoPresenter >> newInfoPage [ ^ SpNotebookPage @@ -120,7 +122,7 @@ IceTipCommitInfoPresenter >> newInfoPage [ provider: [ self commitInfo ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitInfoPresenter >> refresh [ selectedModel ifNil: [ ^ self ]. @@ -130,38 +132,38 @@ IceTipCommitInfoPresenter >> refresh [ notebookPanel resetAllPageContents ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> refreshDiffFromAncestor [ ancestorTabContainer updateContentsOn: selectedModel ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> refreshDiffFromAncestorLabel [ ancestorTabContainer updateLabelOn: selectedModel ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> refreshDiffFromHead [ headTabContainer updateContentsOn: selectedModel ] -{ #category : #private } +{ #category : 'private' } IceTipCommitInfoPresenter >> refreshDiffFromHeadLabel [ headTabContainer updateLabelOn: selectedModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitInfoPresenter >> selectedModel: aModel [ selectedModel := aModel. self refresh ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCommitInfoPresenter >> setModelBeforeInitialization: anObject [ model := anObject diff --git a/Iceberg-TipUI/IceTipCommitModel.class.st b/Iceberg-TipUI/IceTipCommitModel.class.st index 661a5e0c07..dc14b81d9e 100644 --- a/Iceberg-TipUI/IceTipCommitModel.class.st +++ b/Iceberg-TipUI/IceTipCommitModel.class.st @@ -2,42 +2,44 @@ I'm a model for IceCommit entries. " Class { - #name : #IceTipCommitModel, - #superclass : #IceTipCommitishModel, + #name : 'IceTipCommitModel', + #superclass : 'IceTipCommitishModel', #traits : 'TIceCopyCommitId', #classTraits : 'TIceCopyCommitId classTrait', - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'API - commits' } +{ #category : 'API - commits' } IceTipCommitModel >> adopt [ self entity adopt ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> ancestorShortId [ ^ self entity ancestors first shortId ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> ancestorShortIdOrOrigin [ ^ self entity ancestors ifNotEmpty: [ self ancestorShortId ] ifEmpty: [ 'Origin' ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> ancestors [ ^ self entity ancestors ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> author [ ^ self entity author ] -{ #category : #private } +{ #category : 'private' } IceTipCommitModel >> calculateDiff: aBlock [ | diff | @@ -50,18 +52,18 @@ IceTipCommitModel >> calculateDiff: aBlock [ ^ diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> comment [ ^ self entity comment ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> commit [ ^ self entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> commitModels [ | commits | commits := OrderedCollection new. @@ -73,18 +75,18 @@ IceTipCommitModel >> commitModels [ ^ commits ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> datetime [ ^ self entity datetime ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> description [ ^ self entity comment ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> diffFromFirstAncestor [ | diff ancestorCommit | @@ -97,7 +99,7 @@ IceTipCommitModel >> diffFromFirstAncestor [ on: diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> diffFromHead [ | head diff | @@ -108,7 +110,7 @@ IceTipCommitModel >> diffFromHead [ on: diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> diffToFirstAncestor [ | diff ancestorCommit | @@ -121,7 +123,7 @@ IceTipCommitModel >> diffToFirstAncestor [ on: diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> diffToHead [ | head diff | @@ -132,7 +134,7 @@ IceTipCommitModel >> diffToHead [ on: diff ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> diffToWorkingCopy [ | diff | diff := self calculateDiff: [ self entity diffToWorkingCopy ]. @@ -141,18 +143,18 @@ IceTipCommitModel >> diffToWorkingCopy [ on: diff ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommitModel >> hasMultipleAncestors [ ^ self entity hasMultipleAncestors ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> id [ ^ self entity id ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> info [ ^ {('Commit:' -> ('[' , self shortId , '] ' , self id)). ('Parents:' -> (self entity ancestors collect: #shortId) asCommaString). @@ -162,12 +164,12 @@ IceTipCommitModel >> info [ ('Comment:' -> self entity comment)} ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommitModel >> isMerged [ ^ self entity isMerged ] -{ #category : #private } +{ #category : 'private' } IceTipCommitModel >> mergeHistoryFromAncestor: anIceGitCommit [ ^ (IceTipCommitRangeModel repositoryModel: self repositoryModel @@ -176,44 +178,44 @@ IceTipCommitModel >> mergeHistoryFromAncestor: anIceGitCommit [ beCached ] -{ #category : #actions } +{ #category : 'actions' } IceTipCommitModel >> mergeHistoryFromSecondAncestor [ ^ self mergeHistoryFromAncestor: self entity ancestors second ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> name [ ^ self entity description ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> shortId [ ^ self entity shortId ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> tagDecorator [ ^ IceTipTagDecorator uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> tagNames [ ^ self entity tagNames ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> tagsDescription [ ^ ', ' join: self tagNames ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitModel >> timeStamp [ ^ self entity timeStamp ] diff --git a/Iceberg-TipUI/IceTipCommitRangeModel.class.st b/Iceberg-TipUI/IceTipCommitRangeModel.class.st index 7672e2d0dd..b0c9f2c5dd 100644 --- a/Iceberg-TipUI/IceTipCommitRangeModel.class.st +++ b/Iceberg-TipUI/IceTipCommitRangeModel.class.st @@ -1,13 +1,15 @@ Class { - #name : #IceTipCommitRangeModel, - #superclass : #IceTipCommitishModel, + #name : 'IceTipCommitRangeModel', + #superclass : 'IceTipCommitishModel', #instVars : [ 'toCommit' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitRangeModel >> commitModels [ ^ (self fromCommit newCommitWalk uptoCommit: self toCommit) commits collect: [ :each | @@ -18,24 +20,24 @@ IceTipCommitRangeModel >> commitModels [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitRangeModel >> fromCommit [ ^ self entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitRangeModel >> name [ ^ 'Commits from {1} to {2}' format: { self fromCommit shortId. self toCommit shortId } ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitRangeModel >> toCommit [ ^ toCommit ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitRangeModel >> toCommit: anObject [ toCommit := anObject ] diff --git a/Iceberg-TipUI/IceTipCommitishModel.class.st b/Iceberg-TipUI/IceTipCommitishModel.class.st index d861e067e4..608716641e 100644 --- a/Iceberg-TipUI/IceTipCommitishModel.class.st +++ b/Iceberg-TipUI/IceTipCommitishModel.class.st @@ -3,35 +3,37 @@ I'm a base model for all commitish models to be used. I can provide #commitModels which changes depending on concrete model. " Class { - #name : #IceTipCommitishModel, - #superclass : #IceTipEntityModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipCommitishModel', + #superclass : 'IceTipEntityModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitishModel >> commitId [ ^ self entity commit id ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitishModel >> commitModels [ self subclassResponsibility ] -{ #category : #testing } +{ #category : 'testing' } IceTipCommitishModel >> isCommitish [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitishModel >> shortCommitId [ ^ self entity shortId ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCommitishModel >> tagModels [ ^ self repositoryModel tagModels diff --git a/Iceberg-TipUI/IceTipCopyCommitishCommand.class.st b/Iceberg-TipUI/IceTipCopyCommitishCommand.class.st index 34a2e6480d..3806ee454a 100644 --- a/Iceberg-TipUI/IceTipCopyCommitishCommand.class.st +++ b/Iceberg-TipUI/IceTipCopyCommitishCommand.class.st @@ -2,36 +2,38 @@ Command that copies the selected entity short commit ID to the clipboard " Class { - #name : #IceTipCopyCommitishCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCopyCommitishCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCopyCommitishCommand class >> defaultDescription [ ^ 'Copy the selected short commit ID (7 characters long) to the clipboard' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCopyCommitishCommand class >> defaultName [ ^ 'Copy commitish ID' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCopyCommitishCommand >> canBeExecuted [ ^ self hasSelectedItem and: [ self item commitId isNotNil ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipCopyCommitishCommand >> execute [ self item copyCommitIDToClipboard ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCopyCommitishCommand >> iconName [ ^ #book diff --git a/Iceberg-TipUI/IceTipCreateTagCommand.class.st b/Iceberg-TipUI/IceTipCreateTagCommand.class.st index 025f5e7a76..9d82bf01e3 100644 --- a/Iceberg-TipUI/IceTipCreateTagCommand.class.st +++ b/Iceberg-TipUI/IceTipCreateTagCommand.class.st @@ -2,30 +2,32 @@ I an a commander command that will be activated on any commitish or repository and ask the selected item to create a tag on itself. " Class { - #name : #IceTipCreateTagCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipCreateTagCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCreateTagCommand class >> defaultDescription [ ^ 'Creates a tag for the selected commit' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipCreateTagCommand class >> defaultName [ ^ 'Create tag' ] -{ #category : #testing } +{ #category : 'testing' } IceTipCreateTagCommand >> canBeExecuted [ ^ self repositoryModel isNotNil ] -{ #category : #executing } +{ #category : 'executing' } IceTipCreateTagCommand >> execute [ (IceTipCreateTagPanel @@ -36,7 +38,7 @@ IceTipCreateTagCommand >> execute [ open ] -{ #category : #activation } +{ #category : 'activation' } IceTipCreateTagCommand >> iconName [ ^ #glamorousBookmark diff --git a/Iceberg-TipUI/IceTipCreateTagPanel.class.st b/Iceberg-TipUI/IceTipCreateTagPanel.class.st index 665f1d5753..4784ee9aa5 100644 --- a/Iceberg-TipUI/IceTipCreateTagPanel.class.st +++ b/Iceberg-TipUI/IceTipCreateTagPanel.class.st @@ -5,8 +5,8 @@ I have a form with a label and an input, and the commitish to tag. I'm done to be embedded in a dialog, so I implement doAccept to execute my action. " Class { - #name : #IceTipCreateTagPanel, - #superclass : #IceTipPresenter, + #name : 'IceTipCreateTagPanel', + #superclass : 'IceTipPresenter', #instVars : [ 'callback', 'tagNameInputText', @@ -19,10 +19,12 @@ Class { 'minorButton', 'patchButton' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> accept [ self validate. @@ -30,25 +32,25 @@ IceTipCreateTagPanel >> accept [ acceptBlock ifNotNil: [ acceptBlock cull: self ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> commitish: anIceTipCachedModel [ commitishToTag := anIceTipCachedModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> commitishToTag [ ^ commitishToTag ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> currentCommitishLabel [ ^ currentCommitishLabel ] -{ #category : #layout } +{ #category : 'layout' } IceTipCreateTagPanel >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -72,7 +74,7 @@ IceTipCreateTagPanel >> defaultLayout [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipCreateTagPanel >> doAccept [ self validate. @@ -85,19 +87,19 @@ IceTipCreateTagPanel >> doAccept [ executeWithContext: self ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> existingTagsList [ ^ existingTagsList ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> iconForWindow [ ^ self iconNamed: #smallNew ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> initializeCurrentBranchLabel [ currentCommitishLabel := self newLabel @@ -106,7 +108,7 @@ IceTipCreateTagPanel >> initializeCurrentBranchLabel [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> initializeExistingTagsList [ existingTagsList := self newList. @@ -117,7 +119,7 @@ IceTipCreateTagPanel >> initializeExistingTagsList [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> initializeNextTagPanel [ | parts prefix nextMajor nextMinor nextPatch toString | @@ -142,7 +144,7 @@ IceTipCreateTagPanel >> initializeNextTagPanel [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> initializePresenters [ self initializeCurrentBranchLabel. @@ -159,18 +161,18 @@ IceTipCreateTagPanel >> initializePresenters [ self initializeExistingTagsList ] -{ #category : #testing } +{ #category : 'testing' } IceTipCreateTagPanel >> isNewBranch [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> latestTagParts [ ^ self latestTagPartsIn: (commitishToTag tagModels collect: #name) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> latestTagPartsIn: tagNames [ | prefix parts | @@ -191,17 +193,17 @@ IceTipCreateTagPanel >> latestTagPartsIn: tagNames [ ^ parts ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> majorButton [ ^ majorButton ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> minorButton [ ^ minorButton ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> openDialog [ ^ self asDialogWindow @@ -209,43 +211,43 @@ IceTipCreateTagPanel >> openDialog [ open ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> patchButton [ ^ patchButton ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> setModelBeforeInitialization: aCommitish [ self commitish: aCommitish ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> tagName [ ^ self tagNameInputText text asString trimBoth ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> tagNameInputText [ ^ tagNameInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCreateTagPanel >> tagNameLabel [ ^ tagNameLabel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCreateTagPanel >> titleForWindow [ ^ 'New tag of ' , commitishToTag name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCreateTagPanel >> validate [ self @@ -256,7 +258,7 @@ IceTipCreateTagPanel >> validate [ description: 'You can''t have spaces in your branch name.' ] -{ #category : #callbacks } +{ #category : 'callbacks' } IceTipCreateTagPanel >> withResultDo: aBlockClosure [ callback := aBlockClosure diff --git a/Iceberg-TipUI/IceTipCredentialsSettings.class.st b/Iceberg-TipUI/IceTipCredentialsSettings.class.st index 7e39ca364c..ee86be1c80 100644 --- a/Iceberg-TipUI/IceTipCredentialsSettings.class.st +++ b/Iceberg-TipUI/IceTipCredentialsSettings.class.st @@ -1,26 +1,28 @@ Class { - #name : #IceTipCredentialsSettings, - #superclass : #Object, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipCredentialsSettings', + #superclass : 'Object', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #settings } +{ #category : 'settings' } IceTipCredentialsSettings class >> editButtonAction [ IceTipCredentialsStoreBrowser new open. ] -{ #category : #settings } +{ #category : 'settings' } IceTipCredentialsSettings class >> editButtonLabel [ ^ 'Edit' ] -{ #category : #settings } +{ #category : 'settings' } IceTipCredentialsSettings class >> editButtonState [ ^ true ] -{ #category : #settings } +{ #category : 'settings' } IceTipCredentialsSettings class >> settingsOn: aBuilder [ diff --git a/Iceberg-TipUI/IceTipCredentialsStoreBrowser.class.st b/Iceberg-TipUI/IceTipCredentialsStoreBrowser.class.st index 8bfeb9a0f4..7c0ffb3388 100644 --- a/Iceberg-TipUI/IceTipCredentialsStoreBrowser.class.st +++ b/Iceberg-TipUI/IceTipCredentialsStoreBrowser.class.st @@ -2,15 +2,17 @@ I am the browser used to show a credentials store. " Class { - #name : #IceTipCredentialsStoreBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipCredentialsStoreBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'credentialsList' ], - #category : #'Iceberg-TipUI-Credentials' + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #commands } +{ #category : 'commands' } IceTipCredentialsStoreBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ { IceTipAddPlainTextCredentialCommand. @@ -20,7 +22,7 @@ IceTipCredentialsStoreBrowser class >> buildGeneralCommandGroupWith: presenter f aCommandGroup register: each forSpec ] ] -{ #category : #commands } +{ #category : 'commands' } IceTipCredentialsStoreBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { IceTipEditCredentialCommand. @@ -29,19 +31,19 @@ IceTipCredentialsStoreBrowser class >> buildSelectionCommandGroupWith: presenter aCommandGroup register: each forSpec ] ] -{ #category : #commands } +{ #category : 'commands' } IceTipCredentialsStoreBrowser class >> buildSelectionExtraCommandGroupWith: presenter for: aCommandGroup [ aCommandGroup register: IceTipInspectCommand forSpec ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCredentialsStoreBrowser >> credentialsList [ ^ credentialsList ] -{ #category : #layout } +{ #category : 'layout' } IceTipCredentialsStoreBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -49,14 +51,14 @@ IceTipCredentialsStoreBrowser >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCredentialsStoreBrowser >> initialize [ model ifNil: [ model := IceCredentialStore current ]. super initialize ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCredentialsStoreBrowser >> initializeCredentialsList [ credentialsList @@ -78,32 +80,32 @@ IceTipCredentialsStoreBrowser >> initializeCredentialsList [ evaluated: #description) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCredentialsStoreBrowser >> initializePresenters [ credentialsList := self newTable. self initializeCredentialsList ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipCredentialsStoreBrowser >> mainList [ ^ credentialsList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCredentialsStoreBrowser >> refresh [ credentialsList items: self model allCredentials ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCredentialsStoreBrowser >> store [ ^ self model ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCredentialsStoreBrowser >> titleForWindow [ ^ model isCurrent @@ -111,7 +113,7 @@ IceTipCredentialsStoreBrowser >> titleForWindow [ ifFalse: [ 'Credentials of ' , model printString ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCredentialsStoreBrowser >> updatePresenter [ self refresh diff --git a/Iceberg-TipUI/IceTipCritiquesBeforeCommitBrowser.class.st b/Iceberg-TipUI/IceTipCritiquesBeforeCommitBrowser.class.st index f96e633058..7b82ab06f0 100644 --- a/Iceberg-TipUI/IceTipCritiquesBeforeCommitBrowser.class.st +++ b/Iceberg-TipUI/IceTipCritiquesBeforeCommitBrowser.class.st @@ -2,8 +2,8 @@ I am a dialog to be used before commit so we can check if the code to commit has critiques on it " Class { - #name : #IceTipCritiquesBeforeCommitBrowser, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipCritiquesBeforeCommitBrowser', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'commitModel', 'onAcceptAction', @@ -15,41 +15,43 @@ Class { 'browseButton', 'autofixButton' ], - #category : #'Iceberg-TipUI-View-Commit' + #category : 'Iceberg-TipUI-View-Commit', + #package : 'Iceberg-TipUI', + #tag : 'View-Commit' } -{ #category : #commands } +{ #category : 'commands' } IceTipCritiquesBeforeCommitBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ ] -{ #category : #commands } +{ #category : 'commands' } IceTipCritiquesBeforeCommitBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ ] -{ #category : #actions } +{ #category : 'actions' } IceTipCritiquesBeforeCommitBrowser >> accept [ self closeWindow. onAcceptAction value ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCritiquesBeforeCommitBrowser >> commitModel [ ^ commitModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCritiquesBeforeCommitBrowser >> commitModel: anObject [ commitModel := anObject ] -{ #category : #layout } +{ #category : 'layout' } IceTipCritiquesBeforeCommitBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -67,7 +69,7 @@ IceTipCritiquesBeforeCommitBrowser >> defaultLayout [ yourself ] -{ #category : #updating } +{ #category : 'updating' } IceTipCritiquesBeforeCommitBrowser >> disableCommitAfterChanges [ self withWindowDo: [ :window | @@ -77,7 +79,7 @@ IceTipCritiquesBeforeCommitBrowser >> disableCommitAfterChanges [ window buttons third label: 'Close' ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipCritiquesBeforeCommitBrowser >> doAutofix [ critiquesList selectedItem ifNotNil: [ :aCritique | @@ -98,13 +100,13 @@ IceTipCritiquesBeforeCommitBrowser >> doAutofix [ centered ]) actOnCritic: aCritique ofEntity: aCritique entity ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipCritiquesBeforeCommitBrowser >> doBrowse [ critiquesList selectedItem ifNotNil: [ :aCritique | aCritique entity browse ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> initializeCritiquesList [ critiquesList := self newTable. @@ -128,7 +130,7 @@ IceTipCritiquesBeforeCommitBrowser >> initializeCritiquesList [ whenSelectionChangedDo: (MessageSend receiver: self selector: #updateSelectedCritique) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> initializeDetailPanel [ detailPanel := self newText @@ -139,7 +141,7 @@ IceTipCritiquesBeforeCommitBrowser >> initializeDetailPanel [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> initializeDialogWindow: aWindow [ super initializeDialogWindow: aWindow. @@ -161,7 +163,7 @@ IceTipCritiquesBeforeCommitBrowser >> initializeDialogWindow: aWindow [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> initializePresenters [ browseButton := self newButton. @@ -179,7 +181,7 @@ IceTipCritiquesBeforeCommitBrowser >> initializePresenters [ self initializeDetailPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> initializeReasonPanel [ reasonPanel := self newText @@ -193,18 +195,18 @@ Select each critique to see a detailed message of each critique.'. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCritiquesBeforeCommitBrowser >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipCritiquesBeforeCommitBrowser >> onAccept: aFullBlockClosure [ onAcceptAction := aFullBlockClosure ] -{ #category : #actions } +{ #category : 'actions' } IceTipCritiquesBeforeCommitBrowser >> openIfCritiques [ "If the setting is disabled we just commit" @@ -220,13 +222,13 @@ IceTipCritiquesBeforeCommitBrowser >> openIfCritiques [ ] -{ #category : #'accessing - model' } +{ #category : 'accessing - model' } IceTipCritiquesBeforeCommitBrowser >> setModelBeforeInitialization: someNodes [ model := someNodes ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> titleForWindow [ ^ 'Critiques for Commit on {1} branch {2}' format: { @@ -234,7 +236,7 @@ IceTipCritiquesBeforeCommitBrowser >> titleForWindow [ commitModel branchName } ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipCritiquesBeforeCommitBrowser >> updatePresenter [ super updatePresenter. @@ -250,7 +252,7 @@ IceTipCritiquesBeforeCommitBrowser >> updatePresenter [ ] -{ #category : #updating } +{ #category : 'updating' } IceTipCritiquesBeforeCommitBrowser >> updateSelectedCritique [ critiquesList selectedItem diff --git a/Iceberg-TipUI/IceTipDeleteBranchCommand.class.st b/Iceberg-TipUI/IceTipDeleteBranchCommand.class.st index e6e7553bd8..d811fc6fa2 100644 --- a/Iceberg-TipUI/IceTipDeleteBranchCommand.class.st +++ b/Iceberg-TipUI/IceTipDeleteBranchCommand.class.st @@ -2,36 +2,38 @@ Command that deletes the selected branch " Class { - #name : #IceTipDeleteBranchCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipDeleteBranchCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteBranchCommand class >> defaultDescription [ ^ 'Delete this branch for this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteBranchCommand class >> defaultName [ ^ 'Delete branch' ] -{ #category : #testing } +{ #category : 'testing' } IceTipDeleteBranchCommand >> actsOnBranch: aBranchModel [ ^ aBranchModel isLocal ] -{ #category : #executing } +{ #category : 'executing' } IceTipDeleteBranchCommand >> execute [ self item newDeleteAction executeWithContext: self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDeleteBranchCommand >> iconName [ ^ #delete diff --git a/Iceberg-TipUI/IceTipDeleteRemoteCommand.class.st b/Iceberg-TipUI/IceTipDeleteRemoteCommand.class.st index 2ceedd53fe..72ade8f5c3 100644 --- a/Iceberg-TipUI/IceTipDeleteRemoteCommand.class.st +++ b/Iceberg-TipUI/IceTipDeleteRemoteCommand.class.st @@ -2,42 +2,44 @@ Command that deletes the selected remote " Class { - #name : #IceTipDeleteRemoteCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipDeleteRemoteCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteRemoteCommand class >> defaultDescription [ ^ 'Delete this remote for this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteRemoteCommand class >> defaultName [ ^ 'Delete remote' ] -{ #category : #testing } +{ #category : 'testing' } IceTipDeleteRemoteCommand >> actsOnRemote: aRemoteModel [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipDeleteRemoteCommand >> execute [ self remoteModel newDeleteAction executeWithContext: self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDeleteRemoteCommand >> iconName [ ^ #delete ] -{ #category : #executing } +{ #category : 'executing' } IceTipDeleteRemoteCommand >> remoteModel [ ^ self item diff --git a/Iceberg-TipUI/IceTipDeleteTagCommand.class.st b/Iceberg-TipUI/IceTipDeleteTagCommand.class.st index dbbcff7b76..33a461bf49 100644 --- a/Iceberg-TipUI/IceTipDeleteTagCommand.class.st +++ b/Iceberg-TipUI/IceTipDeleteTagCommand.class.st @@ -2,42 +2,44 @@ Command that deletes the selected tag " Class { - #name : #IceTipDeleteTagCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipDeleteTagCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteTagCommand class >> defaultDescription [ ^ 'Delete this tag for this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDeleteTagCommand class >> defaultName [ ^ 'Delete tag' ] -{ #category : #testing } +{ #category : 'testing' } IceTipDeleteTagCommand >> actsOnTag: aRemoteModel [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipDeleteTagCommand >> execute [ self tagModel newDeleteAction executeWithContext: self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDeleteTagCommand >> iconName [ ^ #delete ] -{ #category : #executing } +{ #category : 'executing' } IceTipDeleteTagCommand >> tagModel [ ^ self item diff --git a/Iceberg-TipUI/IceTipDescriptionDecorator.class.st b/Iceberg-TipUI/IceTipDescriptionDecorator.class.st index cb9e666a4f..7fb84e4e1e 100644 --- a/Iceberg-TipUI/IceTipDescriptionDecorator.class.st +++ b/Iceberg-TipUI/IceTipDescriptionDecorator.class.st @@ -1,22 +1,24 @@ Class { - #name : #IceTipDescriptionDecorator, - #superclass : #IceTipTextDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipDescriptionDecorator', + #superclass : 'IceTipTextDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipDescriptionDecorator class >> head [ ^ IceTipDescriptionDecoratorHead uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDescriptionDecorator class >> modified [ ^ IceTipDescriptionDecoratorModified uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDescriptionDecorator class >> notLoaded [ ^ IceTipDescriptionDecoratorNotLoaded uniqueInstance diff --git a/Iceberg-TipUI/IceTipDescriptionDecoratorHead.class.st b/Iceberg-TipUI/IceTipDescriptionDecoratorHead.class.st index 719dc586a1..2197e5dc20 100644 --- a/Iceberg-TipUI/IceTipDescriptionDecoratorHead.class.st +++ b/Iceberg-TipUI/IceTipDescriptionDecoratorHead.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipDescriptionDecoratorHead, - #superclass : #IceTipDescriptionDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipDescriptionDecoratorHead', + #superclass : 'IceTipDescriptionDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #testing } +{ #category : 'testing' } IceTipDescriptionDecoratorHead >> isBold [ ^ true diff --git a/Iceberg-TipUI/IceTipDescriptionDecoratorModified.class.st b/Iceberg-TipUI/IceTipDescriptionDecoratorModified.class.st index 47b9c2c22d..cb74929623 100644 --- a/Iceberg-TipUI/IceTipDescriptionDecoratorModified.class.st +++ b/Iceberg-TipUI/IceTipDescriptionDecoratorModified.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipDescriptionDecoratorModified, - #superclass : #IceTipDescriptionDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipDescriptionDecoratorModified', + #superclass : 'IceTipDescriptionDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipDescriptionDecoratorModified >> color [ ^ Smalltalk ui theme successTextColor diff --git a/Iceberg-TipUI/IceTipDescriptionDecoratorNotLoaded.class.st b/Iceberg-TipUI/IceTipDescriptionDecoratorNotLoaded.class.st index 8092e02645..47ff354917 100644 --- a/Iceberg-TipUI/IceTipDescriptionDecoratorNotLoaded.class.st +++ b/Iceberg-TipUI/IceTipDescriptionDecoratorNotLoaded.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipDescriptionDecoratorNotLoaded, - #superclass : #IceTipDescriptionDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipDescriptionDecoratorNotLoaded', + #superclass : 'IceTipDescriptionDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipDescriptionDecoratorNotLoaded >> color [ ^ Smalltalk ui theme disabledTextColor diff --git a/Iceberg-TipUI/IceTipDialogPresenter.class.st b/Iceberg-TipUI/IceTipDialogPresenter.class.st index 28f57f6119..701c18a670 100644 --- a/Iceberg-TipUI/IceTipDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipDialogPresenter.class.st @@ -3,24 +3,26 @@ I'm a general dialog. I implement a default accept method that needs to be overriden my children and some utility methods to easier build a dialog. " Class { - #name : #IceTipDialogPresenter, - #superclass : #IceTipPresenter, - #category : #'Iceberg-TipUI-View' + #name : 'IceTipDialogPresenter', + #superclass : 'IceTipPresenter', + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #actions } +{ #category : 'actions' } IceTipDialogPresenter >> accept [ "override this if you want a dialog" ] -{ #category : #actions } +{ #category : 'actions' } IceTipDialogPresenter >> cancel [ "override this if you want a dialog" self closeWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDialogPresenter >> initializeDialogWindow: aWindow [ super initializeDialogWindow: aWindow. diff --git a/Iceberg-TipUI/IceTipDiffEntryRemoved.class.st b/Iceberg-TipUI/IceTipDiffEntryRemoved.class.st index 8538e7c551..533808c3ad 100644 --- a/Iceberg-TipUI/IceTipDiffEntryRemoved.class.st +++ b/Iceberg-TipUI/IceTipDiffEntryRemoved.class.st @@ -4,25 +4,27 @@ I announce when an entry (a method, a class or a package) has been reverted. I'm used to refresh diff panels without recalculate everything again. " Class { - #name : #IceTipDiffEntryRemoved, - #superclass : #IceTipAnnouncement, + #name : 'IceTipDiffEntryRemoved', + #superclass : 'IceTipAnnouncement', #instVars : [ 'entry' ], - #category : #'Iceberg-TipUI-Announcements' + #category : 'Iceberg-TipUI-Announcements', + #package : 'Iceberg-TipUI', + #tag : 'Announcements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiffEntryRemoved class >> entry: anObject [ ^ self new entry: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffEntryRemoved >> entry [ ^ entry ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffEntryRemoved >> entry: anObject [ entry := anObject ] diff --git a/Iceberg-TipUI/IceTipDiffModel.class.st b/Iceberg-TipUI/IceTipDiffModel.class.st index 6d62e59e96..e58cbf43a8 100644 --- a/Iceberg-TipUI/IceTipDiffModel.class.st +++ b/Iceberg-TipUI/IceTipDiffModel.class.st @@ -2,34 +2,36 @@ I'm a base model to present diffs. " Class { - #name : #IceTipDiffModel, - #superclass : #IceTipEntityModel, - #category : 'Iceberg-TipUI-Model' + #name : 'IceTipDiffModel', + #superclass : 'IceTipEntityModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiffModel class >> new [ ^ self error: 'Use #for:' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiffModel class >> on: aDiff [ ^ self basicNew initializeEntity: aDiff; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffModel >> copyWithOnly: aCollection [ ^ self diff copyWithOnly: aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffModel >> diff [ ^ self subclassResponsibility ] -{ #category : #actions } +{ #category : 'actions' } IceTipDiffModel >> reset [ UIManager default informUser: 'Refreshing changes' @@ -39,17 +41,17 @@ IceTipDiffModel >> reset [ self diff ] ] -{ #category : #private } +{ #category : 'private' } IceTipDiffModel >> resetDiff [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffModel >> tree [ ^ self diff treeToShow ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffModel >> treeRoots [ ^ self tree children ] diff --git a/Iceberg-TipUI/IceTipDiffPanel.class.st b/Iceberg-TipUI/IceTipDiffPanel.class.st index 1a9898f73b..6a999df1f2 100644 --- a/Iceberg-TipUI/IceTipDiffPanel.class.st +++ b/Iceberg-TipUI/IceTipDiffPanel.class.st @@ -7,23 +7,25 @@ also #elements answer should be a collection of elements that also understand el (IceTipDiffPanel onDiff: (IceRepository registry first workingCopyDiff)) openWithSpec " Class { - #name : #IceTipDiffPanel, - #superclass : #IceTipPresenter, + #name : 'IceTipDiffPanel', + #superclass : 'IceTipPresenter', #instVars : [ 'model', 'diffPanel', 'iceNodesTree' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiffPanel class >> onDiff: aDiff [ ^ self on: (IceTipCommitDiffModel on: aDiff) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> basicRefresh [ self resetDiffContents. @@ -32,7 +34,7 @@ IceTipDiffPanel >> basicRefresh [ expandAll ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> changeDescriptionColumn [ ^ SpStringTableColumn new @@ -40,7 +42,7 @@ IceTipDiffPanel >> changeDescriptionColumn [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> changeListColumn [ ^ SpCompositeTableColumn new @@ -52,7 +54,7 @@ IceTipDiffPanel >> changeListColumn [ yourself ] -{ #category : #private } +{ #category : 'private' } IceTipDiffPanel >> collapsePath: aPath [ iceNodesTree @@ -60,7 +62,7 @@ IceTipDiffPanel >> collapsePath: aPath [ selectPath: aPath ] -{ #category : #layout } +{ #category : 'layout' } IceTipDiffPanel >> defaultLayout [ ^ SpPanedLayout newLeftToRight @@ -70,7 +72,7 @@ IceTipDiffPanel >> defaultLayout [ yourself ] -{ #category : #private } +{ #category : 'private' } IceTipDiffPanel >> diffContentsLeft: leftString right: rightString [ diffPanel @@ -82,25 +84,25 @@ IceTipDiffPanel >> diffContentsLeft: leftString right: rightString [ rightText: rightString ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipDiffPanel >> diffPanel [ ^ diffPanel ] -{ #category : #actions } +{ #category : 'actions' } IceTipDiffPanel >> doCollapseSelection [ self collapsePath: iceNodesTree selection selectedPath ] -{ #category : #actions } +{ #category : 'actions' } IceTipDiffPanel >> doExpandSelection [ self expandPath: iceNodesTree selection selectedPath ] -{ #category : #private } +{ #category : 'private' } IceTipDiffPanel >> expandPath: aPath [ iceNodesTree @@ -108,38 +110,38 @@ IceTipDiffPanel >> expandPath: aPath [ selectPath: aPath ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipDiffPanel >> handleArrowLeft [ self collapsePath: iceNodesTree selection selectedPath ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipDiffPanel >> handleArrowRight [ self expandPath: iceNodesTree selection selectedPath ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipDiffPanel >> iceNodesTree [ ^ iceNodesTree ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> initialize [ super initialize. self subscribeToAnnouncements ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> initializeDiffPanel [ diffPanel showOptions: false ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> initializePresenters [ iceNodesTree := self newTreeTable. @@ -149,7 +151,7 @@ IceTipDiffPanel >> initializePresenters [ self initializeDiffPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> initializeTree [ iceNodesTree @@ -163,19 +165,19 @@ IceTipDiffPanel >> initializeTree [ toAction: [ self handleArrowRight ]. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> leftLabel: aString [ diffPanel leftLabel: aString. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> refresh [ self model reset. @@ -183,25 +185,25 @@ IceTipDiffPanel >> refresh [ ] -{ #category : #private } +{ #category : 'private' } IceTipDiffPanel >> resetDiffContents [ self diffContentsLeft: '' right: '' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> rightLabel: aString [ diffPanel rightLabel: aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPanel >> selectedItem [ ^ iceNodesTree selectedItem ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipDiffPanel >> selectionChanged [ | itemValue | @@ -212,13 +214,13 @@ IceTipDiffPanel >> selectionChanged [ right: itemValue leftContents ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> subscribeToAnnouncements [ self announcer @@ -228,13 +230,13 @@ IceTipDiffPanel >> subscribeToAnnouncements [ ] -{ #category : #specs } +{ #category : 'specs' } IceTipDiffPanel >> titleForWindow [ ^ 'Diff' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffPanel >> updatePresenter [ self basicRefresh diff --git a/Iceberg-TipUI/IceTipDiffPreviewModel.class.st b/Iceberg-TipUI/IceTipDiffPreviewModel.class.st index c59d12d568..c783d8158d 100644 --- a/Iceberg-TipUI/IceTipDiffPreviewModel.class.st +++ b/Iceberg-TipUI/IceTipDiffPreviewModel.class.st @@ -1,31 +1,33 @@ Class { - #name : #IceTipDiffPreviewModel, - #superclass : #IceTipModel, + #name : 'IceTipDiffPreviewModel', + #superclass : 'IceTipModel', #instVars : [ 'commitish', 'diffModel' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> calculateDiff [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> commitish [ ^ commitish entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> commitish: aCommitish [ commitish := aCommitish ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> diff [ ^ diffModel ifNil: [ | diff | @@ -37,19 +39,19 @@ IceTipDiffPreviewModel >> diff [ on: diff ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> repository [ ^ commitish repositoryModel entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> repositoryName [ ^ self repository name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffPreviewModel >> targetName [ ^ commitish name diff --git a/Iceberg-TipUI/IceTipDiffRefreshed.class.st b/Iceberg-TipUI/IceTipDiffRefreshed.class.st index 4be166e6fd..0f5ae0833b 100644 --- a/Iceberg-TipUI/IceTipDiffRefreshed.class.st +++ b/Iceberg-TipUI/IceTipDiffRefreshed.class.st @@ -2,25 +2,27 @@ I announce when a diff has been refreshed. " Class { - #name : #IceTipDiffRefreshed, - #superclass : #IceTipAnnouncement, + #name : 'IceTipDiffRefreshed', + #superclass : 'IceTipAnnouncement', #instVars : [ 'repository' ], - #category : #'Iceberg-TipUI-Announcements' + #category : 'Iceberg-TipUI-Announcements', + #package : 'Iceberg-TipUI', + #tag : 'Announcements' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiffRefreshed class >> for: aRepository [ ^ self new repository: aRepository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffRefreshed >> repository [ ^ repository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffRefreshed >> repository: anObject [ repository := anObject ] diff --git a/Iceberg-TipUI/IceTipDiffSelectingPanel.class.st b/Iceberg-TipUI/IceTipDiffSelectingPanel.class.st index 2d1fad7eff..ccdc9c09d8 100644 --- a/Iceberg-TipUI/IceTipDiffSelectingPanel.class.st +++ b/Iceberg-TipUI/IceTipDiffSelectingPanel.class.st @@ -10,15 +10,17 @@ also #elements answer should be a collection of elements that also understand el " Class { - #name : #IceTipDiffSelectingPanel, - #superclass : #IceTipDiffPanel, + #name : 'IceTipDiffSelectingPanel', + #superclass : 'IceTipDiffPanel', #instVars : [ 'checkedIceNodes' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #private } +{ #category : 'private' } IceTipDiffSelectingPanel >> activateItem: iceNode [ checkedIceNodes add: iceNode. @@ -31,7 +33,7 @@ IceTipDiffSelectingPanel >> activateItem: iceNode [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffSelectingPanel >> changeListColumn [ ^ SpCompositeTableColumn new @@ -49,7 +51,7 @@ IceTipDiffSelectingPanel >> changeListColumn [ yourself ] -{ #category : #private } +{ #category : 'private' } IceTipDiffSelectingPanel >> deactivateItem: iceNode [ checkedIceNodes remove: iceNode. @@ -61,7 +63,7 @@ IceTipDiffSelectingPanel >> deactivateItem: iceNode [ self refreshCheckbox. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffSelectingPanel >> initialize [ super initialize. @@ -72,7 +74,7 @@ IceTipDiffSelectingPanel >> initialize [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiffSelectingPanel >> initializeTree [ super initializeTree. @@ -81,7 +83,7 @@ IceTipDiffSelectingPanel >> initializeTree [ toAction: [ self toggleActivationItem: iceNodesTree selectedItem ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffSelectingPanel >> refresh [ super refresh. @@ -89,20 +91,20 @@ IceTipDiffSelectingPanel >> refresh [ root withAllChildrenDo: [ :each | checkedIceNodes add: each ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffSelectingPanel >> refreshCheckbox [ "Refresh after a checkbox state has changed. When a node with children changes this state, all children might change too. That's the reason of this special refresh. When a leave node changed such state, this refresh is redundant." iceNodesTree refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiffSelectingPanel >> selectedItems [ ^ checkedIceNodes ] -{ #category : #private } +{ #category : 'private' } IceTipDiffSelectingPanel >> toggleActivationItem: iceNode [ (checkedIceNodes includes: iceNode) diff --git a/Iceberg-TipUI/IceTipDirectMergeType.class.st b/Iceberg-TipUI/IceTipDirectMergeType.class.st index 496b7b0bef..435ef190da 100644 --- a/Iceberg-TipUI/IceTipDirectMergeType.class.st +++ b/Iceberg-TipUI/IceTipDirectMergeType.class.st @@ -7,12 +7,14 @@ I will perform a simple merge: This is the default merge mechanism (what users do most of the time) " Class { - #name : #IceTipDirectMergeType, - #superclass : #IceTipMergeType, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipDirectMergeType', + #superclass : 'IceTipMergeType', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #executing } +{ #category : 'executing' } IceTipDirectMergeType >> newMergeAction: aModel [ ^ aModel newDirectMergeAction diff --git a/Iceberg-TipUI/IceTipDirectoryPresenter.class.st b/Iceberg-TipUI/IceTipDirectoryPresenter.class.st index 1ce6ddf7df..dd3ef54559 100644 --- a/Iceberg-TipUI/IceTipDirectoryPresenter.class.st +++ b/Iceberg-TipUI/IceTipDirectoryPresenter.class.st @@ -2,12 +2,14 @@ I'm a model to choose directories. " Class { - #name : #IceTipDirectoryPresenter, - #superclass : #IceTipLocationPresenter, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipDirectoryPresenter', + #superclass : 'IceTipLocationPresenter', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipDirectoryPresenter >> chooseReference [ ^ UIManager default diff --git a/Iceberg-TipUI/IceTipDiscardAllChangesPreviewBrowser.class.st b/Iceberg-TipUI/IceTipDiscardAllChangesPreviewBrowser.class.st index 6c0db8b7a6..e3adc08fca 100644 --- a/Iceberg-TipUI/IceTipDiscardAllChangesPreviewBrowser.class.st +++ b/Iceberg-TipUI/IceTipDiscardAllChangesPreviewBrowser.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipDiscardAllChangesPreviewBrowser, - #superclass : #IceTipPreviewBrowser, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipDiscardAllChangesPreviewBrowser', + #superclass : 'IceTipPreviewBrowser', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipDiscardAllChangesPreviewBrowser class >> onRepository: anIceModelRepository [ ^ self on: (IceTipDiscardAllModel new @@ -13,7 +15,7 @@ IceTipDiscardAllChangesPreviewBrowser class >> onRepository: anIceModelRepositor yourself) ] -{ #category : #operations } +{ #category : 'operations' } IceTipDiscardAllChangesPreviewBrowser >> doDiscardAll [ self model newDiscardAction @@ -21,13 +23,13 @@ IceTipDiscardAllChangesPreviewBrowser >> doDiscardAll [ executeWithContext: self ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiscardAllChangesPreviewBrowser >> initialExtentForWindow [ ^ (900 @ 400) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiscardAllChangesPreviewBrowser >> initializePresenters [ super initializePresenters. @@ -37,7 +39,7 @@ IceTipDiscardAllChangesPreviewBrowser >> initializePresenters [ rightLabel: 'Commit to load: ', self loadCommitShortId ] -{ #category : #private } +{ #category : 'private' } IceTipDiscardAllChangesPreviewBrowser >> loadCommitShortId [ | shortId | @@ -47,7 +49,7 @@ IceTipDiscardAllChangesPreviewBrowser >> loadCommitShortId [ ifFalse: [ shortId ] ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipDiscardAllChangesPreviewBrowser >> newActionButton [ ^ self newButton @@ -58,7 +60,7 @@ IceTipDiscardAllChangesPreviewBrowser >> newActionButton [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipDiscardAllChangesPreviewBrowser >> titleForWindow [ ^ 'Preview Changes to Discard' diff --git a/Iceberg-TipUI/IceTipDiscardAllModel.class.st b/Iceberg-TipUI/IceTipDiscardAllModel.class.st index ebba7aa80c..67acf77adc 100644 --- a/Iceberg-TipUI/IceTipDiscardAllModel.class.st +++ b/Iceberg-TipUI/IceTipDiscardAllModel.class.st @@ -1,21 +1,23 @@ Class { - #name : #IceTipDiscardAllModel, - #superclass : #IceTipModel, + #name : 'IceTipDiscardAllModel', + #superclass : 'IceTipModel', #instVars : [ 'workingCopy', 'diffModel', 'repository' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #operations } +{ #category : 'operations' } IceTipDiscardAllModel >> calculateDiff [ ^ workingCopy referenceCommit diffTo: workingCopy ] -{ #category : #operations } +{ #category : 'operations' } IceTipDiscardAllModel >> diff [ ^ diffModel ifNil: [ @@ -28,13 +30,13 @@ IceTipDiscardAllModel >> diff [ on: diff ] ] -{ #category : #operations } +{ #category : 'operations' } IceTipDiscardAllModel >> discardAll [ workingCopy discardChanges ] -{ #category : #operations } +{ #category : 'operations' } IceTipDiscardAllModel >> newDiscardAction [ @@ -46,24 +48,24 @@ IceTipDiscardAllModel >> newDiscardAction [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiscardAllModel >> repository [ ^ repository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiscardAllModel >> repository: anIceTipCachedModel [ repository := anIceTipCachedModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiscardAllModel >> workingCopy [ ^ workingCopy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiscardAllModel >> workingCopy: anObject [ workingCopy := anObject diff --git a/Iceberg-TipUI/IceTipDiscardChangesCommand.class.st b/Iceberg-TipUI/IceTipDiscardChangesCommand.class.st index 187f996cb8..a6ba03553b 100644 --- a/Iceberg-TipUI/IceTipDiscardChangesCommand.class.st +++ b/Iceberg-TipUI/IceTipDiscardChangesCommand.class.st @@ -2,24 +2,26 @@ Command that discard all changes in the repository " Class { - #name : #IceTipDiscardChangesCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipDiscardChangesCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDiscardChangesCommand class >> defaultDescription [ ^ 'Discard all changes in this working copy.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipDiscardChangesCommand class >> defaultName [ ^ 'Discard all' ] -{ #category : #testing } +{ #category : 'testing' } IceTipDiscardChangesCommand >> canBeExecuted [ ^ self isRepositoryMissing not and: [ @@ -28,7 +30,7 @@ IceTipDiscardChangesCommand >> canBeExecuted [ aCommit isCollection not and: [ aCommit isUnknownCommit not ] ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipDiscardChangesCommand >> execute [ (IceTipDiscardAllChangesPreviewBrowser onRepository: self repositoryModel) @@ -37,13 +39,13 @@ IceTipDiscardChangesCommand >> execute [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipDiscardChangesCommand >> iconName [ ^ #refresh ] -{ #category : #testing } +{ #category : 'testing' } IceTipDiscardChangesCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipEditCredentialCommand.class.st b/Iceberg-TipUI/IceTipEditCredentialCommand.class.st index faab93d8da..bce29f97be 100644 --- a/Iceberg-TipUI/IceTipEditCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipEditCredentialCommand.class.st @@ -4,24 +4,26 @@ I colaborate with the credential to know the specific class of the dialog model. Check #editModelClass in IceSshCredentials and IcePlaintextCredentials " Class { - #name : #IceTipEditCredentialCommand, - #superclass : #IceTipAbstractCredentialCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipEditCredentialCommand', + #superclass : 'IceTipAbstractCredentialCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipEditCredentialCommand class >> defaultDescription [ ^ 'Edits the credential from the store' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipEditCredentialCommand class >> defaultName [ ^ 'Edit' ] -{ #category : #executing } +{ #category : 'executing' } IceTipEditCredentialCommand >> execute [ ((self item editModelClass newApplication: context application) @@ -33,13 +35,13 @@ IceTipEditCredentialCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditCredentialCommand >> iconName [ ^ #edit ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditCredentialCommand >> shortcutKey [ ^ $e meta diff --git a/Iceberg-TipUI/IceTipEditPlaintextCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipEditPlaintextCredentialsPresenter.class.st index e05dfb7673..962f411b2d 100644 --- a/Iceberg-TipUI/IceTipEditPlaintextCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipEditPlaintextCredentialsPresenter.class.st @@ -2,18 +2,20 @@ I implement the dialog to edit plaintext credentials. " Class { - #name : #IceTipEditPlaintextCredentialsPresenter, - #superclass : #IceTipAbstractPlaintextCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipEditPlaintextCredentialsPresenter', + #superclass : 'IceTipAbstractPlaintextCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipEditPlaintextCredentialsPresenter >> accept [ ^ self acceptEditAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipEditPlaintextCredentialsPresenter >> defaultLayout [ ^ SpGridLayout new @@ -25,13 +27,13 @@ IceTipEditPlaintextCredentialsPresenter >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditPlaintextCredentialsPresenter >> initialExtentForWindow [ ^ (350 @ 160) scaledByDisplayScaleFactor ] -{ #category : #actions } +{ #category : 'actions' } IceTipEditPlaintextCredentialsPresenter >> refreshCredentialsFromPresenter [ credentials @@ -39,14 +41,14 @@ IceTipEditPlaintextCredentialsPresenter >> refreshCredentialsFromPresenter [ password: self password ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditPlaintextCredentialsPresenter >> refreshPresenterFromCredentials [ usernameInput text: credentials username. passwordInput text: credentials password ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditPlaintextCredentialsPresenter >> titleForWindow [ ^ 'Edit credential for ' , credentials host diff --git a/Iceberg-TipUI/IceTipEditProjectDialogPresenter.class.st b/Iceberg-TipUI/IceTipEditProjectDialogPresenter.class.st index 3694af7c87..0f08da0b7f 100644 --- a/Iceberg-TipUI/IceTipEditProjectDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipEditProjectDialogPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : #IceTipEditProjectDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipEditProjectDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'nameLabel', 'nameInput', @@ -18,10 +18,12 @@ Class { 'removeButton', 'addButton' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipEditProjectDialogPresenter >> accept [ IceTipStandardAction new @@ -43,13 +45,13 @@ IceTipEditProjectDialogPresenter >> accept [ acceptCallback value ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> acceptCallback [ ^ acceptCallback ] -{ #category : #actions } +{ #category : 'actions' } IceTipEditProjectDialogPresenter >> addDirectory [ | newDirectoryName newDirectory previousSelection | @@ -70,7 +72,7 @@ IceTipEditProjectDialogPresenter >> addDirectory [ self expandAndSelect: previousSelection ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> connectPresenters [ super connectPresenters. @@ -87,13 +89,13 @@ IceTipEditProjectDialogPresenter >> connectPresenters [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> defaultFormat [ ^ defaultFormat ] -{ #category : #layout } +{ #category : 'layout' } IceTipEditProjectDialogPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -128,7 +130,7 @@ IceTipEditProjectDialogPresenter >> defaultLayout [ yourself ] -{ #category : #utilities } +{ #category : 'utilities' } IceTipEditProjectDialogPresenter >> expandAndSelect: aRelativePath [ @@ -155,25 +157,25 @@ IceTipEditProjectDialogPresenter >> expandAndSelect: aRelativePath [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> formatLabel [ ^ formatLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> formatList [ ^ formatList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> formats [ ^ formats ] -{ #category : #'format-management' } +{ #category : 'format-management' } IceTipEditProjectDialogPresenter >> guessFormatFromDirectory: aFileReference [ "We take as guinea pig a sub-directory to guess what format it is on. @@ -192,13 +194,13 @@ IceTipEditProjectDialogPresenter >> guessFormatFromDirectory: aFileReference [ ifNone: [ ^ defaultFormat ]. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> hasToShowWarning [ ^ model repository workingCopy packages isNotEmpty ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> initialExtentForWindow [ ^ self hasToShowWarning @@ -213,7 +215,7 @@ IceTipEditProjectDialogPresenter >> initialExtentForWindow [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> initialize [ selectedDirectoryPath := RelativePath new. @@ -223,7 +225,7 @@ IceTipEditProjectDialogPresenter >> initialize [ super initialize. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> initializeDirectoryTree [ sourceDirectoryTree @@ -241,7 +243,7 @@ IceTipEditProjectDialogPresenter >> initializeDirectoryTree [ self sourceDirectorySelectionChanged: announcement selectedPaths ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> initializeMessagePanel [ | icon | @@ -254,7 +256,7 @@ IceTipEditProjectDialogPresenter >> initializeMessagePanel [ messageText text: self warningMessage ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> initializePresenters [ nameLabel := self newLabel @@ -292,43 +294,43 @@ IceTipEditProjectDialogPresenter >> initializePresenters [ self initializeDirectoryTree ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> messageIcon [ ^ messageIcon ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> messageText [ ^ messageText ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> model [ ^ model ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> nameInput [ ^ nameInput ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> nameLabel [ ^ nameLabel ] -{ #category : #events } +{ #category : 'events' } IceTipEditProjectDialogPresenter >> onAccept: aBlockClosure [ acceptCallback := aBlockClosure ] -{ #category : #actions } +{ #category : 'actions' } IceTipEditProjectDialogPresenter >> removeDirectory [ | toRemove newSelection | @@ -346,31 +348,31 @@ IceTipEditProjectDialogPresenter >> removeDirectory [ self expandAndSelect: newSelection ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> selectedDirectoryPath [ ^ selectedDirectoryPath ] -{ #category : #actions } +{ #category : 'actions' } IceTipEditProjectDialogPresenter >> selectedFileFormat [ ^ formatList selectedItem ] -{ #category : #events } +{ #category : 'events' } IceTipEditProjectDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> sourceDirectoryLabel [ ^ sourceDirectoryLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> sourceDirectorySelectionChanged: selectedPaths [ | selection | @@ -386,25 +388,25 @@ IceTipEditProjectDialogPresenter >> sourceDirectorySelectionChanged: selectedPat selectedDirectoryPath := selection relativeTo: self model fileSystem. ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipEditProjectDialogPresenter >> sourceDirectoryTree [ ^ sourceDirectoryTree ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditProjectDialogPresenter >> titleForWindow [ ^ 'Edit Project' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> username [ ^ self nameInput text trimBoth ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditProjectDialogPresenter >> warningMessage [ ^ 'Be careful. You should choose the actual format of the current repository. diff --git a/Iceberg-TipUI/IceTipEditRepositoryCommand.class.st b/Iceberg-TipUI/IceTipEditRepositoryCommand.class.st index c0b67c816d..10013324e4 100644 --- a/Iceberg-TipUI/IceTipEditRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceTipEditRepositoryCommand.class.st @@ -2,30 +2,32 @@ Command that opens a dialog to edit a repository meta-data " Class { - #name : #IceTipEditRepositoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipEditRepositoryCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipEditRepositoryCommand class >> defaultDescription [ ^ 'Edit repository data' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipEditRepositoryCommand class >> defaultName [ ^ 'Edit...' ] -{ #category : #testing } +{ #category : 'testing' } IceTipEditRepositoryCommand >> canBeExecuted [ ^ super canBeExecuted and: [ self isRepositoryOperational ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipEditRepositoryCommand >> execute [ self flag: #TODO. "Demeter's law" @@ -37,7 +39,7 @@ IceTipEditRepositoryCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditRepositoryCommand >> iconName [ ^ #edit diff --git a/Iceberg-TipUI/IceTipEditSSHCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipEditSSHCredentialsPresenter.class.st index b7d805fe72..6ba89b4467 100644 --- a/Iceberg-TipUI/IceTipEditSSHCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipEditSSHCredentialsPresenter.class.st @@ -2,18 +2,20 @@ I implement the dialog to edit SSH credentials. " Class { - #name : #IceTipEditSSHCredentialsPresenter, - #superclass : #IceTipAbstractSSHCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipEditSSHCredentialsPresenter', + #superclass : 'IceTipAbstractSSHCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #actions } +{ #category : 'actions' } IceTipEditSSHCredentialsPresenter >> accept [ ^ self acceptEditAction ] -{ #category : #layout } +{ #category : 'layout' } IceTipEditSSHCredentialsPresenter >> defaultLayout [ ^ SpGridLayout new @@ -27,13 +29,13 @@ IceTipEditSSHCredentialsPresenter >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditSSHCredentialsPresenter >> initialExtentForWindow [ ^ (500@230) scaledByDisplayScaleFactor ] -{ #category : #actions } +{ #category : 'actions' } IceTipEditSSHCredentialsPresenter >> refreshCredentialsFromPresenter [ credentials @@ -43,7 +45,7 @@ IceTipEditSSHCredentialsPresenter >> refreshCredentialsFromPresenter [ keyPassphrase: self passphrase ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditSSHCredentialsPresenter >> refreshPresenterFromCredentials [ usernameInput text: credentials username. @@ -52,7 +54,7 @@ IceTipEditSSHCredentialsPresenter >> refreshPresenterFromCredentials [ publicKeyInput location: credentials publicKey ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditSSHCredentialsPresenter >> titleForWindow [ ^ 'Edit SSH keys for ' , self credentials hostDescription diff --git a/Iceberg-TipUI/IceTipEditTokenCredentialsPresenter.class.st b/Iceberg-TipUI/IceTipEditTokenCredentialsPresenter.class.st index 3d3b8c23a9..d42a7e3b60 100644 --- a/Iceberg-TipUI/IceTipEditTokenCredentialsPresenter.class.st +++ b/Iceberg-TipUI/IceTipEditTokenCredentialsPresenter.class.st @@ -2,18 +2,20 @@ I am a dialog to edit token credentials. " Class { - #name : #IceTipEditTokenCredentialsPresenter, - #superclass : #IceTipAddTokenCredentialsPresenter, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipEditTokenCredentialsPresenter', + #superclass : 'IceTipAddTokenCredentialsPresenter', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditTokenCredentialsPresenter >> accept [ ^ self acceptEditAction ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditTokenCredentialsPresenter >> refreshCredentialsFromPresenter [ credentials @@ -23,7 +25,7 @@ IceTipEditTokenCredentialsPresenter >> refreshCredentialsFromPresenter [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEditTokenCredentialsPresenter >> refreshPresenterFromCredentials [ usernameInput text: credentials username. @@ -32,7 +34,7 @@ IceTipEditTokenCredentialsPresenter >> refreshPresenterFromCredentials [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEditTokenCredentialsPresenter >> titleForWindow [ ^ 'Edit token credentials' diff --git a/Iceberg-TipUI/IceTipEntityModel.class.st b/Iceberg-TipUI/IceTipEntityModel.class.st index 49b9933bf4..7c9c4c177d 100644 --- a/Iceberg-TipUI/IceTipEntityModel.class.st +++ b/Iceberg-TipUI/IceTipEntityModel.class.st @@ -2,28 +2,30 @@ I'm a generic model for Iceberg entities (tipically, repositories, commits, packages, etc., etc., etc.) " Class { - #name : #IceTipEntityModel, - #superclass : #IceTipModel, + #name : 'IceTipEntityModel', + #superclass : 'IceTipModel', #instVars : [ 'entity', 'repositoryModel' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipEntityModel class >> new [ self error: 'Use #for:' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipEntityModel class >> on: anObject [ ^ self basicNew initializeEntity: anObject; yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipEntityModel class >> repositoryModel: aRepositoryModel on: anObject [ ^ self basicNew initializeEntity: anObject; @@ -31,54 +33,54 @@ IceTipEntityModel class >> repositoryModel: aRepositoryModel on: anObject [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> description [ "A decorated description of this entity. It can return a text (in case decorations apply) or a simple string." ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> descriptionDecorator [ ^ IceTipTextDecorator none ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> displayString [ ^ self entity name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> entity [ ^ entity ] -{ #category : #fetching } +{ #category : 'fetching' } IceTipEntityModel >> fetch [ self entity fetch ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipEntityModel >> initializeEntity: anObject [ entity := anObject. self initialize ] -{ #category : #testing } +{ #category : 'testing' } IceTipEntityModel >> isCommitish [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipEntityModel >> isModelOf: anObject [ ^ self entity = anObject ] -{ #category : #tagging } +{ #category : 'tagging' } IceTipEntityModel >> newCreateTagAction: aString [ @@ -90,17 +92,17 @@ IceTipEntityModel >> newCreateTagAction: aString [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> repositoryModel [ ^ repositoryModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> repositoryModel: anObject [ repositoryModel := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipEntityModel >> shortDescription [ ^ self description asString diff --git a/Iceberg-TipUI/IceTipErrorDialogPresenter.class.st b/Iceberg-TipUI/IceTipErrorDialogPresenter.class.st index dc2d41d517..6e52aea96d 100644 --- a/Iceberg-TipUI/IceTipErrorDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipErrorDialogPresenter.class.st @@ -7,24 +7,26 @@ My model is an exception that I'll freeze for further debugging. (IceTipErrorDialog on: anError) openDialogWithSpec " Class { - #name : #IceTipErrorDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipErrorDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'exception', 'errorLabel', 'iconPanel' ], - #category : #'Iceberg-TipUI-View' + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> accept [ self closeWindow. exception debug. ] -{ #category : #layout } +{ #category : 'layout' } IceTipErrorDialogPresenter >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -35,31 +37,31 @@ IceTipErrorDialogPresenter >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipErrorDialogPresenter >> errorLabel [ ^ errorLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipErrorDialogPresenter >> exception [ ^ exception ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipErrorDialogPresenter >> exception: anException [ exception := anException freeze ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipErrorDialogPresenter >> iconPanel [ ^ iconPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> initialExtentForWindow [ ^ (500@( @@ -69,7 +71,7 @@ IceTipErrorDialogPresenter >> initialExtentForWindow [ )) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> initializeDialogWindow: aWindow [ aWindow @@ -80,7 +82,7 @@ IceTipErrorDialogPresenter >> initializeDialogWindow: aWindow [ do: [ :presenter | presenter close ]. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> initializePresenters [ iconPanel := self newImage. @@ -91,13 +93,13 @@ IceTipErrorDialogPresenter >> initializePresenters [ errorLabel editable: false ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> setModelBeforeInitialization: aDomainObject [ self exception: aDomainObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipErrorDialogPresenter >> titleForWindow [ ^ 'Error' diff --git a/Iceberg-TipUI/IceTipExistingBranchPanel.class.st b/Iceberg-TipUI/IceTipExistingBranchPanel.class.st index eae8c778d0..e7254a06fa 100644 --- a/Iceberg-TipUI/IceTipExistingBranchPanel.class.st +++ b/Iceberg-TipUI/IceTipExistingBranchPanel.class.st @@ -3,29 +3,31 @@ I'm a panel (that will be part of a dialog) to perform actions on existing panel Actions themselves needs to be defined by my children. " Class { - #name : #IceTipExistingBranchPanel, - #superclass : #IceTipBranchPanel, + #name : 'IceTipExistingBranchPanel', + #superclass : 'IceTipBranchPanel', #instVars : [ 'branchesList', 'title', 'icon' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipExistingBranchPanel >> branchModels [ ^ self model branchModels ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipExistingBranchPanel >> branchesList [ ^ branchesList ] -{ #category : #layout } +{ #category : 'layout' } IceTipExistingBranchPanel >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -33,25 +35,25 @@ IceTipExistingBranchPanel >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipExistingBranchPanel >> icon [ ^ icon ifNil: [ self iconNamed: #branch ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipExistingBranchPanel >> icon: anIcon [ icon := anIcon ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipExistingBranchPanel >> iconForWindow [ ^ self icon ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipExistingBranchPanel >> initializeBranchesList [ branchesList @@ -68,32 +70,32 @@ IceTipExistingBranchPanel >> initializeBranchesList [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipExistingBranchPanel >> initializePresenters [ branchesList := self newTable. self initializeBranchesList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipExistingBranchPanel >> selectedBranch [ ^ self branchesList selection selectedItem ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipExistingBranchPanel >> titleForWindow [ ^ title ifNil: [ self model name ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipExistingBranchPanel >> titleForWindow: aString [ title := aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipExistingBranchPanel >> validate [ self selectedBranch ifNil: [ diff --git a/Iceberg-TipUI/IceTipFetchAllProjectCommand.class.st b/Iceberg-TipUI/IceTipFetchAllProjectCommand.class.st index 738ba20fd4..d026f08d94 100644 --- a/Iceberg-TipUI/IceTipFetchAllProjectCommand.class.st +++ b/Iceberg-TipUI/IceTipFetchAllProjectCommand.class.st @@ -2,31 +2,33 @@ I'm a command to perform a fetch operation on all registered projects. " Class { - #name : #IceTipFetchAllProjectCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipFetchAllProjectCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchAllProjectCommand class >> defaultDescription [ ^ 'Fetch (bring new commits) from all repositories in your list.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchAllProjectCommand class >> defaultName [ ^ 'Fetch all' ] -{ #category : #testing } +{ #category : 'testing' } IceTipFetchAllProjectCommand >> canBeExecuted [ "This command can be executed with our without selection" ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchAllProjectCommand >> execute [ | repositories | @@ -47,13 +49,13 @@ IceTipFetchAllProjectCommand >> execute [ Iceberg announcer announce: IceRepositoryModified new ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipFetchAllProjectCommand >> iconName [ ^ #smallUpdate ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchAllProjectCommand >> isConfirmed [ ^ self application newConfirm diff --git a/Iceberg-TipUI/IceTipFetchCommand.class.st b/Iceberg-TipUI/IceTipFetchCommand.class.st index faf109579a..d878f30cc3 100644 --- a/Iceberg-TipUI/IceTipFetchCommand.class.st +++ b/Iceberg-TipUI/IceTipFetchCommand.class.st @@ -2,24 +2,26 @@ I'm a command to perform a fetch operation on selected project. " Class { - #name : #IceTipFetchCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipFetchCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchCommand class >> defaultDescription [ ^ 'Fetch (bring new commits) from this repositories.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchCommand class >> defaultName [ ^ 'Fetch' ] -{ #category : #testing } +{ #category : 'testing' } IceTipFetchCommand >> canBeExecuted [ ^ super canBeExecuted and: [ @@ -27,19 +29,19 @@ IceTipFetchCommand >> canBeExecuted [ self repositoryModel hasRemotes ] ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchCommand >> execute [ self repositoryModel newFetchAction executeWithContext: self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipFetchCommand >> iconName [ ^ #smallUpdate ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipFetchCommand >> shortcutKey [ ^ $f meta diff --git a/Iceberg-TipUI/IceTipFetchInPullCommand.class.st b/Iceberg-TipUI/IceTipFetchInPullCommand.class.st index 119d3c33b9..630fd29e06 100644 --- a/Iceberg-TipUI/IceTipFetchInPullCommand.class.st +++ b/Iceberg-TipUI/IceTipFetchInPullCommand.class.st @@ -1,29 +1,31 @@ Class { - #name : #IceTipFetchInPullCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipFetchInPullCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchInPullCommand class >> defaultDescription [ ^ 'Fetch from the selected remote' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchInPullCommand class >> defaultName [ ^ 'Fetch' ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchInPullCommand >> execute [ context model remoteModel newFetchAction executeWithContext: self context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipFetchInPullCommand >> iconName [ ^ #smallUpdate diff --git a/Iceberg-TipUI/IceTipFetchRemoteCommand.class.st b/Iceberg-TipUI/IceTipFetchRemoteCommand.class.st index 7c1b56024b..0c722b8509 100644 --- a/Iceberg-TipUI/IceTipFetchRemoteCommand.class.st +++ b/Iceberg-TipUI/IceTipFetchRemoteCommand.class.st @@ -2,42 +2,44 @@ Command that fetches from remote repositories " Class { - #name : #IceTipFetchRemoteCommand, - #superclass : #IceTipRemotesTreeCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipFetchRemoteCommand', + #superclass : 'IceTipRemotesTreeCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchRemoteCommand class >> defaultDescription [ ^ 'Fetch commits from this remote' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipFetchRemoteCommand class >> defaultName [ ^ 'Fetch remote' ] -{ #category : #testing } +{ #category : 'testing' } IceTipFetchRemoteCommand >> actsOnRemote: aRemoteModel [ ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchRemoteCommand >> execute [ self remoteModel fetch ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipFetchRemoteCommand >> iconName [ ^ #smallUpdate ] -{ #category : #executing } +{ #category : 'executing' } IceTipFetchRemoteCommand >> remoteModel [ ^ self item diff --git a/Iceberg-TipUI/IceTipFilePresenter.class.st b/Iceberg-TipUI/IceTipFilePresenter.class.st index 721985a143..a0e7c32f33 100644 --- a/Iceberg-TipUI/IceTipFilePresenter.class.st +++ b/Iceberg-TipUI/IceTipFilePresenter.class.st @@ -2,12 +2,14 @@ I'm a model to choose files. " Class { - #name : #IceTipFilePresenter, - #superclass : #IceTipLocationPresenter, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipFilePresenter', + #superclass : 'IceTipLocationPresenter', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipFilePresenter >> chooseReference [ ^ UIManager default diff --git a/Iceberg-TipUI/IceTipForgetRepositoryCommand.class.st b/Iceberg-TipUI/IceTipForgetRepositoryCommand.class.st index bf9876ab0d..413d50a79f 100644 --- a/Iceberg-TipUI/IceTipForgetRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceTipForgetRepositoryCommand.class.st @@ -3,24 +3,26 @@ I will allow the ""forget"" of a repository (remote it from list of registered r I also add the possibility of remove the repository from file system. " Class { - #name : #IceTipForgetRepositoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipForgetRepositoryCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipForgetRepositoryCommand class >> defaultDescription [ ^ 'Removes this repository from the list of managed repositories (it will not remove any local repository)' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipForgetRepositoryCommand class >> defaultName [ ^ 'Forget repository' ] -{ #category : #executing } +{ #category : 'executing' } IceTipForgetRepositoryCommand >> execute [ (IceTipRemoveRepositoryDialogPresenter @@ -31,13 +33,13 @@ IceTipForgetRepositoryCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipForgetRepositoryCommand >> iconName [ ^ #remove ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipForgetRepositoryCommand >> shortcutKey [ ^ $x meta diff --git a/Iceberg-TipUI/IceTipGitProviderRepositoryPanel.class.st b/Iceberg-TipUI/IceTipGitProviderRepositoryPanel.class.st index 49ac8a3bc4..977e81d533 100644 --- a/Iceberg-TipUI/IceTipGitProviderRepositoryPanel.class.st +++ b/Iceberg-TipUI/IceTipGitProviderRepositoryPanel.class.st @@ -6,8 +6,8 @@ for each provider. " Class { - #name : #IceTipGitProviderRepositoryPanel, - #superclass : #IceTipGitRepositoryPanel, + #name : 'IceTipGitProviderRepositoryPanel', + #superclass : 'IceTipGitRepositoryPanel', #instVars : [ 'userNameLabel', 'userNameInputText', @@ -16,22 +16,24 @@ Class { 'protocolDropList', 'protocolLabel' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #testing } +{ #category : 'testing' } IceTipGitProviderRepositoryPanel class >> isAbstract [ ^ super isAbstract or: [ self = IceTipGitProviderRepositoryPanel ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipGitProviderRepositoryPanel >> configureBuilder: aBuilder [ self subclassResponsibility ] -{ #category : #layout } +{ #category : 'layout' } IceTipGitProviderRepositoryPanel >> defaultLayout [ ^ SpGridLayout new @@ -45,7 +47,7 @@ IceTipGitProviderRepositoryPanel >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitProviderRepositoryPanel >> initializePresenters [ super initializePresenters. @@ -79,7 +81,7 @@ IceTipGitProviderRepositoryPanel >> initializePresenters [ ] -{ #category : #private } +{ #category : 'private' } IceTipGitProviderRepositoryPanel >> projectAsPathToAppend [ ^ (self userName isEmpty and: [ self projectName isEmpty ]) @@ -88,43 +90,43 @@ IceTipGitProviderRepositoryPanel >> projectAsPathToAppend [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> projectName [ ^ self projectNameInputText text asString trimmed ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitProviderRepositoryPanel >> projectNameInputText [ ^ projectNameInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitProviderRepositoryPanel >> projectNameLabel [ ^ projectNameLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> protocolDropList [ ^ protocolDropList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> protocolLabel [ ^ protocolLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> providerName [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> remoteUrl [ | builder | @@ -135,31 +137,31 @@ IceTipGitProviderRepositoryPanel >> remoteUrl [ ^ builder buildUrl ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> selectedProtocol [ ^ self protocolDropList selectedItem ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> userName [ ^ self userNameInputText text asString trimmed ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitProviderRepositoryPanel >> userNameInputText [ ^ userNameInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitProviderRepositoryPanel >> userNameLabel [ ^ userNameLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitProviderRepositoryPanel >> validate [ self diff --git a/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st b/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st index 4408387fe1..fdd7ef3847 100644 --- a/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st +++ b/Iceberg-TipUI/IceTipGitRepositoryPanel.class.st @@ -3,18 +3,20 @@ I'm a presenter to define remote repositories. Repositories needs to have a valid url (one that can be parsed by IceRemote) and a valid location (where to place the clone) " Class { - #name : #IceTipGitRepositoryPanel, - #superclass : #IceTipRepositoryTypePanel, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipGitRepositoryPanel', + #superclass : 'IceTipRepositoryTypePanel', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitRepositoryPanel class >> order [ ^ 1000 "to the end" ] -{ #category : #layout } +{ #category : 'layout' } IceTipGitRepositoryPanel >> defaultLayout [ ^ SpGridLayout new @@ -26,7 +28,7 @@ IceTipGitRepositoryPanel >> defaultLayout [ yourself ] -{ #category : #utilities } +{ #category : 'utilities' } IceTipGitRepositoryPanel >> extractProjectName: aString [ ^ [ (IceGitRemote url: aString) projectName ] @@ -34,13 +36,13 @@ IceTipGitRepositoryPanel >> extractProjectName: aString [ do: [ 'invalid-url' ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitRepositoryPanel >> iconForWindow [ ^ self iconNamed: #git ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitRepositoryPanel >> initializePresenters [ super initializePresenters. @@ -53,7 +55,7 @@ IceTipGitRepositoryPanel >> initializePresenters [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitRepositoryPanel >> newRepository [ UIManager default @@ -66,19 +68,19 @@ IceTipGitRepositoryPanel >> newRepository [ createRepository ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitRepositoryPanel >> remoteUrl [ ^ self remoteInputText text asString trimmed ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitRepositoryPanel >> titleForWindow [ ^ 'Clone remote repository' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitRepositoryPanel >> validate [ | remoteString | diff --git a/Iceberg-TipUI/IceTipGitUsernameAndEmailDialogPresenter.class.st b/Iceberg-TipUI/IceTipGitUsernameAndEmailDialogPresenter.class.st index 7103019d4a..17a42bdec6 100644 --- a/Iceberg-TipUI/IceTipGitUsernameAndEmailDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipGitUsernameAndEmailDialogPresenter.class.st @@ -2,8 +2,8 @@ I'm a dialog for asking ""user.name"" and ""user.email"" . " Class { - #name : #IceTipGitUsernameAndEmailDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipGitUsernameAndEmailDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'nameLabel', 'nameInput', @@ -13,10 +13,12 @@ Class { 'model', 'acceptCallback' ], - #category : #'Iceberg-TipUI-View' + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #actions } +{ #category : 'actions' } IceTipGitUsernameAndEmailDialogPresenter >> accept [ self username isEmptyOrNil ifTrue: [ ^ self window alert: 'user.name is required.' ]. @@ -32,7 +34,7 @@ IceTipGitUsernameAndEmailDialogPresenter >> accept [ acceptCallback value ]. ] -{ #category : #layout } +{ #category : 'layout' } IceTipGitUsernameAndEmailDialogPresenter >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -50,36 +52,36 @@ IceTipGitUsernameAndEmailDialogPresenter >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitUsernameAndEmailDialogPresenter >> email [ ^ self emailInput text trimBoth ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitUsernameAndEmailDialogPresenter >> emailInput [ ^ emailInput ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitUsernameAndEmailDialogPresenter >> emailLabel [ ^ emailLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitUsernameAndEmailDialogPresenter >> globalCheckbox [ ^ globalCheckbox ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitUsernameAndEmailDialogPresenter >> initialExtentForWindow [ ^ (400@200) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitUsernameAndEmailDialogPresenter >> initializePresenters [ nameLabel := self newLabel @@ -102,43 +104,43 @@ IceTipGitUsernameAndEmailDialogPresenter >> initializePresenters [ yourself ] -{ #category : #testing } +{ #category : 'testing' } IceTipGitUsernameAndEmailDialogPresenter >> isGlobal [ ^ self globalCheckbox state ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitUsernameAndEmailDialogPresenter >> nameInput [ ^ nameInput ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipGitUsernameAndEmailDialogPresenter >> nameLabel [ ^ nameLabel ] -{ #category : #events } +{ #category : 'events' } IceTipGitUsernameAndEmailDialogPresenter >> onAccept: aBlockClosure [ acceptCallback := aBlockClosure ] -{ #category : #events } +{ #category : 'events' } IceTipGitUsernameAndEmailDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipGitUsernameAndEmailDialogPresenter >> titleForWindow [ ^ 'Please provide Git missing properties' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipGitUsernameAndEmailDialogPresenter >> username [ ^ self nameInput text trimBoth diff --git a/Iceberg-TipUI/IceTipHiedraAltComponentHistoryBrowser.class.st b/Iceberg-TipUI/IceTipHiedraAltComponentHistoryBrowser.class.st index e78130b7b5..c23045931f 100644 --- a/Iceberg-TipUI/IceTipHiedraAltComponentHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipHiedraAltComponentHistoryBrowser.class.st @@ -1,13 +1,15 @@ Class { - #name : #IceTipHiedraAltComponentHistoryBrowser, - #superclass : #IceTipHistoryBrowser, + #name : 'IceTipHiedraAltComponentHistoryBrowser', + #superclass : 'IceTipHistoryBrowser', #instVars : [ 'hiedraColumnController' ], - #category : #'Iceberg-TipUI-View-Repository-HiedraAlt' + #category : 'Iceberg-TipUI-View-Repository-HiedraAlt', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository-HiedraAlt' } -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltComponentHistoryBrowser >> availableCommands [ | rootGroup | @@ -16,7 +18,7 @@ IceTipHiedraAltComponentHistoryBrowser >> availableCommands [ ^ rootGroup ] -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltComponentHistoryBrowser >> contextMenuCommands [ self availableCommands @@ -27,13 +29,13 @@ IceTipHiedraAltComponentHistoryBrowser >> contextMenuCommands [ self error: 'Should not arrive here' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> initializeCommitList [ self error: 'Should not arrive here' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> initializeHiedraColumn [ | ancestorIds | @@ -62,7 +64,7 @@ IceTipHiedraAltComponentHistoryBrowser >> initializeHiedraColumn [ hiedraColumnController renderer rowHeight: 20 ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> initializePresenters [ commitList := self newComponentList. @@ -73,13 +75,13 @@ IceTipHiedraAltComponentHistoryBrowser >> initializePresenters [ self initializeHiedraColumn ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> initializeWindow: aWindowPresenter [ super initializeWindow: aWindowPresenter. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> newCommitRow: index commit: item [ ^ self @@ -87,20 +89,20 @@ IceTipHiedraAltComponentHistoryBrowser >> newCommitRow: index commit: item [ on: { (hiedraColumnController formAtRow: index). item } ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltComponentHistoryBrowser >> refresh [ self refreshHiedraColumn. super refresh ] -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltComponentHistoryBrowser >> refreshCommands [ self refreshToolbarWith: self availableCommands ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltComponentHistoryBrowser >> refreshCommitList [ | commitModels | @@ -111,7 +113,7 @@ IceTipHiedraAltComponentHistoryBrowser >> refreshCommitList [ commitInfoTabs selectedModel: (commitModels ifNotEmpty: #first ifEmpty: [ nil ]) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltComponentHistoryBrowser >> refreshHiedraColumn [ | ancestorIds walk | @@ -133,19 +135,19 @@ IceTipHiedraAltComponentHistoryBrowser >> refreshHiedraColumn [ linksBlock: [ :id | ancestorIds at: id ]) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltComponentHistoryBrowser >> selectedCommit [ ^ commitList selection selectedItem ifNotNil: #item ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltComponentHistoryBrowser >> selectedItem [ ^ self selectedCommit ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltComponentHistoryBrowser >> updatePresenter [ "self refresh" diff --git a/Iceberg-TipUI/IceTipHiedraAltHistoryBrowser.class.st b/Iceberg-TipUI/IceTipHiedraAltHistoryBrowser.class.st index 28565664db..73df2f5bef 100644 --- a/Iceberg-TipUI/IceTipHiedraAltHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipHiedraAltHistoryBrowser.class.st @@ -1,13 +1,15 @@ Class { - #name : #IceTipHiedraAltHistoryBrowser, - #superclass : #IceTipHistoryBrowser, + #name : 'IceTipHiedraAltHistoryBrowser', + #superclass : 'IceTipHistoryBrowser', #instVars : [ 'hiedraColumnController' ], - #category : #'Iceberg-TipUI-View-Repository-HiedraAlt' + #category : 'Iceberg-TipUI-View-Repository-HiedraAlt', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository-HiedraAlt' } -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltHistoryBrowser >> availableCommands [ | rootGroup | @@ -16,7 +18,7 @@ IceTipHiedraAltHistoryBrowser >> availableCommands [ ^ rootGroup ] -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltHistoryBrowser >> contextMenuCommands [ self availableCommands @@ -27,7 +29,7 @@ IceTipHiedraAltHistoryBrowser >> contextMenuCommands [ self error: 'Should not arrive here' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> initializeCommitList [ commitList @@ -63,7 +65,7 @@ IceTipHiedraAltHistoryBrowser >> initializeCommitList [ self selectionChanged: aSelection selectedItem ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> initializeHiedraColumn [ | ancestorIds | @@ -92,7 +94,7 @@ IceTipHiedraAltHistoryBrowser >> initializeHiedraColumn [ hiedraColumnController renderer rowHeight: 20 ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> initializePresenters [ commitList := self newTable. @@ -104,13 +106,13 @@ IceTipHiedraAltHistoryBrowser >> initializePresenters [ self initializeCommitList ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> initializeWindow: aWindowPresenter [ super initializeWindow: aWindowPresenter. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> newCommitRow: index commit: item [ ^ self @@ -118,20 +120,20 @@ IceTipHiedraAltHistoryBrowser >> newCommitRow: index commit: item [ on: { (hiedraColumnController formAtRow: index). item } ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltHistoryBrowser >> refresh [ self refreshHiedraColumn. super refresh ] -{ #category : #commands } +{ #category : 'commands' } IceTipHiedraAltHistoryBrowser >> refreshCommands [ self refreshToolbarWith: self availableCommands ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltHistoryBrowser >> refreshHiedraColumn [ | ancestorIds walk | @@ -153,13 +155,13 @@ IceTipHiedraAltHistoryBrowser >> refreshHiedraColumn [ linksBlock: [ :id | ancestorIds at: id ]) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltHistoryBrowser >> selectedItem [ ^ self selectedCommit ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryBrowser >> updatePresenter [ "self refresh" diff --git a/Iceberg-TipUI/IceTipHiedraAltHistoryRowPresenter.class.st b/Iceberg-TipUI/IceTipHiedraAltHistoryRowPresenter.class.st index b4d9f6b312..e2b6ea1bc2 100644 --- a/Iceberg-TipUI/IceTipHiedraAltHistoryRowPresenter.class.st +++ b/Iceberg-TipUI/IceTipHiedraAltHistoryRowPresenter.class.st @@ -1,12 +1,14 @@ Class { - #name : #IceTipHiedraAltHistoryRowPresenter, - #superclass : #SpPresenter, + #name : 'IceTipHiedraAltHistoryRowPresenter', + #superclass : 'SpPresenter', #traits : 'SpTModel', #classTraits : 'SpTModel classTrait', - #category : #'Iceberg-TipUI-View-Repository-HiedraAlt' + #category : 'Iceberg-TipUI-View-Repository-HiedraAlt', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository-HiedraAlt' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryRowPresenter >> addTagsTo: aLayout [ | tagNames tagLayout | @@ -30,13 +32,13 @@ IceTipHiedraAltHistoryRowPresenter >> addTagsTo: aLayout [ aLayout add: tagLayout expand: false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltHistoryRowPresenter >> form [ ^ self model first ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraAltHistoryRowPresenter >> initializePresenters [ self layout: (SpBoxLayout newLeftToRight @@ -51,7 +53,7 @@ IceTipHiedraAltHistoryRowPresenter >> initializePresenters [ yourself). ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraAltHistoryRowPresenter >> item [ ^ self model second diff --git a/Iceberg-TipUI/IceTipHiedraHistoryBrowser.class.st b/Iceberg-TipUI/IceTipHiedraHistoryBrowser.class.st index f481a468c0..dc81c98649 100644 --- a/Iceberg-TipUI/IceTipHiedraHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipHiedraHistoryBrowser.class.st @@ -2,15 +2,17 @@ I add a Hiedra column to the browser defined by my superclass. This column visualizes the relationship between commits in the history list. " Class { - #name : #IceTipHiedraHistoryBrowser, - #superclass : #IceTipHistoryBrowser, + #name : 'IceTipHiedraHistoryBrowser', + #superclass : 'IceTipHistoryBrowser', #instVars : [ 'hiedraColumnController' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraHistoryBrowser >> initializeCommitList [ "Add the Hiedra column at the beginning. The Datasource has the logic to render it." @@ -23,7 +25,7 @@ IceTipHiedraHistoryBrowser >> initializeCommitList [ super initializeCommitList ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraHistoryBrowser >> initializeHiedraColumn [ | ancestorIds | @@ -50,21 +52,21 @@ IceTipHiedraHistoryBrowser >> initializeHiedraColumn [ cellWidth: 5.25 ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHiedraHistoryBrowser >> initializePresenters [ super initializePresenters. self initializeHiedraColumn ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraHistoryBrowser >> refresh [ self refreshHiedraColumn. super refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHiedraHistoryBrowser >> refreshHiedraColumn [ | ancestorIds | diff --git a/Iceberg-TipUI/IceTipHistoryActionBrowser.class.st b/Iceberg-TipUI/IceTipHistoryActionBrowser.class.st index 16ad2d0857..63008dd9c3 100644 --- a/Iceberg-TipUI/IceTipHistoryActionBrowser.class.st +++ b/Iceberg-TipUI/IceTipHistoryActionBrowser.class.st @@ -2,47 +2,49 @@ I'm a base browser for pull/push action browser. " Class { - #name : #IceTipHistoryActionBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipHistoryActionBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'commitsPanel', 'actionButtonBar', 'button' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipHistoryActionBrowser >> accept [ button performAction ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryActionBrowser >> actionButtonBar [ ^ actionButtonBar ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryActionBrowser >> commitsPanel [ ^ commitsPanel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryActionBrowser >> commitsPanel: aSpPresenter [ commitsPanel := aSpPresenter ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryActionBrowser >> initialExtentForWindow [ ^ (800@600) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryActionBrowser >> initializePresenters [ commitsPanel := self instantiate: IceTipHistoryBrowser on: self model. @@ -50,7 +52,7 @@ IceTipHistoryActionBrowser >> initializePresenters [ actionButtonBar add: (button := self newActionButton) ] -{ #category : #actions } +{ #category : 'actions' } IceTipHistoryActionBrowser >> moveToRemote: aRemoteModel [ aRemoteModel ifNil: [ ^ self ]. @@ -61,26 +63,26 @@ IceTipHistoryActionBrowser >> moveToRemote: aRemoteModel [ self updateTitle ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipHistoryActionBrowser >> newActionButton [ "Answer a new instance of SpButton to be placed at bottom, as the main action of the window." ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryActionBrowser >> refresh [ self refreshCommits ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryActionBrowser >> refreshCommits [ commitsPanel refresh ] -{ #category : #private } +{ #category : 'private' } IceTipHistoryActionBrowser >> refreshWhenRepository: ann [ (self model repositoryModel isModelOf: ann repository) @@ -89,7 +91,7 @@ IceTipHistoryActionBrowser >> refreshWhenRepository: ann [ self refresh ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryActionBrowser >> subscribeToAnnouncements [ self announcer diff --git a/Iceberg-TipUI/IceTipHistoryBrowser.class.st b/Iceberg-TipUI/IceTipHistoryBrowser.class.st index 3c5dfdee58..71a6d22f46 100644 --- a/Iceberg-TipUI/IceTipHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipHistoryBrowser.class.st @@ -5,22 +5,24 @@ I'm usually used as part of an IceTipRepositoryBrowser. (self onBranch: IceRepository registry anyOne branch) openWithSpec. " Class { - #name : #IceTipHistoryBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipHistoryBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'commitList', 'commitInfoTabs' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipHistoryBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #commands } +{ #category : 'commands' } IceTipHistoryBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { IceTipAdoptCommitCommand. @@ -35,7 +37,7 @@ IceTipHistoryBrowser class >> buildSelectionCommandGroupWith: presenter for: aCo ] -{ #category : #specs } +{ #category : 'specs' } IceTipHistoryBrowser class >> panelSpec [ ^ SpPanedLayout newTopToBottom @@ -44,25 +46,25 @@ IceTipHistoryBrowser class >> panelSpec [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryBrowser >> beForMerge [ self commitInfoTabs beForMerge ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryBrowser >> commitInfoTabs [ ^ commitInfoTabs ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryBrowser >> commitList [ ^ commitList ] -{ #category : #layout } +{ #category : 'layout' } IceTipHistoryBrowser >> defaultLayout [ ^ SpPanedLayout newTopToBottom @@ -71,13 +73,13 @@ IceTipHistoryBrowser >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryBrowser >> initialExtentForWindow [ ^ (700 @ 700) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryBrowser >> initializeCommitList [ commitList @@ -102,7 +104,7 @@ IceTipHistoryBrowser >> initializeCommitList [ whenSelectionChangedDo: [ :aSelection | self selectionChanged: aSelection selectedItem ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryBrowser >> initializePresenters [ commitList := self newTable. @@ -111,27 +113,27 @@ IceTipHistoryBrowser >> initializePresenters [ self initializeCommitList ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipHistoryBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ commitList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryBrowser >> model: anObject [ super model: anObject. self refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryBrowser >> refresh [ self refreshCommitList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryBrowser >> refreshCommitList [ | commitModels | @@ -141,19 +143,19 @@ IceTipHistoryBrowser >> refreshCommitList [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryBrowser >> selectedCommit [ ^ commitList selection selectedItem ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipHistoryBrowser >> selectionChanged: anElement [ commitInfoTabs selectedModel: anElement ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryBrowser >> titleForWindow [ ^ self model @@ -162,13 +164,13 @@ IceTipHistoryBrowser >> titleForWindow [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipHistoryBrowser >> updatePresenter [ self refresh ] -{ #category : #events } +{ #category : 'events' } IceTipHistoryBrowser >> whenSelectionChangedDo: aBlock [ commitList whenSelectionChangedDo: aBlock diff --git a/Iceberg-TipUI/IceTipHistoryDiffFromHead.class.st b/Iceberg-TipUI/IceTipHistoryDiffFromHead.class.st index 16b04a9a5b..06ef203e2b 100644 --- a/Iceberg-TipUI/IceTipHistoryDiffFromHead.class.st +++ b/Iceberg-TipUI/IceTipHistoryDiffFromHead.class.st @@ -3,17 +3,19 @@ I keep a diff from HEAD to WorkingCopy. " Class { - #name : #IceTipHistoryDiffFromHead, - #superclass : #IceTipHistoryDiffUpdater, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipHistoryDiffFromHead', + #superclass : 'IceTipHistoryDiffUpdater', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffFromHead >> diffFor: aCommitModel [ ^ aCommitModel diffFromHead ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffFromHead >> labelFor: aCommitModel [ ^ 'HEAD to {1}' format: { aCommitModel ifNotNil: #shortId } ] diff --git a/Iceberg-TipUI/IceTipHistoryDiffToAncestor.class.st b/Iceberg-TipUI/IceTipHistoryDiffToAncestor.class.st index d0b9344fa1..12aab5b16c 100644 --- a/Iceberg-TipUI/IceTipHistoryDiffToAncestor.class.st +++ b/Iceberg-TipUI/IceTipHistoryDiffToAncestor.class.st @@ -2,17 +2,19 @@ I keep a diff from a commit to his mail parent. " Class { - #name : #IceTipHistoryDiffToAncestor, - #superclass : #IceTipHistoryDiffUpdater, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipHistoryDiffToAncestor', + #superclass : 'IceTipHistoryDiffUpdater', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffToAncestor >> diffFor: aCommitModel [ ^ aCommitModel diffToFirstAncestor ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffToAncestor >> labelFor: aCommitModel [ ^ '{1} to {2}' format: { aCommitModel shortId. diff --git a/Iceberg-TipUI/IceTipHistoryDiffToHead.class.st b/Iceberg-TipUI/IceTipHistoryDiffToHead.class.st index d1dcb6fca4..2bff338b13 100644 --- a/Iceberg-TipUI/IceTipHistoryDiffToHead.class.st +++ b/Iceberg-TipUI/IceTipHistoryDiffToHead.class.st @@ -3,17 +3,19 @@ I keep a diff from WorkingCopy to HEAD. " Class { - #name : #IceTipHistoryDiffToHead, - #superclass : #IceTipHistoryDiffUpdater, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipHistoryDiffToHead', + #superclass : 'IceTipHistoryDiffUpdater', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffToHead >> diffFor: aCommitModel [ ^ aCommitModel diffToHead ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffToHead >> labelFor: aCommitModel [ ^ '{1} to HEAD' format: { aCommitModel ifNotNil: #shortId } ] diff --git a/Iceberg-TipUI/IceTipHistoryDiffUpdater.class.st b/Iceberg-TipUI/IceTipHistoryDiffUpdater.class.st index 0cfc0e00fc..2c33f2fa79 100644 --- a/Iceberg-TipUI/IceTipHistoryDiffUpdater.class.st +++ b/Iceberg-TipUI/IceTipHistoryDiffUpdater.class.st @@ -4,64 +4,66 @@ Since orders may change for different operations, I need a different approach fo " Class { - #name : #IceTipHistoryDiffUpdater, - #superclass : #Object, + #name : 'IceTipHistoryDiffUpdater', + #superclass : 'Object', #instVars : [ 'tab' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #testing } +{ #category : 'testing' } IceTipHistoryDiffUpdater class >> isAbstract [ ^ self == IceTipHistoryDiffUpdater ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipHistoryDiffUpdater class >> tab: aTab [ ^ self new tab: aTab; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffUpdater >> diffFor: aCommitModel [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffUpdater >> labelFor: aCommitModel [ ^ self subclassResponsibility ] -{ #category : #'private factory' } +{ #category : 'private factory' } IceTipHistoryDiffUpdater >> newDiffPanelFor: aDiffModel [ ^ IceTipDiffPanel on: aDiffModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffUpdater >> tab [ ^ tab ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipHistoryDiffUpdater >> tab: anObject [ tab := anObject ] -{ #category : #updating } +{ #category : 'updating' } IceTipHistoryDiffUpdater >> updateContentsOn: aCommitModel [ aCommitModel ifNil: [ ^ self ]. self tab contents: (self newDiffPanelFor: (self diffFor: aCommitModel)) build ] -{ #category : #updating } +{ #category : 'updating' } IceTipHistoryDiffUpdater >> updateLabelOn: aCommitModel [ self tab label: (self labelFor: aCommitModel) ] -{ #category : #updating } +{ #category : 'updating' } IceTipHistoryDiffUpdater >> updateOn: aCommitModel [ self updateLabelOn: aCommitModel. self updateContentsOn: aCommitModel diff --git a/Iceberg-TipUI/IceTipInspectCommand.class.st b/Iceberg-TipUI/IceTipInspectCommand.class.st index d50a4ee13d..f5ef0d83c4 100644 --- a/Iceberg-TipUI/IceTipInspectCommand.class.st +++ b/Iceberg-TipUI/IceTipInspectCommand.class.st @@ -2,42 +2,44 @@ I am a command implementing the inspect option. I have several context activations to be able to inspect different objects in Iceberg's UI " Class { - #name : #IceTipInspectCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipInspectCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipInspectCommand class >> defaultDescription [ ^ 'Inspect the selected element' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipInspectCommand class >> defaultName [ ^ 'Inspect...' ] -{ #category : #testing } +{ #category : 'testing' } IceTipInspectCommand >> canBeExecuted [ ^ self context hasSelectedItem ] -{ #category : #executing } +{ #category : 'executing' } IceTipInspectCommand >> execute [ self item inspect ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInspectCommand >> iconName [ ^ #glamorousInspect ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInspectCommand >> item [ | maybeCachedObject | diff --git a/Iceberg-TipUI/IceTipInstallVersionCommand.class.st b/Iceberg-TipUI/IceTipInstallVersionCommand.class.st index a11c718b99..fbbaad2497 100644 --- a/Iceberg-TipUI/IceTipInstallVersionCommand.class.st +++ b/Iceberg-TipUI/IceTipInstallVersionCommand.class.st @@ -3,36 +3,38 @@ Command used in the version browser, inside the code browser. This command takes the selected version and installs it (also called revert). " Class { - #name : #IceTipInstallVersionCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipInstallVersionCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipInstallVersionCommand class >> defaultDescription [ ^ 'Revert to the selected version' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipInstallVersionCommand class >> defaultName [ ^ 'Install this version' ] -{ #category : #execution } +{ #category : 'execution' } IceTipInstallVersionCommand >> execute [ self version install ] -{ #category : #activation } +{ #category : 'activation' } IceTipInstallVersionCommand >> iconName [ ^ #smallRedo ] -{ #category : #execution } +{ #category : 'execution' } IceTipInstallVersionCommand >> version [ ^ self context selectedItem diff --git a/Iceberg-TipUI/IceTipInteractiveCredentialsProvider.class.st b/Iceberg-TipUI/IceTipInteractiveCredentialsProvider.class.st index e74a3465c0..e76f8c4c84 100644 --- a/Iceberg-TipUI/IceTipInteractiveCredentialsProvider.class.st +++ b/Iceberg-TipUI/IceTipInteractiveCredentialsProvider.class.st @@ -2,23 +2,25 @@ I am a credential provider that requires the missing plaintext credential to the user. " Class { - #name : #IceTipInteractiveCredentialsProvider, - #superclass : #IceCredentialsProvider, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipInteractiveCredentialsProvider', + #superclass : 'IceCredentialsProvider', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'class initialization' } +{ #category : 'class initialization' } IceTipInteractiveCredentialsProvider class >> initialize [ self providerType: nil ] -{ #category : #private } +{ #category : 'private' } IceTipInteractiveCredentialsProvider class >> isDefault [ ^ true ] -{ #category : #private } +{ #category : 'private' } IceTipInteractiveCredentialsProvider >> obtainCredentials: credentialsToReturn [ | returnedCred | @@ -30,7 +32,7 @@ IceTipInteractiveCredentialsProvider >> obtainCredentials: credentialsToReturn [ credentialsToReturn readFrom: returnedCred ] -{ #category : #private } +{ #category : 'private' } IceTipInteractiveCredentialsProvider >> obtainPlaintextCredentials: credentialsToReturn [ | returnedCred | @@ -43,7 +45,7 @@ IceTipInteractiveCredentialsProvider >> obtainPlaintextCredentials: credentialsT credentialsToReturn readFrom: returnedCred ] -{ #category : #private } +{ #category : 'private' } IceTipInteractiveCredentialsProvider >> obtainSshCredentials: credentialsToReturn [ | returnedCred | diff --git a/Iceberg-TipUI/IceTipInteractiveErrorVisitor.class.st b/Iceberg-TipUI/IceTipInteractiveErrorVisitor.class.st index 533f52c029..a420c950b2 100644 --- a/Iceberg-TipUI/IceTipInteractiveErrorVisitor.class.st +++ b/Iceberg-TipUI/IceTipInteractiveErrorVisitor.class.st @@ -3,22 +3,24 @@ I'm a visitor to provide users with an interactive way to react to iceberg error " Class { - #name : #IceTipInteractiveErrorVisitor, - #superclass : #IceErrorVisitor, + #name : 'IceTipInteractiveErrorVisitor', + #superclass : 'IceErrorVisitor', #instVars : [ 'context', 'repository' ], - #category : #'Iceberg-TipUI-Exceptions' + #category : 'Iceberg-TipUI-Exceptions', + #package : 'Iceberg-TipUI', + #tag : 'Exceptions' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipInteractiveErrorVisitor class >> newContext: aContext [ ^ self newContext: aContext repository: nil ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipInteractiveErrorVisitor class >> newContext: aContext repository: aModel [ ^ self new @@ -27,40 +29,40 @@ IceTipInteractiveErrorVisitor class >> newContext: aContext repository: aModel [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipInteractiveErrorVisitor class >> on: aModel [ ^ self new repository: aModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInteractiveErrorVisitor >> context [ ^ context ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInteractiveErrorVisitor >> context: anObject [ context := anObject ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> defaultApplication [ ^ SpApplication defaultApplication ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInteractiveErrorVisitor >> repository [ ^ repository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipInteractiveErrorVisitor >> repository: anObject [ repository := anObject ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitAuthenticationError: anError [ self defaultApplication label: anError messageText; @@ -68,7 +70,7 @@ IceTipInteractiveErrorVisitor >> visitAuthenticationError: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitCheckoutConflict: anError [ self defaultApplication @@ -77,7 +79,7 @@ IceTipInteractiveErrorVisitor >> visitCheckoutConflict: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitCloneLocationAlreadyExists: anError [ self defaultApplication @@ -88,7 +90,7 @@ IceTipInteractiveErrorVisitor >> visitCloneLocationAlreadyExists: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitCloneRemoteNotFound: anError [ self defaultApplication @@ -98,7 +100,7 @@ IceTipInteractiveErrorVisitor >> visitCloneRemoteNotFound: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitExperimentalFeature: aWarning [ | proceed | @@ -112,7 +114,7 @@ IceTipInteractiveErrorVisitor >> visitExperimentalFeature: aWarning [ aWarning resume ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitGenericError: anError [ (IceTipErrorDialogPresenter @@ -123,7 +125,7 @@ IceTipInteractiveErrorVisitor >> visitGenericError: anError [ open ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitMergeAborted: anError [ self defaultApplication @@ -135,7 +137,7 @@ WARNING: If you have external files, you may need to verify the conflicts there. openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitMissingCredentialsError: anError [ ((IceTipGitUsernameAndEmailDialogPresenter @@ -147,7 +149,7 @@ IceTipInteractiveErrorVisitor >> visitMissingCredentialsError: anError [ open ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitNoCommitMessage: aWarning [ | proceed | @@ -162,7 +164,7 @@ IceTipInteractiveErrorVisitor >> visitNoCommitMessage: aWarning [ aWarning resume ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitNoRemote: anError [ self defaultApplication @@ -172,7 +174,7 @@ Add one before continue.'; openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitNothingToCommitError: anError [ self defaultApplication newInform @@ -180,7 +182,7 @@ IceTipInteractiveErrorVisitor >> visitNothingToCommitError: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitRemoteAlreadyExistError: anError [ self defaultApplication newInform @@ -189,7 +191,7 @@ IceTipInteractiveErrorVisitor >> visitRemoteAlreadyExistError: anError [ openModal ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitRemoteDesynchronizedError: anError [ | continue command | @@ -222,7 +224,7 @@ You need to pull remote changes before continue and push your changes.' anError retry ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitShouldCommitBeforePullError: anError [ | continue | @@ -239,7 +241,7 @@ We recommend that you commit first and then pull incoming changes again.'; anError resume ] -{ #category : #visiting } +{ #category : 'visiting' } IceTipInteractiveErrorVisitor >> visitWorkingCopyDesynchronizedError: anError [ | solveStrategy command | diff --git a/Iceberg-TipUI/IceTipLoadPackageCommand.class.st b/Iceberg-TipUI/IceTipLoadPackageCommand.class.st index 577cf69282..c2d502942e 100644 --- a/Iceberg-TipUI/IceTipLoadPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipLoadPackageCommand.class.st @@ -2,30 +2,32 @@ Command that loads the current non-loaded selected package " Class { - #name : #IceTipLoadPackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipLoadPackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipLoadPackageCommand class >> defaultDescription [ ^ 'Load selected package in the image' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipLoadPackageCommand class >> defaultName [ ^ 'Load' ] -{ #category : #testing } +{ #category : 'testing' } IceTipLoadPackageCommand >> canBeExecuted [ ^ self isPackageLoaded not ] -{ #category : #executing } +{ #category : 'executing' } IceTipLoadPackageCommand >> execute [ self packageModel newLoadAction executeWithContext: self context. @@ -33,7 +35,7 @@ IceTipLoadPackageCommand >> execute [ (IceRepositoryModified for: self repository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLoadPackageCommand >> iconName [ ^ #add diff --git a/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st b/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st index 9e3bcd9b5d..73ba56fba6 100644 --- a/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st +++ b/Iceberg-TipUI/IceTipLocalRepositoryPanel.class.st @@ -3,18 +3,20 @@ I will define a repository that already exists. " Class { - #name : #IceTipLocalRepositoryPanel, - #superclass : #IceTipRepositoryTypePanel, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipLocalRepositoryPanel', + #superclass : 'IceTipRepositoryTypePanel', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocalRepositoryPanel class >> order [ ^ 20 ] -{ #category : #layout } +{ #category : 'layout' } IceTipLocalRepositoryPanel >> defaultLayout [ ^ SpGridLayout new @@ -25,13 +27,13 @@ IceTipLocalRepositoryPanel >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipLocalRepositoryPanel >> iconForWindow [ ^ self iconNamed: #smallOpen ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipLocalRepositoryPanel >> initialExtentForWindow [ ^ (500@( @@ -41,25 +43,25 @@ IceTipLocalRepositoryPanel >> initialExtentForWindow [ )) scaledByDisplayScaleFactor ] -{ #category : #testing } +{ #category : 'testing' } IceTipLocalRepositoryPanel >> isLocalRepository [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocalRepositoryPanel >> location [ ^ self projectLocation location ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocalRepositoryPanel >> location: aReferenceOrString [ ^ self projectLocation location: aReferenceOrString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocalRepositoryPanel >> newRepository [ UIManager default @@ -71,13 +73,13 @@ IceTipLocalRepositoryPanel >> newRepository [ createRepository ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipLocalRepositoryPanel >> titleForWindow [ ^ 'Import from existing clone' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocalRepositoryPanel >> validate [ self diff --git a/Iceberg-TipUI/IceTipLocationPresenter.class.st b/Iceberg-TipUI/IceTipLocationPresenter.class.st index b62a028a13..7278835716 100644 --- a/Iceberg-TipUI/IceTipLocationPresenter.class.st +++ b/Iceberg-TipUI/IceTipLocationPresenter.class.st @@ -3,8 +3,8 @@ I'm an abstract model to provide locations (directories or files). I need to be included in other components (search references to my children for examples) " Class { - #name : #IceTipLocationPresenter, - #superclass : #SpPresenter, + #name : 'IceTipLocationPresenter', + #superclass : 'SpPresenter', #instVars : [ 'locationInput', 'chooseButton', @@ -12,16 +12,18 @@ Class { 'chooseBlock', 'keptLocation' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #testing } +{ #category : 'testing' } IceTipLocationPresenter class >> isAbstract [ ^ self == IceTipLocationPresenter ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> appendPath: aString [ keptLocation ifNil: [ keptLocation := self location ]. @@ -31,13 +33,13 @@ IceTipLocationPresenter >> appendPath: aString [ ifEmpty: [ keptLocation ]). ] -{ #category : #private } +{ #category : 'private' } IceTipLocationPresenter >> basicLocation: aReference [ locationInput text: aReference pathString ] -{ #category : #actions } +{ #category : 'actions' } IceTipLocationPresenter >> choose [ self chooseReference ifNotNil: [ :reference | @@ -45,43 +47,43 @@ IceTipLocationPresenter >> choose [ self onChoose ifNotNil: #value ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipLocationPresenter >> chooseButton [ ^ chooseButton ] -{ #category : #actions } +{ #category : 'actions' } IceTipLocationPresenter >> chooseReference [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> chooseTitle [ ^ chooseTitle ifNil: [ self defaultChooseDialogTitle ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> chooseTitle: aString [ chooseTitle := aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> defaultChooseDialogTitle [ ^ 'Choose directory' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> defaultLabel [ ^ 'Directory' ] -{ #category : #layout } +{ #category : 'layout' } IceTipLocationPresenter >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -93,13 +95,13 @@ IceTipLocationPresenter >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> icon [ ^ self iconNamed: #open ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipLocationPresenter >> initializePresenters [ locationInput := self newTextInput @@ -113,7 +115,7 @@ IceTipLocationPresenter >> initializePresenters [ chooseButton action: [ self choose ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> location [ "This method return the location to use in the repository If the location is relative to IceLibgitRepository >> #localRepositoriesLocation @@ -135,7 +137,7 @@ IceTipLocationPresenter >> location [ ^ IceLibgitRepository localRepositoriesLocation resolvePath: relativePath ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipLocationPresenter >> location: aReferenceOrString [ | ref | @@ -152,26 +154,26 @@ IceTipLocationPresenter >> location: aReferenceOrString [ self basicLocation: ref ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipLocationPresenter >> locationInput [ ^ locationInput ] -{ #category : #hook } +{ #category : 'hook' } IceTipLocationPresenter >> onChoose [ ^ chooseBlock ] -{ #category : #hook } +{ #category : 'hook' } IceTipLocationPresenter >> onChoose: aBlockClosure [ "I allow to set a hook to execute when the user select a location." chooseBlock := aBlockClosure ] -{ #category : #events } +{ #category : 'events' } IceTipLocationPresenter >> whenTextChanged: aBlockClosure [ self locationInput whenTextChangedDo: aBlockClosure diff --git a/Iceberg-TipUI/IceTipManagePackagesCommand.class.st b/Iceberg-TipUI/IceTipManagePackagesCommand.class.st index 10c1f65a81..e0f99435cf 100644 --- a/Iceberg-TipUI/IceTipManagePackagesCommand.class.st +++ b/Iceberg-TipUI/IceTipManagePackagesCommand.class.st @@ -2,24 +2,26 @@ I'm a command to open the package manager browser for a project. " Class { - #name : #IceTipManagePackagesCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipManagePackagesCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipManagePackagesCommand class >> defaultDescription [ ^ 'Open packages manager browser for this repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipManagePackagesCommand class >> defaultName [ ^ 'Packages' ] -{ #category : #executing } +{ #category : 'executing' } IceTipManagePackagesCommand >> execute [ (IceTipWorkingCopyBrowser @@ -28,13 +30,13 @@ IceTipManagePackagesCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipManagePackagesCommand >> iconName [ ^ #package ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipManagePackagesCommand >> shortcutKey [ ^ $p meta diff --git a/Iceberg-TipUI/IceTipManageRepositoryCommand.class.st b/Iceberg-TipUI/IceTipManageRepositoryCommand.class.st index 25acd74669..4d0185f541 100644 --- a/Iceberg-TipUI/IceTipManageRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceTipManageRepositoryCommand.class.st @@ -3,36 +3,38 @@ I'm a command to show the repository manager for a repository model. " Class { - #name : #IceTipManageRepositoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipManageRepositoryCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipManageRepositoryCommand class >> defaultDescription [ ^ 'Open repository manager browser for this repository.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipManageRepositoryCommand class >> defaultName [ ^ 'Open Repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipManageRepositoryCommand class >> defaultToolbarItemName [ ^ 'Repository' ] -{ #category : #testing } +{ #category : 'testing' } IceTipManageRepositoryCommand >> canBeExecuted [ ^ super canBeExecuted and: [ self isRepositoryMissing not ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipManageRepositoryCommand >> execute [ (IceTipRepositoryBrowser @@ -41,19 +43,19 @@ IceTipManageRepositoryCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipManageRepositoryCommand >> iconName [ ^ #komitterSmalltalkhubRemote ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipManageRepositoryCommand >> shortcutKey [ ^ $r meta ] -{ #category : #testing } +{ #category : 'testing' } IceTipManageRepositoryCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipMergeBranchDialogPresenter.class.st b/Iceberg-TipUI/IceTipMergeBranchDialogPresenter.class.st index fbd509f795..9a1252f105 100644 --- a/Iceberg-TipUI/IceTipMergeBranchDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipMergeBranchDialogPresenter.class.st @@ -4,34 +4,36 @@ I'm a dialog to perform a merge of a branch. (self onRepository: IceRepository registry anyOne) openDialogWithSpec " Class { - #name : #IceTipMergeBranchDialogPresenter, - #superclass : #IceTipOptionDialogPresenter, + #name : 'IceTipMergeBranchDialogPresenter', + #superclass : 'IceTipOptionDialogPresenter', #instVars : [ 'model', 'types' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipMergeBranchDialogPresenter class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) beCached ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchDialogPresenter >> allTypes [ ^ types ifNil: [ types := self createMergeBranchTypes ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchDialogPresenter >> beSwitchAndMerge [ self allTypes do: #beSwitchAndMerge ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipMergeBranchDialogPresenter >> createMergeBranchTypes [ | allTypes | @@ -54,44 +56,44 @@ IceTipMergeBranchDialogPresenter >> createMergeBranchTypes [ ^ allTypes ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergeBranchDialogPresenter >> doAccept [ self selectedType doAccept ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeBranchDialogPresenter >> initialExtentForWindow [ ^ (600 @ 400) scaledByDisplayScaleFactor ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchDialogPresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchDialogPresenter >> model: anObject [ model := anObject. self allTypes do: [ :each | each model: anObject ] ] -{ #category : #'accessing - model' } +{ #category : 'accessing - model' } IceTipMergeBranchDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeBranchDialogPresenter >> titleForWindow [ ^ 'Select branch to merge into ' , (self model branchName contractTo: 45) ] -{ #category : #activation } +{ #category : 'activation' } IceTipMergeBranchDialogPresenter >> updateWindowTitle [ self window title: self titleForWindow diff --git a/Iceberg-TipUI/IceTipMergeBranchPanel.class.st b/Iceberg-TipUI/IceTipMergeBranchPanel.class.st index 24bd011621..608f005030 100644 --- a/Iceberg-TipUI/IceTipMergeBranchPanel.class.st +++ b/Iceberg-TipUI/IceTipMergeBranchPanel.class.st @@ -2,21 +2,23 @@ I'm a panel to peform the merge of an existing branch. " Class { - #name : #IceTipMergeBranchPanel, - #superclass : #IceTipExistingBranchPanel, + #name : 'IceTipMergeBranchPanel', + #superclass : 'IceTipExistingBranchPanel', #instVars : [ 'mergeType' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchPanel >> beSwitchAndMerge [ self mergeType: IceTipMergeType switchAndMerge ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergeBranchPanel >> doAccept [ IceTipStandardAction new @@ -27,19 +29,19 @@ IceTipMergeBranchPanel >> doAccept [ executeWithContext: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchPanel >> mergeType [ ^ mergeType ifNil: [ IceTipMergeType default ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchPanel >> mergeType: anObject [ mergeType := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeBranchPanel >> withoutHead [ self branchesList items: (self branchModels reject: #isHead). diff --git a/Iceberg-TipUI/IceTipMergeCommand.class.st b/Iceberg-TipUI/IceTipMergeCommand.class.st index 11c5c49cdd..b5345488ef 100644 --- a/Iceberg-TipUI/IceTipMergeCommand.class.st +++ b/Iceberg-TipUI/IceTipMergeCommand.class.st @@ -2,30 +2,32 @@ Command that opens a dialog to select a branch to merge in the current merge " Class { - #name : #IceTipMergeCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipMergeCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipMergeCommand class >> defaultDescription [ ^ 'Merge a given branch into your current branch.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipMergeCommand class >> defaultName [ ^ 'Merge to current' ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergeCommand >> canBeExecuted [ ^ self isRepositoryOperational ] -{ #category : #executing } +{ #category : 'executing' } IceTipMergeCommand >> execute [ (IceTipMergeBranchDialogPresenter @@ -36,7 +38,7 @@ IceTipMergeCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeCommand >> iconName [ ^ #merge diff --git a/Iceberg-TipUI/IceTipMergeHistoryCommand.class.st b/Iceberg-TipUI/IceTipMergeHistoryCommand.class.st index 1d70eeb9d7..bfe81e157f 100644 --- a/Iceberg-TipUI/IceTipMergeHistoryCommand.class.st +++ b/Iceberg-TipUI/IceTipMergeHistoryCommand.class.st @@ -2,36 +2,38 @@ Command that opens a window showing the history of the selected merged branch. " Class { - #name : #IceTipMergeHistoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipMergeHistoryCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipMergeHistoryCommand class >> defaultDescription [ ^ 'Show the merged history of the selected merge commit' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipMergeHistoryCommand class >> defaultName [ ^ 'Browse merge history' ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergeHistoryCommand >> canBeExecuted [ ^ self commitModel hasMultipleAncestors ] -{ #category : #executing } +{ #category : 'executing' } IceTipMergeHistoryCommand >> commitModel [ ^ self context selectedCommit ] -{ #category : #executing } +{ #category : 'executing' } IceTipMergeHistoryCommand >> execute [ (IceTipHistoryBrowser on: diff --git a/Iceberg-TipUI/IceTipMergeModel.class.st b/Iceberg-TipUI/IceTipMergeModel.class.st index 249baca4a0..3a2be87af4 100644 --- a/Iceberg-TipUI/IceTipMergeModel.class.st +++ b/Iceberg-TipUI/IceTipMergeModel.class.st @@ -1,20 +1,22 @@ Class { - #name : #IceTipMergeModel, - #superclass : #IceTipDiffPreviewModel, + #name : 'IceTipMergeModel', + #superclass : 'IceTipDiffPreviewModel', #instVars : [ 'mergeType', 'mergeAction' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #actions } +{ #category : 'actions' } IceTipMergeModel >> calculateDiff [ ^ self mergeAction ] -{ #category : #private } +{ #category : 'private' } IceTipMergeModel >> mergeAction [ ^ mergeAction ifNil: [ @@ -24,13 +26,13 @@ IceTipMergeModel >> mergeAction [ yourself ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeModel >> mergeType: aMergeType [ mergeType := aMergeType ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergeModel >> newExecuteMergeAction [ @@ -42,13 +44,13 @@ IceTipMergeModel >> newExecuteMergeAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergeModel >> newMergeAction [ ^ mergeType newMergeAction: commitish ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeModel >> repositoryModel [ ^ commitish repositoryModel ] diff --git a/Iceberg-TipUI/IceTipMergeMorph.class.st b/Iceberg-TipUI/IceTipMergeMorph.class.st index f45def3de7..4dc7b9b9f2 100644 --- a/Iceberg-TipUI/IceTipMergeMorph.class.st +++ b/Iceberg-TipUI/IceTipMergeMorph.class.st @@ -2,19 +2,21 @@ I redefine PSMCMergeMorph to be able to use an IceMergePatchMorph as patch morph " Class { - #name : #IceTipMergeMorph, - #superclass : #PSMCMergeMorph, - #category : #'Iceberg-TipUI-Morphic' + #name : 'IceTipMergeMorph', + #superclass : 'PSMCMergeMorph', + #category : 'Iceberg-TipUI-Morphic', + #package : 'Iceberg-TipUI', + #tag : 'Morphic' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeMorph >> conflictCount [ "Answer the number of conflicts that are unresolved." ^(self model ifNil: [^0]) unresolvedConflictCount ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeMorph >> model: aMerger [ "Set the model and update the window." @@ -26,7 +28,7 @@ IceTipMergeMorph >> model: aMerger [ self patchMorph model: aMerger ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipMergeMorph >> newPatchMorph [ "Answer a new patch morph." diff --git a/Iceberg-TipUI/IceTipMergePatchMorph.class.st b/Iceberg-TipUI/IceTipMergePatchMorph.class.st index 534efa39a0..6a05a76fb0 100644 --- a/Iceberg-TipUI/IceTipMergePatchMorph.class.st +++ b/Iceberg-TipUI/IceTipMergePatchMorph.class.st @@ -2,19 +2,21 @@ I redefine part of monticello's PSMCMergePatchMorph to not require to rebuild a tree but use Iceberg's one directly. I also adapt the patch morph to handle files and several packages at the same time. " Class { - #name : #IceTipMergePatchMorph, - #superclass : #PSMCMergePatchMorph, - #category : #'Iceberg-TipUI-Morphic' + #name : 'IceTipMergePatchMorph', + #superclass : 'PSMCMergePatchMorph', + #category : 'Iceberg-TipUI-Morphic', + #package : 'Iceberg-TipUI', + #tag : 'Morphic' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergePatchMorph >> changes [ "Answer the changes tree roots." ^ model ifNotNil: [ model mergeTree children collect: [ :each | IceMergeListWrapper with: each model: model ] ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> hasAnyNonConflictConflicts [ "Answer whether there are any conflicts not marked as a conflict." @@ -22,7 +24,7 @@ IceTipMergePatchMorph >> hasAnyNonConflictConflicts [ conflict isConflict and: [ conflict isResolved ] ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> hasAnyNonIncomingConflicts [ "Answer whether there are any conflicts not marked as incoming." @@ -31,7 +33,7 @@ IceTipMergePatchMorph >> hasAnyNonIncomingConflicts [ conflict isResolved not or: [conflict isLeftChosen ] ] ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> hasAnyNonKeptConflicts [ "Answer whether there are any conflicts not marked as keep." @@ -40,7 +42,7 @@ IceTipMergePatchMorph >> hasAnyNonKeptConflicts [ conflict isResolved not or: [conflict isRightChosen ] ] ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> hasConflicts [ "Answer whether there are any conflicts." @@ -48,7 +50,7 @@ IceTipMergePatchMorph >> hasConflicts [ conflict isConflict ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> keepAllCurrentVersion [ "Mark all conflicts as local." @@ -58,7 +60,7 @@ IceTipMergePatchMorph >> keepAllCurrentVersion [ self updateSource ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> markAllAsConflict [ "Mark all conflicts as unresolved." @@ -68,7 +70,7 @@ IceTipMergePatchMorph >> markAllAsConflict [ self updateSource ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergePatchMorph >> markAsConflict [ "Mark the operation as unresolved conflict." @@ -77,7 +79,7 @@ IceTipMergePatchMorph >> markAsConflict [ self updateSource. ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergePatchMorph >> nextConflict [ "Answer the next (unresolved) conflict or, nil if none." @@ -92,7 +94,7 @@ IceTipMergePatchMorph >> nextConflict [ ^ IceMergeListWrapper with: node model: model. ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> notAllConflictsResolved [ "Answer whether any conflicts are unresolved." @@ -100,7 +102,7 @@ IceTipMergePatchMorph >> notAllConflictsResolved [ item isConflict and: [item isResolved not]] ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergePatchMorph >> selectNextConflict [ "Select the next conflict after the current selection, if any." @@ -109,14 +111,14 @@ IceTipMergePatchMorph >> selectNextConflict [ self changed: {#openPath}, next item path segments ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergePatchMorph >> selectedChange [ "Answer the selected change." ^(self selectedChangeWrapper ifNil: [^nil]) item value ] -{ #category : #private } +{ #category : 'private' } IceTipMergePatchMorph >> selectionHasActualClass [ "Answer whether the currently selected change has an actual class in the image." @@ -126,14 +128,14 @@ IceTipMergePatchMorph >> selectionHasActualClass [ ifNotNil: [:w | w item value contextClass notNil] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> selectionIsRemoteChosen [ self selectedChange ifNil: [ ^ false]. ^ self selectedChange isConflict and: [ self selectedChange isRightChosen ] ] -{ #category : #updating } +{ #category : 'updating' } IceTipMergePatchMorph >> updateSource [ "Update the source difference morph." @@ -159,7 +161,7 @@ IceTipMergePatchMorph >> updateSource [ ifFalse: [self diffMorph indicateSrc] ] -{ #category : #testing } +{ #category : 'testing' } IceTipMergePatchMorph >> useAllIncomingVersion [ "Mark all conflicts as remote." diff --git a/Iceberg-TipUI/IceTipMergePreviewBrowser.class.st b/Iceberg-TipUI/IceTipMergePreviewBrowser.class.st index 5d9d18d743..83535956d8 100644 --- a/Iceberg-TipUI/IceTipMergePreviewBrowser.class.st +++ b/Iceberg-TipUI/IceTipMergePreviewBrowser.class.st @@ -4,12 +4,14 @@ I preview the changes that will be introduced in the image when a merge occurs. (self onBranch: IceRepository registry anyOne branch) openWithSpec. " Class { - #name : #IceTipMergePreviewBrowser, - #superclass : #IceTipPreviewBrowser, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipMergePreviewBrowser', + #superclass : 'IceTipPreviewBrowser', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipMergePreviewBrowser class >> onBranch: aBranch [ ^ self on: (IceTipMergeModel new commitish: aBranch; @@ -17,14 +19,14 @@ IceTipMergePreviewBrowser class >> onBranch: aBranch [ ] -{ #category : #actions } +{ #category : 'actions' } IceTipMergePreviewBrowser >> doMerge [ self model newExecuteMergeAction executeWithContext: self. self closeWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergePreviewBrowser >> initializePresenters [ super initializePresenters. @@ -32,13 +34,13 @@ IceTipMergePreviewBrowser >> initializePresenters [ diffPanel rightLabel: 'Merge with ', model targetName ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergePreviewBrowser >> mergeType: anObject [ self model mergeType: anObject ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipMergePreviewBrowser >> newActionButton [ ^ self newButton @@ -49,7 +51,7 @@ IceTipMergePreviewBrowser >> newActionButton [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergePreviewBrowser >> titleForWindow [ ^ 'Preview merge of {1}/{2}' format: { diff --git a/Iceberg-TipUI/IceTipMergeSelectingPanel.class.st b/Iceberg-TipUI/IceTipMergeSelectingPanel.class.st index 3f8a4eec31..fdfc258341 100644 --- a/Iceberg-TipUI/IceTipMergeSelectingPanel.class.st +++ b/Iceberg-TipUI/IceTipMergeSelectingPanel.class.st @@ -1,21 +1,23 @@ Class { - #name : #IceTipMergeSelectingPanel, - #superclass : #IceTipDiffPanel, + #name : 'IceTipMergeSelectingPanel', + #superclass : 'IceTipDiffPanel', #instVars : [ 'codePanel', 'checkedIceNodes' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeSelectingPanel >> basicRefresh [ super basicRefresh. self refreshCodePanel. ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeSelectingPanel >> changeListColumn [ ^ SpCompositeTableColumn new @@ -46,13 +48,13 @@ IceTipMergeSelectingPanel >> changeListColumn [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeSelectingPanel >> codePanel [ ^ codePanel ] -{ #category : #layout } +{ #category : 'layout' } IceTipMergeSelectingPanel >> defaultLayout [ ^ SpPanedLayout newLeftToRight @@ -66,7 +68,7 @@ IceTipMergeSelectingPanel >> defaultLayout [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeSelectingPanel >> initialize [ super initialize. @@ -77,7 +79,7 @@ IceTipMergeSelectingPanel >> initialize [ child value isConflict ifTrue: [ child value selectLeft ] ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipMergeSelectingPanel >> initializePresenters [ codePanel := self newCode. @@ -87,7 +89,7 @@ IceTipMergeSelectingPanel >> initializePresenters [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeSelectingPanel >> refresh [ super refresh. @@ -96,7 +98,7 @@ IceTipMergeSelectingPanel >> refresh [ self refreshCodePanel ] -{ #category : #private } +{ #category : 'private' } IceTipMergeSelectingPanel >> refreshCodePanel [ | visitor mergeNode | @@ -107,13 +109,13 @@ IceTipMergeSelectingPanel >> refreshCodePanel [ ifNotNil: [ mergeNode accept: visitor ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeSelectingPanel >> selectedItems [ ^ checkedIceNodes ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipMergeSelectingPanel >> selectionChanged [ super selectionChanged. diff --git a/Iceberg-TipUI/IceTipMergeType.class.st b/Iceberg-TipUI/IceTipMergeType.class.st index 3fa3830c87..6d96c48bec 100644 --- a/Iceberg-TipUI/IceTipMergeType.class.st +++ b/Iceberg-TipUI/IceTipMergeType.class.st @@ -5,47 +5,49 @@ My children define strategies of how to merge two commitish. " Class { - #name : #IceTipMergeType, - #superclass : #Object, + #name : 'IceTipMergeType', + #superclass : 'Object', #classInstVars : [ 'uniqueInstance' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeType class >> default [ ^ self direct ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeType class >> direct [ ^ IceTipDirectMergeType uniqueInstance ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipMergeType class >> new [ self error: 'Use #uniqueInstance' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipMergeType class >> switchAndMerge [ ^ IceTipSwitchAndMergeType uniqueInstance ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipMergeType class >> uniqueInstance [ self = IceTipMergeType ifTrue: [ self error: 'I''m an abstract type. Use one of my children' ]. ^ uniqueInstance ifNil: [ uniqueInstance := self basicNew initialize ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipMergeType >> mergeOn: aModel then: aBlock [ self subclassResponsibility ] -{ #category : #executing } +{ #category : 'executing' } IceTipMergeType >> newMergeAction: aModel [ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceTipModel.class.st b/Iceberg-TipUI/IceTipModel.class.st index dd81696941..0639cde03a 100644 --- a/Iceberg-TipUI/IceTipModel.class.st +++ b/Iceberg-TipUI/IceTipModel.class.st @@ -4,35 +4,37 @@ Each tip component refers to one (and just one) model, which will provide model Models can be cached using #beCached. " Class { - #name : #IceTipModel, - #superclass : #Object, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipModel', + #superclass : 'Object', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #converting } +{ #category : 'converting' } IceTipModel >> beCached [ ^ IceTipCachedModel for: self ] -{ #category : #private } +{ #category : 'private' } IceTipModel >> colorForError [ ^ Smalltalk ui theme dangerTextColor ] -{ #category : #testing } +{ #category : 'testing' } IceTipModel >> matches: aString [ "Override this if you want to make this model discoverable" ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipModel >> repositoryModel [ "this model does not provides a repository model" ^ nil ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipModel >> reset [ "to provide polymorphism with cached version" ] diff --git a/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st b/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st index 8d00759a46..e5d2698279 100644 --- a/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st +++ b/Iceberg-TipUI/IceTipNewRepositoryPanel.class.st @@ -5,24 +5,26 @@ Usually, I'm part of an IceTipRegisterProjectPresenter. I will define location, name and source subdirectory and I will use that to create a #newRepository. " Class { - #name : #IceTipNewRepositoryPanel, - #superclass : #IceTipRepositoryTypePanel, + #name : 'IceTipNewRepositoryPanel', + #superclass : 'IceTipRepositoryTypePanel', #instVars : [ 'projectNameLabel', 'projectNameInputText', 'subdirectoryLabel', 'subdirectoryInputText' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipNewRepositoryPanel class >> order [ ^ 10 ] -{ #category : #layout } +{ #category : 'layout' } IceTipNewRepositoryPanel >> defaultLayout [ ^ SpGridLayout new @@ -35,13 +37,13 @@ IceTipNewRepositoryPanel >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipNewRepositoryPanel >> iconForWindow [ ^ self iconNamed: #smallNew ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipNewRepositoryPanel >> initializePresenters [ super initializePresenters. @@ -58,7 +60,7 @@ IceTipNewRepositoryPanel >> initializePresenters [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipNewRepositoryPanel >> initializeSourceDirectory [ subdirectoryLabel := self newLabel @@ -72,13 +74,13 @@ IceTipNewRepositoryPanel >> initializeSourceDirectory [ ] -{ #category : #testing } +{ #category : 'testing' } IceTipNewRepositoryPanel >> isNewRepository [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipNewRepositoryPanel >> newRepository [ | repositoryName location subdirectory | @@ -96,37 +98,37 @@ IceTipNewRepositoryPanel >> newRepository [ createNewRepositoryNamed: repositoryName ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipNewRepositoryPanel >> projectNameInputText [ ^ projectNameInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipNewRepositoryPanel >> projectNameLabel [ ^ projectNameLabel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipNewRepositoryPanel >> subdirectoryInputText [ ^ subdirectoryInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipNewRepositoryPanel >> subdirectoryLabel [ ^ subdirectoryLabel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipNewRepositoryPanel >> titleForWindow [ ^ 'New repository' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipNewRepositoryPanel >> validate [ self diff --git a/Iceberg-TipUI/IceTipOpenNativelyCommand.class.st b/Iceberg-TipUI/IceTipOpenNativelyCommand.class.st index 046c3d4e94..51f0260a57 100644 --- a/Iceberg-TipUI/IceTipOpenNativelyCommand.class.st +++ b/Iceberg-TipUI/IceTipOpenNativelyCommand.class.st @@ -2,24 +2,26 @@ I am a command that, once executed, will open the native file browser on the directory containing the local repository of the git project. " Class { - #name : #IceTipOpenNativelyCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipOpenNativelyCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipOpenNativelyCommand class >> defaultDescription [ ^ 'Open the native file browser on the local repository of this project.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipOpenNativelyCommand class >> defaultName [ ^ 'Open in native file browser' ] -{ #category : #testing } +{ #category : 'testing' } IceTipOpenNativelyCommand >> canBeExecuted [ | location | @@ -28,13 +30,13 @@ IceTipOpenNativelyCommand >> canBeExecuted [ ^ location isNotNil and: [ location exists ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipOpenNativelyCommand >> execute [ self item location openInOSFileBrowser ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipOpenNativelyCommand >> iconName [ ^ #smallWindow diff --git a/Iceberg-TipUI/IceTipOptionDialogPresenter.class.st b/Iceberg-TipUI/IceTipOptionDialogPresenter.class.st index 2f6133367c..c63a4618b6 100644 --- a/Iceberg-TipUI/IceTipOptionDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipOptionDialogPresenter.class.st @@ -7,17 +7,19 @@ I'm kind of a ""tabbed"" dialog, but my options are ""mac style"": lateral and n This is useful to keep a variable number of options. " Class { - #name : #IceTipOptionDialogPresenter, - #superclass : #IceTipPresenter, + #name : 'IceTipOptionDialogPresenter', + #superclass : 'IceTipPresenter', #instVars : [ 'typeList', 'type', 'contentLayout' ], - #category : #'Iceberg-TipUI-View' + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #actions } +{ #category : 'actions' } IceTipOptionDialogPresenter >> accept [ [ @@ -28,19 +30,19 @@ IceTipOptionDialogPresenter >> accept [ e acceptError: (IceTipInteractiveErrorVisitor newContext: self) ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipOptionDialogPresenter >> allTypes [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipOptionDialogPresenter >> contextSelection [ ^ type ] -{ #category : #layout } +{ #category : 'layout' } IceTipOptionDialogPresenter >> defaultLayout [ ^ SpPanedLayout newLeftToRight @@ -50,19 +52,19 @@ IceTipOptionDialogPresenter >> defaultLayout [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipOptionDialogPresenter >> doAccept [ self subclassResponsibility ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipOptionDialogPresenter >> initialExtentForWindow [ ^ (700 @ 300) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipOptionDialogPresenter >> initializeDialogWindow: aWindowPresenter [ aWindowPresenter @@ -72,14 +74,14 @@ IceTipOptionDialogPresenter >> initializeDialogWindow: aWindowPresenter [ aWindowPresenter whenOpenedDo: [ self typeList selectIndex: 1 ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipOptionDialogPresenter >> initializePresenters [ contentLayout := SpBoxLayout newTopToBottom. self initializeTypeList ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipOptionDialogPresenter >> initializeTypeList [ (typeList := self newList) @@ -90,7 +92,7 @@ IceTipOptionDialogPresenter >> initializeTypeList [ self selectionChanged: selection selectedItem ] ] -{ #category : #private } +{ #category : 'private' } IceTipOptionDialogPresenter >> replacePanelWith: aType [ contentLayout @@ -98,13 +100,13 @@ IceTipOptionDialogPresenter >> replacePanelWith: aType [ add: aType ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipOptionDialogPresenter >> selectedType [ ^ type ] -{ #category : #private } +{ #category : 'private' } IceTipOptionDialogPresenter >> selectionChanged: aType [ type := aType. @@ -113,13 +115,13 @@ IceTipOptionDialogPresenter >> selectionChanged: aType [ self replacePanelWith: type ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipOptionDialogPresenter >> typeList [ ^ typeList ] -{ #category : #private } +{ #category : 'private' } IceTipOptionDialogPresenter >> updateWindowTitle [ self window title: type titleForWindow diff --git a/Iceberg-TipUI/IceTipPackageCommand.class.st b/Iceberg-TipUI/IceTipPackageCommand.class.st index 2f48f71553..72c5cc9e02 100644 --- a/Iceberg-TipUI/IceTipPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipPackageCommand.class.st @@ -2,45 +2,47 @@ Abstract class representing commands to be applied on top of packages. " Class { - #name : #IceTipPackageCommand, - #superclass : #IceTipCommand, + #name : 'IceTipPackageCommand', + #superclass : 'IceTipCommand', #instVars : [ 'packageModel' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceTipPackageCommand class >> isAbstract [ ^ self == IceTipPackageCommand ] -{ #category : #testing } +{ #category : 'testing' } IceTipPackageCommand >> hasPackageModel [ ^ self packageModel notNil ] -{ #category : #testing } +{ #category : 'testing' } IceTipPackageCommand >> isPackageLoaded [ ^ self hasPackageModel and: [ self packageModel isLoaded ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageCommand >> package [ ^ self packageModel entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageCommand >> packageModel [ ^ packageModel ifNil: [self context packageModel] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageCommand >> packageModel: anIceTipPackageModel [ packageModel := anIceTipPackageModel diff --git a/Iceberg-TipUI/IceTipPackageModel.class.st b/Iceberg-TipUI/IceTipPackageModel.class.st index e37bfc6d98..080c19e5b6 100644 --- a/Iceberg-TipUI/IceTipPackageModel.class.st +++ b/Iceberg-TipUI/IceTipPackageModel.class.st @@ -2,19 +2,21 @@ I'm a model for IcePackage entries. " Class { - #name : #IceTipPackageModel, - #superclass : #IceTipEntityModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipPackageModel', + #superclass : 'IceTipEntityModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> browsePackage [ self entity browse ] -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> browseRepositoryVersion [ | snapshot | @@ -24,7 +26,7 @@ IceTipPackageModel >> browseRepositoryVersion [ showLabelled: 'Snapshot for ', self entity name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> description [ | text | @@ -34,7 +36,7 @@ IceTipPackageModel >> description [ ^ text ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> descriptionDecorator [ self entity isModified @@ -45,22 +47,22 @@ IceTipPackageModel >> descriptionDecorator [ ^ super descriptionDecorator ] -{ #category : #testing } +{ #category : 'testing' } IceTipPackageModel >> isLoaded [ ^ self entity isLoaded ] -{ #category : #testing } +{ #category : 'testing' } IceTipPackageModel >> isModified [ ^ self entity isModified ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> name [ ^ self entity name ] -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> newLoadAction [ @@ -75,12 +77,12 @@ IceTipPackageModel >> newLoadAction [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> packageName [ ^ self entity packageName ] -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> reload [ @@ -94,7 +96,7 @@ IceTipPackageModel >> reload [ while: [ self entity reload ] ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> remove [ @@ -108,7 +110,7 @@ IceTipPackageModel >> remove [ while: [ self entity remove ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> status [ "entity could be a repository or a package" [ @@ -120,7 +122,7 @@ IceTipPackageModel >> status [ ^ e description ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPackageModel >> statusDecorator [ self entity isLoaded @@ -128,7 +130,7 @@ IceTipPackageModel >> statusDecorator [ ^ super statusDecorator ] -{ #category : #actions } +{ #category : 'actions' } IceTipPackageModel >> unload [ diff --git a/Iceberg-TipUI/IceTipPresenter.class.st b/Iceberg-TipUI/IceTipPresenter.class.st index bd03d7bd41..e6fa418d83 100644 --- a/Iceberg-TipUI/IceTipPresenter.class.st +++ b/Iceberg-TipUI/IceTipPresenter.class.st @@ -2,54 +2,56 @@ I'm a SpPresenter that is prepared to be wrapped in a window (or a dialog). The way it is prepared is through a system of hooks (template method pattern), but also providing some convenience API. " Class { - #name : #IceTipPresenter, - #superclass : #SpPresenter, + #name : 'IceTipPresenter', + #superclass : 'SpPresenter', #instVars : [ 'decorations' ], - #category : #'Iceberg-TipUI-View' + #category : 'Iceberg-TipUI-View', + #package : 'Iceberg-TipUI', + #tag : 'View' } -{ #category : #decorating } +{ #category : 'decorating' } IceTipPresenter class >> buildDecorations [ ^ (Pragma allNamed: #extensionDecorators in: self class) flatCollect: [ :pragma | self perform: pragma methodSelector ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPresenter class >> currentApplication [ ^ StPresenter currentApplication ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipPresenter class >> new [ ^ self newApplication: self currentApplication ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPresenter >> closeWindow [ "Close the window of this presenter" self window close ] -{ #category : #private } +{ #category : 'private' } IceTipPresenter >> decorations [ ^ decorations ifNil: [ decorations := self class buildDecorations ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> iconForWindow [ "Answer a Form to be used during initialization when opening in a SpWindowPresenter." ^ self iconNamed: #smallWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> initialExtentForWindow [ "Answer either nil or a Point representing the initial extent of this presenter. It is used during initialization if this presenter is opened inside a SpWindowPresenter. @@ -58,7 +60,7 @@ IceTipPresenter >> initialExtentForWindow [ ^ nil ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> initializeWindow: aSpWindowPresenter [ super initializeWindow: aSpWindowPresenter. @@ -70,25 +72,25 @@ IceTipPresenter >> initializeWindow: aSpWindowPresenter [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> setInitialExtentTo: aSpWindowPresenter [ aSpWindowPresenter initialExtent: self initialExtentForWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> setTitleTo: aSpWindowPresenter [ aSpWindowPresenter title: self titleForWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> setWindowIconTo: aSpWindowPresenter [ aSpWindowPresenter windowIcon: self iconForWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPresenter >> titleForWindow [ "Answer the title to use during initialization when this presenter is being opened in a SpWindowPresenter." @@ -97,7 +99,7 @@ IceTipPresenter >> titleForWindow [ ] -{ #category : #extensions } +{ #category : 'extensions' } IceTipPresenter >> updateTitle [ self withWindowDo: [ :aWindow | aWindow title: self titleForWindow ] diff --git a/Iceberg-TipUI/IceTipPreviewBrowser.class.st b/Iceberg-TipUI/IceTipPreviewBrowser.class.st index 7623877b11..50cb8b30d1 100644 --- a/Iceberg-TipUI/IceTipPreviewBrowser.class.st +++ b/Iceberg-TipUI/IceTipPreviewBrowser.class.st @@ -3,35 +3,37 @@ I'm a browser to show a preview of an operation that can be made right after. Tipically, I'm using through my chldren, to do a checkout or merge. " Class { - #name : #IceTipPreviewBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipPreviewBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'diffPanel', 'actionPanel', 'button' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #commands } +{ #category : 'commands' } IceTipPreviewBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #commands } +{ #category : 'commands' } IceTipPreviewBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipPreviewBrowser >> actionPanel [ ^ actionPanel ] -{ #category : #layout } +{ #category : 'layout' } IceTipPreviewBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -42,19 +44,19 @@ IceTipPreviewBrowser >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipPreviewBrowser >> diffPanel [ ^ diffPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPreviewBrowser >> initialExtentForWindow [ ^ (800 @ 400) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPreviewBrowser >> initializePresenters [ diffPanel := self instantiate: IceTipDiffPanel on: self model diff. @@ -62,14 +64,14 @@ IceTipPreviewBrowser >> initializePresenters [ actionPanel add: (button := self newActionButton) ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipPreviewBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ diffPanel iceNodesTree ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipPreviewBrowser >> newActionButton [ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceTipPullBrowser.class.st b/Iceberg-TipUI/IceTipPullBrowser.class.st index 8337cf3717..2f61669678 100644 --- a/Iceberg-TipUI/IceTipPullBrowser.class.st +++ b/Iceberg-TipUI/IceTipPullBrowser.class.st @@ -3,18 +3,20 @@ I perform a pull of incoming commits. " Class { - #name : #IceTipPullBrowser, - #superclass : #IceTipRemoteActionBrowser, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipPullBrowser', + #superclass : 'IceTipRemoteActionBrowser', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipPullBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ aCommandGroup register: IceTipFetchInPullCommand forSpec ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipPullBrowser class >> onRepositoryModel: aModel [ ^ self on: (IceTipPullModel @@ -24,20 +26,20 @@ IceTipPullBrowser class >> onRepositoryModel: aModel [ ] -{ #category : #actions } +{ #category : 'actions' } IceTipPullBrowser >> doPull [ self model newPullAction executeWithContext: self. self closeWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPullBrowser >> labelForRemotePanel [ ^ 'Pull from remote' ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipPullBrowser >> newActionButton [ ^ self newButton @@ -49,7 +51,7 @@ IceTipPullBrowser >> newActionButton [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPullBrowser >> titleForWindow [ ^ 'Pull {1}/{2} from {3}' format: { diff --git a/Iceberg-TipUI/IceTipPullCommand.class.st b/Iceberg-TipUI/IceTipPullCommand.class.st index 52249626c8..f51c0503b4 100644 --- a/Iceberg-TipUI/IceTipPullCommand.class.st +++ b/Iceberg-TipUI/IceTipPullCommand.class.st @@ -3,24 +3,26 @@ I'm a command to perform a pull of incomming commits. I open a pull view window. " Class { - #name : #IceTipPullCommand, - #superclass : #IceTipRemoteActionCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipPullCommand', + #superclass : 'IceTipRemoteActionCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipPullCommand class >> defaultDescription [ ^ 'Pulls into image all commits from your version to the origin remote HEAD' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipPullCommand class >> defaultName [ ^ 'Pull' ] -{ #category : #executing } +{ #category : 'executing' } IceTipPullCommand >> badge [ | result | @@ -33,7 +35,7 @@ IceTipPullCommand >> badge [ ^ result ] -{ #category : #executing } +{ #category : 'executing' } IceTipPullCommand >> execute [ self withErrorHandlingDo: [ @@ -42,7 +44,7 @@ IceTipPullCommand >> execute [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPullCommand >> iconName [ ^ #down diff --git a/Iceberg-TipUI/IceTipPullModel.class.st b/Iceberg-TipUI/IceTipPullModel.class.st index 1dc3fc02fc..a539dc84d4 100644 --- a/Iceberg-TipUI/IceTipPullModel.class.st +++ b/Iceberg-TipUI/IceTipPullModel.class.st @@ -2,12 +2,14 @@ I'm a model to present pull commits and operations. " Class { - #name : #IceTipPullModel, - #superclass : #IceTipRemoteActionModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipPullModel', + #superclass : 'IceTipRemoteActionModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipPullModel >> commitModels [ ^ (self entity branch incomingCommitsFrom: self remote) collect: [ :each | @@ -17,7 +19,7 @@ IceTipPullModel >> commitModels [ beCached ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipPullModel >> newPullAction [ ^ IceTipStandardAction new diff --git a/Iceberg-TipUI/IceTipPushAction.class.st b/Iceberg-TipUI/IceTipPushAction.class.st index 25ab9149af..63e2530b17 100644 --- a/Iceberg-TipUI/IceTipPushAction.class.st +++ b/Iceberg-TipUI/IceTipPushAction.class.st @@ -2,12 +2,14 @@ I perform a push. " Class { - #name : #IceTipPushAction, - #superclass : #IceTipAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipPushAction', + #superclass : 'IceTipAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #executing } +{ #category : 'executing' } IceTipPushAction >> basicExecute [ UIManager default diff --git a/Iceberg-TipUI/IceTipPushBrowser.class.st b/Iceberg-TipUI/IceTipPushBrowser.class.st index 9947a1bdbc..a9fd2695c0 100644 --- a/Iceberg-TipUI/IceTipPushBrowser.class.st +++ b/Iceberg-TipUI/IceTipPushBrowser.class.st @@ -3,18 +3,20 @@ I perform a push of outgoing commits. " Class { - #name : #IceTipPushBrowser, - #superclass : #IceTipRemoteActionBrowser, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipPushBrowser', + #superclass : 'IceTipRemoteActionBrowser', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipPushBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ "No commands to add." ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipPushBrowser class >> onRepositoryModel: aModel [ ^ self on: (IceTipPushModel @@ -24,21 +26,21 @@ IceTipPushBrowser class >> onRepositoryModel: aModel [ ] -{ #category : #actions } +{ #category : 'actions' } IceTipPushBrowser >> doPush [ self model newPushAction executeWithContext: self. self closeWindow ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPushBrowser >> labelForRemotePanel [ ^ 'Push to remote' ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipPushBrowser >> newActionButton [ ^ self newButton @@ -50,7 +52,7 @@ IceTipPushBrowser >> newActionButton [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipPushBrowser >> titleForWindow [ ^ 'Push {1}/{2} to {3}' format: { diff --git a/Iceberg-TipUI/IceTipPushCommand.class.st b/Iceberg-TipUI/IceTipPushCommand.class.st index 282cc6f6e2..4c8aebefd0 100644 --- a/Iceberg-TipUI/IceTipPushCommand.class.st +++ b/Iceberg-TipUI/IceTipPushCommand.class.st @@ -3,24 +3,26 @@ I'm a command to perform a push of outgoing commits. I open a push view window. " Class { - #name : #IceTipPushCommand, - #superclass : #IceTipRemoteActionCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipPushCommand', + #superclass : 'IceTipRemoteActionCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipPushCommand class >> defaultDescription [ ^ 'Pushes pending commits to the origin repository (in current branch)' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipPushCommand class >> defaultName [ ^ 'Push' ] -{ #category : #executing } +{ #category : 'executing' } IceTipPushCommand >> badge [ | result | @@ -34,7 +36,7 @@ IceTipPushCommand >> badge [ ] -{ #category : #executing } +{ #category : 'executing' } IceTipPushCommand >> execute [ self withErrorHandlingDo: [ @@ -42,7 +44,7 @@ IceTipPushCommand >> execute [ (IceTipPushBrowser onRepositoryModel: self repositoryModel) open ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipPushCommand >> iconName [ ^ #up diff --git a/Iceberg-TipUI/IceTipPushModel.class.st b/Iceberg-TipUI/IceTipPushModel.class.st index 888cfbeccf..c41a476ead 100644 --- a/Iceberg-TipUI/IceTipPushModel.class.st +++ b/Iceberg-TipUI/IceTipPushModel.class.st @@ -2,12 +2,14 @@ I'm a model to present push commits and operations. " Class { - #name : #IceTipPushModel, - #superclass : #IceTipRemoteActionModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipPushModel', + #superclass : 'IceTipRemoteActionModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipPushModel >> commitModels [ ^ (self entity outgoingCommitsTo: self remote) collect: [ :each | @@ -17,7 +19,7 @@ IceTipPushModel >> commitModels [ beCached ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipPushModel >> newPushAction [ ^ IceTipStandardAction new diff --git a/Iceberg-TipUI/IceTipReadOnlyFormBuilder.class.st b/Iceberg-TipUI/IceTipReadOnlyFormBuilder.class.st index c0ff3c884f..a5791aa76d 100644 --- a/Iceberg-TipUI/IceTipReadOnlyFormBuilder.class.st +++ b/Iceberg-TipUI/IceTipReadOnlyFormBuilder.class.st @@ -15,8 +15,8 @@ IceTipReadOnlyForm new " Class { - #name : #IceTipReadOnlyFormBuilder, - #superclass : #Object, + #name : 'IceTipReadOnlyFormBuilder', + #superclass : 'Object', #instVars : [ 'labelColor', 'labelWidth', @@ -25,10 +25,12 @@ Class { 'spApplication', 'presenter' ], - #category : #'Iceberg-TipUI-Spec2' + #category : 'Iceberg-TipUI-Spec2', + #package : 'Iceberg-TipUI', + #tag : 'Spec2' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipReadOnlyFormBuilder class >> newBuiltFor: aDictionary application: aSpApplication [ "If you want to keep order, just send an OrderedDictionary" @@ -39,13 +41,13 @@ IceTipReadOnlyFormBuilder class >> newBuiltFor: aDictionary application: aSpAppl build ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> application: aSpApplication [ spApplication := aSpApplication ] -{ #category : #building } +{ #category : 'building' } IceTipReadOnlyFormBuilder >> build [ presenter := spApplication newPresenter: SpPresenter. @@ -53,7 +55,7 @@ IceTipReadOnlyFormBuilder >> build [ ^ presenter ] -{ #category : #building } +{ #category : 'building' } IceTipReadOnlyFormBuilder >> buildLayout [ | lastLabel fieldPresenter | lastLabel := items associations last key. @@ -84,26 +86,26 @@ IceTipReadOnlyFormBuilder >> buildLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> defaultLabelWidth [ ^ 100 * self currentWorld displayScaleFactor ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> defaultRowHeight [ ^ 30 * self currentWorld displayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipReadOnlyFormBuilder >> initialize [ items := OrderedDictionary new. super initialize ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> items: aDictionary [ items removeAll. @@ -111,37 +113,37 @@ IceTipReadOnlyFormBuilder >> items: aDictionary [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> labelColor [ ^ labelColor ifNil: [ labelColor := Smalltalk ui theme textColor ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> labelColor: aColor [ ^ labelColor := aColor ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> labelWidth [ ^ labelWidth ifNil: [ self defaultLabelWidth ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> labelWidth: aNumber [ ^ labelWidth := aNumber ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> rowHeight [ ^ rowHeight ifNil: [ rowHeight := self defaultRowHeight ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReadOnlyFormBuilder >> rowHeight: aNumber [ rowHeight := aNumber diff --git a/Iceberg-TipUI/IceTipRefreshCommitCommand.class.st b/Iceberg-TipUI/IceTipRefreshCommitCommand.class.st index 5ac1bb6832..d96de2a584 100644 --- a/Iceberg-TipUI/IceTipRefreshCommitCommand.class.st +++ b/Iceberg-TipUI/IceTipRefreshCommitCommand.class.st @@ -2,24 +2,26 @@ Command that launches a refresh of the commit tree during commit " Class { - #name : #IceTipRefreshCommitCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRefreshCommitCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRefreshCommitCommand class >> defaultDescription [ ^ 'Refresh this change tree' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRefreshCommitCommand class >> defaultName [ ^ 'Refresh' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRefreshCommitCommand >> execute [ self repositoryModel reset. @@ -28,13 +30,13 @@ IceTipRefreshCommitCommand >> execute [ self toolAnnouncer announce: (IceTipDiffRefreshed for: self repository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRefreshCommitCommand >> iconName [ ^ #glamorousRefresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRefreshCommitCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipRegisterRepositoryDialogPresenter.class.st b/Iceberg-TipUI/IceTipRegisterRepositoryDialogPresenter.class.st index b93531803d..2388a31c59 100644 --- a/Iceberg-TipUI/IceTipRegisterRepositoryDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipRegisterRepositoryDialogPresenter.class.st @@ -7,23 +7,25 @@ self new openDialogWithSpec " Class { - #name : #IceTipRegisterRepositoryDialogPresenter, - #superclass : #IceTipOptionDialogPresenter, + #name : 'IceTipRegisterRepositoryDialogPresenter', + #superclass : 'IceTipOptionDialogPresenter', #instVars : [ 'types', 'repository', 'acceptBlock' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRegisterRepositoryDialogPresenter >> allTypes [ ^ types ifNil: [ types := IceTipRepositoryTypePanel allTypes ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRegisterRepositoryDialogPresenter >> beForCloneOfRepository: aRepository [ self withoutNewRepository. @@ -31,7 +33,7 @@ IceTipRegisterRepositoryDialogPresenter >> beForCloneOfRepository: aRepository [ repository := aRepository ] -{ #category : #actions } +{ #category : 'actions' } IceTipRegisterRepositoryDialogPresenter >> doAccept [ | newRepository | @@ -42,7 +44,7 @@ IceTipRegisterRepositoryDialogPresenter >> doAccept [ acceptBlock ifNotNil: [ acceptBlock cull: self ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipRegisterRepositoryDialogPresenter >> doEdit: aRepository [ repository @@ -50,32 +52,32 @@ IceTipRegisterRepositoryDialogPresenter >> doEdit: aRepository [ subdirectory: aRepository subdirectory ] -{ #category : #testing } +{ #category : 'testing' } IceTipRegisterRepositoryDialogPresenter >> isEditing [ ^ repository isNotNil ] -{ #category : #events } +{ #category : 'events' } IceTipRegisterRepositoryDialogPresenter >> onAccept: aBlock [ acceptBlock := aBlock ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRegisterRepositoryDialogPresenter >> titleForWindow [ ^ 'Register project' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRegisterRepositoryDialogPresenter >> withoutLocalRepository [ types := self allTypes reject: #isLocalRepository. typeList items: types ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRegisterRepositoryDialogPresenter >> withoutNewRepository [ types := self allTypes reject: #isNewRepository. diff --git a/Iceberg-TipUI/IceTipReloadPackageCommand.class.st b/Iceberg-TipUI/IceTipReloadPackageCommand.class.st index 197067b52f..e09b6bdb88 100644 --- a/Iceberg-TipUI/IceTipReloadPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipReloadPackageCommand.class.st @@ -2,30 +2,32 @@ Command that reloads the code of an already loaded package, discarding all changes done in the meantime that were not committed. " Class { - #name : #IceTipReloadPackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipReloadPackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipReloadPackageCommand class >> defaultDescription [ ^ 'Reload selected package, discarding all changes.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipReloadPackageCommand class >> defaultName [ ^ 'Reload' ] -{ #category : #testing } +{ #category : 'testing' } IceTipReloadPackageCommand >> canBeExecuted [ ^ self isPackageLoaded ] -{ #category : #executing } +{ #category : 'executing' } IceTipReloadPackageCommand >> execute [ self packageModel reload. @@ -33,7 +35,7 @@ IceTipReloadPackageCommand >> execute [ (IceRepositoryModified for: self repository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipReloadPackageCommand >> iconName [ ^ #refresh diff --git a/Iceberg-TipUI/IceTipRemoteActionBrowser.class.st b/Iceberg-TipUI/IceTipRemoteActionBrowser.class.st index 34937c7b68..ae2706a1ef 100644 --- a/Iceberg-TipUI/IceTipRemoteActionBrowser.class.st +++ b/Iceberg-TipUI/IceTipRemoteActionBrowser.class.st @@ -1,25 +1,27 @@ Class { - #name : #IceTipRemoteActionBrowser, - #superclass : #IceTipHistoryActionBrowser, + #name : 'IceTipRemoteActionBrowser', + #superclass : 'IceTipHistoryActionBrowser', #instVars : [ 'remotePanel', 'remoteLabel' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipRemoteActionBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ "No commands to add" ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRemoteActionBrowser class >> onRepositoryModel: aRepository [ ^ self subclassResponsibility ] -{ #category : #layout } +{ #category : 'layout' } IceTipRemoteActionBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -36,7 +38,7 @@ IceTipRemoteActionBrowser >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoteActionBrowser >> initializePresenters [ super initializePresenters. @@ -51,7 +53,7 @@ IceTipRemoteActionBrowser >> initializePresenters [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoteActionBrowser >> initializeWindow: aWindow [ super initializeWindow: aWindow. @@ -59,25 +61,25 @@ IceTipRemoteActionBrowser >> initializeWindow: aWindow [ aWindow bindKeyCombination: $s meta toAction: [ self accept ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoteActionBrowser >> labelForRemotePanel [ ^ self subclassResponsibility ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoteActionBrowser >> mainList [ ^ commitsPanel commitList ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoteActionBrowser >> remotePanel [ ^ remotePanel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoteActionBrowser >> remotePanel: aSpPresenter [ remotePanel := aSpPresenter diff --git a/Iceberg-TipUI/IceTipRemoteActionCommand.class.st b/Iceberg-TipUI/IceTipRemoteActionCommand.class.st index 88a28a1881..db2bb3ddd6 100644 --- a/Iceberg-TipUI/IceTipRemoteActionCommand.class.st +++ b/Iceberg-TipUI/IceTipRemoteActionCommand.class.st @@ -2,24 +2,26 @@ I'm a the abstract superclass of commands that act on remotes. " Class { - #name : #IceTipRemoteActionCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRemoteActionCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceTipRemoteActionCommand class >> isAbstract [ ^ self == IceTipRemoteActionCommand ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemoteActionCommand >> canBeExecuted [ ^ self isRepositoryOperational and: [ self repositoryModel hasRemotes ] ] -{ #category : #validating } +{ #category : 'validating' } IceTipRemoteActionCommand >> validateRemotesPresent [ self repositoryModel hasRemotes diff --git a/Iceberg-TipUI/IceTipRemoteActionModel.class.st b/Iceberg-TipUI/IceTipRemoteActionModel.class.st index 20b9262471..bac204af2f 100644 --- a/Iceberg-TipUI/IceTipRemoteActionModel.class.st +++ b/Iceberg-TipUI/IceTipRemoteActionModel.class.st @@ -1,24 +1,26 @@ Class { - #name : #IceTipRemoteActionModel, - #superclass : #IceTipCommitishModel, + #name : 'IceTipRemoteActionModel', + #superclass : 'IceTipCommitishModel', #instVars : [ 'remote' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> branchName [ ^ entity branchName ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemoteActionModel >> isRepositoryDetached [ ^ self entity workingCopy isDetached or: [ self entity head isDetached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> remote [ ^ remote ifNil: [ | head | head := self repositoryModel entity head. @@ -27,27 +29,27 @@ IceTipRemoteActionModel >> remote [ ifFalse: [ self remoteModels first entity ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> remoteModel [ ^ repositoryModel remoteModels detect: [ :e | e entity = self remote ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> remoteModels [ ^ self repositoryModel remoteModels ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> remoteName [ ^ self remote name, '/', self entity branch name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> repositoryName [ ^ self repositoryModel name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteActionModel >> useRemote: aRemoteModel [ remote := aRemoteModel entity. ] diff --git a/Iceberg-TipUI/IceTipRemoteModel.class.st b/Iceberg-TipUI/IceTipRemoteModel.class.st index 88688143f4..520a10d1cd 100644 --- a/Iceberg-TipUI/IceTipRemoteModel.class.st +++ b/Iceberg-TipUI/IceTipRemoteModel.class.st @@ -2,14 +2,16 @@ I'm a model for IceRemote entries. " Class { - #name : #IceTipRemoteModel, - #superclass : #IceTipEntityModel, + #name : 'IceTipRemoteModel', + #superclass : 'IceTipEntityModel', #traits : 'TWithBranchModel', #classTraits : 'TWithBranchModel classTrait', - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #comparing } +{ #category : 'comparing' } IceTipRemoteModel >> = anotherModel [ self species = anotherModel species ifFalse: [ ^ false ]. @@ -17,23 +19,23 @@ IceTipRemoteModel >> = anotherModel [ ^ entity = anotherModel entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteModel >> branches [ ^ self entity branches ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteModel >> description [ ^ '{1} <{2}>' format: { self name. self entity url } ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoteModel >> name [ ^ self entity name ] -{ #category : #actions } +{ #category : 'actions' } IceTipRemoteModel >> newDeleteAction [ @@ -45,7 +47,7 @@ IceTipRemoteModel >> newDeleteAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRemoteModel >> newFetchAction [ diff --git a/Iceberg-TipUI/IceTipRemotesTreeCommand.class.st b/Iceberg-TipUI/IceTipRemotesTreeCommand.class.st index 8007441af0..67ab450880 100644 --- a/Iceberg-TipUI/IceTipRemotesTreeCommand.class.st +++ b/Iceberg-TipUI/IceTipRemotesTreeCommand.class.st @@ -2,36 +2,38 @@ I'm a the abstract superclass of commands that act on repositories. " Class { - #name : #IceTipRemotesTreeCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRemotesTreeCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceTipRemotesTreeCommand class >> isAbstract [ ^ self == IceTipRemotesTreeCommand ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemotesTreeCommand >> actsOnBranch: aBranchModel [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemotesTreeCommand >> actsOnRemote: aRemoteModel [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemotesTreeCommand >> actsOnTag: aTagModel [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemotesTreeCommand >> canBeExecuted [ ^ self hasSelectedItem and: [ self item canActivateCommand: self ] diff --git a/Iceberg-TipUI/IceTipRemoveCredentialCommand.class.st b/Iceberg-TipUI/IceTipRemoveCredentialCommand.class.st index e2b78de9dc..fbf5514850 100644 --- a/Iceberg-TipUI/IceTipRemoveCredentialCommand.class.st +++ b/Iceberg-TipUI/IceTipRemoveCredentialCommand.class.st @@ -2,43 +2,45 @@ I remove a credential from the credential store. " Class { - #name : #IceTipRemoveCredentialCommand, - #superclass : #IceTipAbstractCredentialCommand, - #category : #'Iceberg-TipUI-Credentials' + #name : 'IceTipRemoveCredentialCommand', + #superclass : 'IceTipAbstractCredentialCommand', + #category : 'Iceberg-TipUI-Credentials', + #package : 'Iceberg-TipUI', + #tag : 'Credentials' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRemoveCredentialCommand class >> defaultDescription [ ^ 'Removes the credential from the store' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRemoveCredentialCommand class >> defaultName [ ^ 'Remove' ] -{ #category : #testing } +{ #category : 'testing' } IceTipRemoveCredentialCommand >> canBeExecuted [ ^ self item isDefault not ] -{ #category : #executing } +{ #category : 'executing' } IceTipRemoveCredentialCommand >> execute [ self store removeCredential: self item. self tool refresh. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveCredentialCommand >> iconName [ ^ #remove ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveCredentialCommand >> shortcutKey [ ^ $x meta diff --git a/Iceberg-TipUI/IceTipRemoveFromRepositoryPackageCommand.class.st b/Iceberg-TipUI/IceTipRemoveFromRepositoryPackageCommand.class.st index be305dcb9b..371f2f2475 100644 --- a/Iceberg-TipUI/IceTipRemoveFromRepositoryPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipRemoveFromRepositoryPackageCommand.class.st @@ -2,30 +2,32 @@ Command that removes a package from the repository, without removing it from the system. " Class { - #name : #IceTipRemoveFromRepositoryPackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRemoveFromRepositoryPackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRemoveFromRepositoryPackageCommand class >> defaultDescription [ ^ 'Removes the current repository from the repository, without removing it from the system' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRemoveFromRepositoryPackageCommand class >> defaultName [ ^ 'Remove from repository' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRemoveFromRepositoryPackageCommand >> execute [ self packageModel remove ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveFromRepositoryPackageCommand >> iconName [ ^ #glamorousTrash diff --git a/Iceberg-TipUI/IceTipRemovePackageDialogPresenter.class.st b/Iceberg-TipUI/IceTipRemovePackageDialogPresenter.class.st index c1872aeb06..23317b3c2b 100644 --- a/Iceberg-TipUI/IceTipRemovePackageDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipRemovePackageDialogPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : #IceTipRemovePackageDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipRemovePackageDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'model', 'iconPanel', @@ -8,10 +8,12 @@ Class { 'removeFromRepositoryCheckbox', 'unloadFromImageCheckbox' ], - #category : #'Iceberg-TipUI-View-WorkingCopy' + #category : 'Iceberg-TipUI-View-WorkingCopy', + #package : 'Iceberg-TipUI', + #tag : 'View-WorkingCopy' } -{ #category : #actions } +{ #category : 'actions' } IceTipRemovePackageDialogPresenter >> accept [ self removeFromRepositoryCheckbox state @@ -20,19 +22,19 @@ IceTipRemovePackageDialogPresenter >> accept [ ifTrue: [ self model unload ]. ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemovePackageDialogPresenter >> confirmLabel [ ^ confirmLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemovePackageDialogPresenter >> confirmMessage [ ^ 'Are you sure to remove package {1}?' ] -{ #category : #layout } +{ #category : 'layout' } IceTipRemovePackageDialogPresenter >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -48,13 +50,13 @@ IceTipRemovePackageDialogPresenter >> defaultLayout [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemovePackageDialogPresenter >> iconPanel [ ^ iconPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemovePackageDialogPresenter >> initialExtentForWindow [ ^ (500 @@ -62,7 +64,7 @@ IceTipRemovePackageDialogPresenter >> initialExtentForWindow [ scaledByDisplayScaleFactor "Yes, a magic number" ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemovePackageDialogPresenter >> initializePresenters [ iconPanel := self newImage @@ -81,37 +83,37 @@ IceTipRemovePackageDialogPresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemovePackageDialogPresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemovePackageDialogPresenter >> model: anObject [ model := anObject ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemovePackageDialogPresenter >> removeFromRepositoryCheckbox [ ^ removeFromRepositoryCheckbox ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemovePackageDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemovePackageDialogPresenter >> titleForWindow [ ^ 'Remove Package' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemovePackageDialogPresenter >> unloadFromImageCheckbox [ ^ unloadFromImageCheckbox diff --git a/Iceberg-TipUI/IceTipRemoveRepositoryDialogPresenter.class.st b/Iceberg-TipUI/IceTipRemoveRepositoryDialogPresenter.class.st index 448a16e9ed..71fe70061b 100644 --- a/Iceberg-TipUI/IceTipRemoveRepositoryDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipRemoveRepositoryDialogPresenter.class.st @@ -1,16 +1,18 @@ Class { - #name : #IceTipRemoveRepositoryDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipRemoveRepositoryDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'model', 'iconPanel', 'confirmLabel', 'removeFileSystemCheckbox' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #actions } +{ #category : 'actions' } IceTipRemoveRepositoryDialogPresenter >> accept [ (self removeFileSystemCheckbox state @@ -19,18 +21,18 @@ IceTipRemoveRepositoryDialogPresenter >> accept [ executeWithContext: self ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoveRepositoryDialogPresenter >> confirmLabel [ ^ confirmLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveRepositoryDialogPresenter >> confirmMessage [ ^ 'Are you sure to remove your repository {1} from your image?' ] -{ #category : #layout } +{ #category : 'layout' } IceTipRemoveRepositoryDialogPresenter >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -44,13 +46,13 @@ IceTipRemoveRepositoryDialogPresenter >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoveRepositoryDialogPresenter >> iconPanel [ ^ iconPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoveRepositoryDialogPresenter >> initialExtentForWindow [ ^ (500@( @@ -60,7 +62,7 @@ IceTipRemoveRepositoryDialogPresenter >> initialExtentForWindow [ )) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoveRepositoryDialogPresenter >> initializePresenters [ iconPanel := self newImage @@ -74,36 +76,36 @@ IceTipRemoveRepositoryDialogPresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveRepositoryDialogPresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveRepositoryDialogPresenter >> model: anObject [ model := anObject ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRemoveRepositoryDialogPresenter >> removeFileSystemCheckbox [ ^ removeFileSystemCheckbox ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRemoveRepositoryDialogPresenter >> removeMessage [ ^ 'Also remove repository from file system' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoveRepositoryDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRemoveRepositoryDialogPresenter >> titleForWindow [ ^ 'Remove repository' diff --git a/Iceberg-TipUI/IceTipRepairAction.class.st b/Iceberg-TipUI/IceTipRepairAction.class.st index 32ed347aa6..787abea3ae 100644 --- a/Iceberg-TipUI/IceTipRepairAction.class.st +++ b/Iceberg-TipUI/IceTipRepairAction.class.st @@ -3,15 +3,17 @@ I'm a repair option. Repositories can be broken in several ways. My children will describe them and take the actions needed to perform the re-alignment of an image with its repository. " Class { - #name : #IceTipRepairAction, - #superclass : #IceTipAction, + #name : 'IceTipRepairAction', + #superclass : 'IceTipAction', #instVars : [ 'repositoryModel' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction class >> allAvailableFor: aRepository [ ^ ((self allSubclasses select: [ :each | each isAvailableFor: aRepository ]) @@ -19,38 +21,38 @@ IceTipRepairAction class >> allAvailableFor: aRepository [ collect: #new ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction class >> help [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction class >> icon [ ^ self subclassResponsibility ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairAction class >> isAbstract [ ^ self == IceTipRepairAction ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairAction class >> isAvailableFor: aRepository [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction class >> order [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction class >> title [ ^ self subclassResponsibility ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairAction >> executeWithContext: aContext model: aRepositoryModel [ self context: aContext. @@ -58,7 +60,7 @@ IceTipRepairAction >> executeWithContext: aContext model: aRepositoryModel [ self execute ] -{ #category : #private } +{ #category : 'private' } IceTipRepairAction >> fetchAllRemotes [ | remotes | remotes := self repository remotes. @@ -72,32 +74,32 @@ IceTipRepairAction >> fetchAllRemotes [ self repository fetchFrom: each ] ]. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction >> help [ ^ self class help ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction >> icon [ ^ self class icon ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction >> repository [ ^ self repositoryModel entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction >> repositoryModel [ ^ repositoryModel ] -{ #category : #private } +{ #category : 'private' } IceTipRepairAction >> repositoryModel: anObject [ repositoryModel := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairAction >> title [ ^ self class title ] diff --git a/Iceberg-TipUI/IceTipRepairCheckoutBranch.class.st b/Iceberg-TipUI/IceTipRepairCheckoutBranch.class.st index cd6c84405b..ff31e7a499 100644 --- a/Iceberg-TipUI/IceTipRepairCheckoutBranch.class.st +++ b/Iceberg-TipUI/IceTipRepairCheckoutBranch.class.st @@ -6,12 +6,14 @@ I'm active when: - repository HEAD is detached " Class { - #name : #IceTipRepairCheckoutBranch, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairCheckoutBranch', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutBranch class >> help [ ^ 'Discard all changes in your image and checkout an existing branch. This action will checkout the branch in the repository and synchronize your image with your repository. @@ -23,12 +25,12 @@ This action opens a preview window before doing any change. This operation will modify the state of your working copy on disk. All non-committed changes in your disk working copy that are not in the image will be lost (this can happen if you edited the repository from outside). If you want to keep them, perform a commit from outside before.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutBranch class >> icon [ ^ self iconNamed: #branch ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairCheckoutBranch class >> isAvailableFor: aRepository [ "matches if: - workingCopy is detached @@ -38,17 +40,17 @@ IceTipRepairCheckoutBranch class >> isAvailableFor: aRepository [ and: [ aRepository project isUnborn or: [ aRepository workingCopy isDetached or: [ aRepository head isDetached ] ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutBranch class >> order [ ^ 30 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutBranch class >> title [ ^ 'Checkout an existing branch discarding image changes' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairCheckoutBranch >> basicExecute [ self fetchAllRemotes. diff --git a/Iceberg-TipUI/IceTipRepairCheckoutNewBranch.class.st b/Iceberg-TipUI/IceTipRepairCheckoutNewBranch.class.st index 086cfc6cb7..acfd0b145a 100644 --- a/Iceberg-TipUI/IceTipRepairCheckoutNewBranch.class.st +++ b/Iceberg-TipUI/IceTipRepairCheckoutNewBranch.class.st @@ -7,12 +7,14 @@ I'm active when: - repository HEAD is detached " Class { - #name : #IceTipRepairCheckoutNewBranch, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairCheckoutNewBranch', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutNewBranch class >> help [ ^ 'It creates a new branch from the commit your image is pointing to. This will not lose any change in the image. @@ -22,12 +24,12 @@ This situation happens because the code loaded in your image does not correspond This operation will modify the state of your working copy on disk. All non-committed changes in your disk working copy that are not in the image will be lost (this can happen if you edited the repository from outside). If you want to keep them, perform a commit from outside before.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutNewBranch class >> icon [ ^ self iconNamed: #smallNew ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairCheckoutNewBranch class >> isAvailableFor: aRepository [ "matches if: - workingCopy is detached @@ -40,17 +42,17 @@ IceTipRepairCheckoutNewBranch class >> isAvailableFor: aRepository [ ^ aRepository workingCopy isDetached or: [ aRepository head isDetached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutNewBranch class >> order [ ^ 10 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCheckoutNewBranch class >> title [ ^ 'Create a new branch pointing to your image commit' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairCheckoutNewBranch >> basicExecute [ "Fetching remotes is necessary in case the current image commit is not in the repository. Could be optimized" diff --git a/Iceberg-TipUI/IceTipRepairCloneRepository.class.st b/Iceberg-TipUI/IceTipRepairCloneRepository.class.st index 2bbf694e4d..229ce41e08 100644 --- a/Iceberg-TipUI/IceTipRepairCloneRepository.class.st +++ b/Iceberg-TipUI/IceTipRepairCloneRepository.class.st @@ -6,12 +6,14 @@ I'm active when repository can not be located in disk. Notice that doing this can lead you to another situation that needs repair (like a detached status) " Class { - #name : #IceTipRepairCloneRepository, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairCloneRepository', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCloneRepository class >> help [ ^ 'Clone again the repository into a new location. @@ -23,29 +25,29 @@ So, this action will very probably let you in a detached status. You will need to re-synchronize your repository with another repair action.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCloneRepository class >> icon [ ^ self iconNamed: #smallAdd ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairCloneRepository class >> isAvailableFor: aRepository [ "active when there is no repository directory" ^ aRepository isMissing ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCloneRepository class >> order [ ^ 20 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCloneRepository class >> title [ ^ 'Clone again this repository in a new location' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairCloneRepository >> basicExecute [ ((IceTipRegisterRepositoryDialogPresenter newApplication: context application) diff --git a/Iceberg-TipUI/IceTipRepairCommand.class.st b/Iceberg-TipUI/IceTipRepairCommand.class.st index ad3f612190..1ea3fd269e 100644 --- a/Iceberg-TipUI/IceTipRepairCommand.class.st +++ b/Iceberg-TipUI/IceTipRepairCommand.class.st @@ -2,36 +2,38 @@ Command that opens the repair window on a repository " Class { - #name : #IceTipRepairCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRepairCommand class >> defaultDescription [ ^ 'Helps you to repair your repository when it is detached.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRepairCommand class >> defaultName [ ^ 'Repair repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRepairCommand class >> defaultToolbarItemName [ ^ 'Repair' ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairCommand >> canBeExecuted [ ^ super canBeExecuted and: [ self isRepositoryOperational not ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairCommand >> execute [ ((IceTipRepairRepositoryDialogPresenter @@ -42,7 +44,7 @@ IceTipRepairCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCommand >> iconName [ ^ #repair diff --git a/Iceberg-TipUI/IceTipRepairCreateSubdirectory.class.st b/Iceberg-TipUI/IceTipRepairCreateSubdirectory.class.st index db3a15c9fa..9329155783 100644 --- a/Iceberg-TipUI/IceTipRepairCreateSubdirectory.class.st +++ b/Iceberg-TipUI/IceTipRepairCreateSubdirectory.class.st @@ -5,12 +5,14 @@ I'm active when: - src subdirectory is not found. " Class { - #name : #IceTipRepairCreateSubdirectory, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairCreateSubdirectory', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCreateSubdirectory class >> help [ ^ 'Create a new subdirectory for the code. @@ -20,28 +22,28 @@ It is possible that the directory has been deleted or never committed after crea This operation will modify the state of your working copy on disk. All non-committed changes in your disk working copy that are not in the image will be lost (this can happen if you edited the repository from outside). If you want to keep them, perform a commit from outside before.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCreateSubdirectory class >> icon [ ^ self iconNamed: #smallNew ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairCreateSubdirectory class >> isAvailableFor: aRepository [ ^ aRepository isMissing not and: [aRepository isCodeMissing] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCreateSubdirectory class >> order [ ^ 17 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairCreateSubdirectory class >> title [ ^ 'Create code subdirectory' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairCreateSubdirectory >> basicExecute [ self repositoryModel createSourceDirectory. diff --git a/Iceberg-TipUI/IceTipRepairDiscardAndLoad.class.st b/Iceberg-TipUI/IceTipRepairDiscardAndLoad.class.st index fe32425ac2..afc8e2f488 100644 --- a/Iceberg-TipUI/IceTipRepairDiscardAndLoad.class.st +++ b/Iceberg-TipUI/IceTipRepairDiscardAndLoad.class.st @@ -6,12 +6,14 @@ I'm active when: - repository HEAD is NOT detached " Class { - #name : #IceTipRepairDiscardAndLoad, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairDiscardAndLoad', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairDiscardAndLoad class >> help [ ^ 'Discard all changes in your image and checkout the current commit (HEAD) in the repository. @@ -24,12 +26,12 @@ This situation happens because loaded code in your image is from a different com Opens a preview window with the incoming changes before doing any change.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairDiscardAndLoad class >> icon [ ^ self iconNamed: #refresh ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairDiscardAndLoad class >> isAvailableFor: aRepository [ "matches if: - workingCopy is detached @@ -40,17 +42,17 @@ IceTipRepairDiscardAndLoad class >> isAvailableFor: aRepository [ and: [ aRepository head isDetached not ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairDiscardAndLoad class >> order [ ^ 40 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairDiscardAndLoad class >> title [ ^ 'Discard image changes and load repository version' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairDiscardAndLoad >> basicExecute [ (IceTipCheckoutPreviewBrowser onBranch: self repositoryModel branchModel) @@ -58,7 +60,7 @@ IceTipRepairDiscardAndLoad >> basicExecute [ open ] -{ #category : #private } +{ #category : 'private' } IceTipRepairDiscardAndLoad >> finishSuccess [ super finishSuccess. Iceberg announcer announce: (IceRepositoryModified for: self repository) diff --git a/Iceberg-TipUI/IceTipRepairEditRepository.class.st b/Iceberg-TipUI/IceTipRepairEditRepository.class.st index 8850faf7bf..44a93839e4 100644 --- a/Iceberg-TipUI/IceTipRepairEditRepository.class.st +++ b/Iceberg-TipUI/IceTipRepairEditRepository.class.st @@ -5,12 +5,14 @@ I'm active when: - src subdirectory is not found. " Class { - #name : #IceTipRepairEditRepository, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairEditRepository', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairEditRepository class >> help [ ^ 'You can edit the repository to inform another subdirectory name. Once the new subdirectory is updated, the packages in the repository are available. @@ -20,28 +22,28 @@ This happens because the source code directory has been moved or renamed. ' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairEditRepository class >> icon [ ^ self iconNamed: #edit ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairEditRepository class >> isAvailableFor: aRepository [ ^ aRepository isMissing not and: [aRepository isCodeMissing] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairEditRepository class >> order [ ^ 17 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairEditRepository class >> title [ ^ 'Edit the repository to select the correct code subdirectory' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairEditRepository >> basicExecute [ (IceTipEditProjectDialogPresenter diff --git a/Iceberg-TipUI/IceTipRepairFetchRemoteBranch.class.st b/Iceberg-TipUI/IceTipRepairFetchRemoteBranch.class.st index c12b889730..74e0a17e52 100644 --- a/Iceberg-TipUI/IceTipRepairFetchRemoteBranch.class.st +++ b/Iceberg-TipUI/IceTipRepairFetchRemoteBranch.class.st @@ -6,12 +6,14 @@ matches if: " Class { - #name : #IceTipRepairFetchRemoteBranch, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairFetchRemoteBranch', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairFetchRemoteBranch class >> help [ ^ 'You can fetch commits from a remote to find your image commit in your repository. This will not lose any change in the image or the repository. @@ -23,12 +25,12 @@ After doing the fetch, it is required to create a new branch to commit into the A second repair action will help you.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairFetchRemoteBranch class >> icon [ ^ self iconNamed: #smallUpdate ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairFetchRemoteBranch class >> isAvailableFor: aRepository [ "matches if: - workingCopy referenceCommit isUnknownCommit" @@ -37,24 +39,24 @@ IceTipRepairFetchRemoteBranch class >> isAvailableFor: aRepository [ and: [ aRepository workingCopy referenceCommit isUnknownCommit ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairFetchRemoteBranch class >> order [ ^ 15 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairFetchRemoteBranch class >> title [ ^ 'Fetch remote commits including the commits of the image version' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairFetchRemoteBranch >> basicExecute [ "Fetching remotes is necessary in case the current image commit is not in the repository. Could be optimized" self fetchAllRemotes ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairFetchRemoteBranch >> finishSuccess [ super finishSuccess. Iceberg announcer announce: (IceRepositoryModified for: self repository) diff --git a/Iceberg-TipUI/IceTipRepairLocateRepository.class.st b/Iceberg-TipUI/IceTipRepairLocateRepository.class.st index 232abefec4..985b9b5f55 100644 --- a/Iceberg-TipUI/IceTipRepairLocateRepository.class.st +++ b/Iceberg-TipUI/IceTipRepairLocateRepository.class.st @@ -6,12 +6,14 @@ I'm active when repository can not be located in disk. Notice that doing this can lead you to another situation that needs repair (like a detached status) " Class { - #name : #IceTipRepairLocateRepository, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairLocateRepository', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairLocateRepository class >> help [ ^ 'Locate this repository in your file system. @@ -23,29 +25,29 @@ You will need to re-synchronize your repository with another repair action. This happens if the repository has been removed from the disk or the image was pointing to a repository in another machine (For example, when sharing images with other machines / people).' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairLocateRepository class >> icon [ ^ self iconNamed: #glamorousFolder ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairLocateRepository class >> isAvailableFor: aRepository [ "active when there is no repository directory" ^ aRepository isMissing ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairLocateRepository class >> order [ ^ 10 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairLocateRepository class >> title [ ^ 'Locate this repository in your file system' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairLocateRepository >> basicExecute [ | dialog | @@ -61,12 +63,12 @@ IceTipRepairLocateRepository >> basicExecute [ open. ] -{ #category : #private } +{ #category : 'private' } IceTipRepairLocateRepository >> defaultLocation [ ^ IceLibgitRepository repositoriesLocation ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairLocateRepository >> defaultSubdirectory [ ^ IceLibgitRepository defaultCodeSubdirectory ] diff --git a/Iceberg-TipUI/IceTipRepairMergeWithBranch.class.st b/Iceberg-TipUI/IceTipRepairMergeWithBranch.class.st index 13cae27f81..6cbe2c40af 100644 --- a/Iceberg-TipUI/IceTipRepairMergeWithBranch.class.st +++ b/Iceberg-TipUI/IceTipRepairMergeWithBranch.class.st @@ -6,12 +6,14 @@ I'm active when: - repository HEAD is NOT detached " Class { - #name : #IceTipRepairMergeWithBranch, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairMergeWithBranch', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairMergeWithBranch class >> help [ ^ 'This action checkouts an existing branch and loads the code in your image without discarding any change. This will not lose any change in the image but may lead to conflicts. If there are conflicts it opens a merge view. @@ -21,12 +23,12 @@ This situation happens because loaded code in your image is from a different com This operation will modify the state of your working copy in disk, the checkouted branch will replace the disk working copy. All non-committed changes in your disk working copy will be lost. If you want to keep them, perform a commit from outside before.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairMergeWithBranch class >> icon [ ^ self iconNamed: #merge ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairMergeWithBranch class >> isAvailableFor: aRepository [ "matches if: - workingCopy is detached @@ -39,17 +41,17 @@ IceTipRepairMergeWithBranch class >> isAvailableFor: aRepository [ ^ aRepository workingCopy isDetached and: [ aRepository head isDetached not ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairMergeWithBranch class >> order [ ^ 20 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairMergeWithBranch class >> title [ ^ 'Checkout an existing branch and merge the changes into the image (without discarding image changes)' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairMergeWithBranch >> basicExecute [ self fetchAllRemotes. diff --git a/Iceberg-TipUI/IceTipRepairProject.class.st b/Iceberg-TipUI/IceTipRepairProject.class.st index ce164f63e0..92caae1ec9 100644 --- a/Iceberg-TipUI/IceTipRepairProject.class.st +++ b/Iceberg-TipUI/IceTipRepairProject.class.st @@ -2,12 +2,14 @@ I'm an action to repair a project, which is useful when it answers true to #isUnborn. " Class { - #name : #IceTipRepairProject, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairProject', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairProject class >> help [ ^ 'Edit the repository to add project meta-data. This action will create a .project file in the root of your repository adding meta information such as source code directory, project name, format and so on. @@ -15,12 +17,12 @@ This action will create a .project file in the root of your repository adding me This situation happens because your project does not have project meta-data and Iceberg does not know how to correctly interpret its data.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairProject class >> icon [ ^ self iconNamed: #config ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairProject class >> isAvailableFor: aRepository [ "matches if: - workingCopy is atached @@ -32,17 +34,17 @@ IceTipRepairProject class >> isAvailableFor: aRepository [ and: [ aRepository workingCopy project isUnborn ] ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairProject class >> order [ ^ 30 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairProject class >> title [ ^ 'Create project meta-data' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairProject >> basicExecute [ ((IceTipEditProjectDialogPresenter diff --git a/Iceberg-TipUI/IceTipRepairPullRemoteBranch.class.st b/Iceberg-TipUI/IceTipRepairPullRemoteBranch.class.st index bd5358853b..39dab6c93d 100644 --- a/Iceberg-TipUI/IceTipRepairPullRemoteBranch.class.st +++ b/Iceberg-TipUI/IceTipRepairPullRemoteBranch.class.st @@ -5,12 +5,14 @@ matches if: - workingCopy is detached AND there is no commit in the current available commits " Class { - #name : #IceTipRepairPullRemoteBranch, - #superclass : #IceTipRepairAction, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepairPullRemoteBranch', + #superclass : 'IceTipRepairAction', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairPullRemoteBranch class >> help [ ^ 'You can pull commits from a remote to put your image and your repository in sync. This will not lose any change in the image. @@ -20,12 +22,12 @@ This situation happens because the code loaded in your image is not in the branc This operation will modify the state of your working copy in disk. All non-committed changes in your disk working copy that are not in the image will be lost. If you want to keep them, perform a commit from outside before.' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairPullRemoteBranch class >> icon [ ^ self iconNamed: #down ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepairPullRemoteBranch class >> isAvailableFor: aRepository [ "matches if: - workingCopy is detached AND there is no commit in the current available commits" @@ -37,17 +39,17 @@ IceTipRepairPullRemoteBranch class >> isAvailableFor: aRepository [ ^ aRepository workingCopy isDetached and: [ (aRepository includesCommit: aRepository workingCopy referenceCommit) not ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairPullRemoteBranch class >> order [ ^ 17 ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairPullRemoteBranch class >> title [ ^ 'Pull remote commits to put your repository in sync' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRepairPullRemoteBranch >> basicExecute [ "Fetching remotes is necessary in case the current image commit is not in the repository. Could be optimized" diff --git a/Iceberg-TipUI/IceTipRepairRepositoryDialogPresenter.class.st b/Iceberg-TipUI/IceTipRepairRepositoryDialogPresenter.class.st index 9284c8ae2d..c67813e158 100644 --- a/Iceberg-TipUI/IceTipRepairRepositoryDialogPresenter.class.st +++ b/Iceberg-TipUI/IceTipRepairRepositoryDialogPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : #IceTipRepairRepositoryDialogPresenter, - #superclass : #IceTipDialogPresenter, + #name : 'IceTipRepairRepositoryDialogPresenter', + #superclass : 'IceTipDialogPresenter', #instVars : [ 'optionsList', 'detailPanel', @@ -8,16 +8,18 @@ Class { 'selectedOption', 'reasonPanel' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepairRepositoryDialogPresenter class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) beCached ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepairRepositoryDialogPresenter >> accept [ self closeWindow. @@ -26,13 +28,13 @@ IceTipRepairRepositoryDialogPresenter >> accept [ model: self model ] -{ #category : #'api - focus' } +{ #category : 'api - focus' } IceTipRepairRepositoryDialogPresenter >> defaultKeyboardFocus [ ^ optionsList ] -{ #category : #layout } +{ #category : 'layout' } IceTipRepairRepositoryDialogPresenter >> defaultLayout [ self flag: #TODO. "Replace the fixed height with a correct style" @@ -44,19 +46,19 @@ IceTipRepairRepositoryDialogPresenter >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepairRepositoryDialogPresenter >> detailPanel [ ^ detailPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> initialExtentForWindow [ ^ (700 @ 500) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> initializeDialogWindow: aWindow [ super initializeDialogWindow: aWindow. @@ -70,7 +72,7 @@ IceTipRepairRepositoryDialogPresenter >> initializeDialogWindow: aWindow [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> initializeOptionsList [ optionsList @@ -89,7 +91,7 @@ IceTipRepairRepositoryDialogPresenter >> initializeOptionsList [ whenActivatedDo: [ :selection | selection ifNotNil: [ self accept ] ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> initializePresenters [ reasonPanel := self newText @@ -108,31 +110,31 @@ IceTipRepairRepositoryDialogPresenter >> initializePresenters [ self initializeOptionsList ] -{ #category : #private } +{ #category : 'private' } IceTipRepairRepositoryDialogPresenter >> initializeReasonPanel [ reasonPanel text: self model longStatus ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepairRepositoryDialogPresenter >> model [ ^ model ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepairRepositoryDialogPresenter >> optionsList [ ^ optionsList ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepairRepositoryDialogPresenter >> reasonPanel [ ^ reasonPanel ] -{ #category : #private } +{ #category : 'private' } IceTipRepairRepositoryDialogPresenter >> refreshDetailPanel [ selectedOption ifNotNil: [ @@ -141,14 +143,14 @@ IceTipRepairRepositoryDialogPresenter >> refreshDetailPanel [ yourself ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> refreshDialogButtons [ self window ifNotNil: [ :aWindow | aWindow buttons first enabled: (selectedOption isNotNil) ] ] -{ #category : #private } +{ #category : 'private' } IceTipRepairRepositoryDialogPresenter >> selectionChanged: selectedItem [ selectedOption := selectedItem. @@ -157,13 +159,13 @@ IceTipRepairRepositoryDialogPresenter >> selectionChanged: selectedItem [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepairRepositoryDialogPresenter >> titleForWindow [ ^ 'Repair repository' diff --git a/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st b/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st index 0bf3a8bff7..f10f85f4ff 100644 --- a/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st +++ b/Iceberg-TipUI/IceTipRepositoriesBrowser.class.st @@ -5,17 +5,19 @@ I define basic actions and an entry point to manage each repository individually IceTipRepositoriesBrowser new open. " Class { - #name : #IceTipRepositoriesBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipRepositoriesBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'currentGroupPanel', 'repositoryNotebook', 'notifyPanel' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ { IceTipFetchAllProjectCommand. @@ -26,7 +28,7 @@ IceTipRepositoriesBrowser class >> buildGeneralCommandGroupWith: presenter for: ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { @@ -47,7 +49,7 @@ IceTipRepositoriesBrowser class >> buildSelectionCommandGroupWith: presenter for ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser class >> buildSelectionExtraCommandGroupWith: presenter for: aCommandGroup [ super buildSelectionExtraCommandGroupWith: presenter for: aCommandGroup. @@ -60,13 +62,13 @@ IceTipRepositoriesBrowser class >> buildSelectionExtraCommandGroupWith: presente ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesBrowser class >> iconForWorldMenu [ ^ self iconNamed: #komitterSmalltalkhubRemote ] -{ #category : #'world menu' } +{ #category : 'world menu' } IceTipRepositoriesBrowser class >> menuCommandOn: aBuilder [ "Add a custom menu item to the world menu" @@ -80,13 +82,13 @@ IceTipRepositoriesBrowser class >> menuCommandOn: aBuilder [ action: [ self new open ] ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepositoriesBrowser class >> new [ ^ self newOnRepositoryProvider: IceRepository ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepositoriesBrowser class >> newOnRepositoryProvider: aProvider [ | application | @@ -104,7 +106,7 @@ IceTipRepositoriesBrowser class >> newOnRepositoryProvider: aProvider [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> addLibGitNotAvailableWarning [ notifyPanel layout add: (notifyPanel newLabel @@ -112,7 +114,7 @@ IceTipRepositoriesBrowser >> addLibGitNotAvailableWarning [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> connectPresenters [ repositoryNotebook whenSelectedPageChangedDo: [ :newPage | @@ -120,19 +122,19 @@ IceTipRepositoriesBrowser >> connectPresenters [ aPresenter updatePresenter ] ] ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> currentGroupPanel [ ^ currentGroupPanel ifNil: [ currentGroupPanel := self layout children first ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoriesBrowser >> defaultKeyboardFocus [ ^ repositoryNotebook ] -{ #category : #layout } +{ #category : 'layout' } IceTipRepositoriesBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -141,7 +143,7 @@ IceTipRepositoriesBrowser >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> hasSelectedItem [ ^ repositoryNotebook selectedPage @@ -150,19 +152,19 @@ IceTipRepositoriesBrowser >> hasSelectedItem [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> iconForWindow [ ^ self class iconForWorldMenu ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> initialExtentForWindow [ ^ (600 @ 500) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> initializePresenters [ notifyPanel := self newPresenter. @@ -172,14 +174,14 @@ IceTipRepositoriesBrowser >> initializePresenters [ repositoryNotebook := self newNotebook ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoriesBrowser >> mainList [ "should not arrive here" ^ nil ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> openManagePackagesWindow [ IceTipManagePackagesCommand new @@ -187,20 +189,20 @@ IceTipRepositoriesBrowser >> openManagePackagesWindow [ execute ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> projectsPanel [ "this method is using exclusively for testing." ^ repositoryNotebook pages first activePresenter ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> projectsPanelIsShowingRepository: anIceLibgitRepository [ ^ self projectsPanel isShowingRepository: anIceLibgitRepository ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> projectsPanelRepositoryList [ "this method is using exclusively for testing. it will answer the repository list form the projects page" @@ -208,21 +210,21 @@ IceTipRepositoriesBrowser >> projectsPanelRepositoryList [ ^ self projectsPanel repositoryList ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> projectsPanelRepositoryModels [ "this method is used exclusively for testing" ^ self projectsPanelRepositoryList items ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoriesBrowser >> refresh [ repositoryNotebook selectedPage ifNil: [ ^ self ]. repositoryNotebook selectedPage activePresenter updatePresenter ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser >> refreshCommands [ | rootGroup | @@ -233,13 +235,13 @@ IceTipRepositoriesBrowser >> refreshCommands [ refreshToolbarWith: rootGroup ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesBrowser >> repositoryModel [ ^ self selectedItem ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesBrowser >> selectedItem [ ^ repositoryNotebook selectedPage @@ -247,7 +249,7 @@ IceTipRepositoriesBrowser >> selectedItem [ ifNil: [ nil ] ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser >> selectionCommandsGroup [ ^ self visibleRootCommandsGroup @@ -255,7 +257,7 @@ IceTipRepositoriesBrowser >> selectionCommandsGroup [ ifNone: [ nil ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> subscribeToAnnouncements [ Iceberg announcer weak @@ -264,13 +266,13 @@ IceTipRepositoriesBrowser >> subscribeToAnnouncements [ to: self ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> titleForWindow [ ^ 'Repositories' ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoriesBrowser >> updatePresenter [ LGitLibrary uniqueInstance isAvailable @@ -287,7 +289,7 @@ IceTipRepositoriesBrowser >> updatePresenter [ self refresh ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoriesBrowser >> visibleRootCommandsGroup [ | rootGroup | diff --git a/Iceberg-TipUI/IceTipRepositoriesModel.class.st b/Iceberg-TipUI/IceTipRepositoriesModel.class.st index 363bd7ed9a..8d3cf107d6 100644 --- a/Iceberg-TipUI/IceTipRepositoriesModel.class.st +++ b/Iceberg-TipUI/IceTipRepositoriesModel.class.st @@ -2,21 +2,23 @@ I'm a model to provide access to all repositories registered. " Class { - #name : #IceTipRepositoriesModel, - #superclass : #IceTipModel, + #name : 'IceTipRepositoriesModel', + #superclass : 'IceTipModel', #instVars : [ 'repositoryProvider' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesModel >> repositories [ ^ repositoryProvider repositories collect: [ :each | (IceTipRepositoryModel on: each) beCached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesModel >> repositoryGroups [ | sortGroup groups | @@ -46,7 +48,7 @@ IceTipRepositoriesModel >> repositoryGroups [ group: each ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoriesModel >> repositoryProvider: aProvider [ repositoryProvider := aProvider diff --git a/Iceberg-TipUI/IceTipRepositoryBrowser.class.st b/Iceberg-TipUI/IceTipRepositoryBrowser.class.st index 3932c52a2d..d4c3e05009 100644 --- a/Iceberg-TipUI/IceTipRepositoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipRepositoryBrowser.class.st @@ -3,16 +3,18 @@ I'm a browser to show the internals of a repository. I will show remotes, branches, tags and all possible operations in low level repository (pull, push, branch. But all edit remotes, etc.) " Class { - #name : #IceTipRepositoryBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipRepositoryBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'sidebarTree', 'historyPanel' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoryBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ { IceTipAddRemoteCommand. @@ -24,7 +26,7 @@ IceTipRepositoryBrowser class >> buildGeneralCommandGroupWith: presenter for: aC aCommandGroup register: each forSpec ] ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoryBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ | aGroup | @@ -50,30 +52,30 @@ IceTipRepositoryBrowser class >> buildSelectionCommandGroupWith: presenter for: ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepositoryBrowser class >> new [ self error: 'Use #onRepository:' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepositoryBrowser class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipRepositoryBrowser class >> onRepositoryNamed: aString [ ^ self onRepository: (IceRepository registry detect: [ :each | each name = aString ]) ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipRepositoryBrowser >> commitishSelected: ann [ historyPanel model: ann ] -{ #category : #layout } +{ #category : 'layout' } IceTipRepositoryBrowser >> defaultLayout [ ^ SpPanedLayout newLeftToRight @@ -83,19 +85,19 @@ IceTipRepositoryBrowser >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryBrowser >> historyPanel [ ^ historyPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> initialExtentForWindow [ ^ (1000 @ 700) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> initializePresenters [ sidebarTree := self newTreeTable. @@ -109,7 +111,7 @@ IceTipRepositoryBrowser >> initializePresenters [ self initializeSidebarTree ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> initializeSidebarTree [ sidebarTree @@ -129,14 +131,14 @@ IceTipRepositoryBrowser >> initializeSidebarTree [ ifTrue: [ self commitishSelected: selection selectedItem ] ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ sidebarTree ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryBrowser >> refresh [ self refreshCommands. @@ -145,7 +147,7 @@ IceTipRepositoryBrowser >> refresh [ self selectCurrentBranch ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipRepositoryBrowser >> refreshWhenRepository: ann [ (self model isModelOf: ann repository) ifFalse: [ ^ self ]. @@ -153,7 +155,7 @@ IceTipRepositoryBrowser >> refreshWhenRepository: ann [ self updatePresenter ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> selectCurrentBranch [ | branch | @@ -166,13 +168,13 @@ IceTipRepositoryBrowser >> selectCurrentBranch [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryBrowser >> sidebarTree [ ^ sidebarTree ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipRepositoryBrowser >> subscribeToAnnouncements [ Iceberg announcer weak @@ -181,13 +183,13 @@ IceTipRepositoryBrowser >> subscribeToAnnouncements [ to: self ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> titleForWindow [ ^ 'Repository of ' , self model name ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryBrowser >> updatePresenter [ self refresh diff --git a/Iceberg-TipUI/IceTipRepositoryCommand.class.st b/Iceberg-TipUI/IceTipRepositoryCommand.class.st index 31cfa04b4c..42a298249b 100644 --- a/Iceberg-TipUI/IceTipRepositoryCommand.class.st +++ b/Iceberg-TipUI/IceTipRepositoryCommand.class.st @@ -2,42 +2,44 @@ I'm a the abstract superclass of commands that act on repositories. " Class { - #name : #IceTipRepositoryCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRepositoryCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryCommand class >> isAbstract [ ^ self == IceTipRepositoryCommand ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryCommand >> actsOnBranch: aBranchModel [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryCommand >> actsOnRemote: aRemoteModel [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryCommand >> actsOnTag: aTagModel [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryCommand >> announcer [ ^ self context toolAnnouncer ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryCommand >> canBeExecuted [ ^ self repositoryModel isNotNil diff --git a/Iceberg-TipUI/IceTipRepositoryGroupModel.class.st b/Iceberg-TipUI/IceTipRepositoryGroupModel.class.st index d8aec6c69b..a31676a85a 100644 --- a/Iceberg-TipUI/IceTipRepositoryGroupModel.class.st +++ b/Iceberg-TipUI/IceTipRepositoryGroupModel.class.st @@ -4,23 +4,25 @@ Repository groups are taken from tags added to the repository metadata (usually NOTICE: first tag will be taken as the group. " Class { - #name : #IceTipRepositoryGroupModel, - #superclass : #IceTipModel, + #name : 'IceTipRepositoryGroupModel', + #superclass : 'IceTipModel', #instVars : [ 'repositoryProvider', 'repositories', 'group' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel class >> defaultLabel [ ^ 'Projects' ] -{ #category : #'private - testing' } +{ #category : 'private - testing' } IceTipRepositoryGroupModel >> containsRepository: aRepository [ (self group isEmpty and: [ aRepository project tags isEmpty ]) @@ -29,19 +31,19 @@ IceTipRepositoryGroupModel >> containsRepository: aRepository [ ^ aRepository project tags includes: self group ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel >> group [ ^ group ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel >> group: aGroup [ group := aGroup ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel >> label [ ^ self group @@ -49,7 +51,7 @@ IceTipRepositoryGroupModel >> label [ ifEmpty: [ self class defaultLabel ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel >> repositories [ ^ repositories := repositoryProvider repositories @@ -57,7 +59,7 @@ IceTipRepositoryGroupModel >> repositories [ thenCollect: [ :each | (IceTipRepositoryModel on: each) beCached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupModel >> repositoryProvider: aProvider [ repositoryProvider := aProvider diff --git a/Iceberg-TipUI/IceTipRepositoryGroupPanel.class.st b/Iceberg-TipUI/IceTipRepositoryGroupPanel.class.st index 783b0f3295..fd61359ed0 100644 --- a/Iceberg-TipUI/IceTipRepositoryGroupPanel.class.st +++ b/Iceberg-TipUI/IceTipRepositoryGroupPanel.class.st @@ -1,16 +1,18 @@ Class { - #name : #IceTipRepositoryGroupPanel, - #superclass : #SpPresenter, + #name : 'IceTipRepositoryGroupPanel', + #superclass : 'SpPresenter', #traits : 'SpTModel', #classTraits : 'SpTModel classTrait', #instVars : [ 'repositoryList', 'repositoryFilter' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoryGroupPanel class >> buildCommandsGroupWith: presenter forRoot: aCommandGroup [ self flag: #HACK. "I extracted this panel from IceTipRepositoriesBrowser, @@ -21,7 +23,7 @@ IceTipRepositoryGroupPanel class >> buildCommandsGroupWith: presenter forRoot: a forRoot: aCommandGroup ] -{ #category : #commands } +{ #category : 'commands' } IceTipRepositoryGroupPanel class >> buildRootCommandsGroupFor: aPresenter [ | rootCommandGroup | @@ -36,13 +38,13 @@ IceTipRepositoryGroupPanel class >> buildRootCommandsGroupFor: aPresenter [ ^ rootCommandGroup ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> allListItems [ ^ self model repositories ] -{ #category : #layout } +{ #category : 'layout' } IceTipRepositoryGroupPanel >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -51,26 +53,26 @@ IceTipRepositoryGroupPanel >> defaultLayout [ yourself ] -{ #category : #transmission } +{ #category : 'transmission' } IceTipRepositoryGroupPanel >> defaultOutputPort [ ^ self outputSelectionPort ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> filteredItemsFor: pattern [ ^ self allListItems select: [ :each | each name asLowercase includesSubstring: pattern asLowercase ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryGroupPanel >> hasSelectedItem [ ^ repositoryList selectedItem notNil ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryGroupPanel >> initializePresenters [ repositoryList := self newTable. @@ -78,7 +80,7 @@ IceTipRepositoryGroupPanel >> initializePresenters [ self initializeRepositoryFilter ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryGroupPanel >> initializeRepositoryFilter [ repositoryFilter := self newTextInput. @@ -88,7 +90,7 @@ IceTipRepositoryGroupPanel >> initializeRepositoryFilter [ ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryGroupPanel >> initializeRepositoryList [ repositoryList @@ -122,7 +124,7 @@ IceTipRepositoryGroupPanel >> initializeRepositoryList [ whenActivatedDo: [ self openManagePackagesWindow ] ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> isShowingRepository: anIceLibgitRepository [ "this method is using just for test" @@ -130,7 +132,7 @@ IceTipRepositoryGroupPanel >> isShowingRepository: anIceLibgitRepository [ aRepositoryModel entity = anIceLibgitRepository ] ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> keyBindingsCommandsGroup [ ^ self rootCommandsGroup @@ -138,7 +140,7 @@ IceTipRepositoryGroupPanel >> keyBindingsCommandsGroup [ ifNone: [ nil ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryGroupPanel >> openManagePackagesWindow [ IceTipManagePackagesCommand new @@ -146,7 +148,7 @@ IceTipRepositoryGroupPanel >> openManagePackagesWindow [ execute ] -{ #category : #transmission } +{ #category : 'transmission' } IceTipRepositoryGroupPanel >> outputSelectionPort [ ^ (SpSelectionPort newPresenter: self) @@ -154,7 +156,7 @@ IceTipRepositoryGroupPanel >> outputSelectionPort [ yourself ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> refreshRepositoryList [ repositoryList updateItemsKeepingSelection: (repositoryFilter text @@ -163,25 +165,25 @@ IceTipRepositoryGroupPanel >> refreshRepositoryList [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupPanel >> repositoryList [ ^ repositoryList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupPanel >> repositoryModel [ ^ self selectedItem ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryGroupPanel >> selectedItem [ ^ repositoryList selectedItem ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> selectionCommandsGroup [ ^ self visibleRootCommandsGroup @@ -189,13 +191,13 @@ IceTipRepositoryGroupPanel >> selectionCommandsGroup [ ifNone: [ nil ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryGroupPanel >> updatePresenter [ self refreshRepositoryList ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryGroupPanel >> visibleRootCommandsGroup [ | rootGroup | diff --git a/Iceberg-TipUI/IceTipRepositoryModel.class.st b/Iceberg-TipUI/IceTipRepositoryModel.class.st index 9f59fb91b9..50453d5757 100644 --- a/Iceberg-TipUI/IceTipRepositoryModel.class.st +++ b/Iceberg-TipUI/IceTipRepositoryModel.class.st @@ -2,26 +2,28 @@ I'm a model for IceRepository entries. " Class { - #name : #IceTipRepositoryModel, - #superclass : #IceTipEntityModel, + #name : 'IceTipRepositoryModel', + #superclass : 'IceTipEntityModel', #traits : 'TIceCopyCommitId + TWithBranchModel', #classTraits : 'TIceCopyCommitId classTrait + TWithBranchModel classTrait', - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel class >> unknownBranchLabel [ ^ 'Unknown' ] -{ #category : #comparing } +{ #category : 'comparing' } IceTipRepositoryModel >> = other [ ^ self species = other species and: [ self entity = other entity ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> allBranchModels [ ^ self entity allBranches collect: [ :each | @@ -31,14 +33,14 @@ IceTipRepositoryModel >> allBranchModels [ beCached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> availableRepairOptions [ ^ IceTipRepairAction allAvailableFor: self entity ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> branchModel [ ^ (IceTipBranchModel @@ -47,7 +49,7 @@ IceTipRepositoryModel >> branchModel [ beCached ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> branchModelFor: aBranch [ ^ (IceTipBranchModel repositoryModel: self @@ -55,7 +57,7 @@ IceTipRepositoryModel >> branchModelFor: aBranch [ beCached ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> branchName [ (self isLibGitAvailable not or: [ self entity isMissing ]) @@ -64,36 +66,36 @@ IceTipRepositoryModel >> branchName [ ^ self entity head description ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> branchNamed: aString [ ^ self entity branchNamed: aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> branches [ ^ self entity localBranches ] -{ #category : #checking } +{ #category : 'checking' } IceTipRepositoryModel >> checkMissing [ self isMissing ifTrue: [ IceError signal: ('You have no repository attached to project "{1}"' format: { self name }) ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> commit [ ^ self entity workingCopy referenceCommit ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> commitId [ ^ [ self entity headCommit id ] on: Error do: [ nil ]. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> commitModelFor: aCommit [ ^ (IceTipCommitModel repositoryModel: self @@ -101,13 +103,13 @@ IceTipRepositoryModel >> commitModelFor: aCommit [ beCached ] -{ #category : #operations } +{ #category : 'operations' } IceTipRepositoryModel >> createSourceDirectory [ entity createSourceDirectory ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> description [ | text | @@ -117,7 +119,7 @@ IceTipRepositoryModel >> description [ ^ text ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> descriptionDecorator [ (self isLibGitAvailable and: [ self entity isModified ]) @@ -125,24 +127,24 @@ IceTipRepositoryModel >> descriptionDecorator [ ^ super descriptionDecorator ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> hasRemotes [ ^ self entity remotes notEmpty ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> hasUnbornProject [ ^ self entity workingCopy project isUnborn ] -{ #category : #comparing } +{ #category : 'comparing' } IceTipRepositoryModel >> hash [ ^ self species hash bitXor: self entity hash ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> headModel [ | head | @@ -152,12 +154,12 @@ IceTipRepositoryModel >> headModel [ ifFalse: [ self commitModelFor: head ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> incomingCommits [ ^ self entity incomingCommits ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> info [ ^ { 'Branch' -> self entity branch name. @@ -166,46 +168,46 @@ IceTipRepositoryModel >> info [ } ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> isCodeMissing [ ^ entity isCodeMissing ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> isDetached [ ^ self entity workingCopy isDetached or: [ self entity head isDetached ] ] -{ #category : #'private - testing' } +{ #category : 'private - testing' } IceTipRepositoryModel >> isLibGitAvailable [ ^ LGitLibrary uniqueInstance isAvailable ] -{ #category : #'private - testing' } +{ #category : 'private - testing' } IceTipRepositoryModel >> isLoaded [ ^ self entity loadedPackages notEmpty ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> isMissing [ ^ self entity isMissing ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryModel >> localRepositoryMissing [ ^ 'Local repository missing' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> location [ ^ entity location ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> longStatus [ (entity isMissing and: [ entity location isNil ]) @@ -229,17 +231,17 @@ IceTipRepositoryModel >> longStatus [ ^ 'Your repository seems ok. Please report a ticket in Iceberg''s issue tracker. If you can, please send us a backup of your image in this state for debugging.' ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryModel >> matches: aString [ ^ self entity name matchesRegexIgnoringCase: aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> name [ ^ self entity name ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newAddPackagesAction: aCollection [ @@ -253,7 +255,7 @@ IceTipRepositoryModel >> newAddPackagesAction: aCollection [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newAddRemoteActionName: aName url: anUrl [ @@ -268,7 +270,7 @@ IceTipRepositoryModel >> newAddRemoteActionName: aName url: anUrl [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newCheckoutNewBranchNamed: aString inCommit: aCommit [ @@ -279,7 +281,7 @@ IceTipRepositoryModel >> newCheckoutNewBranchNamed: aString inCommit: aCommit [ action: [ self entity createBranch: aString inCommit: aCommit ] ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newCommitAction [ ^ IceTipCommitAction new @@ -287,7 +289,7 @@ IceTipRepositoryModel >> newCommitAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newDeleteAction [ @@ -298,7 +300,7 @@ IceTipRepositoryModel >> newDeleteAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newDiscardChangesAction [ @@ -312,7 +314,7 @@ IceTipRepositoryModel >> newDiscardChangesAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newFetchAction [ @@ -324,7 +326,7 @@ IceTipRepositoryModel >> newFetchAction [ yourself ] -{ #category : #actions } +{ #category : 'actions' } IceTipRepositoryModel >> newForgetAction [ @@ -335,12 +337,12 @@ IceTipRepositoryModel >> newForgetAction [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> numberOfIncomingCommits [ ^ self incomingCommits size ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> numberOfOutgoingCommits [ ^ [ | size | self entity branch hasUpstream ifFalse: [ ^ '*' ]. @@ -351,40 +353,40 @@ IceTipRepositoryModel >> numberOfOutgoingCommits [ on: IceNotInBranch do: [ :e | '0' ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> outgoingCommits [ ^ self entity outgoingCommits ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> packages [ ^ self entity workingCopy packages ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> pushRemoteName [ ^ self entity branch upstream name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> remoteModels [ ^ self entity remotes collect: [ :each | (IceTipRemoteModel repositoryModel: self on: each) beCached ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> remotes [ ^ entity remotes ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> repositoryModel [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> repositoryModelsByGroup [ | branches tags | branches := self allBranchModels. @@ -422,12 +424,12 @@ IceTipRepositoryModel >> repositoryModelsByGroup [ } ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> shortCommitId [ ^ [self entity headCommit shortId] on: Error do: [ nil ]. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> status [ [ | status incoming outgoing | @@ -465,7 +467,7 @@ IceTipRepositoryModel >> status [ do: [ :e | ^ e description ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> statusDecorator [ [ @@ -488,7 +490,7 @@ IceTipRepositoryModel >> statusDecorator [ ^ IceTipStatusDecorator none ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> statusString [ [ | status incoming outgoing | @@ -525,13 +527,13 @@ IceTipRepositoryModel >> statusString [ do: [ :e | ^ e description ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> subdirectory [ ^ self entity subdirectory ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> tagModels [ ^ self entity tags @@ -542,7 +544,7 @@ IceTipRepositoryModel >> tagModels [ beCached ] ] -{ #category : #operations } +{ #category : 'operations' } IceTipRepositoryModel >> updateLocation: aReference [ "change location" @@ -552,18 +554,18 @@ IceTipRepositoryModel >> updateLocation: aReference [ Iceberg announcer announce: (IceRepositoryModified for: self entity) ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryModel >> verifyDirectoryStructureIfMissing: aBlock [ self entity isMissing ifTrue: [ ^ aBlock value: self localRepositoryMissing ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> workingCopy [ ^ IceTipWorkingCopyModel on: self ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryModel >> workingCopyDiff [ diff --git a/Iceberg-TipUI/IceTipRepositoryTypePanel.class.st b/Iceberg-TipUI/IceTipRepositoryTypePanel.class.st index 5d7d48dc7e..a5bff37e31 100644 --- a/Iceberg-TipUI/IceTipRepositoryTypePanel.class.st +++ b/Iceberg-TipUI/IceTipRepositoryTypePanel.class.st @@ -3,8 +3,8 @@ I'm a generic repository type panel. I'm used as part of the creation dialog and to edit repository properties. " Class { - #name : #IceTipRepositoryTypePanel, - #superclass : #IceTipPresenter, + #name : 'IceTipRepositoryTypePanel', + #superclass : 'IceTipPresenter', #instVars : [ 'projectLocationLabel', 'projectLocation', @@ -12,10 +12,12 @@ Class { 'remoteInputText', 'repository' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryTypePanel class >> allTypes [ ^ ((self allSubclasses reject: #isAbstract) @@ -23,37 +25,37 @@ IceTipRepositoryTypePanel class >> allTypes [ collect: #new ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryTypePanel class >> isAbstract [ ^ self = IceTipRepositoryTypePanel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryTypePanel class >> order [ ^ 0 ] -{ #category : #private } +{ #category : 'private' } IceTipRepositoryTypePanel >> defaultLocation [ ^ IceLibgitRepository repositoriesLocation pathString ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryTypePanel >> defaultSubdirectory [ ^ IceLibgitRepository defaultCodeSubdirectory ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryTypePanel >> initializePresenters [ self initializeProjectLocation ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryTypePanel >> initializeProjectLocation [ projectLocationLabel := self newLabel label: 'Local directory'. @@ -63,7 +65,7 @@ IceTipRepositoryTypePanel >> initializeProjectLocation [ location: self defaultLocation ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipRepositoryTypePanel >> initializeRemoteURL [ remoteLabel := self newLabel label: 'Remote URL'; yourself. @@ -73,50 +75,50 @@ IceTipRepositoryTypePanel >> initializeRemoteURL [ yourself. ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryTypePanel >> isLocalRepository [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipRepositoryTypePanel >> isNewRepository [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryTypePanel >> newRepository [ ^ self subclassResponsibility ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryTypePanel >> projectLocation [ ^ projectLocation ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryTypePanel >> remoteInputText [ ^ remoteInputText ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipRepositoryTypePanel >> remoteLabel [ ^ remoteLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryTypePanel >> repository: aRepository [ "Used if editing an existing repository" repository := aRepository ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRepositoryTypePanel >> validate [ ^ self subclassResponsibility diff --git a/Iceberg-TipUI/IceTipResetBranchToThisCommitCommand.class.st b/Iceberg-TipUI/IceTipResetBranchToThisCommitCommand.class.st index a92054e657..fe4979489e 100644 --- a/Iceberg-TipUI/IceTipResetBranchToThisCommitCommand.class.st +++ b/Iceberg-TipUI/IceTipResetBranchToThisCommitCommand.class.st @@ -2,37 +2,39 @@ I'm a command to reset the selected branch to the selected commit. It does not modify the working copy. " Class { - #name : #IceTipResetBranchToThisCommitCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipResetBranchToThisCommitCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipResetBranchToThisCommitCommand class >> defaultDescription [ ^ 'Resets the selected branch to the selected commit. It does not modify the working copy (!!).' ] -{ #category : #executing } +{ #category : 'executing' } IceTipResetBranchToThisCommitCommand >> defaultNameFromContext [ ^ 'Reset ', self selectedBranch name, ' to commit ', self selectedCommitish shortId ] -{ #category : #executing } +{ #category : 'executing' } IceTipResetBranchToThisCommitCommand >> execute [ self selectedBranch resetToCommit: self selectedCommitish. Iceberg announcer announce: (IceRepositoryModified for: self repository). ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipResetBranchToThisCommitCommand >> iconName [ ^ #bottom ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipResetBranchToThisCommitCommand >> name [ ^ self context @@ -40,13 +42,13 @@ IceTipResetBranchToThisCommitCommand >> name [ ifNotNil: [ self defaultNameFromContext ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipResetBranchToThisCommitCommand >> selectedBranch [ ^ self context model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipResetBranchToThisCommitCommand >> selectedCommitish [ ^ self item diff --git a/Iceberg-TipUI/IceTipRevertChangeCommand.class.st b/Iceberg-TipUI/IceTipRevertChangeCommand.class.st index 2a35d1e302..32620f7057 100644 --- a/Iceberg-TipUI/IceTipRevertChangeCommand.class.st +++ b/Iceberg-TipUI/IceTipRevertChangeCommand.class.st @@ -3,24 +3,26 @@ I'm a command to install a chunk of code from a commit (shown in a diff) into th ""chunk"" can be a package, class or single method. " Class { - #name : #IceTipRevertChangeCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipRevertChangeCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRevertChangeCommand class >> defaultDescription [ ^ 'Revert selected change in the image' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipRevertChangeCommand class >> defaultName [ ^ 'Revert change' ] -{ #category : #executing } +{ #category : 'executing' } IceTipRevertChangeCommand >> execute [ UIManager default @@ -33,13 +35,13 @@ IceTipRevertChangeCommand >> execute [ (IceRepositoryModified for: self repository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipRevertChangeCommand >> iconName [ ^ #smallUndo ] -{ #category : #executing } +{ #category : 'executing' } IceTipRevertChangeCommand >> tool [ "We consider the diffPanel of the context as our tool. This is important because we have to announce in the same Announcer instance that is subscribed for our news." diff --git a/Iceberg-TipUI/IceTipSaveImageAction.class.st b/Iceberg-TipUI/IceTipSaveImageAction.class.st index a60893f771..0dc8f6057b 100644 --- a/Iceberg-TipUI/IceTipSaveImageAction.class.st +++ b/Iceberg-TipUI/IceTipSaveImageAction.class.st @@ -4,12 +4,14 @@ I implement the action of saving the image. I'm used by the presenter that prepares the commit. " Class { - #name : #IceTipSaveImageAction, - #superclass : #Object, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipSaveImageAction', + #superclass : 'Object', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #execution } +{ #category : 'execution' } IceTipSaveImageAction >> execute [ Smalltalk saveSession. diff --git a/Iceberg-TipUI/IceTipSelectAllPackagesCommand.class.st b/Iceberg-TipUI/IceTipSelectAllPackagesCommand.class.st index 69334d31e0..4b30645958 100644 --- a/Iceberg-TipUI/IceTipSelectAllPackagesCommand.class.st +++ b/Iceberg-TipUI/IceTipSelectAllPackagesCommand.class.st @@ -3,24 +3,26 @@ Implements the select all option behavior in the ""Select New Packages to Load"" " Class { - #name : #IceTipSelectAllPackagesCommand, - #superclass : #IceTipSelectPackagesCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipSelectAllPackagesCommand', + #superclass : 'IceTipSelectPackagesCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #default } +{ #category : 'default' } IceTipSelectAllPackagesCommand class >> defaultDescription [ ^ 'Opens a dialog to choose select and/or removing new package(s) from the repository' ] -{ #category : #default } +{ #category : 'default' } IceTipSelectAllPackagesCommand class >> defaultName [ ^ 'Select all packages' ] -{ #category : #testing } +{ #category : 'testing' } IceTipSelectAllPackagesCommand >> canBeExecuted [ " Answer if the receiver has items to display and they are not all selected " @@ -30,7 +32,7 @@ IceTipSelectAllPackagesCommand >> canBeExecuted [ ^ pkgList items notEmpty and: [ pkgList items size ~= pkgList selectedItems size ] ] -{ #category : #executing } +{ #category : 'executing' } IceTipSelectAllPackagesCommand >> execute [ " Private - Select all the receiver's packages " @@ -38,7 +40,7 @@ IceTipSelectAllPackagesCommand >> execute [ self packagesList refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectAllPackagesCommand >> iconName [ ^ #checkboxSelected diff --git a/Iceberg-TipUI/IceTipSelectPackagesCommand.class.st b/Iceberg-TipUI/IceTipSelectPackagesCommand.class.st index c8218a5b92..25f6293bb2 100644 --- a/Iceberg-TipUI/IceTipSelectPackagesCommand.class.st +++ b/Iceberg-TipUI/IceTipSelectPackagesCommand.class.st @@ -2,12 +2,14 @@ Provides common behavior to accesing the packages list presenters in its context. " Class { - #name : #IceTipSelectPackagesCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipSelectPackagesCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #executing } +{ #category : 'executing' } IceTipSelectPackagesCommand >> packagesList [ " Answer a including the receiver's packages " diff --git a/Iceberg-TipUI/IceTipSelectRemotePresenter.class.st b/Iceberg-TipUI/IceTipSelectRemotePresenter.class.st index 51ece93142..9ed3ec2535 100644 --- a/Iceberg-TipUI/IceTipSelectRemotePresenter.class.st +++ b/Iceberg-TipUI/IceTipSelectRemotePresenter.class.st @@ -1,21 +1,23 @@ Class { - #name : #IceTipSelectRemotePresenter, - #superclass : #SpPresenter, + #name : 'IceTipSelectRemotePresenter', + #superclass : 'SpPresenter', #instVars : [ 'remoteList', 'addButton', 'model' ], - #category : #'Iceberg-TipUI-View-Branch' + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipSelectRemotePresenter >> addButton [ ^ addButton ] -{ #category : #actions } +{ #category : 'actions' } IceTipSelectRemotePresenter >> addRemote [ ((IceTipAddRemoteDialogPresenter @@ -30,7 +32,7 @@ IceTipSelectRemotePresenter >> addRemote [ open ] -{ #category : #layout } +{ #category : 'layout' } IceTipSelectRemotePresenter >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -40,13 +42,13 @@ IceTipSelectRemotePresenter >> defaultLayout [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectRemotePresenter >> icon [ ^ self iconNamed: #add ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipSelectRemotePresenter >> initializePresenters [ remoteList := self newDropList @@ -60,44 +62,44 @@ IceTipSelectRemotePresenter >> initializePresenters [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectRemotePresenter >> label: aString [ self remoteLabel label: aString ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectRemotePresenter >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectRemotePresenter >> refresh [ remoteList items: self model remoteModels ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipSelectRemotePresenter >> remoteList [ ^ remoteList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSelectRemotePresenter >> selectRemoteNamed: aString [ remoteList selectItem: (self model remoteModels detect: [ :each | each name = aString ]) ] -{ #category : #'accessing - model' } +{ #category : 'accessing - model' } IceTipSelectRemotePresenter >> setModelBeforeInitialization: anObject [ model := anObject ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipSelectRemotePresenter >> updatePresenter [ self refresh. diff --git a/Iceberg-TipUI/IceTipSettingsCommand.class.st b/Iceberg-TipUI/IceTipSettingsCommand.class.st index 7fd84a78c0..487cfeffdc 100644 --- a/Iceberg-TipUI/IceTipSettingsCommand.class.st +++ b/Iceberg-TipUI/IceTipSettingsCommand.class.st @@ -2,31 +2,33 @@ Command that opens the settings on a repository " Class { - #name : #IceTipSettingsCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipSettingsCommand', + #superclass : 'IceTipRepositoryCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipSettingsCommand class >> defaultDescription [ ^ 'Open settings browser to configure Iceberg' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipSettingsCommand class >> defaultName [ ^ 'Settings' ] -{ #category : #testing } +{ #category : 'testing' } IceTipSettingsCommand >> canBeExecuted [ "This command can be executed with our without selection" ^ true ] -{ #category : #executing } +{ #category : 'executing' } IceTipSettingsCommand >> execute [ | browser window path | @@ -41,19 +43,19 @@ IceTipSettingsCommand >> execute [ browser expandNodePath: path first contents first contents first path. ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSettingsCommand >> iconName [ ^ #configuration ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSettingsCommand >> shortcutKey [ ^ $n meta ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSettingsCommand >> shouldBeDisplayedOnRightSideInToolbar [ ^ true diff --git a/Iceberg-TipUI/IceTipSpCommand.class.st b/Iceberg-TipUI/IceTipSpCommand.class.st index 41ad221c73..02907cc53e 100644 --- a/Iceberg-TipUI/IceTipSpCommand.class.st +++ b/Iceberg-TipUI/IceTipSpCommand.class.st @@ -4,27 +4,29 @@ I am a CmUICommand that is specialized for Iceberg UI. In particular, I'm used to wrap instances of IceTipCommand in a IceTipBrowser. " Class { - #name : #IceTipSpCommand, - #superclass : #CmUICommand, + #name : 'IceTipSpCommand', + #superclass : 'CmUICommand', #instVars : [ 'presenterBuildingStrategy' ], - #category : #'Iceberg-TipUI-Spec2' + #category : 'Iceberg-TipUI-Spec2', + #package : 'Iceberg-TipUI', + #tag : 'Spec2' } -{ #category : #'presenter building' } +{ #category : 'presenter building' } IceTipSpCommand >> buildPresenter [ ^ self presenterBuildingStrategy resultOn: self ] -{ #category : #'presenter building' } +{ #category : 'presenter building' } IceTipSpCommand >> configureAsToolbarButton [ self presenterBuildingStrategy: IceTipToolbarButtonStrategy new ] -{ #category : #displaying } +{ #category : 'displaying' } IceTipSpCommand >> displayIn: aMenuGroupOrPresenter do: aBlock [ self displayStrategy @@ -33,30 +35,30 @@ IceTipSpCommand >> displayIn: aMenuGroupOrPresenter do: aBlock [ do: aBlock ] -{ #category : #displaying } +{ #category : 'displaying' } IceTipSpCommand >> ifVisible: aBlock [ self displayStrategy ifVisible: self do: aBlock ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipSpCommand >> initialize [ super initialize. self configureAsToolbarButton ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSpCommand >> presenterBuildingStrategy [ ^ presenterBuildingStrategy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSpCommand >> presenterBuildingStrategy: aStrategy [ presenterBuildingStrategy := aStrategy ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipSpCommand >> toolbarItemName [ ^ self decoratedCommand toolbarItemName diff --git a/Iceberg-TipUI/IceTipStandardAction.class.st b/Iceberg-TipUI/IceTipStandardAction.class.st index 6d97da6496..205c3bf83c 100644 --- a/Iceberg-TipUI/IceTipStandardAction.class.st +++ b/Iceberg-TipUI/IceTipStandardAction.class.st @@ -4,27 +4,29 @@ I will perform an action by informing user what's happening. I will also check for errors happening while performing the task and try to recover from them. " Class { - #name : #IceTipStandardAction, - #superclass : #IceTipAction, + #name : 'IceTipStandardAction', + #superclass : 'IceTipAction', #instVars : [ 'message', 'successAnnounceBlock', 'actionBlock' ], - #category : #'Iceberg-TipUI-Commands' + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> action [ ^ actionBlock ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> action: aBlock [ actionBlock := aBlock ] -{ #category : #executing } +{ #category : 'executing' } IceTipStandardAction >> basicExecute [ | result | @@ -38,35 +40,35 @@ IceTipStandardAction >> basicExecute [ ^ result ] -{ #category : #executing } +{ #category : 'executing' } IceTipStandardAction >> do: aBlock [ self action: aBlock. self execute ] -{ #category : #executing } +{ #category : 'executing' } IceTipStandardAction >> execute: aBlock [ self action: aBlock. self execute ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> message [ ^ message ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> message: anObject [ message := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> onSuccessAnnounce: aValuable [ successAnnounceBlock := aValuable ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStandardAction >> onSuccessRepositoryModified [ ^ self onSuccessAnnounce: [ IceRepositoryModified for: self repository ] ] diff --git a/Iceberg-TipUI/IceTipStatusDecorator.class.st b/Iceberg-TipUI/IceTipStatusDecorator.class.st index ba1f418e96..47bd5ea718 100644 --- a/Iceberg-TipUI/IceTipStatusDecorator.class.st +++ b/Iceberg-TipUI/IceTipStatusDecorator.class.st @@ -1,16 +1,18 @@ Class { - #name : #IceTipStatusDecorator, - #superclass : #IceTipTextDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipStatusDecorator', + #superclass : 'IceTipTextDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipStatusDecorator class >> error [ ^ IceTipStatusDecoratorError uniqueInstance ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipStatusDecorator class >> warning [ ^ IceTipStatusDecoratorWarning uniqueInstance diff --git a/Iceberg-TipUI/IceTipStatusDecoratorError.class.st b/Iceberg-TipUI/IceTipStatusDecoratorError.class.st index c68d74a199..b17b0b0531 100644 --- a/Iceberg-TipUI/IceTipStatusDecoratorError.class.st +++ b/Iceberg-TipUI/IceTipStatusDecoratorError.class.st @@ -1,16 +1,18 @@ Class { - #name : #IceTipStatusDecoratorError, - #superclass : #IceTipStatusDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipStatusDecoratorError', + #superclass : 'IceTipStatusDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipStatusDecoratorError >> color [ self flag: #TODO. "Do not rely on theme, but on settings" ^ Smalltalk ui theme dangerTextColor ] -{ #category : #testing } +{ #category : 'testing' } IceTipStatusDecoratorError >> isBold [ ^ true diff --git a/Iceberg-TipUI/IceTipStatusDecoratorWarning.class.st b/Iceberg-TipUI/IceTipStatusDecoratorWarning.class.st index 4ab0410f00..27b044612c 100644 --- a/Iceberg-TipUI/IceTipStatusDecoratorWarning.class.st +++ b/Iceberg-TipUI/IceTipStatusDecoratorWarning.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipStatusDecoratorWarning, - #superclass : #IceTipStatusDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipStatusDecoratorWarning', + #superclass : 'IceTipStatusDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipStatusDecoratorWarning >> color [ ^ Smalltalk ui theme warningTextColor diff --git a/Iceberg-TipUI/IceTipStyleContributor.class.st b/Iceberg-TipUI/IceTipStyleContributor.class.st index 57fadcd53a..85cad5d70c 100644 --- a/Iceberg-TipUI/IceTipStyleContributor.class.st +++ b/Iceberg-TipUI/IceTipStyleContributor.class.st @@ -4,12 +4,14 @@ This class is call by Spec2 to extend the default stylesheet. Check its superclass to understand the way of working. " Class { - #name : #IceTipStyleContributor, - #superclass : #StPharoStyleContributor, - #category : #'Iceberg-TipUI-Styles' + #name : 'IceTipStyleContributor', + #superclass : 'StPharoStyleContributor', + #category : 'Iceberg-TipUI-Styles', + #package : 'Iceberg-TipUI', + #tag : 'Styles' } -{ #category : #styles } +{ #category : 'styles' } IceTipStyleContributor >> styleSheetContribution [ ^ SpStyle newApplication diff --git a/Iceberg-TipUI/IceTipSwitchAndMergeType.class.st b/Iceberg-TipUI/IceTipSwitchAndMergeType.class.st index 20245a7b30..2cf032c786 100644 --- a/Iceberg-TipUI/IceTipSwitchAndMergeType.class.st +++ b/Iceberg-TipUI/IceTipSwitchAndMergeType.class.st @@ -8,12 +8,14 @@ I will switch first to the new branch, and then I will perform a merge with curr This strategy is used to re-attach image when it is detached from current development branch. " Class { - #name : #IceTipSwitchAndMergeType, - #superclass : #IceTipMergeType, - #category : #'Iceberg-TipUI-View-Branch' + #name : 'IceTipSwitchAndMergeType', + #superclass : 'IceTipMergeType', + #category : 'Iceberg-TipUI-View-Branch', + #package : 'Iceberg-TipUI', + #tag : 'View-Branch' } -{ #category : #executing } +{ #category : 'executing' } IceTipSwitchAndMergeType >> newMergeAction: aModel [ ^ aModel newSwitchAndMergeAction diff --git a/Iceberg-TipUI/IceTipTagDecorator.class.st b/Iceberg-TipUI/IceTipTagDecorator.class.st index 695df71986..52aafff355 100644 --- a/Iceberg-TipUI/IceTipTagDecorator.class.st +++ b/Iceberg-TipUI/IceTipTagDecorator.class.st @@ -1,16 +1,18 @@ Class { - #name : #IceTipTagDecorator, - #superclass : #IceTipTextDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipTagDecorator', + #superclass : 'IceTipTextDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipTagDecorator >> color [ ^ Smalltalk ui theme disabledColor ] -{ #category : #testing } +{ #category : 'testing' } IceTipTagDecorator >> isItalic [ ^ true diff --git a/Iceberg-TipUI/IceTipTagModel.class.st b/Iceberg-TipUI/IceTipTagModel.class.st index cfd67df83a..cc72af64a0 100644 --- a/Iceberg-TipUI/IceTipTagModel.class.st +++ b/Iceberg-TipUI/IceTipTagModel.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipTagModel, - #superclass : #IceTipCommitishModel, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipTagModel', + #superclass : 'IceTipCommitishModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipTagModel >> commitModels [ | commits | @@ -17,7 +19,7 @@ IceTipTagModel >> commitModels [ ^ commits ] -{ #category : #actions } +{ #category : 'actions' } IceTipTagModel >> delete [ @@ -28,19 +30,19 @@ IceTipTagModel >> delete [ do: [ self repositoryModel entity removeTag: self entity ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTagModel >> description [ ^ self entity name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTagModel >> name [ ^ self entity name ] -{ #category : #actions } +{ #category : 'actions' } IceTipTagModel >> previewCheckout [ "this will open a 'checkout browser' that will allow user to validate the changes before actually checking out (checkout operation will be called in my sibling method, #checkout)" diff --git a/Iceberg-TipUI/IceTipTextDecorator.class.st b/Iceberg-TipUI/IceTipTextDecorator.class.st index 879c33d06a..0530538c8a 100644 --- a/Iceberg-TipUI/IceTipTextDecorator.class.st +++ b/Iceberg-TipUI/IceTipTextDecorator.class.st @@ -1,44 +1,46 @@ Class { - #name : #IceTipTextDecorator, - #superclass : #Object, + #name : 'IceTipTextDecorator', + #superclass : 'Object', #classInstVars : [ 'uniqueInstance' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipTextDecorator class >> new [ self error: 'Use #uniqueInstance' ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTextDecorator class >> none [ ^ IceTipTextDecoratorNone uniqueInstance ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipTextDecorator class >> uniqueInstance [ self = IceTipTextDecorator ifTrue: [ ^ self error: 'I''m abstract, use one of my children.' ]. ^ uniqueInstance ifNil: [ uniqueInstance := super new ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTextDecorator >> color [ self flag: #TODO. "Do not rely on theme, but on settings" ^ Smalltalk ui theme textColor ] -{ #category : #testing } +{ #category : 'testing' } IceTipTextDecorator >> isBold [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipTextDecorator >> isItalic [ ^ false diff --git a/Iceberg-TipUI/IceTipTextDecoratorNone.class.st b/Iceberg-TipUI/IceTipTextDecoratorNone.class.st index 5bfcdfb1db..79c406d278 100644 --- a/Iceberg-TipUI/IceTipTextDecoratorNone.class.st +++ b/Iceberg-TipUI/IceTipTextDecoratorNone.class.st @@ -1,5 +1,7 @@ Class { - #name : #IceTipTextDecoratorNone, - #superclass : #IceTipTextDecorator, - #category : #'Iceberg-TipUI-Model' + #name : 'IceTipTextDecoratorNone', + #superclass : 'IceTipTextDecorator', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } diff --git a/Iceberg-TipUI/IceTipToolbarButtonStrategy.class.st b/Iceberg-TipUI/IceTipToolbarButtonStrategy.class.st index 610e84556c..ceb50f8d8a 100644 --- a/Iceberg-TipUI/IceTipToolbarButtonStrategy.class.st +++ b/Iceberg-TipUI/IceTipToolbarButtonStrategy.class.st @@ -3,18 +3,20 @@ I'm a strategy to build Spec2 buttons foro a toolar wrapping a IceTipSpCommand. " Class { - #name : #IceTipToolbarButtonStrategy, - #superclass : #IceTipCommandToPresenterBuildingStrategy, - #category : #'Iceberg-TipUI-Spec2' + #name : 'IceTipToolbarButtonStrategy', + #superclass : 'IceTipCommandToPresenterBuildingStrategy', + #category : 'Iceberg-TipUI-Spec2', + #package : 'Iceberg-TipUI', + #tag : 'Spec2' } -{ #category : #hook } +{ #category : 'hook' } IceTipToolbarButtonStrategy >> buttonPresenterClass [ ^ SpToolbarButtonPresenter ] -{ #category : #public } +{ #category : 'public' } IceTipToolbarButtonStrategy >> resultOn: aCommand [ | aButtonPresenter | diff --git a/Iceberg-TipUI/IceTipToolbarPresenterBuilder.class.st b/Iceberg-TipUI/IceTipToolbarPresenterBuilder.class.st index 67f6838fb7..91cc8f7fce 100644 --- a/Iceberg-TipUI/IceTipToolbarPresenterBuilder.class.st +++ b/Iceberg-TipUI/IceTipToolbarPresenterBuilder.class.st @@ -3,12 +3,14 @@ I'm a SpToolbarPresenterBuilder that delegates to the command the decision to ac " Class { - #name : #IceTipToolbarPresenterBuilder, - #superclass : #SpToolbarPresenterBuilder, - #category : #'Iceberg-TipUI-Spec2' + #name : 'IceTipToolbarPresenterBuilder', + #superclass : 'SpToolbarPresenterBuilder', + #category : 'Iceberg-TipUI-Spec2', + #package : 'Iceberg-TipUI', + #tag : 'Spec2' } -{ #category : #visiting } +{ #category : 'visiting' } IceTipToolbarPresenterBuilder >> visitCommand: anEntry [ anEntry ifVisible: [ super visitCommand: anEntry ] diff --git a/Iceberg-TipUI/IceTipTreeBranch.class.st b/Iceberg-TipUI/IceTipTreeBranch.class.st index 2c2c76c0ba..048ef0aeb2 100644 --- a/Iceberg-TipUI/IceTipTreeBranch.class.st +++ b/Iceberg-TipUI/IceTipTreeBranch.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipTreeBranch, - #superclass : #IceTipTreeItem, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipTreeBranch', + #superclass : 'IceTipTreeItem', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #testing } +{ #category : 'testing' } IceTipTreeBranch >> canActivateCommand: aCommandClass [ ^ aCommandClass actsOnBranch: self ] diff --git a/Iceberg-TipUI/IceTipTreeCollapseCommand.class.st b/Iceberg-TipUI/IceTipTreeCollapseCommand.class.st index abe4c6c3f2..6d6c8e77c2 100644 --- a/Iceberg-TipUI/IceTipTreeCollapseCommand.class.st +++ b/Iceberg-TipUI/IceTipTreeCollapseCommand.class.st @@ -3,31 +3,33 @@ A generic command to collapse a tree. It sends `doCollapseSelection` message to its context. " Class { - #name : #IceTipTreeCollapseCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipTreeCollapseCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipTreeCollapseCommand class >> defaultDescription [ ^ 'Collapse selected item' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipTreeCollapseCommand class >> defaultName [ ^ 'Collapse' ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeCollapseCommand >> canBeExecuted [ ^ self hasSelectedItem ] -{ #category : #executing } +{ #category : 'executing' } IceTipTreeCollapseCommand >> execute [ self context doCollapseSelection diff --git a/Iceberg-TipUI/IceTipTreeExpandCommand.class.st b/Iceberg-TipUI/IceTipTreeExpandCommand.class.st index b3e6aab770..c7ff5ac195 100644 --- a/Iceberg-TipUI/IceTipTreeExpandCommand.class.st +++ b/Iceberg-TipUI/IceTipTreeExpandCommand.class.st @@ -2,37 +2,39 @@ A generic command to expand tree items within a tree. " Class { - #name : #IceTipTreeExpandCommand, - #superclass : #IceTipCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipTreeExpandCommand', + #superclass : 'IceTipCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipTreeExpandCommand class >> defaultDescription [ ^ 'Expand selected item' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipTreeExpandCommand class >> defaultName [ ^ 'Expand' ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeExpandCommand >> canBeExecuted [ ^ self hasSelectedItem ] -{ #category : #executing } +{ #category : 'executing' } IceTipTreeExpandCommand >> execute [ self context doExpandSelection ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeExpandCommand >> iconName [ ^ nil diff --git a/Iceberg-TipUI/IceTipTreeGroup.class.st b/Iceberg-TipUI/IceTipTreeGroup.class.st index bf0b91e110..3de0ec917c 100644 --- a/Iceberg-TipUI/IceTipTreeGroup.class.st +++ b/Iceberg-TipUI/IceTipTreeGroup.class.st @@ -4,16 +4,18 @@ I keep groups with elements. I can provide also a contexts for menu operations and other kind of options to be associated with group. " Class { - #name : #IceTipTreeGroup, - #superclass : #IceTipTreeNode, + #name : 'IceTipTreeGroup', + #superclass : 'IceTipTreeNode', #instVars : [ 'name', 'children' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipTreeGroup class >> name: aName children: aCollection [ ^ self new name: aName; @@ -21,7 +23,7 @@ IceTipTreeGroup class >> name: aName children: aCollection [ yourself ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipTreeGroup class >> name: aName icon: anIcon children: aCollection [ ^ self new name: aName; @@ -30,7 +32,7 @@ IceTipTreeGroup class >> name: aName icon: anIcon children: aCollection [ yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> addChild: anObject [ children ifNil: [ children := OrderedCollection new ]. children add: anObject. @@ -38,23 +40,23 @@ IceTipTreeGroup >> addChild: anObject [ ^ anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> children [ ^ children ifNil: [ #() ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> children: aCollection [ children := aCollection. children do: [ :each | each parent: self ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> description [ ^ self name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> ensurePath: aPath [ | first next | @@ -67,34 +69,34 @@ IceTipTreeGroup >> ensurePath: aPath [ ifEmpty: [ next ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeGroup >> isGroup [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeGroup >> isSameAs: aNode [ ^ aNode species = self species and: [ self name = aNode name and: [ aNode name notNil ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> traversingDo: aBlock [ ^ self traversingDo: aBlock parents: #() ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeGroup >> traversingDo: aBlock parents: anArray [ aBlock cull: self cull: anArray. self children do: [ :each | diff --git a/Iceberg-TipUI/IceTipTreeItem.class.st b/Iceberg-TipUI/IceTipTreeItem.class.st index bea3c80b69..62ce9f9737 100644 --- a/Iceberg-TipUI/IceTipTreeItem.class.st +++ b/Iceberg-TipUI/IceTipTreeItem.class.st @@ -2,36 +2,38 @@ I'm a leaf element of a tree. " Class { - #name : #IceTipTreeItem, - #superclass : #IceTipTreeNode, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipTreeItem', + #superclass : 'IceTipTreeNode', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeItem >> description [ ^ self model description ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeItem >> descriptionDecorator [ ^ self model descriptionDecorator ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeItem >> isSameAs: aNode [ ^ aNode species = self species and: [ self model = aNode model ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeItem >> shortDescription [ ^ self model shortDescription ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeItem >> traversingDo: aBlock parents: anArray [ aBlock cull: self cull: anArray diff --git a/Iceberg-TipUI/IceTipTreeNode.class.st b/Iceberg-TipUI/IceTipTreeNode.class.st index 43b31c752c..932a612b46 100644 --- a/Iceberg-TipUI/IceTipTreeNode.class.st +++ b/Iceberg-TipUI/IceTipTreeNode.class.st @@ -5,38 +5,40 @@ I understand - icon " Class { - #name : #IceTipTreeNode, - #superclass : #Object, + #name : 'IceTipTreeNode', + #superclass : 'Object', #instVars : [ 'model', 'parent', 'icon' ], - #category : #'Iceberg-TipUI-View-Repository' + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipTreeNode class >> on: aModel [ ^ self new model: aModel ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeNode >> canActivateCommand: aCommandClass [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> children [ ^ #() ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> description [ ^ self subclassResponsibility ] -{ #category : #'reflective operations' } +{ #category : 'reflective operations' } IceTipTreeNode >> doesNotUnderstand: aMessage [ "redirect to model to provide polymorphism." self flag: #pharoTodo. "I'm not sure this is good practice... we'll see how it works" @@ -44,59 +46,59 @@ IceTipTreeNode >> doesNotUnderstand: aMessage [ ^ aMessage sendTo: self model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> icon [ ^ icon ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> icon: anIcon [ icon := anIcon ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeNode >> isGroup [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeNode >> isLeaf [ ^ self isGroup not ] -{ #category : #testing } +{ #category : 'testing' } IceTipTreeNode >> isSameAs: aNode [ ^ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> model [ ^ model ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> model: anObject [ model := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> parent [ ^ parent ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> parent: anObject [ parent := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> path [ ^ self parent ifNotNil: [ :p | p path, { self } ] ifNil: [ { self } ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipTreeNode >> traversingDo: aBlock parents: anArray [ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceTipTreeRemote.class.st b/Iceberg-TipUI/IceTipTreeRemote.class.st index ca4a7d6761..df832c0592 100644 --- a/Iceberg-TipUI/IceTipTreeRemote.class.st +++ b/Iceberg-TipUI/IceTipTreeRemote.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipTreeRemote, - #superclass : #IceTipTreeGroup, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipTreeRemote', + #superclass : 'IceTipTreeGroup', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #testing } +{ #category : 'testing' } IceTipTreeRemote >> canActivateCommand: aCommandClass [ ^ aCommandClass actsOnRemote: self ] diff --git a/Iceberg-TipUI/IceTipTreeRepositoryGroup.class.st b/Iceberg-TipUI/IceTipTreeRepositoryGroup.class.st index 641cdf415b..34b4cacef9 100644 --- a/Iceberg-TipUI/IceTipTreeRepositoryGroup.class.st +++ b/Iceberg-TipUI/IceTipTreeRepositoryGroup.class.st @@ -1,5 +1,7 @@ Class { - #name : #IceTipTreeRepositoryGroup, - #superclass : #IceTipTreeGroup, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipTreeRepositoryGroup', + #superclass : 'IceTipTreeGroup', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } diff --git a/Iceberg-TipUI/IceTipTreeTag.class.st b/Iceberg-TipUI/IceTipTreeTag.class.st index 1f930e5759..5369001c4b 100644 --- a/Iceberg-TipUI/IceTipTreeTag.class.st +++ b/Iceberg-TipUI/IceTipTreeTag.class.st @@ -1,10 +1,12 @@ Class { - #name : #IceTipTreeTag, - #superclass : #IceTipTreeItem, - #category : #'Iceberg-TipUI-View-Repository' + #name : 'IceTipTreeTag', + #superclass : 'IceTipTreeItem', + #category : 'Iceberg-TipUI-View-Repository', + #package : 'Iceberg-TipUI', + #tag : 'View-Repository' } -{ #category : #testing } +{ #category : 'testing' } IceTipTreeTag >> canActivateCommand: aCommandClass [ ^ aCommandClass actsOnTag: self ] diff --git a/Iceberg-TipUI/IceTipUnloadAndRemovePackageCommand.class.st b/Iceberg-TipUI/IceTipUnloadAndRemovePackageCommand.class.st index 799a7e886a..95664d05d8 100644 --- a/Iceberg-TipUI/IceTipUnloadAndRemovePackageCommand.class.st +++ b/Iceberg-TipUI/IceTipUnloadAndRemovePackageCommand.class.st @@ -7,30 +7,32 @@ It gives the user with two checkboxes to choose: Right now this is only shown for loaded packages. " Class { - #name : #IceTipUnloadAndRemovePackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipUnloadAndRemovePackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipUnloadAndRemovePackageCommand class >> defaultDescription [ ^ 'Opens a dialog to choose between unloading from system and/or removing a package from the repository' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipUnloadAndRemovePackageCommand class >> defaultName [ ^ 'Unload and/or remove from repository' ] -{ #category : #testing } +{ #category : 'testing' } IceTipUnloadAndRemovePackageCommand >> canBeExecuted [ ^ self isPackageLoaded ] -{ #category : #executing } +{ #category : 'executing' } IceTipUnloadAndRemovePackageCommand >> execute [ (IceTipRemovePackageDialogPresenter @@ -41,7 +43,7 @@ IceTipUnloadAndRemovePackageCommand >> execute [ open ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipUnloadAndRemovePackageCommand >> iconName [ ^ #glamorousTrash diff --git a/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st b/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st index 6ca10d560f..ba89f54d03 100644 --- a/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st +++ b/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st @@ -2,36 +2,38 @@ Command to unload a package from the system, keeping it in the repository " Class { - #name : #IceTipUnloadPackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipUnloadPackageCommand', + #superclass : 'IceTipPackageCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipUnloadPackageCommand class >> defaultDescription [ ^ 'Unload selected package from the system, but keep it in the repository.' ] -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipUnloadPackageCommand class >> defaultName [ ^ 'Unload' ] -{ #category : #testing } +{ #category : 'testing' } IceTipUnloadPackageCommand >> canBeExecuted [ ^ self isPackageLoaded ] -{ #category : #executing } +{ #category : 'executing' } IceTipUnloadPackageCommand >> execute [ self packageModel unload ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipUnloadPackageCommand >> iconName [ ^ #smallCancel diff --git a/Iceberg-TipUI/IceTipUnselectAllPackagesCommand.class.st b/Iceberg-TipUI/IceTipUnselectAllPackagesCommand.class.st index 9527d0f50e..f2b6ae1931 100644 --- a/Iceberg-TipUI/IceTipUnselectAllPackagesCommand.class.st +++ b/Iceberg-TipUI/IceTipUnselectAllPackagesCommand.class.st @@ -3,24 +3,26 @@ Implements the unselect all option behavior in the ""Select New Packages to Load " Class { - #name : #IceTipUnselectAllPackagesCommand, - #superclass : #IceTipSelectPackagesCommand, - #category : #'Iceberg-TipUI-Commands' + #name : 'IceTipUnselectAllPackagesCommand', + #superclass : 'IceTipSelectPackagesCommand', + #category : 'Iceberg-TipUI-Commands', + #package : 'Iceberg-TipUI', + #tag : 'Commands' } -{ #category : #'accessing - defaults' } +{ #category : 'accessing - defaults' } IceTipUnselectAllPackagesCommand class >> defaultDescription [ ^ 'Opens a dialog to choose select and/or removing new package(s) from the repository' ] -{ #category : #default } +{ #category : 'default' } IceTipUnselectAllPackagesCommand class >> defaultName [ ^ 'Unselect all packages' ] -{ #category : #testing } +{ #category : 'testing' } IceTipUnselectAllPackagesCommand >> canBeExecuted [ " Answer if the receiver has items to display " @@ -30,7 +32,7 @@ IceTipUnselectAllPackagesCommand >> canBeExecuted [ ^ pkgList items notEmpty ] -{ #category : #executing } +{ #category : 'executing' } IceTipUnselectAllPackagesCommand >> execute [ " Private - Unselect all the receiver's packages " @@ -38,7 +40,7 @@ IceTipUnselectAllPackagesCommand >> execute [ self packagesList refresh ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipUnselectAllPackagesCommand >> iconName [ ^ #checkboxUnselected diff --git a/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st b/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st index c21462781d..57a7aa7cd3 100644 --- a/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st @@ -8,8 +8,8 @@ For versions, I show the same commands of a regular history browser, but add som " Class { - #name : #IceTipVersionHistoryBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipVersionHistoryBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'commitList', 'selectedModel', @@ -17,16 +17,18 @@ Class { 'diffPage', 'commitPanel' ], - #category : #'Iceberg-TipUI-View-Versions' + #category : 'Iceberg-TipUI-View-Versions', + #package : 'Iceberg-TipUI', + #tag : 'View-Versions' } -{ #category : #commands } +{ #category : 'commands' } IceTipVersionHistoryBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ "Nothing to add" ] -{ #category : #commands } +{ #category : 'commands' } IceTipVersionHistoryBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { IceTipInstallVersionCommand } @@ -35,7 +37,7 @@ IceTipVersionHistoryBrowser class >> buildSelectionCommandGroupWith: presenter f ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipVersionHistoryBrowser class >> onRepository: aRepository method: aMethod [ ^ self on: (IceTipVersionHistoryModel @@ -44,13 +46,13 @@ IceTipVersionHistoryBrowser class >> onRepository: aRepository method: aMethod [ beCached ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryBrowser >> commitList [ ^ commitList ] -{ #category : #layout } +{ #category : 'layout' } IceTipVersionHistoryBrowser >> defaultLayout [ ^ SpPanedLayout newTopToBottom @@ -59,13 +61,13 @@ IceTipVersionHistoryBrowser >> defaultLayout [ yourself ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> initialExtentForWindow [ ^ (700@700) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> initializeCommitList [ commitList @@ -94,7 +96,7 @@ IceTipVersionHistoryBrowser >> initializeCommitList [ self selectionChanged: aSelection selectedItem ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> initializeCommitPanel [ "This will be initialised in fact on the first refresh" @@ -106,7 +108,7 @@ IceTipVersionHistoryBrowser >> initializeCommitPanel [ yourself) ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> initializePresenters [ commitList := self newTable. @@ -116,21 +118,21 @@ IceTipVersionHistoryBrowser >> initializePresenters [ self initializeCommitPanel ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipVersionHistoryBrowser >> mainList [ "Answer the presenter that is the main list of items of this browser." ^ commitList ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryBrowser >> model: anObject [ super model: anObject. self refresh ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipVersionHistoryBrowser >> newDiffPage [ ^ SpNotebookPage @@ -139,7 +141,7 @@ IceTipVersionHistoryBrowser >> newDiffPage [ provider: [ self newDiffPresenter ] ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipVersionHistoryBrowser >> newDiffPanelLeft: leftString right: rightString [ ^ (self instantiate: SpDiffPresenter) @@ -148,7 +150,7 @@ IceTipVersionHistoryBrowser >> newDiffPanelLeft: leftString right: rightString [ showOptions: false ] -{ #category : #private } +{ #category : 'private' } IceTipVersionHistoryBrowser >> newDiffPresenter [ selectedModel ifNil: [ ^ self ]. @@ -159,7 +161,7 @@ IceTipVersionHistoryBrowser >> newDiffPresenter [ right: selectedModel source ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipVersionHistoryBrowser >> newInfoPage [ ^ SpNotebookPage @@ -169,14 +171,14 @@ IceTipVersionHistoryBrowser >> newInfoPage [ ] -{ #category : #private } +{ #category : 'private' } IceTipVersionHistoryBrowser >> newVersionInfoPresenter [ selectedModel ifNil: [ ^ self ]. ^ IceTipReadOnlyFormBuilder newBuiltFor: selectedModel info application: self application ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryBrowser >> refresh [ commitList items: self model commitModels. @@ -186,7 +188,7 @@ IceTipVersionHistoryBrowser >> refresh [ self refreshCommitTabPanel ] -{ #category : #private } +{ #category : 'private' } IceTipVersionHistoryBrowser >> refreshCommitTabPanel [ selectedModel ifNil: [ ^ self ]. @@ -198,14 +200,14 @@ IceTipVersionHistoryBrowser >> refreshCommitTabPanel [ commitPanel resetAllPageContents ] -{ #category : #'event handling' } +{ #category : 'event handling' } IceTipVersionHistoryBrowser >> selectionChanged: aSelectedItem [ selectedModel := aSelectedItem. self refreshCommitTabPanel ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> titleForWindow [ ^ self model @@ -213,7 +215,7 @@ IceTipVersionHistoryBrowser >> titleForWindow [ ifNil: [ 'Versions' ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipVersionHistoryBrowser >> updatePresenter [ self refresh diff --git a/Iceberg-TipUI/IceTipVersionHistoryModel.class.st b/Iceberg-TipUI/IceTipVersionHistoryModel.class.st index 59bfc94f75..b5fd22c176 100644 --- a/Iceberg-TipUI/IceTipVersionHistoryModel.class.st +++ b/Iceberg-TipUI/IceTipVersionHistoryModel.class.st @@ -2,22 +2,24 @@ I'm a model to provide the history of a method. " Class { - #name : #IceTipVersionHistoryModel, - #superclass : #IceTipCommitishModel, + #name : 'IceTipVersionHistoryModel', + #superclass : 'IceTipCommitishModel', #instVars : [ 'commitModels' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryModel >> commitModelAfter: aModel [ ^ self commitModels after: aModel ifAbsent: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryModel >> commitModels [ ^ commitModels ifNil: [ commitModels := self retrieveHistory collect: [ :each | @@ -27,18 +29,18 @@ IceTipVersionHistoryModel >> commitModels [ beCached ] ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryModel >> description [ ^ self name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionHistoryModel >> name [ ^ '{1}>>{2}' format: { self entity origin name. self entity selector } ] -{ #category : #private } +{ #category : 'private' } IceTipVersionHistoryModel >> retrieveHistory [ self repositoryModel checkMissing. diff --git a/Iceberg-TipUI/IceTipVersionModel.class.st b/Iceberg-TipUI/IceTipVersionModel.class.st index a416351dc2..4382df60ce 100644 --- a/Iceberg-TipUI/IceTipVersionModel.class.st +++ b/Iceberg-TipUI/IceTipVersionModel.class.st @@ -5,12 +5,14 @@ I'm a model for IceLogVersion entries. - I can install a certain method version. " Class { - #name : #IceTipVersionModel, - #superclass : #IceTipCommitModel, - #category : 'Iceberg-TipUI-Model' + #name : 'IceTipVersionModel', + #superclass : 'IceTipCommitModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #private } +{ #category : 'private' } IceTipVersionModel >> basicInstall [ | definition | @@ -20,12 +22,12 @@ IceTipVersionModel >> basicInstall [ classified: definition category ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionModel >> commit [ ^ self entity commit ] -{ #category : #actions } +{ #category : 'actions' } IceTipVersionModel >> install [ @@ -36,7 +38,7 @@ IceTipVersionModel >> install [ execute: [ self basicInstall ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipVersionModel >> source [ ^ self entity source ] diff --git a/Iceberg-TipUI/IceTipWorkingCopyBrowser.class.st b/Iceberg-TipUI/IceTipWorkingCopyBrowser.class.st index ebf9dd35c6..e9379df0ba 100644 --- a/Iceberg-TipUI/IceTipWorkingCopyBrowser.class.st +++ b/Iceberg-TipUI/IceTipWorkingCopyBrowser.class.st @@ -5,17 +5,19 @@ I show the packages managed by this repository and a series of actions to proper (IceTipPackagesBrowser forRepository: IceRepository registry anyOne) openWithSpec " Class { - #name : #IceTipWorkingCopyBrowser, - #superclass : #IceTipBrowser, + #name : 'IceTipWorkingCopyBrowser', + #superclass : 'IceTipBrowser', #instVars : [ 'statusBar', 'packagesTable', 'filterInput' ], - #category : #'Iceberg-TipUI-View-WorkingCopy' + #category : 'Iceberg-TipUI-View-WorkingCopy', + #package : 'Iceberg-TipUI', + #tag : 'View-WorkingCopy' } -{ #category : #commands } +{ #category : 'commands' } IceTipWorkingCopyBrowser class >> buildGeneralCommandGroupWith: presenter for: aCommandGroup [ { IceTipRepairCommand. @@ -33,7 +35,7 @@ IceTipWorkingCopyBrowser class >> buildGeneralCommandGroupWith: presenter for: a ] -{ #category : #commands } +{ #category : 'commands' } IceTipWorkingCopyBrowser class >> buildSelectionCommandGroupWith: presenter for: aCommandGroup [ { IceTipBrowsePackageCommand. @@ -47,19 +49,19 @@ IceTipWorkingCopyBrowser class >> buildSelectionCommandGroupWith: presenter for: ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipWorkingCopyBrowser class >> onRepository: aRepository [ ^ self on: (IceTipRepositoryModel on: aRepository) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyBrowser >> allListItems [ ^ self model packageModels ] -{ #category : #'private - actions' } +{ #category : 'private - actions' } IceTipWorkingCopyBrowser >> browsePackage: aPackageModel [ | commandClass | @@ -72,7 +74,7 @@ IceTipWorkingCopyBrowser >> browsePackage: aPackageModel [ execute ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> connectPresenters [ super connectPresenters. @@ -82,7 +84,7 @@ IceTipWorkingCopyBrowser >> connectPresenters [ ] -{ #category : #layout } +{ #category : 'layout' } IceTipWorkingCopyBrowser >> defaultLayout [ ^ SpBoxLayout newTopToBottom @@ -91,20 +93,20 @@ IceTipWorkingCopyBrowser >> defaultLayout [ yourself ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipWorkingCopyBrowser >> filterInput [ ^ filterInput ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyBrowser >> filteredItemsFor: pattern [ ^ self allListItems select: [ :each | each name asLowercase includesSubstring: pattern asLowercase ] ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyBrowser >> iconFor: aPackage [ self decorations do: [ :each | @@ -114,13 +116,13 @@ IceTipWorkingCopyBrowser >> iconFor: aPackage [ ^ self iconNamed: #package ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> initialExtentForWindow [ ^ (700 @ 500) scaledByDisplayScaleFactor ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> initializePackagesTable [ packagesTable @@ -147,7 +149,7 @@ IceTipWorkingCopyBrowser >> initializePackagesTable [ whenActivatedDo: [ :selection | self browsePackage: selection selectedItem ] ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> initializePresenters [ filterInput := self newTextInput. @@ -156,7 +158,7 @@ IceTipWorkingCopyBrowser >> initializePresenters [ statusBar := self instantiate: IceTipWorkingCopyStatusBarPresenter ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> initializeWindow: aSpWindowPresenter [ super initializeWindow: aSpWindowPresenter. @@ -165,25 +167,25 @@ IceTipWorkingCopyBrowser >> initializeWindow: aSpWindowPresenter [ ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipWorkingCopyBrowser >> mainList [ ^ packagesTable ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyBrowser >> packageModel [ ^ packagesTable selectedItem ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipWorkingCopyBrowser >> packagesTable [ ^ packagesTable ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyBrowser >> refresh [ self refreshCommands. @@ -191,7 +193,7 @@ IceTipWorkingCopyBrowser >> refresh [ self refreshPackagesTable ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyBrowser >> refreshPackagesTable [ packagesTable items: (filterInput text @@ -200,13 +202,13 @@ IceTipWorkingCopyBrowser >> refreshPackagesTable [ ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyBrowser >> refreshStatusBar [ statusBar model: self model ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyBrowser >> refreshWhenRepository: ann [ (ann repository isNil or: [ @@ -217,25 +219,25 @@ IceTipWorkingCopyBrowser >> refreshWhenRepository: ann [ ] -{ #category : #'accessing - model' } +{ #category : 'accessing - model' } IceTipWorkingCopyBrowser >> setModelBeforeInitialization: aRepositoryModel [ self model: ( IceTipWorkingCopyModel on: aRepositoryModel ) ] -{ #category : #testing } +{ #category : 'testing' } IceTipWorkingCopyBrowser >> showsPackageNamed: aString [ ^ packagesTable items anySatisfy: [ :packageModel | packageModel name = aString ] ] -{ #category : #'accessing - ui' } +{ #category : 'accessing - ui' } IceTipWorkingCopyBrowser >> statusBar [ ^ statusBar ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> subscribeToAnnouncements [ Iceberg announcer weak @@ -244,13 +246,13 @@ IceTipWorkingCopyBrowser >> subscribeToAnnouncements [ to: self ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> titleForWindow [ ^ 'Working copy of ', self model repositoryName ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyBrowser >> updatePresenter [ self refresh diff --git a/Iceberg-TipUI/IceTipWorkingCopyDiffModel.class.st b/Iceberg-TipUI/IceTipWorkingCopyDiffModel.class.st index e116fd4bcb..507b1e2c59 100644 --- a/Iceberg-TipUI/IceTipWorkingCopyDiffModel.class.st +++ b/Iceberg-TipUI/IceTipWorkingCopyDiffModel.class.st @@ -2,30 +2,32 @@ I'm a diff model that represents a diff between the HEAD commit and the image working copy. " Class { - #name : #IceTipWorkingCopyDiffModel, - #superclass : #IceTipDiffModel, + #name : 'IceTipWorkingCopyDiffModel', + #superclass : 'IceTipDiffModel', #instVars : [ 'diff' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyDiffModel >> diff [ ^ diff ifNil: [ diff := self newDiff ] ] -{ #category : #testing } +{ #category : 'testing' } IceTipWorkingCopyDiffModel >> isEmpty [ ^ self diff isEmpty ] -{ #category : #'private - factory' } +{ #category : 'private - factory' } IceTipWorkingCopyDiffModel >> newDiff [ ^ self entity workingCopyDiff ] -{ #category : #private } +{ #category : 'private' } IceTipWorkingCopyDiffModel >> resetDiff [ diff := nil ] diff --git a/Iceberg-TipUI/IceTipWorkingCopyModel.class.st b/Iceberg-TipUI/IceTipWorkingCopyModel.class.st index 21b5734be7..201e8943a9 100644 --- a/Iceberg-TipUI/IceTipWorkingCopyModel.class.st +++ b/Iceberg-TipUI/IceTipWorkingCopyModel.class.st @@ -2,51 +2,53 @@ I'm a model to for IceWorkingCopy entries. " Class { - #name : #IceTipWorkingCopyModel, - #superclass : #IceTipModel, + #name : 'IceTipWorkingCopyModel', + #superclass : 'IceTipModel', #instVars : [ 'sortingStrategy', 'repositoryModel' ], - #category : #'Iceberg-TipUI-Model' + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipWorkingCopyModel class >> new [ self error: 'use #for:' ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } IceTipWorkingCopyModel class >> on: aRepositoryModel [ ^ self basicNew initializeRepositoryModel: aRepositoryModel; yourself ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> branchName [ ^ self repositoryModel branchName ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> commitId [ ^ repositoryModel commitId ] -{ #category : #operations } +{ #category : 'operations' } IceTipWorkingCopyModel >> copyCommitIDToClipboard [ repositoryModel copyCommitIDToClipboard ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyModel >> initializeRepositoryModel: aRepositoryModel [ repositoryModel := aRepositoryModel. self initialize ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> packageModels [ ^ self sortingStrategy sort: (self repositoryModel entity workingCopy packages collect: [ :each | @@ -56,37 +58,37 @@ IceTipWorkingCopyModel >> packageModels [ beCached ]) ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> repositoryModel [ ^ repositoryModel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> repositoryName [ ^ self repositoryModel name ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> reset [ self repositoryModel reset ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> shortCommitId [ ^ repositoryModel shortCommitId ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> sortingStrategy [ ^ sortingStrategy ifNil: [ sortingStrategy := IceSortingStrategy new first: #modified ] ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> status [ ^ self repositoryModel status ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyModel >> statusDecorator [ ^ self repositoryModel statusDecorator diff --git a/Iceberg-TipUI/IceTipWorkingCopyStatusBarPresenter.class.st b/Iceberg-TipUI/IceTipWorkingCopyStatusBarPresenter.class.st index 03e34062ab..8cbcf3dfce 100644 --- a/Iceberg-TipUI/IceTipWorkingCopyStatusBarPresenter.class.st +++ b/Iceberg-TipUI/IceTipWorkingCopyStatusBarPresenter.class.st @@ -2,17 +2,19 @@ I'm the status bar for a IceTipWorkingCopyBrowser. " Class { - #name : #IceTipWorkingCopyStatusBarPresenter, - #superclass : #SpPresenter, + #name : 'IceTipWorkingCopyStatusBarPresenter', + #superclass : 'SpPresenter', #instVars : [ 'branchLabel', 'commitLink', 'statusLabel' ], - #category : #'Iceberg-TipUI-View-WorkingCopy' + #category : 'Iceberg-TipUI-View-WorkingCopy', + #package : 'Iceberg-TipUI', + #tag : 'View-WorkingCopy' } -{ #category : #layout } +{ #category : 'layout' } IceTipWorkingCopyStatusBarPresenter class >> defaultLayout [ ^ SpBoxLayout newLeftToRight @@ -25,20 +27,20 @@ IceTipWorkingCopyStatusBarPresenter class >> defaultLayout [ yourself ] -{ #category : #testing } +{ #category : 'testing' } IceTipWorkingCopyStatusBarPresenter >> canTakeKeyboardFocus [ ^ false ] -{ #category : #initialization } +{ #category : 'initialization' } IceTipWorkingCopyStatusBarPresenter >> initializePresenters [ branchLabel := self newLabel. statusLabel := self newLabel ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyStatusBarPresenter >> model: aModel [ "Fill labels from a IceTipWorkingCopyModel." @@ -52,7 +54,7 @@ IceTipWorkingCopyStatusBarPresenter >> model: aModel [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyStatusBarPresenter >> refreshWithCommitId: aModel [ branchLabel label: ('{1} at ' format: { aModel branchName }). @@ -64,7 +66,7 @@ IceTipWorkingCopyStatusBarPresenter >> refreshWithCommitId: aModel [ ] -{ #category : #accessing } +{ #category : 'accessing' } IceTipWorkingCopyStatusBarPresenter >> refreshWithoutCommitId: aModel [ branchLabel label: aModel branchName. diff --git a/Iceberg-TipUI/IceTokenCredentials.extension.st b/Iceberg-TipUI/IceTokenCredentials.extension.st index 5b476eeb69..7164335fb8 100644 --- a/Iceberg-TipUI/IceTokenCredentials.extension.st +++ b/Iceberg-TipUI/IceTokenCredentials.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #IceTokenCredentials } +Extension { #name : 'IceTokenCredentials' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceTokenCredentials >> askForModelClass [ ^ self notYetImplemented ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceTokenCredentials >> editModelClass [ ^ IceTipEditTokenCredentialsPresenter ] diff --git a/Iceberg-TipUI/IceTraitDefinition.extension.st b/Iceberg-TipUI/IceTraitDefinition.extension.st index d072826557..03b023e483 100644 --- a/Iceberg-TipUI/IceTraitDefinition.extension.st +++ b/Iceberg-TipUI/IceTraitDefinition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceTraitDefinition } +Extension { #name : 'IceTraitDefinition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceTraitDefinition >> icon [ ^ self iconNamed: #trait ] diff --git a/Iceberg-TipUI/IceWarning.class.st b/Iceberg-TipUI/IceWarning.class.st index 2015f64db3..9b64da1319 100644 --- a/Iceberg-TipUI/IceWarning.class.st +++ b/Iceberg-TipUI/IceWarning.class.st @@ -2,12 +2,14 @@ I'm a general warning in the context of iceberg UI. " Class { - #name : #IceWarning, - #superclass : #Warning, - #category : #'Iceberg-TipUI-Exceptions' + #name : 'IceWarning', + #superclass : 'Warning', + #category : 'Iceberg-TipUI-Exceptions', + #package : 'Iceberg-TipUI', + #tag : 'Exceptions' } -{ #category : #visiting } +{ #category : 'visiting' } IceWarning >> acceptError: aVisitor [ self subclassResponsibility ] diff --git a/Iceberg-TipUI/IceWorkingCopy.extension.st b/Iceberg-TipUI/IceWorkingCopy.extension.st index 77e8f52665..c95aa1cc69 100644 --- a/Iceberg-TipUI/IceWorkingCopy.extension.st +++ b/Iceberg-TipUI/IceWorkingCopy.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IceWorkingCopy } +Extension { #name : 'IceWorkingCopy' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } IceWorkingCopy >> description [ ^ self workingCopyState description diff --git a/Iceberg-TipUI/LGitCredentialsPlaintext.extension.st b/Iceberg-TipUI/LGitCredentialsPlaintext.extension.st index 6806b57051..13901f838c 100644 --- a/Iceberg-TipUI/LGitCredentialsPlaintext.extension.st +++ b/Iceberg-TipUI/LGitCredentialsPlaintext.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #LGitCredentialsPlaintext } +Extension { #name : 'LGitCredentialsPlaintext' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } LGitCredentialsPlaintext >> askForModelClassOn: aString [ ^ IceTipAskForPlaintextCredentialsPresenter diff --git a/Iceberg-TipUI/MCAddition.extension.st b/Iceberg-TipUI/MCAddition.extension.st index 86d577821e..eb93d60d68 100644 --- a/Iceberg-TipUI/MCAddition.extension.st +++ b/Iceberg-TipUI/MCAddition.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MCAddition } +Extension { #name : 'MCAddition' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } MCAddition >> icon [ ^ self iconNamed: #changeAdd ] diff --git a/Iceberg-TipUI/MCModification.extension.st b/Iceberg-TipUI/MCModification.extension.st index e38d6d6886..2e6b693643 100644 --- a/Iceberg-TipUI/MCModification.extension.st +++ b/Iceberg-TipUI/MCModification.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MCModification } +Extension { #name : 'MCModification' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } MCModification >> icon [ ^ self iconNamed: #changeUpdate ] diff --git a/Iceberg-TipUI/MCPatchOperation.extension.st b/Iceberg-TipUI/MCPatchOperation.extension.st index 8c55a52b83..e1f00ea122 100644 --- a/Iceberg-TipUI/MCPatchOperation.extension.st +++ b/Iceberg-TipUI/MCPatchOperation.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MCPatchOperation } +Extension { #name : 'MCPatchOperation' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } MCPatchOperation >> canBeBrowsed [ ^ true ] diff --git a/Iceberg-TipUI/MCRemoval.extension.st b/Iceberg-TipUI/MCRemoval.extension.st index 0eb55e9bd1..64ad429fed 100644 --- a/Iceberg-TipUI/MCRemoval.extension.st +++ b/Iceberg-TipUI/MCRemoval.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #MCRemoval } +Extension { #name : 'MCRemoval' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } MCRemoval >> canBeBrowsed [ ^ false ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } MCRemoval >> icon [ ^ self iconNamed: #changeRemove ] diff --git a/Iceberg-TipUI/ManifestIcebergTipUI.class.st b/Iceberg-TipUI/ManifestIcebergTipUI.class.st index a47a98479d..22b6f421f0 100644 --- a/Iceberg-TipUI/ManifestIcebergTipUI.class.st +++ b/Iceberg-TipUI/ManifestIcebergTipUI.class.st @@ -2,22 +2,24 @@ I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser " Class { - #name : #ManifestIcebergTipUI, - #superclass : #PackageManifest, - #category : #'Iceberg-TipUI-Manifest' + #name : 'ManifestIcebergTipUI', + #superclass : 'PackageManifest', + #category : 'Iceberg-TipUI-Manifest', + #package : 'Iceberg-TipUI', + #tag : 'Manifest' } -{ #category : #'code-critics' } +{ #category : 'code-critics' } ManifestIcebergTipUI class >> ruleAnySatisfyRuleV1FalsePositive [ ^ #(#(#(#RGMethodDefinition #(#IceTipEditProjectDialogPresenter #guessFormatFromDirectory: #false)) #'2021-01-05T16:19:22.932793-03:00') ) ] -{ #category : #'code-critics' } +{ #category : 'code-critics' } ManifestIcebergTipUI class >> ruleNotEliminationRuleV1FalsePositive [ ^ #(#(#(#RGMethodDefinition #(#IceTipBrowser #hasSelectedItem #false)) #'2020-12-17T18:54:45.342746-03:00') #(#(#RGMethodDefinition #(#IceTipRepositoryBrowser #initializeSidebarTree #false)) #'2021-01-05T16:19:22.920159-03:00') ) ] -{ #category : #'code-critics' } +{ #category : 'code-critics' } ManifestIcebergTipUI class >> ruleReGuardClauseRuleV1FalsePositive [ ^ #(#(#(#RGMethodDefinition #(#IceTipEditProjectDialogPresenter #initializeMessagePanel #false)) #'2021-01-05T16:19:22.928248-03:00') ) ] diff --git a/Iceberg-TipUI/PharoDarkTheme.extension.st b/Iceberg-TipUI/PharoDarkTheme.extension.st index 197cd482cc..25b3e1736e 100644 --- a/Iceberg-TipUI/PharoDarkTheme.extension.st +++ b/Iceberg-TipUI/PharoDarkTheme.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #PharoDarkTheme } +Extension { #name : 'PharoDarkTheme' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } PharoDarkTheme >> badgeColor [ ^ Color red alpha: 0.5 ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } PharoDarkTheme >> badgeTextColor [ ^ self textColor ] diff --git a/Iceberg-TipUI/PharoShortcuts.extension.st b/Iceberg-TipUI/PharoShortcuts.extension.st index df7e450e6d..fa394b6cfb 100644 --- a/Iceberg-TipUI/PharoShortcuts.extension.st +++ b/Iceberg-TipUI/PharoShortcuts.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #PharoShortcuts } +Extension { #name : 'PharoShortcuts' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } PharoShortcuts >> openIcebergShortcut [ ^ $o meta, $i meta ] diff --git a/Iceberg-TipUI/SpToolbarButtonPresenter.extension.st b/Iceberg-TipUI/SpToolbarButtonPresenter.extension.st index d61a72635f..2f13adf7b3 100644 --- a/Iceberg-TipUI/SpToolbarButtonPresenter.extension.st +++ b/Iceberg-TipUI/SpToolbarButtonPresenter.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SpToolbarButtonPresenter } +Extension { #name : 'SpToolbarButtonPresenter' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } SpToolbarButtonPresenter >> hasBadge [ ^ badge isNotNil ] diff --git a/Iceberg-TipUI/TIceCopyCommitId.trait.st b/Iceberg-TipUI/TIceCopyCommitId.trait.st index 66a989ae08..ad1849ee58 100644 --- a/Iceberg-TipUI/TIceCopyCommitId.trait.st +++ b/Iceberg-TipUI/TIceCopyCommitId.trait.st @@ -5,17 +5,19 @@ Description I am a simple Trait allowing to copy a commit ID to the clipboard without duplicating the code in Iceberg. " Trait { - #name : #TIceCopyCommitId, - #category : #'Iceberg-TipUI-Model' + #name : 'TIceCopyCommitId', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #copying } +{ #category : 'copying' } TIceCopyCommitId >> copyCommitIDToClipboard [ self copyToClipboardId: self commitId ] -{ #category : #copying } +{ #category : 'copying' } TIceCopyCommitId >> copyToClipboardId: id [ Clipboard clipboardText: id informing: ('Commitish ID copied to clipboard ({1})' format: {id}) ] diff --git a/Iceberg-TipUI/TWithBranchModel.trait.st b/Iceberg-TipUI/TWithBranchModel.trait.st index 9b2a646f4a..836a8e7053 100644 --- a/Iceberg-TipUI/TWithBranchModel.trait.st +++ b/Iceberg-TipUI/TWithBranchModel.trait.st @@ -1,19 +1,21 @@ Trait { - #name : #TWithBranchModel, - #category : #'Iceberg-TipUI-Model' + #name : 'TWithBranchModel', + #category : 'Iceberg-TipUI-Model', + #package : 'Iceberg-TipUI', + #tag : 'Model' } -{ #category : #branches } +{ #category : 'branches' } TWithBranchModel >> branchModels [ ^ self branches collect: [ :each | (IceTipBranchModel repositoryModel: self repositoryModel on: each) beCached ] ] -{ #category : #branches } +{ #category : 'branches' } TWithBranchModel >> branches [ ^ self explicitRequirement ] -{ #category : #accessing } +{ #category : 'accessing' } TWithBranchModel >> defaultBranchSelection [ ^ self branchModels detect: #isHead @@ -21,12 +23,12 @@ TWithBranchModel >> defaultBranchSelection [ ifTrue: [ self branchModels ifNotEmpty: #anyOne ] ] ] -{ #category : #testing } +{ #category : 'testing' } TWithBranchModel >> hasBranches [ ^ self branches isNotEmpty ] -{ #category : #accessing } +{ #category : 'accessing' } TWithBranchModel >> repositoryModel [ ^ self explicitRequirement ] diff --git a/Iceberg-TipUI/Text.extension.st b/Iceberg-TipUI/Text.extension.st index 74d7bfde6c..0ae90973d7 100644 --- a/Iceberg-TipUI/Text.extension.st +++ b/Iceberg-TipUI/Text.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Text } +Extension { #name : 'Text' } -{ #category : #'*Iceberg-TipUI-Spec' } +{ #category : '*Iceberg-TipUI-Spec' } Text >> threeWayCompareTo: anotherText [ ^ self asString threeWayCompareTo: anotherText asString diff --git a/Iceberg-TipUI/ToolShortcutsCategory.extension.st b/Iceberg-TipUI/ToolShortcutsCategory.extension.st index 39e8ed6bf0..22fbb318cc 100644 --- a/Iceberg-TipUI/ToolShortcutsCategory.extension.st +++ b/Iceberg-TipUI/ToolShortcutsCategory.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ToolShortcutsCategory } +Extension { #name : 'ToolShortcutsCategory' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } ToolShortcutsCategory >> openIceberg [ diff --git a/Iceberg-TipUI/UITheme.extension.st b/Iceberg-TipUI/UITheme.extension.st index 45eef9230e..b1aee015ae 100644 --- a/Iceberg-TipUI/UITheme.extension.st +++ b/Iceberg-TipUI/UITheme.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #UITheme } +Extension { #name : 'UITheme' } -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } UITheme >> badgeColor [ ^ Color red ] -{ #category : #'*Iceberg-TipUI' } +{ #category : '*Iceberg-TipUI' } UITheme >> badgeTextColor [ ^ Color white ] diff --git a/Iceberg-TipUI/package.st b/Iceberg-TipUI/package.st index 34a4b630d6..c1b5ad7667 100644 --- a/Iceberg-TipUI/package.st +++ b/Iceberg-TipUI/package.st @@ -1 +1 @@ -Package { #name : #'Iceberg-TipUI' } +Package { #name : 'Iceberg-TipUI' } diff --git a/Iceberg/IceSystemEventListener.class.st b/Iceberg/IceSystemEventListener.class.st index 1eae7b3a34..dd973f6697 100644 --- a/Iceberg/IceSystemEventListener.class.st +++ b/Iceberg/IceSystemEventListener.class.st @@ -48,26 +48,25 @@ IceSystemEventListener class >> handleVersionLoaded: ann [ | package | "this is ugly, but since I do not have a package I need to look for it" - package := RPackageOrganizer default packageMatchingExtensionName: ann label. - - "The package can be nil". - package ifNil: [ ^self ]. - - "now we can verify its status" - RPackageSet withoutCacheDo: [ - IceRepository registry - do: [ :repository | - (repository includesPackageNamed: package name) - ifTrue: [ | icePackage isDirty | - icePackage := repository packageNamed: package name. - self flag: #pharoTodo. "Ugly hack. Should enhance for next version" - isDirty := repository workingCopy referenceCommit isUnknownCommit - ifTrue: [ true ] - ifFalse: [ | diff | - diff := repository workingCopy referenceCommit diffToWorkingCopyForPackage: icePackage. - diff includesPackageNamed: package name ]. - icePackage beDirty: isDirty. - Iceberg announcer announce: (IceRepositoryModified for: repository) ] ]] + package := self packageOrganizer packageMatchingExtensionName: ann label. + + "The package can be nil" + package ifNil: [ ^ self ]. + + + IceRepository registry do: [ :repository | + (repository includesPackageNamed: package name) ifTrue: [ + | icePackage isDirty | + icePackage := repository packageNamed: package name. + self flag: #pharoTodo. "Ugly hack. Should enhance for next version" + isDirty := repository workingCopy referenceCommit isUnknownCommit + ifTrue: [ true ] + ifFalse: [ + | diff | + diff := repository workingCopy referenceCommit diffToWorkingCopyForPackage: icePackage. + diff includesPackageNamed: package name ]. + icePackage beDirty: isDirty. + Iceberg announcer announce: (IceRepositoryModified for: repository) ] ] ] { #category : 'class initialization' } diff --git a/Iceberg/Iceberg.class.st b/Iceberg/Iceberg.class.st index 3227b7b320..ad71edb1aa 100644 --- a/Iceberg/Iceberg.class.st +++ b/Iceberg/Iceberg.class.st @@ -171,10 +171,10 @@ Iceberg class >> remoteTypeSelector: anObject [ ] { #category : 'accessing' } -Iceberg class >> repositoryForPackage: anRPackage [ +Iceberg class >> repositoryForPackage: aPackage [ | existingRepositories possibleRepositoryTypes | - existingRepositories := anRPackage mcWorkingCopy repositoryGroup repositories. + existingRepositories := aPackage mcWorkingCopy repositoryGroup repositories. possibleRepositoryTypes := IceRepository allSubclasses , { IceMetacelloRepositoryAdapter . MCGitHubRepository }. possibleRepositoryTypes do: [ :class | @@ -182,7 +182,7 @@ Iceberg class >> repositoryForPackage: anRPackage [ detect: [ :repo | repo isKindOf: class ] ifFound: [ :repo | ^ repo getOrCreateIcebergRepository ] ]. - self error: ('Could not find a git repository for {1}' format: { anRPackage name }) + self error: ('Could not find a git repository for {1}' format: { aPackage name }) ] { #category : 'settings' } diff --git a/Iceberg/MCClassDefinition.extension.st b/Iceberg/MCClassDefinition.extension.st index 8b636ac077..4247440153 100644 --- a/Iceberg/MCClassDefinition.extension.st +++ b/Iceberg/MCClassDefinition.extension.st @@ -1,12 +1,5 @@ Extension { #name : 'MCClassDefinition' } -{ #category : '*Iceberg-Adapters' } -MCClassDefinition >> classCategory [ - "Avoid direct use of #category, because MCClassDefinitions and - MCMethodDefinition use the same message for different things. " - ^ self category -] - { #category : '*Iceberg' } MCClassDefinition >> fullDefinitionString [ ^ String streamContents: [:stream | diff --git a/Iceberg/MCClassTraitDefinition.extension.st b/Iceberg/MCClassTraitDefinition.extension.st index 7ad0bde0a7..7e9b26e462 100644 --- a/Iceberg/MCClassTraitDefinition.extension.st +++ b/Iceberg/MCClassTraitDefinition.extension.st @@ -1,10 +1,5 @@ Extension { #name : 'MCClassTraitDefinition' } -{ #category : '*Iceberg-Adapters' } -MCClassTraitDefinition >> classCategory [ - ^ self category -] - { #category : '*Iceberg-Core' } MCClassTraitDefinition >> traitComposition [ ^ self classTraitComposition diff --git a/Iceberg/MCMethodDefinition.extension.st b/Iceberg/MCMethodDefinition.extension.st index 11c41461d0..e09b49c08e 100644 --- a/Iceberg/MCMethodDefinition.extension.st +++ b/Iceberg/MCMethodDefinition.extension.st @@ -5,12 +5,6 @@ MCMethodDefinition >> buildOn: anIcePackageDiff [ self shouldBeImplemented. ] -{ #category : '*Iceberg-Adapters' } -MCMethodDefinition >> classCategory [ - ^ self actualClass ifNotNil: #category ifNil: [ RPackage defaultPackageName ] - -] - { #category : '*Iceberg-Changes' } MCMethodDefinition >> method [ ^ self actualClass >> self selector diff --git a/Iceberg/RPackageSet.extension.st b/Iceberg/RPackageSet.extension.st deleted file mode 100644 index 56f893dab4..0000000000 --- a/Iceberg/RPackageSet.extension.st +++ /dev/null @@ -1,10 +0,0 @@ -Extension { #name : 'RPackageSet' } - -{ #category : '*Iceberg' } -RPackageSet class >> withoutCacheDo: aBlock [ - | oldActive | - - oldActive := self isCacheActive. - self cacheActive: false. - aBlock ensure: [ self cacheActive: oldActive ]. -]