Little tweaks

Author: tinchodias

src/BlocHost-OSWindow-SDL3-Tests/BlOSSDL3HostTest.class.st

@@ -23,6 +23,7 @@ BlOSSDL3HostTest >> testKeyMapping [
 
 { #category : #tests }
 BlOSSDL3HostTest >> testNewAttributesForSpace [
+
 	| host space attributes |
 	host := BlOSSDL3Host new.
 	space := BlSpace new.
@@ -37,6 +38,7 @@ BlOSSDL3HostTest >> testNewAttributesForSpace [
 
 { #category : #tests }
 BlOSSDL3HostTest >> testNewHostSpaceFor [
+
 	| host space hostSpace |
 	host := BlOSSDL3Host new.
 	space := BlSpace new.

src/BlocHost-OSWindow-SDL3-Tests/BlSDL3GPUHostDemo.class.st

@@ -4,6 +4,53 @@ Class {
 	#category : #'BlocHost-OSWindow-SDL3-Tests'
 }
 
+{ #category : #examples }
+BlSDL3GPUHostDemo class >> openGPURendererSpace [
+	<script>
+	| space element text originalRendererClass |
+	
+	"Temporarily use the GPU renderer for this demo"
+	originalRendererClass := BlOSSDL3Renderer defaultClass.
+	BlOSSDL3Renderer defaultClass: BlOSSDL3GPURenderer.
+	
+	space := BlSpace new.
+	space extent: 600 @ 400.
+	space title: 'Bloc SDL3 GPU Host Demo'.
+	space host: BlOSSDL3Host new.
+
+	element := BlElement new
+		extent: 200 @ 200;
+		background: Color blue;
+		position: 100 @ 100;
+		yourself.
+
+	text := BlTextElement new
+		text: ('Hello SDL3 GPU Host' asRopedText
+			fontSize: 24;
+			foreground: Color white);
+		position: 20 @ 20.
+
+	element addChild: text.
+
+	element addEventHandler: (BlEventHandler
+		on: BlMouseDownEvent
+		do: [ :evt | element background: Color red ]).
+
+	element addEventHandler: (BlEventHandler
+		on: BlMouseUpEvent
+		do: [ :evt | element background: Color blue ]).
+
+	space root addChild: element.
+	
+	"Restore the original renderer class after creating the space"
+	space addEventHandler: (BlEventHandler
+		on: BlSpaceClosedEvent
+		do: [ :evt | BlOSSDL3Renderer defaultClass: originalRendererClass ]).
+		
+	space show.
+	^ space
+]
+
 { #category : #examples }
 BlSDL3GPUHostDemo class >> openSimpleSpace [
 	<script>