Scrolling through Dashboard in both directions (press shift for left) c…

…lose #23
hpi-swa-teaching · May 30, 2017 · 9a5230f · 9a5230f
1 parent 1143efe
commit 9a5230f
Show file tree

Hide file tree

Showing 8 changed files with 31 additions and 9 deletions.
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/initialize.st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/initialize.st
@@ -26,7 +26,8 @@ initialize
 		cellInset: 15@35;
 		listDirection: #leftToRight;
 		wrapDirection: #topToBottom;
-		cellPositioning: #topCenter.
+		cellPositioning: #topCenter;
+		scrollingDirection: #right.
 
 	self initializeSelectionRectangle.
 	self initializeThumbnails.
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/keyDown..st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/keyDown..st
@@ -1,6 +1,9 @@
 as yet unclassified
 keyDown: anEvent.
-
+
+	anEvent keyValue = 56 ifTrue: [
+			self scrollingDirection: #left.
+		].
 	anEvent keyValue = 13 ifTrue: [
-			self selectNextWindow.
-		]
+			self scroll.
+		].
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/keyUp..st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/keyUp..st
@@ -4,4 +4,7 @@ keyUp: anEvent.
 	anEvent keyValue = 13 ifFalse: [
 			self activateWindow.
 			self delete.
-		]
+		].
+	anEvent keyValue = 56 ifTrue: [
+			self scrollingDirection: #right.
+		].
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scroll.st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scroll.st
@@ -0,0 +1,5 @@
+as yet unclassified
+scroll
+
+	self scrollingDirection = #right ifTrue: [self selectNextWindow].
+	self scrollingDirection = #left ifTrue: [self selectPreviousWindow].
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scrollingDirection..st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scrollingDirection..st
@@ -0,0 +1,3 @@
+accessing
+scrollingDirection: anObject
+	scrollingDirection := anObject
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scrollingDirection.st b/packages/WindowAcrobatics-Core.package/WADashboard.class/instance/scrollingDirection.st
@@ -0,0 +1,3 @@
+accessing
+scrollingDirection
+	^ scrollingDirection
diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/methodProperties.json b/packages/WindowAcrobatics-Core.package/WADashboard.class/methodProperties.json
@@ -6,12 +6,15 @@
 		"activateWindowFromEvent:thumbnail:" : "adz 5/18/2017 10:38",
 		"closeWindow" : "jh 5/16/2017 12:13",
 		"drawOn:" : "jh 5/16/2017 12:13",
-		"initialize" : "adz 5/18/2017 10:36",
+		"initialize" : "jh 5/30/2017 10:59",
 		"initializeSelectionRectangle" : "adz 5/18/2017 10:02",
 		"initializeThumbnails" : "adz 5/18/2017 10:33",
 		"intoWorld:" : "jh 5/16/2017 12:13",
-		"keyDown:" : "AZ 5/25/2017 15:40",
-		"keyUp:" : "AZ 5/25/2017 15:51",
+		"keyDown:" : "jh 5/30/2017 11:01",
+		"keyUp:" : "jh 5/30/2017 11:01",
+		"scroll" : "jh 5/30/2017 10:58",
+		"scrollingDirection" : "jh 5/30/2017 10:57",
+		"scrollingDirection:" : "jh 5/30/2017 10:57",
 		"selectNextWindow" : "jh 5/16/2017 12:13",
 		"selectPreviousWindow" : "jh 5/16/2017 12:13",
 		"selectWindow:" : "jh 5/16/2017 12:13",

diff --git a/packages/WindowAcrobatics-Core.package/WADashboard.class/properties.json b/packages/WindowAcrobatics-Core.package/WADashboard.class/properties.json
@@ -6,7 +6,8 @@
 		 ],
 	"commentStamp" : "",
 	"instvars" : [
-		"selectionRectangle" ],
+		"selectionRectangle",
+		"scrollingDirection" ],
 	"name" : "WADashboard",
 	"pools" : [
 		 ],