implement 15 events in a narrow view without date.

hpi-swa-teaching · Jun 3, 2021 · 4090497 · 4090497
1 parent 81a8f65
commit 4090497
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 6 deletions.
diff --git a/packages/CalDAV-Core.package/CALQuickView.class/instance/buildEventListWith..st b/packages/CalDAV-Core.package/CALQuickView.class/instance/buildEventListWith..st
@@ -3,7 +3,7 @@ buildEventListWith: aBuilder
 
 	^ aBuilder pluggableListSpec new
 		model: self;
-		list: #eventNames;
+		list: #events;
 		getIndex: #currentIndex;
 		setIndex: #currentIndex:;
 		doubleClick: #openEventDetails;

diff --git a/packages/CalDAV-Core.package/CALQuickView.class/instance/events.st b/packages/CalDAV-Core.package/CALQuickView.class/instance/events.st
@@ -4,8 +4,9 @@ events
 	| events |
 
 	events:= OrderedCollection new.
-	self date ifNotNil: [
-		events addAll: (self app eventsIn: self date).
+	0 to: 365 do: [:day| events addAll:
+		(self app eventNamesIn: (self date addDays: day)).
 		].
-	^ events
+
+	^ self filterOut15EventsIn: events
 
diff --git a/packages/CalDAV-Core.package/CALQuickView.class/instance/filterOut15EventsIn..st b/packages/CalDAV-Core.package/CALQuickView.class/instance/filterOut15EventsIn..st
@@ -0,0 +1,6 @@
+as yet unclassified
+filterOut15EventsIn: eventBlocks 
+	| filteredEventBlock|
+	filteredEventBlock := OrderedCollection new.
+	1 to: 15 do: [:each| filteredEventBlock add: (eventBlocks at: each)].
+	^ filteredEventBlock
diff --git a/packages/CalDAV-Core.package/CALQuickView.class/methodProperties.json b/packages/CalDAV-Core.package/CALQuickView.class/methodProperties.json
@@ -5,14 +5,15 @@
 	"instance" : {
 		"app" : "yk 5/26/2021 13:12",
 		"app:" : "yk 5/26/2021 13:12",
-		"buildEventListWith:" : "yk 5/31/2021 09:47",
+		"buildEventListWith:" : "yk 6/3/2021 14:03",
 		"buildWith:" : "yk 5/30/2021 10:15",
 		"currentIndex" : "yk 5/26/2021 13:25",
 		"currentIndex:" : "yk 5/26/2021 13:25",
 		"date" : "yk 5/26/2021 13:23",
 		"date:" : "yk 5/26/2021 13:23",
 		"dateText" : "yk 5/26/2021 13:23",
 		"eventNames" : "yk 5/26/2021 13:20",
-		"events" : "yk 5/26/2021 13:23",
+		"events" : "yk 6/3/2021 15:15",
+		"filterOut15EventsIn:" : "yk 6/3/2021 15:14",
 		"initialize" : "yk 5/26/2021 13:25",
 		"openDay:for:" : "yk 5/26/2021 13:16" } }