Merge pull request #687 from pharo-graphics/686-Implement-some-explic…

…itRequirements-on-Morphic-host

Implement some explicit requirements on Morphic host & fix some space properties for all hosts

src/Bloc/BlSpace.class.st

@@ -1204,7 +1204,7 @@ BlSpace >> isFullscreen [
 	"Return true if an underlying window is in fullscreen mode, false otherwise."
 
 	^ self 
-		hostSpaceDo: [ :aHostSpace | aHostSpace fullscreen ]
+		hostSpaceDo: [ :aHostSpace | aHostSpace isFullscreen ]
 		ifAbsent: [ fullscreen ]
 ]
 
@@ -1246,7 +1246,7 @@ BlSpace >> isResizable [
 	"Return true if underlying window is resizable, false otherwise"
 
 	^ self
-		hostSpaceDo: [ :aHostSpace | aHostSpace resizable ]
+		hostSpaceDo: [ :aHostSpace | aHostSpace isResizable ]
 		ifAbsent: [ resizable ]
 ]
 

src/BlocHost-Morphic/BlMorphicHostSpace.class.st

@@ -76,6 +76,21 @@ BlMorphicHostSpace >> isFullsize [
 	^ true
 ]
 
+{ #category : #testing }
+BlMorphicHostSpace >> isValid [
+
+	^ spaceHostMorph isNotNil
+]
+
+{ #category : #'host space - testing' }
+BlMorphicHostSpace >> isVisible [
+	"Return true if underlying window is shown, false otherwise.
+	Note: If window was shown and then minimized it is still considered to be visible.
+	Window can become invisible by asking it to hide"
+
+	^ spaceHostMorph visible
+]
+
 { #category : #'host space - geometry' }
 BlMorphicHostSpace >> logicalSize [
 	"Returns the logical size of the host's client area.

src/BlocHost-Morphic/BlMorphicWindowHostSpace.class.st

@@ -57,6 +57,12 @@ BlMorphicWindowHostSpace >> densityDpi [
 	^ 96.0
 ]
 
+{ #category : #'window - properties' }
+BlMorphicWindowHostSpace >> fullscreen: aBoolean [
+	"Ignore. A Morphic space can't be fullscreen."
+
+]
+
 { #category : #'window - properties' }
 BlMorphicWindowHostSpace >> fullsize: aBoolean [
 	"Switch underlying window to fullsize if true is given
@@ -95,6 +101,13 @@ BlMorphicWindowHostSpace >> isBorderless [
 	^ isBorderless
 ]
 
+{ #category : #'window - properties' }
+BlMorphicWindowHostSpace >> isFullscreen [
+	"Return false, as a Morphic space doesn't support fullscreen."
+
+	^ false
+]
+
 { #category : #'window - properties' }
 BlMorphicWindowHostSpace >> isFullsize [
 	"Return true if an underlying window is in fullsize mode, false otherwise.
@@ -103,6 +116,13 @@ BlMorphicWindowHostSpace >> isFullsize [
 	^ isFullSize
 ]
 
+{ #category : #'window - properties' }
+BlMorphicWindowHostSpace >> isResizable [
+	"Return true if underlying window is resizable, false otherwise"
+
+	^ morphicWindow isResizeable
+]
+
 { #category : #'text input' }
 BlMorphicWindowHostSpace >> isTextInputActive [
 	"Check whether or not Unicode text input events are enabled"
@@ -130,6 +150,30 @@ BlMorphicWindowHostSpace >> logicalSize [
 	^ morphicWindow spaceExtent asLogicalSize
 ]
 
+{ #category : #'host space - displaying' }
+BlMorphicWindowHostSpace >> maximize [
+
+	morphicWindow maximize
+]
+
+{ #category : #'host space - displaying' }
+BlMorphicWindowHostSpace >> maximized [
+
+	^ morphicWindow isMaximized
+]
+
+{ #category : #'host space - displaying' }
+BlMorphicWindowHostSpace >> minimize [
+
+	morphicWindow minimize
+]
+
+{ #category : #'host space - displaying' }
+BlMorphicWindowHostSpace >> minimized [
+
+	^ morphicWindow isMinimized
+]
+
 { #category : #'private - accessing' }
 BlMorphicWindowHostSpace >> morphicWindow [
 	^ morphicWindow
@@ -182,6 +226,13 @@ BlMorphicWindowHostSpace >> position: aPoint [
 	morphicWindow position: aPoint
 ]
 
+{ #category : #'window - properties' }
+BlMorphicWindowHostSpace >> resizable: aBoolean [
+	"Make underlying window resizable if true is given"
+
+	morphicWindow isResizeable: aBoolean
+]
+
 { #category : #'host space - displaying' }
 BlMorphicWindowHostSpace >> show [