Fix bindings in MiPlayground.

src/MooseIDE-NewTools/MiPlaygroundInteractionModel.class.st

@@ -0,0 +1,15 @@
+"
+As my superclass, I am used in playgrounds to access bindings.
+I am specific to Moose.
+"
+Class {
+	#name : #MiPlaygroundInteractionModel,
+	#superclass : #StPlaygroundInteractionModel,
+	#category : #'MooseIDE-NewTools-Playground'
+}
+
+{ #category : #'as yet unclassified' }
+MiPlaygroundInteractionModel >> application [
+
+	^ MiApplication current
+]

src/MooseIDE-NewTools/MiPlaygroundPagePresenter.class.st

@@ -24,9 +24,10 @@ MiPlaygroundPagePresenter >> addMooseToolbarCommandsTo: aGroup [
 
 { #category : #accessing }
 MiPlaygroundPagePresenter >> application [
-	"This is a hack to avoid opening Pharo system tools in MiApplication"
+	"This allows the playground to use the StPharoApplication instead of the Moose-specific application.
+	We do not want the native windows to open silently as Moose windows."
 
-	^ StPharoApplication current
+	^ application
 ]
 
 { #category : #'public access' }
@@ -38,6 +39,13 @@ MiPlaygroundPagePresenter >> evaluate [
 		  onError: [ :e | e pass ]
 ]
 
+{ #category : #initialization }
+MiPlaygroundPagePresenter >> initializePresenters [
+
+	super initializePresenters.
+	text interactionModel: MiPlaygroundInteractionModel new
+]
+
 { #category : #private }
 MiPlaygroundPagePresenter >> menuActionsFor: aCodePresenter [