experimenting sdl window with ToIncWindowElement

pharo-graphics · Jun 7, 2024 · 7835379 · 7835379
1 parent 241d752
commit 7835379
Showing 1 changed file with 29 additions and 2 deletions.
diff --git a/src/Toplo-Incubator/ToIncWindowElement.class.st b/src/Toplo-Incubator/ToIncWindowElement.class.st
@@ -8,6 +8,12 @@ Class {
 	#category : #'Toplo-Incubator'
 }
 
+{ #category : #accessing }
+ToIncWindowElement >> borderless: aBoolean [
+
+	wspace borderless: aBoolean
+]
+
 { #category : #'api - displaying' }
 ToIncWindowElement >> close [
 
@@ -32,7 +38,7 @@ ToIncWindowElement >> defaultRootElement [
 	^ ToElement new
 		  id: self defaultRootId;
 		  layout: self defaultRootLayout;
-		  fitContent
+		  matchParent
 ]
 
 { #category : #initialization }
@@ -44,7 +50,7 @@ ToIncWindowElement >> defaultRootId [
 { #category : #initialization }
 ToIncWindowElement >> defaultRootLayout [
 
-	^ BlLinearLayout vertical 
+	^ BlBasicLayout new
 
 ]
 
@@ -60,6 +66,7 @@ ToIncWindowElement >> initialize [
 	rootElement := self defaultRootElement.
 	self addChild: rootElement.
 	self initializeRootElement.
+	self matchParent.
 	wspace := BlSpace new
 ]
 
@@ -103,6 +110,19 @@ ToIncWindowElement >> open [
 	wspace show
 ]
 
+{ #category : #'api - bounds' }
+ToIncWindowElement >> position: aPoint [
+
+	super position: 0@0.
+	wspace position: aPoint
+]
+
+{ #category : #accessing }
+ToIncWindowElement >> resizable: aBoolean [
+
+	wspace resizable: aBoolean
+]
+
 { #category : #accessing }
 ToIncWindowElement >> root [
 	"Return my current root element.
@@ -137,6 +157,13 @@ ToIncWindowElement >> rootLayout: aLayout [
 
 ]
 
+{ #category : #'api - bounds' }
+ToIncWindowElement >> size: aPoint [
+
+	"super position: 0@0."
+	wspace extent: aPoint
+]
+
 { #category : #'api - displaying' }
 ToIncWindowElement >> toFront [