Methods for toggling

pharo-spec · Sep 19, 2023 · d23bb63 · d23bb63
1 parent 4ecee48
commit d23bb63
Show file tree

Hide file tree

Showing 5 changed files with 48 additions and 0 deletions.
diff --git a/src/NewTools-ScopesBrowser/Behavior.extension.st b/src/NewTools-ScopesBrowser/Behavior.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : 'Behavior' }
+
+{ #category : '*NewTools-ScopesBrowser' }
+Behavior >> scopesIconName [
+	^ #class
+]
diff --git a/src/NewTools-ScopesBrowser/RPackage.extension.st b/src/NewTools-ScopesBrowser/RPackage.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : 'RPackage' }
+
+{ #category : '*NewTools-ScopesBrowser' }
+RPackage >> scopesIconName [
+	^ #package
+]
diff --git a/src/NewTools-ScopesBrowser/SpMorphicTreeTableAdapter.extension.st b/src/NewTools-ScopesBrowser/SpMorphicTreeTableAdapter.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : 'SpMorphicTreeTableAdapter' }
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpMorphicTreeTableAdapter >> togglePath: aPath [
+	widget dataSource togglePath: aPath
+]
diff --git a/src/NewTools-ScopesBrowser/SpMorphicTreeTableDataSource.extension.st b/src/NewTools-ScopesBrowser/SpMorphicTreeTableDataSource.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : 'SpMorphicTreeTableDataSource' }
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpMorphicTreeTableDataSource >> togglePath: aPath [
+	(self itemAtPath: aPath) ifNotNil:[ :aNode | 
+		aNode toggle.
+		self tableRefresh ]
+]
diff --git a/src/NewTools-ScopesBrowser/SpTreeTablePresenter.extension.st b/src/NewTools-ScopesBrowser/SpTreeTablePresenter.extension.st
@@ -0,0 +1,22 @@
+Extension { #name : 'SpTreeTablePresenter' }
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpTreeTablePresenter >> collapseSelectedItems [
+	self selection selectedPaths do: [ :path | self collapsePath: path ]
+]
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpTreeTablePresenter >> expandSelectedItems [
+	self selection selectedPaths do: [ :path | self expandPath: path ]
+]
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpTreeTablePresenter >> togglePath: aPath [
+	self withAdapterPerformOrDefer: [ :anAdapter |
+		anAdapter togglePath: aPath ]
+]
+
+{ #category : '*NewTools-ScopesBrowser' }
+SpTreeTablePresenter >> toggleSelectedItems [
+	self selection selectedPaths do: [ :path | self togglePath: path ]
+]