diff --git a/src/GToolkit-Inspector/AbstractFileReference.extension.st b/src/GToolkit-Inspector/AbstractFileReference.extension.st index 34f7aca3..269e2a74 100644 --- a/src/GToolkit-Inspector/AbstractFileReference.extension.st +++ b/src/GToolkit-Inspector/AbstractFileReference.extension.st @@ -89,6 +89,15 @@ AbstractFileReference >> gtContentsFor: aView [ stencil: [ self gtEditorView ] ] +{ #category : #'*GToolkit-Inspector' } +AbstractFileReference >> gtDefaultInspectorTool [ + ^ (self exists and: [ self isDirectory ]) + ifTrue: [ GtPhlowCompositeTool new + addTool: super gtDefaultInspectorTool; + addTool: (GtFileBrowserFolderTool forFolder: self) ] + ifFalse: [ super gtDefaultInspectorTool ] +] + { #category : #'*GToolkit-Inspector' } AbstractFileReference >> gtDetails [ | details | diff --git a/src/GToolkit-Inspector/GtInspector.class.st b/src/GToolkit-Inspector/GtInspector.class.st index 456027de..353809a3 100644 --- a/src/GToolkit-Inspector/GtInspector.class.st +++ b/src/GToolkit-Inspector/GtInspector.class.st @@ -226,6 +226,11 @@ GtInspector >> playgroundPageStrategy: aPlaygroundPageStrategy [ self updatePlaygroundPageStrategy. ] +{ #category : #'as yet unclassified' } +GtInspector >> removePlayground [ + self removeChild: self playgroundElement +] + { #category : #selection } GtInspector >> selectTabWithIdentifier: aTabIdentifier [ aTabIdentifier applySelectionTo: self