add expand/collapse keybindings (arrow left, arrow right, space) on t…

…rees.

Incidentally, fix a bug that was happening while expanding and collapsing branches (previous selection was lost)

src/Spec2-Adapters-Morphic/SpMorphicTreeTableDataSource.class.st

@@ -69,14 +69,16 @@ SpMorphicTreeTableDataSource >> collapsePath: aPath [
 
 	(self itemAtPath: aPath) ifNotNil:[ :aNode | 
 		aNode collapseAll.
-		self tableRefresh ]
+		self tableRefresh.
+		self model selection selectPath: aPath ]
 ]
 
 { #category : 'accessing' }
-SpMorphicTreeTableDataSource >> expandPath: anArray [
+SpMorphicTreeTableDataSource >> expandPath: aPath [
 
-	self expandPath: anArray root: self rootItem children.
-	self tableRefresh
+	self expandPath: aPath root: self rootItem children.
+	self tableRefresh.
+	self model selection selectPath: aPath
 ]
 
 { #category : 'accessing' }

src/Spec2-Core/SpAbstractTreePresenter.class.st

@@ -208,6 +208,7 @@ SpAbstractTreePresenter >> initialize [
 	verticalAlignment := SpVerticalAlignment new.
 
 	self withScrollBars.
+	self registerActions.
 	self registerEvents
 ]
 

src/Spec2-Core/SpWindowPresenter.class.st

@@ -322,7 +322,7 @@ SpWindowPresenter >> initialize [
 
 { #category : 'initialization' }
 SpWindowPresenter >> initializeWindow [
-		
+
 	self presenter initializeWindow: self
 ]
 

src/Spec2-ListView/SpTreeColumnViewPresenter.class.st

@@ -26,7 +26,7 @@ SpTreeColumnViewPresenter class >> adapterName [
 SpTreeColumnViewPresenter class >> example [
 
 	^ self new
-		application: (SpApplication new useBackend: #Gtk);
+		application: SpApplication new;
 		addColumnTitle: 'Class' 
 			setup: [ :aPresenter | aPresenter newLabel ] 
 			bind: [ :aPresenter :aClass | aPresenter label: aClass name ];
@@ -217,6 +217,19 @@ SpTreeColumnViewPresenter >> isShowingColumnHeaders [
 	^ showColumnHeaders
 ]
 
+{ #category : 'initialization' }
+SpTreeColumnViewPresenter >> registerActions [
+
+	super registerActions.
+	self ensureInternalActions
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey right asKeyCombination | KeyboardKey space asKeyCombination;
+			action: [ self expandPath: self selection selectedPath ] ];
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey left asKeyCombination;
+			action: [ self collapsePath: self selection selectedPath ] ]
+]
+
 { #category : 'api' }
 SpTreeColumnViewPresenter >> showColumnHeaders [
 	"Show column headers"

src/Spec2-ListView/SpTreeListViewPresenter.class.st

@@ -28,7 +28,7 @@ SpTreeListViewPresenter class >> example [
 	"This example show the simples list view you can make: A list with a label"
 
 	self new
-		application: (SpApplication new useBackend: #Gtk);
+		application: SpApplication new;
 		items: { Object };
 		children: [ :aClass | aClass subclasses ];
 		setup: [ :aPresenter | aPresenter newLabel ];
@@ -235,7 +235,6 @@ SpTreeListViewPresenter >> initialize [
 	self beSingleSelection.
 	self activateOnDoubleClick.
 
-	self registerActions.	
 	self initializeItemFactory
 ]
 
@@ -247,6 +246,19 @@ SpTreeListViewPresenter >> initializeItemFactory [
 	self bind: [ :aPresenter :anObject | aPresenter label: anObject asString ]
 ]
 
+{ #category : 'initialization' }
+SpTreeListViewPresenter >> registerActions [
+
+	super registerActions.
+	self ensureInternalActions
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey right asKeyCombination | KeyboardKey space asKeyCombination;
+			action: [ self expandPath: self selection selectedPath ] ];
+		addShortcutWith: [ :action | action 
+			shortcutKey: KeyboardKey left asKeyCombination;
+			action: [ self collapsePath: self selection selectedPath ] ]
+]
+
 { #category : 'initialization' }
 SpTreeListViewPresenter >> registerEvents [