merge FeatureLandingPage into master

Squello-Core.package/SPBBoardSaver.class/instance/contains..st

@@ -0,0 +1,4 @@
+save/load
+contains: anObject
+
+	^ self boards includesKey: anObject.

Squello-Core.package/SPBBoardSaver.class/methodProperties.json

@@ -5,6 +5,7 @@
 		"boards" : "FP 6/3/2024 11:15",
 		"boards:" : "FP 6/3/2024 11:15",
 		"clear" : "FP 6/3/2024 11:15",
+		"contains:" : "FP 6/20/2024 17:14",
 		"delete:" : "FP 6/3/2024 11:15",
 		"load:" : "FP 6/8/2024 11:58",
 		"loadReadonly:" : "FP 6/8/2024 11:57",

Squello-Core.package/SPBLandingPage.class/instance/buildAuthButtonSpecWith..st

@@ -1,8 +1,8 @@
 toolbuilder
 buildAuthButtonSpecWith: aBuilder
 
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
 		action: #openAuthPanel;
 		label: 'Open Auth Panel';
-		yourself).
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildDeleteAllLocalBoardsButtonSpecWith..st

@@ -1,9 +1,9 @@
 toolbuilder-manage panel
 buildDeleteAllLocalBoardsButtonSpecWith: aBuilder
 
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
+		verticalResizing: #rigid;
 		action: #deleteAllLocal;
 		label: 'Delete All';
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildDeleteLocalBoardButtonSpecWith.withBoardName..st

@@ -1,8 +1,9 @@
 toolbuilder-manage panel
 buildDeleteLocalBoardButtonSpecWith: aBuilder withBoardName: aString
 
-	^ "aBuilder build:" (aBuilder pluggableButtonSpec new
-		model: self;
+	^ aBuilder pluggableButtonSpec new
+		model: [self deleteBoardFromButton: aString];
+		action: #value;
+		horizontalResizing: #shrinkWrap;
 		label: 'Delete';
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildLocalBoardCommonActionsSpecWith..st

@@ -3,7 +3,10 @@ buildLocalBoardCommonActionsSpecWith: aBuilder
 
 	^ aBuilder pluggablePanelSpec new
 			model: self;
-			children: #buildLocalBoardCommonActionChildren;
+			children: {
+				self buildDeleteAllLocalBoardsButtonSpecWith: self usedBuilder. 
+				self buildNewLocalBoardButtonSpecWith: self usedBuilder
+			};
 			layout: #horizontal;
 			verticalResizing: #shrinkWrap;
 			yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildLocalBoardNameSpecWith.withBoardName..st

@@ -1,8 +1,8 @@
 toolbuilder-manage panel
 buildLocalBoardNameSpecWith: aBuilder withBoardName: aString
 
-	^ "aBuilder build:" (aBuilder pluggableTextSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
-		setText: aString;
-		yourself).
-
+		label: (aString copyFrom: SPBBoard localPrefix size + 1 to: aString size);
+		horizontalResizing: #shrinkWrap;
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildLocalBoardPanelSpecWith.withName..st

@@ -1,15 +1,15 @@
 toolbuilder-manage panel
 buildLocalBoardPanelSpecWith: aBuilder withName: aName
 
-	^ "aBuilder build:" (aBuilder pluggablePanelSpec new
+	^ aBuilder pluggablePanelSpec new
 		model: self;
 		layout: #horizontal;
-		minimumHeight: 50px;
+		horizontalResizing: #rigid;
+		minimumHeight: (50px);
 		children: {
-			self buildLocalBoardNameSpecWith: aBuilder withBoardName: aName.
 			self buildOpenLocalBoardButtonSpecWith: aBuilder withBoardName: aName.
 			self buildRenameLocalBoardButtonSpecWith: aBuilder withBoardName: aName.
 			self buildDeleteLocalBoardButtonSpecWith: aBuilder withBoardName: aName.
+			self buildLocalBoardNameSpecWith: aBuilder withBoardName: aName.
 		};
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildLocalBoardsListSpecWith..st

@@ -4,7 +4,7 @@ buildLocalBoardsListSpecWith: aBuilder
 	^ aBuilder pluggableScrollPaneSpec new
 			model: self;
 			vScrollBarPolicy: #always;
-			children: "#buildLocalBoardsListChildren;"(self buildLocalBoardsListChildren);
-			layout: #horizontal;
+			children: self buildLocalBoardsListChildren;
+			layout: #vertical;
 			yourself.
 

Squello-Core.package/SPBLandingPage.class/instance/buildMainLayoutPanelSpecWith..st

@@ -4,10 +4,9 @@ buildMainLayoutPanelSpecWith: aBuilder
 	^ aBuilder pluggablePanelSpec new
 			model: self;
 			frame: (0@0 corner: 1@1);
-			children: 
-				{self buildSidebarSpecWith: aBuilder.
+			children: {
+				self buildSidebarSpecWith: aBuilder.
 				self buildContentPanelSpecWith: aBuilder.
 			};
 			layout: #horizontal;
-			yourself.
-
+			yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildManageLocalBoardPanelSpecWith..st

@@ -1,8 +1,11 @@
 toolbuilder-manage panel
 buildManageLocalBoardPanelSpecWith: aBuilder
-"We just reuse this from the SquotBrowser, idk if this is good"
-
-	^ SquotGUIUtilities buildVerticalLayout: {
-		self buildLocalBoardsListSpecWith: aBuilder.
-		self buildLocalBoardCommonActionsSpecWith: aBuilder.
-	} with: aBuilder
+
+	^ aBuilder pluggablePanelSpec new
+		model: self;
+		layout: #vertical;
+		children: {
+			self buildLocalBoardsListSpecWith: aBuilder.
+			self buildLocalBoardCommonActionsSpecWith: aBuilder.
+		};
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildNewLocalBoardButtonSpecWith..st

@@ -1,10 +1,9 @@
 toolbuilder-manage panel
 buildNewLocalBoardButtonSpecWith: aBuilder
 
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
-		verticalResizing: #shrinkWrap;
+		verticalResizing: #rigid;
 		action: #openNewLocalBoard;
 		label: 'New Local';
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildOpenButtonSpecWith..st

@@ -1,8 +1,8 @@
 toolbuilder
 buildOpenButtonSpecWith: aBuilder
 
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: self;
 		action: #openBoard;
 		label: 'Open Board';
-		yourself).
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildOpenLocalBoardButtonSpecWith.withBoardName..st

@@ -1,8 +1,9 @@
 toolbuilder-manage panel
 buildOpenLocalBoardButtonSpecWith: aBuilder withBoardName: aString
 
-	^ "aBuilder build:" (aBuilder pluggableButtonSpec new
-		model: self;
+	^ aBuilder pluggableButtonSpec new
+		model: [self openBoardFromButton: aString];
+		action: #value;
+		horizontalResizing: #shrinkWrap;
 		label: 'Open';
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildRecentGitHubBoardsButtonSpecWith.withBoardInfo..st

@@ -3,9 +3,8 @@ buildRecentGitHubBoardsButtonSpecWith: aBuilder withBoardInfo: aDictionary
 
 	| name |
 	name := (aDictionary at: #repo), ' : ' ,( aDictionary at: #name).
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: [SPBBoard openFromPrompt: (aDictionary at: #url)];
 		label: name;
 		action: #value;
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildRecentGitHubBoardsSpecWith..st

@@ -4,7 +4,6 @@ buildRecentGitHubBoardsSpecWith: aBuilder
 	^ aBuilder pluggablePanelSpec new
 			name: #RecentGitHubBoards;
 			model: self;
-			children: #buildRecentGitHubBoardsChildren;
+			children: self buildRecentGitHubBoardsChildren;
 			layout: #horizontal;
-			yourself.
-
+			yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildRecentLocalBoardsButtonSpecWith.withName..st

@@ -1,9 +1,8 @@
 toolbuilder-recent boards
 buildRecentLocalBoardsButtonSpecWith: aBuilder withName: aName
 
-	^ aBuilder build: (aBuilder pluggableButtonSpec new
+	^ aBuilder pluggableButtonSpec new
 		model: [SPBBoard openFromPrompt: aName];
 		action: #value;
 		label: aName;
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildRecentLocalBoardsSpecWith..st

@@ -4,7 +4,6 @@ buildRecentLocalBoardsSpecWith: aBuilder
 	^ aBuilder pluggablePanelSpec new
 			name: #RecentLocalBoards;
 			model: self;
-			children: #buildRecentLocalBoardsChildren;
+			children: self buildRecentLocalBoardsChildren;
 			layout: #horizontal;
-			yourself.
-
+			yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildRenameLocalBoardButtonSpecWith.withBoardName..st

@@ -1,8 +1,9 @@
 toolbuilder-manage panel
 buildRenameLocalBoardButtonSpecWith: aBuilder withBoardName: aString
 
-	^ "aBuilder build:" (aBuilder pluggableButtonSpec new
-		model: self;
+	^ aBuilder pluggableButtonSpec new
+		model: [self renameBoardFromButton: aString];
+		action: #value;
+		horizontalResizing: #shrinkWrap;
 		label: 'Rename';
-		yourself).
-
+		yourself.

Squello-Core.package/SPBLandingPage.class/instance/buildWith..st

@@ -7,8 +7,8 @@ buildWith: aBuilder
 		model: self;
 		label: 'Squello Hub';
 		minimumExtent: 500px @200px;
-		children: 
-			{self buildMainLayoutPanelSpecWith: aBuilder.
+		children: {
+			self buildMainLayoutPanelSpecWith: aBuilder.
 		};
 		yourself.
 	^ aBuilder build: spec.

Squello-Core.package/SPBLandingPage.class/instance/deleteAllLocal.st

@@ -1,4 +1,5 @@
 actions
 deleteAllLocal
 
-	Transcript showln: 'delete all'.
+	SPBBoardSaver defaultSaver clear.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/deleteBoardFromButton..st

@@ -0,0 +1,5 @@
+actions
+deleteBoardFromButton: aString
+
+	SPBBoardSaver defaultSaver delete: aString.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/lastSidebarPart..st

@@ -2,5 +2,4 @@ accessing
 lastSidebarPart: anObject
 
 	lastSidebarPart := anObject.
-	self changed: #lastSidebarPart.
-	self changed: #contentPanelChildren.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/openBoardFromButton..st

@@ -0,0 +1,5 @@
+actions
+openBoardFromButton: aString
+
+	SPBBoard openFromPrompt: aString.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/openNewLocalBoard.st

@@ -1,4 +1,10 @@
 actions
 openNewLocalBoard
-
-	Transcript showln: 'dbhajdk'.
+
+	| prompt boardName |
+	prompt := FillInTheBlank request: 'Enter a name for the local board.'.
+	boardName := SPBBoard localPrefix, prompt.
+	(SPBBoardSaver defaultSaver contains:  boardName)
+		ifTrue: [UIManager inform: 'A board with this name already exists'. ^self.].
+	SPBBoard openFromPrompt: boardName.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/renameBoardFromButton..st

@@ -0,0 +1,11 @@
+actions
+renameBoardFromButton: aString
+
+	| prompt boardName |
+	prompt := FillInTheBlank request: 'Enter a new name for the local board.'.
+	boardName := SPBBoard localPrefix, prompt.
+	(SPBBoardSaver defaultSaver contains: boardName)
+		ifTrue: [UIManager inform: 'A board with this name already exists'. ^ self.].
+	SPBBoardSaver defaultSaver save: (SPBBoardSaver defaultSaver load: aString) as: boardName.
+	SPBBoardSaver defaultSaver delete: aString.
+	self updateUI.

Squello-Core.package/SPBLandingPage.class/instance/updateUI.st

@@ -0,0 +1,5 @@
+actions
+updateUI
+
+	self changed: #lastSidebarPart.
+	self changed: #contentPanelChildren.