Refactor Lanes to Columns (tests not included)

Squello-Core.package/SPBBoard.class/class/lastProject..st

@@ -1,3 +1,4 @@
 accessing
 lastProject: anObject
-	LastProject := anObject
+
+	LastProject := anObject.

Squello-Core.package/SPBBoard.class/class/lastProject.st

@@ -1,3 +1,4 @@
 accessing
 lastProject
-	^ LastProject
+
+	^ LastProject.

Squello-Core.package/SPBBoard.class/instance/addLane.st → Squello-Core.package/SPBBoard.class/instance/addColumn.st

@@ -1,15 +1,15 @@
 toolbuilder
-addLane 
+addColumn 
 
-	| lane prompt |
+	| column prompt |
 	prompt := FillInTheBlankMorph request: 'Enter a lane name' initialAnswer:''.
 	(prompt = '')
 		ifTrue: [^ self].
-	lane := self boardProvider createColumn: prompt.
+	column := self boardProvider createColumn: prompt.
 
-	lane 
+	column 
 		board: self;
 		boardProvider: self boardProvider;
 		changeProvider: self changeProvider.
-	self lanes add: lane.
- 	self updateLanesWithCards.
+	self columns add: column.
+ 	self updateColumnsWithCards.

Squello-Core.package/SPBBoard.class/instance/buildAddColumnButtonPanelSpecWith..st

@@ -0,0 +1,7 @@
+toolbuilder
+buildAddColumnButtonPanelSpecWith: aBuilder
+
+	^ aBuilder pluggablePanelSpec new
+			minimumExtent: (300@200);
+			children: {self buildAddColumnButtonSpecWith: aBuilder};
+			yourself.

Squello-Core.package/SPBBoard.class/instance/buildAddColumnButtonSpecWith..st

@@ -0,0 +1,10 @@
+toolbuilder
+buildAddColumnButtonSpecWith: aBuilder 
+
+    ^ aBuilder pluggableActionButtonSpec new
+			frame: (0@0 corner: 1@0.1);
+			model: self;
+			action: #addColumn;
+			label: '+ Add column';
+	       help: 'add a new column to the board';
+	       yourself.

Squello-Core.package/SPBBoard.class/instance/buildAndOpen.st

@@ -2,7 +2,7 @@ initialize-release
 buildAndOpen
 
 	| window |
-	self createLanes.
+	self createColumns.
 
 	window := self buildWith: SPBMorphicToolBuilder new.
 	window openInWorld.

Squello-Core.package/SPBBoard.class/instance/buildColumnAreaChildren.st

@@ -0,0 +1,11 @@
+toolbuilder
+buildColumnAreaChildren 
+
+	| children |
+
+    children := ((self buildColumnsSpecWith: self usedBuilder)
+		collect: [:spec | self usedBuilder build: spec]) asOrderedCollection.
+    children
+		add: ((self usedBuilder build: (self buildAddColumnButtonPanelSpecWith: self usedBuilder)) color: Color lightGray).
+
+    ^ children.

Squello-Core.package/SPBBoard.class/instance/buildColumnAreaSpecWith..st

@@ -0,0 +1,4 @@
+toolbuilder
+buildColumnAreaSpecWith: aBuilder
+
+	^ self buildColumnAreaSpecWith: aBuilder width: 0.75.

Squello-Core.package/SPBBoard.class/instance/buildLaneAreaSpecWith.width..st → Squello-Core.package/SPBBoard.class/instance/buildColumnAreaSpecWith.width..st

@@ -1,12 +1,12 @@
 toolbuilder
-buildLaneAreaSpecWith: aBuilder width: aNumber
+buildColumnAreaSpecWith: aBuilder width: aNumber
 
 	^ aBuilder resizeScrollPaneSpec new
 			frame: (0@0 corner: aNumber@1);
-			name: #laneArea;
+			name: #columnArea;
 			model: self;
 			scrollBarThickness: 20;
 			vScrollBarPolicy: #never;
-			children: #buildLaneAreaChildren;
+			children: #buildColumnAreaChildren;
 			layout: #horizontal;
 			yourself.

Squello-Core.package/SPBBoard.class/instance/buildLaneBodySpecWith.and..st → Squello-Core.package/SPBBoard.class/instance/buildColumnBodySpecWith.and..st

@@ -1,18 +1,18 @@
 toolbuilder
-buildLaneBodySpecWith: aBuilder and: anSPBLane
+buildColumnBodySpecWith: aBuilder and: anSPBColumn
 
 	^aBuilder pluggableScrollPaneSpec new
 			frame: (0@0.15 corner: 1@1);
-			name: #laneScrollPane;
+			name: #columnScrollPane;
 			model: self;
 			hScrollBarPolicy: #never;
 			vScrollBarPolicy: #always;
 			children: {aBuilder pasteUpSpec new
 					minimumExtent: 300@290;
-					model: anSPBLane;
-					name: anSPBLane id;
+					model: anSPBColumn;
+					name: anSPBColumn id;
 					dropped: #cardDropped:Event:;
-					reject: [:morph :event | ((morph class = SPBCard) or: [morph class = SPBGhostLane]) not];
+					reject: [:morph :event | ((morph class = SPBCard) or: [morph class = SPBGhostColumn]) not];
 					yourself};
 			layout: #vertical;
 			yourself. 

Squello-Core.package/SPBBoard.class/instance/buildLaneHeaderAddCardButtonSpecWith.and..st → Squello-Core.package/SPBBoard.class/instance/buildColumnHeaderAddCardButtonSpecWith.and..st

@@ -1,10 +1,10 @@
 toolbuilder
-buildLaneHeaderAddCardButtonSpecWith: aBuilder and: anSPBLane
+buildColumnHeaderAddCardButtonSpecWith: aBuilder and: anSPBColumn
 
 	^ aBuilder pluggableActionButtonSpec new
 			frame: (0@0.6 corner: 0.85@1);
-			model: anSPBLane;
+			model: anSPBColumn;
 			action: #addCard;
 			label: '+ Add card';
-			help: 'add a new card to the lane';
+			help: 'add a new card to the column';
 			yourself.

Squello-Core.package/SPBBoard.class/instance/buildColumnHeaderMoveColumnButtonSpecWith.and..st

@@ -0,0 +1,10 @@
+toolbuilder
+buildColumnHeaderMoveColumnButtonSpecWith: aBuilder and: anSPBColumn
+
+	^ aBuilder pluggableActionButtonSpec new
+			frame: (0.85@0.6 corner: 1@1);
+			model: anSPBColumn;
+			action: #moveColumn;
+			label: '<->';
+			help: 'move the column to another place';
+			yourself.

Squello-Core.package/SPBBoard.class/instance/buildColumnHeaderSpecWith.and..st

@@ -0,0 +1,9 @@
+toolbuilder
+buildColumnHeaderSpecWith: aBuilder and: anSPBColumn
+
+	^ aBuilder pluggablePanelSpec new
+			frame: (0@0 corner: 1@0.15);
+			children: {self buildColumnHeaderTitleSpecWith: aBuilder and: anSPBColumn.
+				self buildColumnHeaderAddCardButtonSpecWith: aBuilder and: anSPBColumn.
+				self buildColumnHeaderMoveColumnButtonSpecWith: aBuilder and: anSPBColumn};
+			yourself.

Squello-Core.package/SPBBoard.class/instance/buildLaneHeaderTitleSpecWith.and..st → Squello-Core.package/SPBBoard.class/instance/buildColumnHeaderTitleSpecWith.and..st

@@ -1,9 +1,9 @@
 toolbuilder
-buildLaneHeaderTitleSpecWith: aBuilder and: anSPBLane
+buildColumnHeaderTitleSpecWith: aBuilder and: anSPBColumn
 
 	^ aBuilder pluggableTextSpec new
 			frame: (0@0 corner: 1@0.6);
-			model: anSPBLane;
+			model: anSPBColumn;
 			getText: #title;
 			setText: #updateTitle:;
 			yourself.

Squello-Core.package/SPBBoard.class/instance/buildColumnSpecWith.and..st

@@ -0,0 +1,9 @@
+toolbuilder
+buildColumnSpecWith: aBuilder and: anSPBColumn
+
+	^ aBuilder pluggablePanelSpec new
+			minimumExtent: (300@600);
+			children: {self buildColumnHeaderSpecWith: aBuilder and: anSPBColumn.
+				self buildColumnBodySpecWith: aBuilder and: anSPBColumn};
+			name: ('column', anSPBColumn id asString) asSymbol;
+			yourself.

Squello-Core.package/SPBBoard.class/instance/buildColumnsSpecWith..st

@@ -0,0 +1,4 @@
+toolbuilder
+buildColumnsSpecWith: aBuilder
+
+	^ self columns collect: [:each | self buildColumnSpecWith: aBuilder and: each].

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

@@ -7,12 +7,12 @@ buildWith: aBuilder
 		model: self;
 		label: 'Squello Project Board';
 		minimumExtent: 1040@400;
-		children: {self buildLaneAreaSpecWith: aBuilder.
+		children: {self buildColumnAreaSpecWith: aBuilder.
 			self buildSidebarSpecWith: aBuilder};
 		yourself.
 
 	self window: (aBuilder build: spec).
 
-	self updateLanes.
+	self updateColumns.
 
 	^ self window.

Squello-Core.package/SPBBoard.class/instance/columns..st

@@ -0,0 +1,4 @@
+accessing
+columns: anOrderedCollection
+
+	columns := anOrderedCollection.

Squello-Core.package/SPBBoard.class/instance/columns.st

@@ -0,0 +1,4 @@
+accessing
+columns
+
+	^ columns.

Squello-Core.package/SPBBoard.class/instance/createColumns.st

@@ -0,0 +1,6 @@
+toolbuilder
+createColumns
+
+	self columns: self boardProvider queryColumns.
+	(self columns)
+		do: [:column | column changeProvider: self changeProvider].

Squello-Core.package/SPBBoard.class/instance/rerenderColumns.st

@@ -0,0 +1,7 @@
+drag and drop
+rerenderColumns
+
+	self columns
+		do: [:column | column pasteup: (self usedBuilder widgetAt: column id).
+			column rerenderCards.
+			column board: self].

Squello-Core.package/SPBBoard.class/instance/resizeColumnArea.st

@@ -0,0 +1,13 @@
+update sidebar
+resizeColumnArea
+
+	| widgetName columnArea newMinHeight |
+	columnArea := self usedBuilder widgetAt: #columnArea.
+	newMinHeight := columnArea height - columnArea scrollBarThickness - 1.
+
+	self columns
+		do: [:column | widgetName := ('column', column id asString) asSymbol.
+			(self usedBuilder widgetAt: widgetName) minimumHeight: newMinHeight.
+			column minimumHeight: newMinHeight * 0.85.
+			column resizeBottomDetection.
+			column resizeToFitCards].

Squello-Core.package/SPBBoard.class/instance/showColumns.st

@@ -0,0 +1,7 @@
+drag and drop
+showColumns
+
+	self columns 
+		do: [:column| column pasteup: (self usedBuilder widgetAt: column id).
+			column buildCards.
+			column board: self].