@@ -58,25 +58,25 @@ IceGitCliPlatform >> gtDetailsFor: aView [
5858]
5959
6060{ #category : #' *GToolkit4Git' }
61- IceGitCliPlatform >> gtInstallActionFor: aComposite [
62- < gtAction >
61+ IceGitCliPlatform class >> gtInstallActionFor: aComposite [
62+ < gtClassAction >
6363
6464 ^ aComposite button
6565 label: ' Install' ;
6666 tooltip: ' Make Libgit-CLI the default Iceberg implementation' ;
6767 priority: 20 ;
68- action: [ :element | self install ]
68+ action: [ :element | self current install ]
6969]
7070
7171{ #category : #' *GToolkit4Git' }
72- IceGitCliPlatform class >> gtInstallActionFor: aComposite [
73- < gtClassAction >
72+ IceGitCliPlatform >> gtInstallActionFor: aComposite [
73+ < gtAction >
7474
7575 ^ aComposite button
7676 label: ' Install' ;
7777 tooltip: ' Make Libgit-CLI the default Iceberg implementation' ;
7878 priority: 20 ;
79- action: [ :element | self current install ]
79+ action: [ :element | self install ]
8080]
8181
8282{ #category : #' *GToolkit4Git' }
@@ -102,23 +102,23 @@ IceGitCliPlatform >> gtUninstallActionFor: aComposite [
102102]
103103
104104{ #category : #' *GToolkit4Git' }
105- IceGitCliPlatform >> gtValidateActionFor: aComposite [
106- < gtAction >
105+ IceGitCliPlatform class >> gtValidateActionFor: aComposite [
106+ < gtClassAction >
107107
108108 ^ aComposite button
109109 label: ' Validate' ;
110110 tooltip: ' Validate and throw errors' ;
111111 priority: 10 ;
112- action: [ :element | element phlow spawnObject: self validate ]
112+ action: [ :element | element phlow spawnObject: self current validate ]
113113]
114114
115115{ #category : #' *GToolkit4Git' }
116- IceGitCliPlatform class >> gtValidateActionFor: aComposite [
117- < gtClassAction >
116+ IceGitCliPlatform >> gtValidateActionFor: aComposite [
117+ < gtAction >
118118
119119 ^ aComposite button
120120 label: ' Validate' ;
121121 tooltip: ' Validate and throw errors' ;
122122 priority: 10 ;
123- action: [ :element | element phlow spawnObject: self current validate ]
123+ action: [ :element | element phlow spawnObject: self validate ]
124124]
0 commit comments