Merge pull request #705 from demarey/enh/FileBrowser-edit-path-button

move edit path button close to the path
pharo-spec · Feb 19, 2024 · 463a4b5 · 463a4b5
2 parents c5ecb11 + 6cca9da
commit 463a4b5
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 28 deletions.
diff --git a/src/NewTools-FileBrowser/StFileNavigationSystemPresenter.class.st b/src/NewTools-FileBrowser/StFileNavigationSystemPresenter.class.st
@@ -346,7 +346,7 @@ StFileNavigationSystemPresenter >> navigationLayout [
 				vAlignCenter;
 				add: previousButton expand: false;
 				add: nextButton expand: false;
-				add: pathBreadcrumbPresenter;
+				add: pathBreadcrumbPresenter expand: false;
 			   addLast: configButton;				
 				yourself
 ]

diff --git a/src/NewTools-FileBrowser/StPathBreadcrumbPresenter.class.st b/src/NewTools-FileBrowser/StPathBreadcrumbPresenter.class.st
@@ -31,31 +31,6 @@ Class {
 	#tag : 'UI'
 }
 
-{ #category : 'specs' }
-StPathBreadcrumbPresenter class >> defaultLayout [
-
-	^ SpBoxLayout newLeftToRight
-		  vAlignCenter;
-		  add: #path;
-		  add: #editButton
-		  expand: false
-		  fill: false
-		  padding: 0;
-		  yourself
-]
-
-{ #category : 'specs' }
-StPathBreadcrumbPresenter class >> editablelayout [
-
-	^ SpBoxLayout newLeftToRight
-		  add: #textInput;
-		  add: #editButton
-		  expand: false
-		  fill: false
-		  padding: 0;
-		  yourself
-]
-
 { #category : 'examples' }
 StPathBreadcrumbPresenter class >> example [
 	<example>
@@ -78,6 +53,31 @@ StPathBreadcrumbPresenter >> currentDirectory: aFileReference [
 	self build
 ]
 
+{ #category : 'layouts' }
+StPathBreadcrumbPresenter >> defaultLayout [
+
+	^ SpBoxLayout newLeftToRight
+		  vAlignCenter;
+		  add: path;
+		  add: editButton
+		  expand: false
+		  fill: false
+		  padding: 0;
+		  yourself
+]
+
+{ #category : 'layouts' }
+StPathBreadcrumbPresenter >> editablelayout [
+
+	^ SpBoxLayout newLeftToRight
+		  add: textInput;
+		  add: editButton
+		  expand: false
+		  fill: false
+		  padding: 0;
+		  yourself
+]
+
 { #category : 'accessing' }
 StPathBreadcrumbPresenter >> entityText [
 	^ textInput
@@ -108,7 +108,7 @@ StPathBreadcrumbPresenter >> initializePresenters [
 			isInEditMode
 				ifTrue: [ self pathTextChangedTo: self entityText text ]
 				ifFalse: [
-					self layout: self class editablelayout.
+					self layout: self editablelayout.
 					isInEditMode := isInEditMode not ] ]
 ]
 
@@ -126,5 +126,5 @@ StPathBreadcrumbPresenter >> pathTextChangedTo: aStringOrText [
 		ifTrue: [ self owner openFolder: fileReference ]
 		ifFalse: [ self inform: 'You have to input an existing path to a directory' ].
 	isInEditMode := false.
-	self layout: self class defaultLayout
+	self layout: self defaultLayout
 ]