cleanup

Backend-independant interactions.
Remove widgets as they are already present in Spec.

src/BaselineOfInteractions/BaselineOfInteractions.class.st

@@ -11,6 +11,8 @@ BaselineOfInteractions >> baseline: spec [
 	<baseline>
 	spec
 		package: 'Interactions';
-		package: 'Interactions-Widgets';
-		package: 'Interactions-Widgets-Tests'
+		package: 'Interactions-Widgets'
+			with: [ spec requires: #( 'Interactions' ) ];
+		package: 'Interactions-Tests'
+			with: [ spec requires: #( 'Interactions' 'Interactions-Widgets' ) ]
 ]

src/Interactions-Widgets/SpConfirmDialog.extension.st

@@ -0,0 +1,12 @@
+Extension { #name : 'SpConfirmDialog' }
+
+{ #category : '*Interactions-Widgets' }
+SpConfirmDialog class >> for: aConfirmation [
+
+	^ self new
+		title: aConfirmation title;
+		label: aConfirmation message;
+		acceptLabel: aConfirmation yesLabel;
+		cancelLabel: aConfirmation noLabel;
+		yourself
+]

src/Interactions-Widgets/SpDialogPresenter.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : 'SpDialogPresenter' }
+
+{ #category : '*Interactions-Widgets' }
+SpDialogPresenter >> doInteraction [
+	^ self openDialog
+]

src/Interactions-Widgets/SpInformDialog.extension.st

@@ -0,0 +1,10 @@
+Extension { #name : 'SpInformDialog' }
+
+{ #category : '*Interactions-Widgets' }
+SpInformDialog class >> for: anITInformation [ 
+
+	^ self new
+		title: anITInformation title;
+		label: anITInformation message;
+		yourself
+]

src/Interactions-Widgets/SpecInteraction.class.st

@@ -0,0 +1,54 @@
+"
+I am the entity in charge of receiving User interactions and convert them to Spec widgets.
+I use double dispatch on User interactions entity.
+"
+Class {
+	#name : 'SpecInteraction',
+	#superclass : 'Object',
+	#classInstVars : [
+		'default'
+	],
+	#category : 'Interactions-Widgets',
+	#package : 'Interactions-Widgets'
+}
+
+{ #category : 'accessing' }
+SpecInteraction class >> default [
+
+	^ default ifNil:[ default := self new ]
+]
+
+{ #category : 'querying' }
+SpecInteraction >> for: aUserInteraction [
+
+	^ aUserInteraction widgetFor: self
+]
+
+{ #category : 'accessing' }
+SpecInteraction >> widgetForConfirmation: aConfirmation [
+
+	^ SpConfirmDialog for: aConfirmation
+]
+
+{ #category : 'accessing' }
+SpecInteraction >> widgetForFileRequest: aFileRequest [
+
+	| widget widgetClass |
+	widgetClass := aFileRequest isForFileOpening
+		               ifTrue: [ StOpenFilePresenter ]
+		               ifFalse: [ StOpenDirectoryPresenter ].
+	widget := widgetClass for: aFileRequest.
+
+	aFileRequest currentFolder ifNotNil: [ :folder | widget openFolder: folder ].
+	aFileRequest filter ifNotNil: [ :filter |
+		widget fileNavigationSystem filter:
+			(StCustomExtensionsFilter extensions: { filter }) ].
+
+	^ widget
+]
+
+{ #category : 'accessing' }
+SpecInteraction >> widgetForInformation: anITInformation [ 
+
+	^ SpInformDialog for: anITInformation
+]

src/Interactions-Widgets/StFileSystemPresenter.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : 'StFileSystemPresenter' }
+
+{ #category : '*Interactions-Widgets' }
+StFileSystemPresenter >> doInteraction [
+
+	^ self open
+]