destroyed card builder

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

@@ -10,5 +10,6 @@ resizeColumnArea
 			(self usedBuilder widgetAt: widgetName) minimumHeight: newMinHeight.
 			column 
 				minimumHeight: newMinHeight * 0.85;
+				alignCards;
 				resizeBottomDetection;
 				resizeToFitCards].

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

@@ -5,8 +5,7 @@ setupColumns
 		do: [:column | column pasteup: (self usedBuilder widgetAt: column id).
 			column
 				initializeIndicator;
-				fetchCards;
-				buildCards;
+				fetchAndBuildCards;
 				board: self;
 				resizeToFitCards;
 				initializeBottomDetection].

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

@@ -52,8 +52,8 @@
 		"parseRepoFromUrl:" : "mcr 8/2/2022 21:15",
 		"removeColumn:" : "lo 8/1/2022 14:09",
 		"rerenderColumns" : "lo 7/31/2022 16:42",
-		"resizeColumnArea" : "lo 8/1/2022 11:12",
-		"setupColumns" : "mcr 8/1/2022 01:26",
+		"resizeColumnArea" : "jh 8/3/2022 01:07",
+		"setupColumns" : "jh 8/3/2022 00:48",
 		"sidebar" : "mcr 8/1/2022 00:44",
 		"sidebar:" : "mcr 8/1/2022 00:44",
 		"update:with:" : "mcr 8/1/2022 01:27",

Squello-Core.package/SPBCard.class/class/buildFromRemote.into..st

@@ -0,0 +1,7 @@
+accessing
+buildFromRemote: aJsonObject into: anSPBColumn
+
+	| instance |
+	instance := self newFrom: aJsonObject with: anSPBColumn.
+	instance setCardColumn: anSPBColumn.
+	^ instance.

Squello-Core.package/SPBCard.class/class/buildNew.into..st

@@ -0,0 +1,9 @@
+accessing
+buildNew: aDictionary into: anSPBColumn
+
+	| instance cardJson boardProvider |
+	boardProvider := anSPBColumn boardProvider.
+	cardJson := boardProvider createCard: aDictionary into: anSPBColumn.
+	instance := self newFrom: cardJson with: anSPBColumn.
+	instance setCardColumnAtTop: anSPBColumn.
+	^ instance.

Squello-Core.package/SPBCard.class/class/newFrom.with..st

@@ -0,0 +1,12 @@
+accessing
+newFrom: aJsonObject with: anSPBColumn
+
+	^ self new
+		id: (aJsonObject at: 'id');
+		boardProvider: anSPBColumn boardProvider;
+		changeProvider: anSPBColumn changeProvider;
+		setupMouseEvents;
+		buildContent: (aJsonObject at: 'content_url');
+		buildUI;
+		openInWorld;
+		yourself.

Squello-Core.package/SPBCardBuilder.class/instance/buildContent..st → Squello-Core.package/SPBCard.class/instance/buildContent..st

@@ -1,12 +1,12 @@
-building
+accessing
 buildContent: aString
 
 	| contentJson |
 	contentJson := self boardProvider queryCardContent: aString.
-	self card
+	self
 		title: (contentJson at: 'title');
 		description: (contentJson at: 'body');
 		issueId: (contentJson at: 'number');
 		assignees: ((contentJson at: 'assignees') collect: 
-			[:assigne | SPBAssignee newFrom: assigne]) asOrderedCollection;
-		labels: (self buildLabels: (contentJson at: 'labels')).
+			[:assignee | SPBAssignee newFrom: assignee]) asOrderedCollection;
+		labels: ((contentJson at: 'labels') collect: [:label | SPBLabel newFrom: label]) asOrderedCollection.

Squello-Core.package/SPBCard.class/instance/buildUI.st

@@ -0,0 +1,10 @@
+accessing
+buildUI
+
+	self titleModel contents: self title.
+	self 
+		updateAssigneeCount;
+		updateLabelIcons;
+		setCardHeight.
+	self assigneeModel position: self position + self extent - self assigneeOffset.
+	self resizeIndicatorFields.

Squello-Core.package/SPBCard.class/instance/setCardColumn..st

@@ -0,0 +1,6 @@
+accessing
+setCardColumn: anSPBColumn
+
+	self column: anSPBColumn.
+	anSPBColumn addCard: self.
+	anSPBColumn pasteup addMorph: self.

Squello-Core.package/SPBCard.class/instance/setCardColumnAtTop..st

@@ -0,0 +1,6 @@
+accessing
+setCardColumnAtTop: anSPBColumn
+
+	self column: anSPBColumn.
+	anSPBColumn addCardToTop: self.
+	anSPBColumn pasteup addMorph: self.

Squello-Core.package/SPBCard.class/instance/setupMouseEvents.st

@@ -0,0 +1,5 @@
+accessing
+setupMouseEvents
+
+	self on: #click send: #becomeActiveCard to: self.
+	self on: #startDrag send: #startDragging to: self.

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

@@ -1,7 +1,10 @@
 {
 	"class" : {
+		"buildFromRemote:into:" : "jh 8/3/2022 00:35",
+		"buildNew:into:" : "jh 8/3/2022 00:33",
 		"defaultCardExtent" : "lo 8/1/2022 12:18",
-		"indicatorCardEdgeOffset" : "lo 8/1/2022 12:23" },
+		"indicatorCardEdgeOffset" : "lo 8/1/2022 12:23",
+		"newFrom:with:" : "jh 8/3/2022 00:53" },
 	"instance" : {
 		"=" : "lo 7/31/2022 18:14",
 		"addAssignee:" : "lo 7/31/2022 16:22",
@@ -18,9 +21,11 @@
 		"boardProvider" : "jh 7/29/2022 12:46",
 		"boardProvider:" : "lo 7/31/2022 16:30",
 		"buildAssignee" : "tk 8/2/2022 23:27",
+		"buildContent:" : "jh 8/3/2022 00:17",
 		"buildIndicatorDetection" : "tk 8/2/2022 23:23",
 		"buildIndicatorDetectionHalf" : "lo 8/1/2022 11:37",
 		"buildTitle" : "tk 8/2/2022 23:24",
+		"buildUI" : "jh 8/3/2022 00:19",
 		"cardIndicatorExtent" : "lo 8/1/2022 11:52",
 		"changeProvider" : "lo 7/8/2022 15:38",
 		"changeProvider:" : "jh 7/9/2022 10:18",
@@ -52,7 +57,10 @@
 		"removeLabelLocal:" : "lo 7/31/2022 16:40",
 		"resizeCard" : "tk 8/2/2022 23:27",
 		"resizeIndicatorFields" : "tk 8/2/2022 23:23",
+		"setCardColumn:" : "jh 8/3/2022 00:34",
+		"setCardColumnAtTop:" : "jh 8/3/2022 00:33",
 		"setCardHeight" : "tk 8/2/2022 23:28",
+		"setupMouseEvents" : "jh 8/3/2022 00:20",
 		"startDragging" : "tk 7/30/2022 21:53",
 		"title" : "lo 7/31/2022 16:09",
 		"title:" : "mcr 5/21/2022 20:52",

Squello-Core.package/SPBColumn.class/instance/addCard.st

@@ -6,6 +6,6 @@ addCard
 	cardTitle = '' 
 		ifTrue: [^ self].
 	content := Dictionary newFrom: {'title' -> cardTitle . 'body' -> ''}.
-	self cardBuilder buildNew: content atTop: self.
+	SPBCard buildNew: content into: self.
 	self alignCards.
 

Squello-Core.package/SPBColumn.class/instance/boardProvider..st

@@ -1,5 +1,4 @@
 accessing
 boardProvider: anSPBGithubBoardProvider
 
-	boardProvider := anSPBGithubBoardProvider.
-	self cardBuilder boardProvider: anSPBGithubBoardProvider.
+	boardProvider := anSPBGithubBoardProvider.

Squello-Core.package/SPBColumn.class/instance/buildSingleCard..st

@@ -2,7 +2,7 @@ creation
 buildSingleCard: aJsonObject
 
 	| card |
-	card := self cardBuilder buildFromRemote: aJsonObject into: self.
+	card := SPBCard buildFromRemote: aJsonObject into: self.
 	self cards remove: card.
 	(aJsonObject at: 'card')
 		ifNil: [self cards addFirst: card. self alignCards. ^ self].

Squello-Core.package/SPBColumn.class/instance/changeProvider..st

@@ -2,5 +2,4 @@ accessing
 changeProvider: anSPBGithubChangeProvider
 
 	changeProvider := anSPBGithubChangeProvider.
-	changeProvider addDependent: self.
-	self cardBuilder changeProvider: anSPBGithubChangeProvider.
+	changeProvider addDependent: self.

Squello-Core.package/SPBColumn.class/instance/fetchAndBuildCards.st

@@ -0,0 +1,5 @@
+creation
+fetchAndBuildCards
+
+	(self boardProvider queryCardsForColumn: self) asOrderedCollection
+		do: [:cardJson | SPBCard buildFromRemote: cardJson into: self].