Use a single big video buffer for rendering instead of one buffer peer primitive shapes

- fix: TF update bug on scale
- fix: Use local coordiate for Polygon points
- Add timer node for basic animation
- Dirty processing nodes are monitored by rootnode
- refactory code

Diya/Array.extension.st

@@ -1,5 +1,15 @@
 Extension { #name : #Array }
 
+{ #category : #'*Diya' }
+Array >> asDiyaStyle [
+	|style|
+	style := DiyaStyle new.
+	self do:[:v |
+		style at: v key put: v value
+	].
+	^style
+]
+
 { #category : #'*Diya' }
 Array >> asPoint [
 	^ (self at: 1 ifAbsent:[0]) @ (self at: 2 ifAbsent:[0])

Diya/Array2D.extension.st

@@ -1,41 +0,0 @@
-Extension { #name : #Array2D }
-
-{ #category : #'*Diya' }
-Array2D >> asGLBuffer [
-	|buffer i|
-	i := 1.
-	buffer := FFIExternalArray externalNewType: #float size: self size.
-	self asArray do:[:e|
-		buffer at:i put:e.
-		i := i+1
-	].
-	buffer autoRelease.
-	^buffer
-]
-
-{ #category : #'*Diya' }
-Array2D class >> rotationMatrix2D: rotation [
-	^Array2D rows: 3 columns: 3 contents:{
-			rotation cos. (rotation sin) negated. 0.0.
-			rotation sin. rotation cos. 0.0.
-			0.0. 0.0. 1.0
-		}
-]
-
-{ #category : #'*Diya' }
-Array2D class >> scaleMatrix2D: scale [
-	^Array2D rows: 3 columns: 3 contents:{
-			scale x. 0.0. 0.0.
-			0.0. scale y. 0.0.
-			0.0. 0.0. 1.0
-		}
-]
-
-{ #category : #'*Diya' }
-Array2D class >> translateMatrix2D: translation [
-	^Array2D rows: 3 columns: 3 contents: {
-			1.0. 0.0. translation x.
-			0.0. 1.0. translation y.
-			0.0. 0.0. 1.0
-		}
-]

Diya/AssetManager.class.st

@@ -19,7 +19,17 @@ AssetManager class >> fromLocation: loc [
 	^self new from: loc; yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #adding }
+AssetManager >> addAsset: value [
+	assets at: value name put: value
+]
+
+{ #category : #adding }
+AssetManager >> addAssetName: name value: value [
+	assets at: name put: value
+]
+
+{ #category : #'instance creation' }
 AssetManager >> from: location [
 	base := location
 ]
@@ -31,12 +41,18 @@ AssetManager >> initialize [
 	base := self class defaultAssetLocation
 ]
 
-{ #category : #'as yet unclassified' }
-AssetManager >> name: fileName of: type [
-	^assets at: fileName ifAbsentPut: [(type fromFile: (base / fileName))].
+{ #category : #accessing }
+AssetManager >> name: name [ 
+	^assets at: name.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
+AssetManager >> name: name of: type [
+	^assets at: name ifAbsentPut: [
+		(type fromFile: (base / name))].
+]
+
+{ #category : #accessing }
 AssetManager >> texture: name [
 	^self name: name of: DiyaImageTex
 ]

Diya/DiskStore.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #DiskStore }
+
+{ #category : #'*Diya' }
+DiskStore class >> inform: string [
+	Transcript show: string; cr.
+]

Diya/Diya2DNode.class.st

@@ -2,7 +2,8 @@ Class {
 	#name : #Diya2DNode,
 	#superclass : #DiyaNode,
 	#instVars : [
-		'vbuffer'
+		'vbuffer',
+		'voffset'
 	],
 	#category : #'Diya-Graphics'
 }
@@ -40,24 +41,24 @@ Diya2DNode >> initialize [
 	translation := 0@0.
 	scale := 1@1.
 	rotation := 0.
-	tf := Array2D identity: 3.
+	tf := MatrixTransform2x3 identity .
 	shader := Diya2DShader uniqueInstance.
 	vbuffer := nil.
+	voffset := 0.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 Diya2DNode >> inner: aPoint [
 	^ self boundingBox containsPoint: (self local: aPoint)
 ]
 
 { #category : #accessing }
 Diya2DNode >> local: aPoint [
-	^((aPoint - (0@0 applyTf: self tf) )/ scale)
-			rotateBy: rotation about: 0@0.
+	^ self tf globalPointToLocal: aPoint
 	
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 Diya2DNode >> recFromBuffer [
 	|maxX maxY minX minY x y|
 	maxX := minX := vbuffer at: 1.
@@ -75,18 +76,26 @@ Diya2DNode >> recFromBuffer [
 
 { #category : #accessing }
 Diya2DNode >> updateTF [
-	tf := Array2D identity:3.
+	tf := MatrixTransform2x3 identity.
 	"translation"
-	translation = (0@0) ifFalse:[
-		tf := tf +* (Array2D translateMatrix2D: translation)].
+	tf setOffset: translation + pivot.
 	"rotation"
-	rotation = 0 ifFalse:[
-		tf := tf +* (Array2D rotationMatrix2D: rotation )].
-	"scale"
-	scale = (1@1) ifFalse:[
-		tf := tf +* (Array2D scaleMatrix2D: scale)].
+	rotation = 0 ifFalse:[tf setAngle: rotation ].
+	"translate back to pivot"
+	pivot isZero ifFalse:[
+		tf := tf composedWithLocal:
+			(MatrixTransform2x3 identity
+				setOffset: pivot negated;
+				yourself)
+	].
+	scale isZero ifFalse: [
+		tf := tf composedWithLocal:
+			(MatrixTransform2x3 identity
+				setScale: scale;
+				yourself)
+	].
 	self parent ifNil: [ ^self ].
-	self parent isRoot ifFalse: [tf := self parent tf +* tf ].
+	self parent isRoot ifFalse: [tf := self parent tf composedWithLocal:  tf ].
 	children ifNotNil: [children do:[:c| c updateTF ]].
 	
 ]

Diya/Diya2DPrimShape.class.st

@@ -9,74 +9,41 @@ Class {
 	#category : #'Diya-Graphics'
 }
 
-{ #category : #accessing }
-Diya2DPrimShape >> bgColor [
-	^style get: #bgcolor
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> bgColor: c [
-	^style set: #bgcolor value: c
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> borderColor [
-	^style get: #borderColor
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> borderColor: c [
-	style set: #borderColor value: c.
-]
-
 { #category : #accessing }
 Diya2DPrimShape >> borderWidth [
-	^style get: #border
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> borderWidth: w [
-	style set: #border value: w.
+	^ self ? #border
 ]
 
 { #category : #accessing }
 Diya2DPrimShape >> boundingBox [ 
-	^ bbox applyTf: self tf.
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> color [
-	^ self style get: #color.
-]
-
-{ #category : #accessing }
-Diya2DPrimShape >> color: value [
-	^ self style set: #color value: value
+	^ self tf localBoundsToGlobal: bbox.
 ]
 
 { #category : #initialization }
 Diya2DPrimShape >> draw [
 	vbuffer ifNil: [ ^self ].
+	OpenGL
+		enable: GL_CULL_FACE;
+		enable: GL_BLEND;
+		blendFnWithSfactor: GL_SRC_ALPHA dfactor: GL_ONE_MINUS_SRC_ALPHA.
 	"configure vao vbo for texture QUAD"
 	self texture ifNotNil: [
-		self texture setup.
-		context texture0 setImage2D: self texture.
-	context texture0 active. 	
+		context setTexture: self texture.	
 	].
-	context vao enableAttribute: 0.
-	OpenGLVertexArray  vertexAttributePointerIndex: 0 size:4 type: GL_FLOAT normalized: GL_FALSE stride: 16 pointer: nil .
-	context vbo data: GL_ARRAY_BUFFER data: vbuffer usage: GL_STATIC_DRAW.
-	OpenGL drawArrays: type first:0  count:((vbuffer size )>> 2 ).
+	voffset := context submitData: vbuffer.
+	OpenGL drawArrays: type first: voffset  count:((vbuffer size )>> 2 ).
 	"reset value"
 	self texture ifNotNil: [self texture drop.].
 	self borderWidth > 0 ifTrue: [ self drawBorder ].
-	context vao disableAttribute: 0.
+	OpenGL
+		disable: GL_CULL_FACE;
+		disable: GL_BLEND.
 ]
 
 { #category : #initialization }
 Diya2DPrimShape >> drawBorder [
 	"Diya2DShader uniqueInstance use."
-	shader setUniform: #u_color value: self borderColor  asGL4FArray;
+	shader setUniform: #u_color value: (self ? #borderColor)  asGL4FArray;
 	setUniform: #u_texture_type value: 1.
 	OpenGL
 		lineWidth: self borderWidth.
@@ -103,12 +70,11 @@ Diya2DPrimShape >> extent [
 Diya2DPrimShape >> initialize [
 	super initialize.
 	texture := nil.
-	children := nil.
 	type := GL_TRIANGLES.
 	bbox := Rectangle origin: 0@0 corner: 0@0.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 Diya2DPrimShape >> inner: aPoint [
 	bbox ifNil: [ ^false ].
 	^ bbox containsPoint: (self local: aPoint)
@@ -118,8 +84,8 @@ Diya2DPrimShape >> inner: aPoint [
 Diya2DPrimShape >> setUpShader [
 	super setUpShader.
 	self shader
-			setUniform: #u_color value: self color asGL4FArray;
-			setUniform: #u_bg_color value: self bgColor asGL4FArray;
+			setUniform: #u_color value: (self ? #color) asGL4FArray;
+			setUniform: #u_bg_color value: (self ? #bgColor) asGL4FArray;
 			setUniform: #u_texture_type value:
 				(self texture ifNil: [ 0 ] ifNotNil:[self texture format]).
 ]

Diya/Diya2DShader.class.st

@@ -20,7 +20,13 @@ uniform vec4 u_bg_color;
 uniform sampler2D u_texture;
 varying vec2 texcoord;
 void main(void) {
-	vec4 texcolor = vec4(0,0,0,0);
+	if(u_texture_type == 1)
+	{
+		// draw border
+		gl_FragColor = u_color;
+		return;
+	}
+	vec4 texcolor = u_bg_color;
 	// alpha
 	if(u_texture_type == 0x1906) { 
 		texcolor = vec4(1, 1, 1, texture2D(u_texture, texcoord).a);
@@ -28,19 +34,15 @@ void main(void) {
 	// rgba
 	else if (u_texture_type == 0x1908){ 
 		texcolor =  texture2D(u_texture, texcoord);
-	}
-	else if(u_texture_type == 1)
-	{
-		texcolor = vec4(1,1,1,1);
-	}
+	} 
   	vec4 pxcolor =  texcolor * u_color;
 	if(pxcolor.a > 0.0)
-	{
+	{ 
 		gl_FragColor = pxcolor;
 	}
 	else
 	{
-	   gl_FragColor = u_bg_color;
+		gl_FragColor =  u_bg_color;
 	}
 }'
 ]

Diya/DiyaApplicationLauncher.class.st

@@ -19,14 +19,11 @@ DiyaApplicationLauncher >> appNode [
 DiyaApplicationLauncher >> bindGlobalEvent [
 	|pointer |
 	pointer := root addNode: (DiyaCircle r: 10) at: 200@200. 
-	pointer color: Color orange.
-	pointer borderColor: Color red.
-	pointer borderWidth: 2.
-	root on: #keydown do:[:e| Transcript show: 'keydown...';cr. running := false.].
+	pointer styleName: #pointer.
+	root on: #keydown do:[:e| self stdlog: 'keydown...'. running := false.].
 	root on: #quit do: [:e| running := false].
 	root on: #(fingerdown fingermotion mousemotion) do:[:e|
 		pointer position: e mapped worldPosition.
-		"Transcript show: e mapped worldPosition asString;cr."
 		DiyaRendererContext uniqueInstance mouse: (e mapped x) @ (e mapped y).
 	].
 ]
@@ -36,14 +33,6 @@ DiyaApplicationLauncher >> defaultApplication [
 	^DiyaExampleApp
 ]
 
-{ #category : #'as yet unclassified' }
-DiyaApplicationLauncher >> delta: delta [
-	|fps|
-	delta = 0 ifTrue:[^self].
-	fps := ((1000/delta) asInteger).
-	txtFPS data: ('FPS:', fps asString).
-]
-
 { #category : #initialization }
 DiyaApplicationLauncher >> initialize [
 	super initialize.
@@ -58,20 +47,49 @@ DiyaApplicationLauncher >> launch: app [
 		root empty.
 	].
 	currapp := app uniqueInstance.
-	self appNode addNode: currapp root.
 	self context assets: currapp am.
-	currapp setup.
+	[
+		self stdlog: 'Loading application'.
+		currapp root visibility: false.
+		currapp setup.
+		self appNode addNode: currapp root.
+		self process: true.
+		currapp root visibility: true.
+		self stdlog: 'Application LOADED'.
+	] fork.
 ]
 
 { #category : #initialization }
 DiyaApplicationLauncher >> main [
+	| fps delta|
+	delta := DiyaClock uniqueInstance delta asMilliSeconds.
+	fps := DiyaBoot maxFPS.
+	delta = 0 ifFalse:[ fps :=  (1000/ delta) asInteger].
+	txtFPS data: ('FPS:', fps asString).
 	[(SDL2 pollEvent: event) > 0] whileTrue: [
 		root trigger: (DiyaEvent from: event mapped).
 	].
 	currapp ifNotNil: [currapp main.].
+	root stepDown.
+	self process: false.
 	root render.
 ]
 
+{ #category : #initialization }
+DiyaApplicationLauncher >> process: force [
+	|Q  node maxProcessingTime|
+	maxProcessingTime := (1000 / DiyaBoot maxFPS) asInteger >> 1.
+	Q := root processingQueue.
+	Q ifEmpty:[^ self].
+	[
+		node := Q removeFirst.
+		node process.
+	 	Q isNotEmpty and: (
+		(DiyaClock uniqueInstance lapDelta asMilliSeconds < maxProcessingTime) or: force)
+	] whileTrue
+	
+]
+
 { #category : #accessing }
 DiyaApplicationLauncher >> running [
 	^ running
@@ -80,11 +98,21 @@ DiyaApplicationLauncher >> running [
 { #category : #initialization }
 DiyaApplicationLauncher >> setup [
 	event := SDL_Event new.
-	root addNode: (Diya2DNode new) at: 0@0.
+	DiyaUIThemesManager uniqueInstance currentTheme
+		define: #fps_text styles: { 
+			#color -> Color red.
+			#fontSize -> 18.
+			#bgColor -> Color transparent.
+		};
+		define: #pointer styles: { 
+			#borderColor -> Color red.
+			#bgColor -> Color orange.
+			#border -> 3
+		}.
+	root addNode: (DiyaCompositeNode new) at: 0@0.
 	txtFPS := root addNode:(DiyaText data: '') at: ( self context resolution x - 80)@(self context resolution y - 40).
 	txtFPS extent: 80@40.
-	txtFPS fontSize: 18.
-	txtFPS color: Color red.
+	txtFPS styleName: #fps_text.
 	self bindGlobalEvent.
 	running := true.
 	self launch: self defaultApplication.

Diya/DiyaBaseApplication.class.st

@@ -7,6 +7,7 @@ Class {
 { #category : #initialization }
 DiyaBaseApplication >> initialize [
 	super initialize.
-	root := Diya2DNode new.
+	root := DiyaCompositeNode new.
+	root styleName: #global.
 	am := AssetManager new.
 ]

Diya/DiyaBaseObject.class.st

@@ -13,11 +13,6 @@ DiyaBaseObject >> checkGLError: mark [
 	].
 ]
 
-{ #category : #accessing }
-DiyaBaseObject >> logError: string [
-	self stderr nextPutAll: string; cr
-]
-
 { #category : #asserting }
 DiyaBaseObject >> shouldNotBeCalled [
 	^DiyaCoreAPIError signal: 'Should not be called'
@@ -30,12 +25,19 @@ DiyaBaseObject >> stderr [
 
 { #category : #accessing }
 DiyaBaseObject >> stderror: string [
-	self stderr nextPutAll: string; nextPutAll: Character cr asString.
+	self stderr
+		nextPutAll: DateAndTime now asString;
+		nextPutAll: ': ';
+		nextPutAll: string;
+		nextPutAll: Character cr asString.
 ]
 
 { #category : #accessing }
 DiyaBaseObject >> stdlog: string [
-	self stdout nextPutAll: string;
+	self stdout
+			nextPutAll: DateAndTime now asString;
+			nextPutAll: ': ';
+			nextPutAll: string;
 			nextPutAll: Character cr asString.
 ]
 

Diya/DiyaBoot.class.st

@@ -16,6 +16,11 @@ Class {
 	#category : #'Diya-Runtime'
 }
 
+{ #category : #'class initialization' }
+DiyaBoot class >> initialize [
+	Smalltalk globals at: #DiyaDisplay put: nil
+]
+
 { #category : #'instance creation' }
 DiyaBoot class >> maxFPS [
 	^60
@@ -81,6 +86,8 @@ DiyaBoot >> init [
 	display := SDL_DisplayMode externalNew autoRelease.
 	SDL2 SDLGetCurrentDisplayMode: display from:0.
 	SDL2 showCursor: 0.
+	Smalltalk globals at: #Display ifAbsentPut:display.
+	Smalltalk globals at: #DiyaDisplay put:display.
 	DiyaSingleton resetAll.
 	DiyaFontManager uniqueInstance loadFonts.
 ]
@@ -95,19 +102,18 @@ DiyaBoot >> initialize [
 
 { #category : #events }
 DiyaBoot >> render [
-	|delta launcher|
+	|launcher|
 	DiyaRendererContext uniqueInstance.
 	launcher := DiyaApplicationLauncher uniqueInstance.
 	launcher setup.
 	self GLinit.
 	[ launcher running ] whileTrue: [
-		delta := DiyaClock uniqueInstance delta asMilliSeconds.
-		launcher delta: delta.
 		DiyaClock uniqueInstance tick.
 		launcher main.
 		SDL2 glSwapWindow: window.
-		delta := DiyaClock uniqueInstance delta asMilliSeconds.
-		SDL2 delay: (0 max: (1000/ self class maxFPS) asInteger - delta).
+		SDL2 delay:
+			(0 max:
+				(1000/ self class maxFPS) asInteger - (DiyaClock uniqueInstance lapDelta asMilliSeconds)).
 	].
 ]
 
@@ -181,10 +187,8 @@ DiyaBoot >> showSystemInfo [
 		 stream nextPutAll:  rinfo name readString; nextPutAll:' '.
 	].
 	stream cr.
-	stream nextPutAll:'Display resolution: ';
-		nextPutAll:display w asString;
-		nextPutAll: 'x';
-		nextPutAll: display h asString; cr. 
+	stream nextPutAll: DiyaDisplay asString; cr.
+	stream cr.
 	self stdout nextPutAll: stream contents
 	
 ]
@@ -197,8 +201,10 @@ DiyaBoot >> startx [
 	"SDL2 glMakeCurrent: window  context: context." 
 	self showSystemInfo.
 	DiyaRendererContext
-		uniqueInstance display: display;
-		useProjection: OrthoProjectionMatrix.
+		uniqueInstance
+			display: display;
+			window: window;
+			useProjection: OrthoProjectionMatrix.
 	self render.
 	context delete.
 	window destroy.

Diya/DiyaButton.class.st

@@ -14,9 +14,9 @@ DiyaButton class >> text: string [
 ]
 
 { #category : #accessing }
-DiyaButton >> icon: id [
-	label icon: id.
-	label updateLayout.
+DiyaButton >> icon: ico [
+	label icon: ico.
+	label setDirty.
 ]
 
 { #category : #accessing }
@@ -27,10 +27,6 @@ DiyaButton >> iconSize: size [
 { #category : #initialization }
 DiyaButton >> initialize [
 	super initialize.
-	style 
-		set:#textAlign value: #center;
-		set:#textVAlign value: #middle;
-		set:#border value: 1.
 	rec := self addNode: (DiyaRectangle new).
 	label := self addNode: (DiyaLabel new).
 	label txt
@@ -43,13 +39,13 @@ DiyaButton >> label [
 ]
 
 { #category : #accessing }
-DiyaButton >> text: string [
-	label txt: string.
+DiyaButton >> process [
+	rec extent: self extent.
+	label extent: self extent.
+	^true
 ]
 
 { #category : #accessing }
-DiyaButton >> updateLayout [
-	rec extent: self extent.
-	label position: 0@0.
-	label extent: self extent.
+DiyaButton >> text: string [
+	label txt: string.
 ]

Diya/DiyaClock.class.st

@@ -3,14 +3,15 @@ Class {
 	#superclass : #DiyaSingleton,
 	#instVars : [
 		'monotonic',
-		'lastTick'
+		'lastTick',
+		'lapTime'
 	],
 	#category : #'Diya-Runtime'
 }
 
 { #category : #initialization }
 DiyaClock >> delta [
-	 ^(DateAndTime now) - lastTick 
+	 ^ self lapDelta + self lapTime
 ]
 
 { #category : #initialization }
@@ -22,9 +23,21 @@ DiyaClock >> elapsedTime [
 DiyaClock >> initialize [
 	monotonic := DateAndTime now.
 	lastTick := monotonic.
+	lapTime := 0 asDuration.
+]
+
+{ #category : #initialization }
+DiyaClock >> lapDelta [
+	 ^ ((DateAndTime now) - lastTick)
+]
+
+{ #category : #initialization }
+DiyaClock >> lapTime [
+	^ lapTime
 ]
 
 { #category : #initialization }
 DiyaClock >> tick [
+	lapTime := (DateAndTime now) - lastTick.
 	lastTick := DateAndTime now.
 ]

Diya/DiyaCompositeNode.class.st

@@ -0,0 +1,22 @@
+Class {
+	#name : #DiyaCompositeNode,
+	#superclass : #Diya2DNode,
+	#category : #'Diya-Graphics'
+}
+
+{ #category : #accessing }
+DiyaCompositeNode >> process [
+	
+]
+
+{ #category : #accessing }
+DiyaCompositeNode >> setClean [
+	
+	
+]
+
+{ #category : #accessing }
+DiyaCompositeNode >> setDirty [
+	
+	
+]

Diya/DiyaConvexPolygon.class.st

@@ -33,7 +33,7 @@ DiyaConvexPolygon >> calculateVertices [
 
 { #category : #initialization }
 DiyaConvexPolygon >> drawLines [
-	OpenGL drawArrays: GL_LINE_LOOP first:0  count: (vbuffer size >> 2) - 1.
+	OpenGL drawArrays: GL_LINE_LOOP first:voffset  count: (vbuffer size >> 2) - 1.
 ]
 
 { #category : #initialization }

Diya/DiyaDefaultStyle.class.st

@@ -1,20 +0,0 @@
-Class {
-	#name : #DiyaDefaultStyle,
-	#superclass : #DiyaNodeStyle,
-	#category : #'Diya-Graphics'
-}
-
-{ #category : #initialization }
-DiyaDefaultStyle >> initialize [ 
-	super initialize.
-	self set: #bgcolor value:(Color r: 0.2118 g: 0.2118  b: 0.2118).
-	self set: #color value: Color white.
-	self set: #border value: 0.
-	self set: #fontSize value: 18.
-	self set: #fontFamily value: DiyaFontManager uniqueInstance defaultFamily.
-	self set: #fontStyle value: DiyaFontManager uniqueInstance defaultStyle.
-	self set: #borderColor value: (Color r: 0.051 g: 0.051  b: 0.051).
-	self set: #bgcolor2 value: (Color r: 0.1529 g: 0.1529  b: 0.1529).
-	self set: #textAlign value: #left.
-	self set: #textVAlign value: #top
-]

Diya/DiyaDefaultTheme.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : #DiyaDefaultTheme,
+	#superclass : #DiyaStyleSheet,
+	#category : #'Diya-UIThemes'
+}
+
+{ #category : #define }
+DiyaDefaultTheme >> defineGlobal [
+	self define: #global styles: {
+			#bgColor -> (Color r: 0.2118 g: 0.2118  b: 0.2118).
+			#color -> Color white.
+			#border -> 0.
+			#fontSize -> 18.
+			#fontFamily -> DiyaFontManager uniqueInstance defaultFamily.
+			#textIconFamily -> 'bootstrap-icons'.
+			#fontStyle -> DiyaFontManager uniqueInstance defaultStyle.
+			#borderColor -> Color transparent.
+			#xAlign -> #left.
+			#yAlign -> #middle.
+			#iconSize -> 24.
+	 	}
+]
+
+{ #category : #define }
+DiyaDefaultTheme >> defineLoadingBar [
+	self define: #loadingBar styles: {
+			#bgColor -> Color red.
+			#border -> 1.
+			#borderColor -> Color white.
+	 	}; 
+		define: #loadingProgress styles: {
+			#bgColor -> Color white.
+	 	}
+]
+
+{ #category : #initialization }
+DiyaDefaultTheme >> initialize [
+	super initialize.
+	self defineGlobal.
+	self defineLoadingBar.
+]

Diya/DiyaEllipse.class.st

@@ -23,16 +23,6 @@ DiyaEllipse class >> rx: rx ry: ry shader: s [
 		yourself
 ]
 
-{ #category : #initialization }
-DiyaEllipse >> draw [
-	OpenGL
-		enable: GL_BLEND;
-		blendFnWithSfactor: GL_SRC_ALPHA dfactor: GL_ONE_MINUS_SRC_ALPHA.
-	super draw.
-	OpenGL
-		disable: GL_BLEND
-]
-
 { #category : #initialization }
 DiyaEllipse >> drawBorder [
 	"do nothing"
@@ -60,39 +50,7 @@ DiyaEllipse >> inner: aPoint [
 ]
 
 { #category : #accessing }
-DiyaEllipse >> rx [
-	^ rx
-]
-
-{ #category : #accessing }
-DiyaEllipse >> rx: anObject [
-	rx := anObject.
-	dirty := true.
-]
-
-{ #category : #accessing }
-DiyaEllipse >> ry [
-	^ ry
-]
-
-{ #category : #accessing }
-DiyaEllipse >> ry: anObject [
-	ry := anObject.
-	dirty := true
-]
-
-{ #category : #initialization }
-DiyaEllipse >> setUpShader [
-	super setUpShader.
-	self shader
-		setUniform: #u_border value: (style get: #border);
-		setUniform: #u_border_color value: (style get:#borderColor) asGL4FArray;
-		setUniform: #u_rx value: rx;
-		setUniform: #u_ry value: ry.
-]
-
-{ #category : #accessing }
-DiyaEllipse >> update [
+DiyaEllipse >> process [
 	bbox := Rectangle origin: ((rx negated) @ (ry negated)) corner: (rx @ ry).
 	{
 		bbox origin x. bbox origin y. 0.0. 0.0.            
@@ -105,3 +63,35 @@ DiyaEllipse >> update [
 	} doWithIndex: [:e :i| vbuffer at: i put: e].
 	^true
 ]
+
+{ #category : #accessing }
+DiyaEllipse >> rx [
+	^ rx
+]
+
+{ #category : #accessing }
+DiyaEllipse >> rx: anObject [
+	rx := anObject.
+	self setDirty
+]
+
+{ #category : #accessing }
+DiyaEllipse >> ry [
+	^ ry
+]
+
+{ #category : #accessing }
+DiyaEllipse >> ry: anObject [
+	ry := anObject.
+	self setDirty
+]
+
+{ #category : #initialization }
+DiyaEllipse >> setUpShader [
+	super setUpShader.
+	self shader
+		setUniform: #u_border value: (self ? #border);
+		setUniform: #u_border_color value: ( self ? #borderColor) asGL4FArray;
+		setUniform: #u_rx value: (rx * (scale x)) ;
+		setUniform: #u_ry value: (ry * (scale y)) .
+]

Diya/DiyaEvent.class.st

@@ -3,7 +3,8 @@ Class {
 	#superclass : #DiyaBaseObject,
 	#instVars : [
 		'enable',
-		'mapped'
+		'mapped',
+		'target'
 	],
 	#category : #'Diya-Events'
 }
@@ -38,3 +39,13 @@ DiyaEvent >> mapped: anObject [
 DiyaEvent >> preventDefault [
 	enable := false
 ]
+
+{ #category : #accessing }
+DiyaEvent >> target [
+	^ target
+]
+
+{ #category : #accessing }
+DiyaEvent >> target: anObject [
+	target := anObject
+]

Diya/DiyaExampleApp.class.st

@@ -9,6 +9,64 @@ DiyaExampleApp >> cleanup [
 
 ]
 
+{ #category : #accessing }
+DiyaExampleApp >> defineStyleSheet [
+	|fmgr style|
+	fmgr := DiyaFontManager uniqueInstance.
+	#(16 24) do:[:fontSize|
+		self stdlog: 'Init font size ', fontSize asString, ' of ', fmgr defaultFamily.
+		style := fmgr style: fmgr defaultStyle   from: fmgr defaultFamily.
+		style textureOf: fontSize.
+	].
+	DiyaUIThemesManager uniqueInstance currentTheme
+		define: #text_icon_1 styles: { 
+			#color -> Color orange.
+			#fontSize -> 24.
+			#bgColor -> Color transparent.
+		};
+		define: #text_icon_2 extend:#text_icon_1  styles: {
+			#fontSize -> 16.
+		 };
+		define: #image_view styles: { 
+			#color -> Color white.
+			#border -> 1.
+			#bgColor -> Color cyan.
+			#borderColor -> Color red
+		};
+		define: #rect_view extend: #image_view styles: { 
+			#bgColor -> Color transparent.
+		};
+		define: #text_view styles: { 
+			#color -> Color orange.
+			#fontSize -> 16.
+			#bgColor -> Color transparent.
+			#xAlign -> #center
+		};
+		define: #line_view styles: { 
+			#color -> Color red.
+			#border -> 4
+		};
+		define: #ell_view styles: { 
+			#borderColor -> Color red.
+			#color -> Color white.
+			#border -> 2.
+		};
+		define: #poly_view styles: { 
+			#borderColor -> Color red.
+			#color -> Color green.
+			#border -> 1.
+			#bgColor -> Color transparent.
+		};
+		define: #button_view styles: { 
+			#borderColor -> (Color r: 0.051 g: 0.051  b: 0.051).
+			#color -> Color white.
+			#bgColor -> (Color r: 0.1529 g: 0.1529  b: 0.1529).
+			#border -> 1.
+			#yAlign -> #middle.
+			#xAlign -> #center
+		}
+]
+
 { #category : #accessing }
 DiyaExampleApp >> main [
 
@@ -16,68 +74,97 @@ DiyaExampleApp >> main [
 
 { #category : #accessing }
 DiyaExampleApp >> setup [
-	|node node1 ell label icon button|
+	|node node1 img ell label icon button texture loading|
+	texture := DiyaImageTex new.
+	"DiyaRendererContext uniqueInstance assets
+		addAsset:
+			((Form fromDisplay: ( Rectangle origin: 0@0 corner: 300@300 )) asDiyaTexture: 'display')."
+	self defineStyleSheet.
 	label := root addNode: (DiyaLabel new) at: 10@40.
 	label extent: 250@24.
-	label color: Color orange.
-	label iconSize: 24.
+	label styleName:#text_icon_1.
 	label icon: 16rF254.
 	
-	
-	node1 := root addNode: (DiyaRectangle size:100@150 shader: DiyaExampleShader uniqueInstance) at: 300 @ 40.
-	"node1 rotation: (Float pi / 8.0)."
-	node1 scale: 1.2@1.2.
+	"node1 := root addNode: (DiyaRectangle size:100@150 shader: DiyaExampleShader uniqueInstance) at: 300 @ 40.
+	node1 rotation: 45.
+	node1 scale: 2.0@2.0.
 	node1 on: #(mousebuttondown fingerdown) do:[:e|
-		label txt: 'Mouse ', (node1 local: e mapped worldPosition) asIntegerPoint asString].
+		label txt: 'RECT ', (node1 local: e mapped worldPosition) asIntegerPoint asString]."
 	
-	node := root addNode: (DiyaImageView from:'mrsang.png') at: 10 @ 400.
-	node color: (Color r: 1.0 g:1.0  b:1.0  alpha:1.0 ).
-	node borderWidth:1.
-	node bgColor: Color cyan.
-	node borderColor: Color red.
-	node borderWidth: 3.0.
-	node extent:200@200.
+	img := root addNode: (DiyaImageView from:'mrsang.png') at: 10 @ 400.
+	img styleName: #image_view.
+	img extent:200@200.
+	root on: #(mousebuttondown fingerdown) do:[:e|
+		"change texture"
+		|p|
+		p := e mapped worldPosition.
+		label txt: 'Mouse ', p asIntegerPoint asString.
+		DiyaRendererContext uniqueInstance assets
+			addAsset:(texture fromDisplay: (Rectangle origin: ((p x - 100) @ (p y - 100)) extent: 200@200 ) as: 'capture').
+		img textureNamed: 'capture'.
+		
+	].
 	
 	node := root addNode: (DiyaRectangle new) at: 10@80.
-	node borderWidth: 1.
+	node styleName: #rect_view.
 	node extent: 240@320.
 	
 	node := root addNode: (DiyaText data: String loremIpsum) at: 10@80.
 	node extent: 240@320.
 	node wordWrap: true.
-	node fontSize: 16.
-	node bgColor: Color transparent.
-	node align: #center.
+	node styleName: #text_view.
 	
 	node := root addNode: (DiyaLine from: 10@10 to: 200@200).
-	node color: (Color red).
-	node borderWidth: 2.0.
+	node styleName: #line_view.
 		
-	ell := root addNode: (DiyaEllipse rx:100  ry: 70) at: 100@300.
-	ell borderColor: Color red.
-	ell color: Color white.
-	ell bgColor: Color cyan.
-	ell rotation: Float pi / 6.0.
-	ell borderWidth: 3.0.
-	"node rotation: Float pi / 2.0."
+	ell := root addNode: (DiyaEllipse rx:100  ry: 70) at: 120@300.
+	ell scale: 1.2 @ 1.2.
+	ell styleName: #ell_view.
+	"ell rotation: 30."
 	ell textureNamed:'mrsang.png'.
+	ell addNode: (DiyaTimerNode timeout: 1000 / 6 do:[:n |
+		n parent rotation: n parent rotation + 10.	
+	] ).
 	ell on: #(mousebuttondown fingerdown) do:[:e|
 		label txt: 'Ellipse clicked', (ell local:e mapped worldPosition) asIntegerPoint asString].
 
-	node := root addNode: (DiyaConvexPolygon points:{250@100. 400@250. 450@80. 350@60}).
-	node color: Color green.
-	node borderColor: Color red.
+	node := root addNode: (DiyaConvexPolygon points:{0@40. 150@190. 200@20. 100@0}) at: 250@60.
 	node textureNamed: 'mrsang.png'.
-	node borderWidth: 3.0.
+	node styleName: #poly_view.
 	
 	icon := root addNode: (DiyaFontIcon data: #(16rF101 16rF155 16rF185 16rF21B 16rF298 16rF254)) at: 240@500.
-	icon fontSize: 24.
-	icon bgColor: Color transparent.
-	icon color: (Color r: 209/255 g: 66/255  b:245/255 ).
+	icon styleName: #text_icon_2.
 	
 	button := root addNode: (DiyaButton text: 'Click me !') at: 240@460.
+	icon := DiyaFontIcon data: 16rF130.
+	"icon := DiyaImageIcon from:  'mrsang.png'."
+	icon addNode:(DiyaTimerNode timeout: 1000 / 12 do:[:n |
+		n parent rotation: n parent rotation + 10 pivot: n parent extent / 2.	
+	] ).
 	button extent: 200@40.
-	button icon:16rF185"'mrsang.png'".
-	button iconSize: 24.
+	button icon: icon "'mrsang.png'".
+	"button rotation: Float pi / 2.0."
+	button styleName: #button_view.
+	
+	loading := root addNode: (DiyaLoadingBar new) at: 240@550.
+	loading extent: 200 @ 20.
+	 
+	loading addNode: (DiyaTimerNode timeout: 2000 do:[:n |
+		|p|
+		p := (n parent percent + 10).
+		p > 100 ifTrue:[ p := 0].
+		n parent percent: p.
+	] ).
+
+
+	loading := root addNode: (DiyaLoadingBar new) at: 240@580.
+	loading extent: 200 @ 20.
+	 
+	loading addNode: (DiyaTimerNode timeout: 1000 do:[:n |
+		|p|
+		p := (n parent percent + 10).
+		p > 100 ifTrue:[ p := 0].
+		n parent percent: p.
+	] ).
 	^ root 
 ]

Diya/DiyaFFIBase.class.st

@@ -22,11 +22,13 @@ DiyaFFIBase class >> libNames [
 { #category : #accessing }
 DiyaFFIBase class >> moduleName [
 	self libNames do:[:aName|
-		(ExternalAddress loadSymbol: self checkSymbol from: aName) ifNotNil: [ 
-			^ aName
-		].
+		[
+			(ExternalAddress loadSymbol: self checkSymbol from: aName) ifNotNil: [ 
+				^ aName
+			]
+		] on: Error do: [  ]
 	].
-	DiyaCoreAPIError signal: 'Unable to find FFI library (', self checkSymbol, ')'.
+	DiyaFFILibNotFound signal: 'Unable to find FFI library (', self checkSymbol, ')'.
 ]
 
 { #category : #'library path' }

Diya/DiyaFFILibNotFound.class.st

@@ -0,0 +1,5 @@
+Class {
+	#name : #DiyaFFILibNotFound,
+	#superclass : #DiyaError,
+	#category : #'Diya-Events'
+}

Diya/DiyaFontIcon.class.st

@@ -10,7 +10,6 @@ Class {
 { #category : #initialization }
 DiyaFontIcon >> data: code [
 	super data:(code isArray ifTrue: [ code ] ifFalse:[{code}]).
-	bbox := Rectangle origin: 0@0 corner: ((data size) * (self fontSize) ) @ self fontSize.
 ]
 
 { #category : #initialization }
@@ -31,11 +30,9 @@ DiyaFontIcon >> drawText [
 	
 ]
 
-{ #category : #initialization }
-DiyaFontIcon >> fontName: name style: face size: size [
-	super fontName: name style:face  size: size. 
-	data ifNil: [ ^ self ].
-	bbox := Rectangle origin: 0@0 corner: ((data size) * size ) @ size.
+{ #category : #accessing }
+DiyaFontIcon >> fontName [
+	^ self ? #textIconFamily
 ]
 
 { #category : #initialization }
@@ -48,17 +45,10 @@ DiyaFontIcon >> iconSize [
 	^ self fontSize
 ]
 
-{ #category : #accessing }
-DiyaFontIcon >> iconSize: v [
-	"self extent: "
-	^ self fontSize: v
-]
-
 { #category : #initialization }
 DiyaFontIcon >> initialize [ 
 	super initialize.
 	data := {  }.
-	self fontName: 'bootstrap-icons' style: 'Regular' size: 16.
 	vbuffer :=  FFIExternalArray externalNewType: GLfloat size:24.
 	vbuffer autoRelease.
 ]
@@ -67,3 +57,10 @@ DiyaFontIcon >> initialize [
 DiyaFontIcon >> lastSeparatorFrom: i [
 	self shouldNotBeCalled 
 ]
+
+{ #category : #initialization }
+DiyaFontIcon >> process [
+	data ifNil: [ ^self ].
+	bbox := Rectangle origin: 0@0 corner: ((data size) * (self fontSize) ) @ self fontSize.
+	^ super process.
+]

Diya/DiyaFontManager.class.st

@@ -74,7 +74,7 @@ DiyaFontManager >> loadFile: aFile [
 		index: i.
 	face newFaceFromFile: path index: i.
 	face loadFields.
-	Transcript show: 'Loaded font face ', face styleName;cr.
+	self stdlog: 'Loaded font face ', face styleName.
 	numfaces ifNil: [ numfaces := face numFaces ].
 	self loadFace: face.
 	i := i + 1.

Diya/DiyaImageIcon.class.st

@@ -5,17 +5,24 @@ Class {
 }
 
 { #category : #accessing }
-DiyaImageIcon >> iconSize [
-	^ self extent x
+DiyaImageIcon >> borderWidth [
+	^0
 ]
 
 { #category : #accessing }
-DiyaImageIcon >> iconSize:v [
-	^ self extent: v@v
+DiyaImageIcon >> iconSize [
+	^ self ? #iconSize
 ]
 
 { #category : #accessing }
 DiyaImageIcon >> initialize [
 	super initialize.
-	style set: #border value: 0
+]
+
+{ #category : #accessing }
+DiyaImageIcon >> process [
+	|v|
+	v := self iconSize.
+	self extent: (v@v).
+	^super process
 ]

Diya/DiyaImageTex.class.st

@@ -2,7 +2,7 @@ Class {
 	#name : #DiyaImageTex,
 	#superclass : #OpenGLTexImage2D,
 	#instVars : [
-		'path'
+		'name'
 	],
 	#pools : [
 		'OpenGLConstants',
@@ -11,6 +11,16 @@ Class {
 	#category : #'Diya-Graphics'
 }
 
+{ #category : #'instance creation' }
+DiyaImageTex class >> fromDisplay:  aRect as: assetName [
+	^ self new fromDisplay: aRect as: assetName; yourself 
+]
+
+{ #category : #'instance creation' }
+DiyaImageTex class >> fromDisplayAs: assetName [
+	^ self new fromDisplayAs: assetName; yourself 
+]
+
 { #category : #'instance creation' }
 DiyaImageTex class >> fromFile: path [
 	^ self new fromFile: path; yourself
@@ -18,35 +28,84 @@ DiyaImageTex class >> fromFile: path [
 
 { #category : #accessing }
 DiyaImageTex >> drop [
-	OpenGL
+	"OpenGL
 		disable: GL_CULL_FACE;
-		disable: GL_BLEND.
+		disable: GL_BLEND."
+]
+
+{ #category : #conversion }
+DiyaImageTex >> flipY [
+	|buffer size linesize top bottom|
+	size := self bytesSize.
+	linesize := width << 2.
+	buffer := FFIExternalArray externalNewType: GLubyte size: linesize.
+	LibC memset: buffer getHandle value: 0 size: buffer size.
+	0 to: (height >> 1) -1 do: [ :line|
+		top := line * linesize.
+		bottom := (size - (linesize * (line + 1))).
+		LibC memCopy: (data getHandle) + top to: buffer getHandle size: linesize.
+		LibC memCopy: (data getHandle) + bottom to: (data getHandle) + top size: linesize.
+		LibC memCopy: buffer getHandle to: (data getHandle) + bottom size: linesize.
+	].
+	buffer free
+]
+
+{ #category : #'instance creation' }
+DiyaImageTex >> fromDisplay:  aRect as: assetName [
+	data ifNotNil: [data free].
+	width := aRect extent x asInteger.
+	height := aRect extent y asInteger.
+	data := FFIExternalArray externalNewType: GLubyte size: self bytesSize.
+	LibC memset: data getHandle value: 0 size: data size.
+	data autoRelease.
+	OpenGL readPixelsOn: data getHandle
+		x: aRect origin x
+		y: (DiyaDisplay height) - (aRect origin y) - (aRect extent y)
+		w: aRect extent x
+		h: aRect extent y
+		format:GL_RGBA
+		type: GL_UNSIGNED_BYTE.
+	name := assetName.
+	self flipY.
+]
+
+{ #category : #'instance creation' }
+DiyaImageTex >> fromDisplayAs: assetName [
+	self fromDisplay: (Rectangle origin: 0@0 extent: DiyaDisplay extent ) as: assetName 
 ]
 
 { #category : #'instance creation' }
 DiyaImageTex >> fromFile: aPath [
-	|form color index|
-	path := aPath.
-	Transcript show: 'Loading texture from ', path fullName;cr.
-	form := ImageReadWriter formFromFileNamed: path.
-	data := FFIExternalArray externalNewType: GLubyte size:(form width) * (form height) * 4.
+	|surface|
+	self stdlog: 'Loading texture from ', aPath fullName.
+	data ifNotNil: [ data free ].
+	name := aPath fullName.
+	surface := self surfaceFromFile: aPath.
+	width := surface w.
+	height := surface h.
+	data := FFIExternalArray externalNewType: GLubyte size: self bytesSize.
 	LibC memset: data getHandle value: 0 size: data size.
 	data autoRelease.
-	width := form width.
-	height := form height.
-	index := 1.
-	0 to: height -1 do:[:y|
-		0 to: width - 1 do:[:x|
-			color := (form colorAt: x@y) as4bytesRGB.
-			data
-				at: index put: color first;
-				at: index + 1 put: (color at: 2);
-				at: index +2 put: (color at: 3);
-				at: index + 3 put: color last.
-			index := index + 4.
-		]
-	].
-	
+	LibC memCopy: surface pixels getHandle to: data getHandle size: data size.
+	SDL2 
+		freeSurface: surface.
+	self stdlog: 'Loaded ', aPath fullName.
+]
+
+{ #category : #'instance creation' }
+DiyaImageTex >> fromForm: aForm name: aName [
+	|surface|
+	name := aName.
+	data ifNotNil: [ data free ].
+	surface := self surfaceFromForm: aForm.
+	width := surface w.
+	height := surface h.
+	data := FFIExternalArray externalNewType: GLubyte size: self bytesSize.
+	LibC memset: data getHandle value: 0 size: data size.
+	data autoRelease.
+	LibC memCopy: surface pixels getHandle to: data getHandle size: data size.
+	SDL2 
+		freeSurface: surface.
 ]
 
 { #category : #'instance creation' }
@@ -66,19 +125,49 @@ DiyaImageTex >> mipmap [
 ]
 
 { #category : #accessing }
-DiyaImageTex >> path [
-	^ path
+DiyaImageTex >> name [
+	^ name
 ]
 
 { #category : #accessing }
 DiyaImageTex >> setup [
-	OpenGL
-		enable: GL_CULL_FACE;
-		enable: GL_BLEND;
-		blendFnWithSfactor: GL_SRC_ALPHA dfactor: GL_ONE_MINUS_SRC_ALPHA.
 	OpenGLTexture
 		parameteri: GL_TEXTURE_2D pname: GL_TEXTURE_WRAP_S param: GL_CLAMP_TO_EDGE;
 		parameteri: GL_TEXTURE_2D pname: GL_TEXTURE_WRAP_T param: GL_CLAMP_TO_EDGE;
 		parameteri: GL_TEXTURE_2D pname: GL_TEXTURE_MIN_FILTER param: GL_LINEAR;
 		parameteri: GL_TEXTURE_2D pname: GL_TEXTURE_MAG_FILTER param: GL_LINEAR.
 ]
+
+{ #category : #conversion }
+DiyaImageTex >> surfaceFromFile: aPath [
+	aPath exists ifFalse: [ ^DiyaCoreAPIError signal:'File not found ', aPath fullName ].
+	[^ SDL2Image SDLImgLoad: aPath fullName] on: Error do: [
+		^  self surfaceFromForm:  (ImageReadWriter formFromFileNamed: aPath)
+	].
+]
+
+{ #category : #conversion }
+DiyaImageTex >> surfaceFromForm: aForm [
+	|srcSurface destSurface  form|
+	form := aForm asFormOfDepth: 32.
+	srcSurface :=
+		SDL2 createRGBSurfaceFromPixels: form bits
+			width: form width height: form height
+			depth: 32 pitch: (form width << 2)
+			rmask: 16r00ff0000 
+			gmask: 16r000ff00
+			bmask: 16r00000ff
+			amask: 16rff000000.
+	destSurface :=
+		SDL2 createRGBSurfaceFromPixels: srcSurface pixels getHandle
+			width: form width height: form height
+			depth: 32 pitch: (form width << 2)
+			rmask: 16r000000ff 
+			gmask: 16r0000ff00
+			bmask: 16r00ff0000
+			amask: 16rff000000.
+	SDL2 SDLBlitSurface: srcSurface srcRect: nil dest: destSurface  dstRect: nil.
+	SDL2 
+		freeSurface: srcSurface.
+	^ destSurface
+]

Diya/DiyaLabel.class.st

@@ -14,14 +14,6 @@ DiyaLabel >> fontSize [
 
 ]
 
-{ #category : #accessing }
-DiyaLabel >> fontSize: value [
-	txt fontSize: value.
-	"icon ifNotNil: [ icon fontSize: value ]."
-	"dirty := true."
-
-]
-
 { #category : #accessing }
 DiyaLabel >> getHAlign: offset [
 	^ 0 max: (txt alignLine: ( txt maxLineWidth)).
@@ -36,13 +28,12 @@ DiyaLabel >> icon [
 DiyaLabel >> icon: anObject [
 	icon := nil.
 	anObject isNumber ifTrue: [
-		icon := self addNode: (DiyaFontIcon data: anObject).
-		icon align: #left].
+		icon := self addNode: (DiyaFontIcon data: anObject).].
 	anObject isString ifTrue: [
 		icon := self addNode: (DiyaImageIcon from: anObject).
 	].
-	icon ifNil: [ ^ DiyaCoreAPIError signal: 'Invalid icon identification'].
-	dirty := true.
+	icon ifNil: [ icon := self addNode: anObject ].
+	self setDirty
 ]
 
 { #category : #accessing }
@@ -52,13 +43,6 @@ DiyaLabel >> iconSize [
 
 ]
 
-{ #category : #accessing }
-DiyaLabel >> iconSize: v [
-	icon ifNil: [ ^self ].
-	icon iconSize: v
-
-]
-
 { #category : #initialization }
 DiyaLabel >> initialize [
 	super initialize.
@@ -68,18 +52,7 @@ DiyaLabel >> initialize [
 ]
 
 { #category : #accessing }
-DiyaLabel >> txt [
-	^ txt
-]
-
-{ #category : #accessing }
-DiyaLabel >> txt: anObject [
-	txt data: anObject.
-	dirty := true
-]
-
-{ #category : #accessing }
-DiyaLabel >> updateLayout [
+DiyaLabel >> process [
 	|offset isize align|
 	offset := 0.
 	icon ifNotNil: [
@@ -89,12 +62,24 @@ DiyaLabel >> updateLayout [
 	].
 	txt extent: (extent x - offset) @ (extent y).
 	"lookahead update"
-	txt update.
+	txt process.
 	align := self getHAlign: offset.
 	txt position: offset  @ ( (self extent y - txt extent y ) >> 1).
 	
 	icon ifNil: [ ^self ].
 	"{ offset. txt extent. txt maxLineWidth. align } inspect."
 	icon position: (align @( (self extent y - self iconSize ) >> 1)).
+	^ true
 	
 ]
+
+{ #category : #accessing }
+DiyaLabel >> txt [
+	^ txt
+]
+
+{ #category : #accessing }
+DiyaLabel >> txt: anObject [
+	txt data: anObject.
+	self setDirty
+]

Diya/DiyaLine.class.st

@@ -62,7 +62,7 @@ DiyaLine >> from [
 { #category : #accessing }
 DiyaLine >> from: anObject [
 	from := anObject.
-	dirty := true.
+	self setDirty
 ]
 
 { #category : #initialization }
@@ -74,14 +74,33 @@ DiyaLine >> initialize [
 	vbuffer :=  FFIExternalArray externalNewType: GLfloat size:8.
 	vbuffer autoRelease.
 	type := GL_LINES.
-	style set: #border value: 0
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 DiyaLine >> inner: aPoint [
 		^false
 ]
 
+{ #category : #accessing }
+DiyaLine >> process [
+	|extent|
+	bbox := (Rectangle origin: from corner: to ).
+	self position: bbox origin.
+	extent := bbox extent.
+	bbox := (Rectangle origin: 0@0 corner:  extent ).
+	vbuffer
+		at: 1  put: 0.0;
+		at: 2  put: 0.0;
+		at: 3  put: 0.0;
+		at: 4  put: 0.0;
+		
+		at: 5  put: extent x;
+		at: 6  put: extent y;
+		at: 7  put: 0.0;
+		at: 8  put: 0.0.
+	^true
+]
+
 { #category : #accessing }
 DiyaLine >> to [
 	^ to
@@ -90,22 +109,5 @@ DiyaLine >> to [
 { #category : #accessing }
 DiyaLine >> to: anObject [
 	to := anObject.
-	dirty := true.
-]
-
-{ #category : #accessing }
-DiyaLine >> update [
-	|extent|
-	bbox := (Rectangle origin: from corner: to ).
-	bbox origin = translation ifFalse:[self position: bbox origin].
-	from := from - bbox origin.
-	to  := to - bbox origin.
-	extent := bbox extent.
-	bbox := (Rectangle origin: 0@0 corner:  extent ).
-	
-	{
-		0.0. 0.0. 0.0. 0.0.            
-      extent x. extent y. 0.0. 0.0.
-	} doWithIndex: [:e :i| vbuffer at: i put: e].
-	^true
+	self setDirty
 ]

Diya/DiyaLoadingBar.class.st

@@ -0,0 +1,55 @@
+Class {
+	#name : #DiyaLoadingBar,
+	#superclass : #DiyaWidget,
+	#instVars : [
+		'label',
+		'bar',
+		'progress',
+		'percent'
+	],
+	#category : #'Diya-Widgets'
+}
+
+{ #category : #accessing }
+DiyaLoadingBar >> bar [
+	^ bar
+]
+
+{ #category : #initialization }
+DiyaLoadingBar >> initialize [
+	super initialize.
+	bar := self addNode: (DiyaRectangle new).
+	progress := self addNode: (DiyaRectangle new).
+	bar styleName: #loadingBar.
+	progress styleName: #loadingProgress.
+	"label := self addNode: (DiyaLabel new).
+	label wordWrap: false."
+	percent := 0.
+]
+
+{ #category : #accessing }
+DiyaLoadingBar >> label [
+	^ label
+]
+
+{ #category : #accessing }
+DiyaLoadingBar >> percent [
+	^ percent
+]
+
+{ #category : #accessing }
+DiyaLoadingBar >> percent: anObject [
+	percent := anObject.
+	self setDirty.
+]
+
+{ #category : #processing }
+DiyaLoadingBar >> process [
+	bar extent: self extent.
+	progress extent: ((self percent) * (self extent x) / 100) @ (self extent y).
+]
+
+{ #category : #accessing }
+DiyaLoadingBar >> progress [
+	^ progress
+]

Diya/DiyaMetaNode.class.st

@@ -0,0 +1,40 @@
+Class {
+	#name : #DiyaMetaNode,
+	#superclass : #DiyaNode,
+	#category : #'Diya-Graphics'
+}
+
+{ #category : #accessing }
+DiyaMetaNode >> addNode: node at: pos [
+	self shouldNotBeCalled
+]
+
+{ #category : #accessing }
+DiyaMetaNode >> boundingBox [
+	^ Rectangle origin: 0@0 extent: 0@0
+]
+
+{ #category : #rendering }
+DiyaMetaNode >> draw [
+	
+]
+
+{ #category : #accessing }
+DiyaMetaNode >> extent [
+	^  0@0
+]
+
+{ #category : #testing }
+DiyaMetaNode >> inner: aPoint [
+	^ false
+]
+
+{ #category : #processing }
+DiyaMetaNode >> process [
+	
+]
+
+{ #category : #processing }
+DiyaMetaNode >> updateTF [
+	
+]

Diya/DiyaNode.class.st

@@ -10,11 +10,13 @@ Class {
 		'tf',
 		'shader',
 		'context',
-		'dirty',
 		'ehandlers',
 		'root',
+		'styleName',
 		'style',
-		'id'
+		'id',
+		'visibility',
+		'pivot'
 	],
 	#pools : [
 		'OpenGLConstants',
@@ -29,6 +31,21 @@ DiyaNode class >> with: shader [
 	^self new shader: shader; yourself
 ]
 
+{ #category : #accessing }
+DiyaNode >> ? styleAttr [
+	| value|
+	styleName ifNotNil: [
+		style ifNil: [
+			style := DiyaUIThemesManager uniqueInstance currentTheme ? (self styleName).
+		].
+		value := style at: styleAttr ifAbsent:[nil].
+		value ifNotNil: [ ^value ].
+	].
+	"try to look at parent style"
+	parent ifNil:[self styleNotFound: styleAttr].
+	^ parent ? styleAttr
+]
+
 { #category : #accessing }
 DiyaNode >> addNode: node [
 	^self addNode: node at: 0@0 
@@ -38,11 +55,11 @@ DiyaNode >> addNode: node [
 DiyaNode >> addNode: node at: pos [
 	children ifNil: [ ^self ].
 	node parent: self.
-	node position: pos.
 	children add: node.
+	node position: pos.
 	node root: self root.
-	node style parent: style.
-	^ node
+	node setDirtyAll.
+	^ node 
 ]
 
 { #category : #accessing }
@@ -55,7 +72,7 @@ DiyaNode >> children [
 	^children
 ]
 
-{ #category : #accessing }
+{ #category : #rendering }
 DiyaNode >> draw [
 	self subclassResponsibility 
 ]
@@ -70,6 +87,15 @@ DiyaNode >> extent [
 	^  self subclassResponsibility  
 ]
 
+{ #category : #processing }
+DiyaNode >> forceReload [
+	self process.
+	children ifNotNil: [
+	children do:[:c|
+		c forceReload
+	]]
+]
+
 { #category : #accessing }
 DiyaNode >> id [
 	^ id
@@ -82,14 +108,16 @@ DiyaNode >> initialize [
 	shader := nil.
 	context := DiyaRendererContext uniqueInstance.
 	children := OrderedCollection new.
-	dirty := false.
 	ehandlers := Dictionary new.
-	style := DiyaNodeStyle new.
+	styleName := nil.
+	style := nil.
 	root := nil.
-	id := Random new nextInt: 1e6
+	visibility := true.
+	pivot := 0@0.
+	id := self className,'#',(Random new nextInt: 1e6) asString.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #testing }
 DiyaNode >> inner: aPoint [
 	^ self subclassResponsibility 
 ]
@@ -116,6 +144,11 @@ DiyaNode >> parent: anObject [
 	parent := anObject
 ]
 
+{ #category : #accessing }
+DiyaNode >> pivot [
+	^ pivot
+]
+
 { #category : #accessing }
 DiyaNode >> position [
 	^ translation
@@ -127,23 +160,39 @@ DiyaNode >> position: anObject [
 	self updateTF.
 ]
 
+{ #category : #processing }
+DiyaNode >> process [
+	^self subclassResponsibility 
+]
+
 { #category : #convenience }
 DiyaNode >> register: aBlock to: eventName [
 	|evtCode|
 	evtCode := SDL2Constants bindingOf: ('SDL_', eventName asUppercase).
-	evtCode ifNil: [ ^DiyaCoreAPIError signal: 'Unknow event ', eventName ].
+	evtCode ifNil: [ evtCode := eventName  ].
 	ehandlers at: evtCode value put: aBlock.
 	
 ]
 
-{ #category : #accessing }
+{ #category : #removing }
+DiyaNode >> remove [
+	self setClean.
+	root := nil.
+	parent ifNotNil: [ parent removeChild: self ]
+]
+
+{ #category : #removing }
+DiyaNode >> removeChild: c [
+	children ifNotNil: [ children remove: c ifAbsent:[  ]]
+]
+
+{ #category : #rendering }
 DiyaNode >> render [
-	dirty ifTrue:[
-		dirty := self update not].
-	shader ifNotNil: [ self setUpShader  ].
+	visibility ifFalse:[^self].
+	shader ifNotNil: [self setUpShader].
 	self draw.
 	children ifNil: [ ^self ].
-	children do: [:c  | c render  ]. 
+	children do: [:c| c render  ].
 ]
 
 { #category : #accessing }
@@ -153,7 +202,11 @@ DiyaNode >> root [
 
 { #category : #accessing }
 DiyaNode >> root: anObject [
-	root := anObject
+	root = anObject ifTrue:[^self].
+	root := anObject.
+	children ifNotNil: [ 
+		children do:[:c | c root: root]	
+	]
 ]
 
 { #category : #accessing }
@@ -167,6 +220,13 @@ DiyaNode >> rotation: anObject [
 	self updateTF.
 ]
 
+{ #category : #accessing }
+DiyaNode >> rotation: anObject pivot: p [
+	rotation := anObject.
+	pivot := p.
+	self updateTF.
+]
+
 { #category : #accessing }
 DiyaNode >> scale [
 	^ scale
@@ -178,7 +238,26 @@ DiyaNode >> scale: anObject [
 	self updateTF.
 ]
 
-{ #category : #accessing }
+{ #category : #'changing state' }
+DiyaNode >> setClean [
+	 root ifNil: [ ^self ].
+	root cleanDirtyNode: self.
+]
+
+{ #category : #'changing state' }
+DiyaNode >> setDirty [
+	root ifNil: [ ^self ].
+	self root enqueueDirtyNode: self.
+]
+
+{ #category : #'changing state' }
+DiyaNode >> setDirtyAll [
+	self setDirty.
+	children ifNotNil: [
+		children do:[:c| c setDirtyAll] ]
+]
+
+{ #category : #rendering }
 DiyaNode >> setUpShader [
 	|mem|
 		mem := self tf asGLBuffer.
@@ -210,16 +289,31 @@ DiyaNode >> shader: anObject [
 	shader := anObject
 ]
 
-{ #category : #accessing }
-DiyaNode >> style [
-	^style
+{ #category : #stepping }
+DiyaNode >> step [
+]
+
+{ #category : #stepping }
+DiyaNode >> stepDown [
+	self step.
+	children ifNotNil: [ children do:[:c | c stepDown ] ]
 ]
 
 { #category : #accessing }
-DiyaNode >> style: aStyle [
-	style := aStyle.
-	dirty := true.
-	parent ifNotNil: [ style parent: parent style ]
+DiyaNode >> styleName [
+	^ styleName
+]
+
+{ #category : #accessing }
+DiyaNode >> styleName: anObject [
+	styleName := anObject.
+	style := nil.
+	self setDirty
+]
+
+{ #category : #'event handling' }
+DiyaNode >> styleNotFound: styleAttr [
+	DiyaCoreAPIError signal: 'Query undefined style ', styleAttr, ' in', styleName.
 ]
 
 { #category : #accessing }
@@ -227,10 +321,12 @@ DiyaNode >> tf [
 	^ tf
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'event handling' }
 DiyaNode >> trigger: evt [
 	evt enable ifFalse:[^self].
-	ehandlers at: evt mapped type ifPresent:[:handler| handler value: evt].
+	ehandlers at: evt mapped type ifPresent:[:handler|
+		evt target: self.
+		handler value: evt].
 	children ifNil: [^self].
 	evt enable ifTrue: [
 		"evt mapped triggableOn: children first."
@@ -238,12 +334,17 @@ DiyaNode >> trigger: evt [
 	].
 ]
 
-{ #category : #accessing }
-DiyaNode >> update [
-	^self subclassResponsibility 
-]
-
-{ #category : #accessing }
+{ #category : #processing }
 DiyaNode >> updateTF [
 	self subclassResponsibility 
 ]
+
+{ #category : #accessing }
+DiyaNode >> visibility [
+	^ visibility
+]
+
+{ #category : #accessing }
+DiyaNode >> visibility: anObject [
+	visibility := anObject
+]

Diya/DiyaNodeStyle.class.st

@@ -1,45 +0,0 @@
-Class {
-	#name : #DiyaNodeStyle,
-	#superclass : #DiyaBaseObject,
-	#instVars : [
-		'styles',
-		'parent'
-	],
-	#category : #'Diya-Graphics'
-}
-
-{ #category : #'as yet unclassified' }
-DiyaNodeStyle class >> inherit: parent [
-	^self new parent: parent; yourself
-]
-
-{ #category : #initialization }
-DiyaNodeStyle >> get: styleName [
-	^ styles at: styleName ifAbsent: [ parent ifNotNil: [ parent get: styleName ] ifNil: nil]
-]
-
-{ #category : #initialization }
-DiyaNodeStyle >> initialize [ 
-	super initialize.
-	styles := Dictionary new.
-	parent := nil.
-	"self set: #bgcolor value: Color transparent.
-	self set: #color value:Color white.
-	self set: #border value: 0.
-	self set: #borderColor value: Color transparent."
-]
-
-{ #category : #accessing }
-DiyaNodeStyle >> parent [
-	^ parent
-]
-
-{ #category : #accessing }
-DiyaNodeStyle >> parent: anObject [
-	parent := anObject
-]
-
-{ #category : #initialization }
-DiyaNodeStyle >> set: styleName value: value [
-	styles at: styleName put: value
-]

Diya/DiyaPolygon.class.st

@@ -37,31 +37,12 @@ DiyaPolygon >> points [
 { #category : #accessing }
 DiyaPolygon >> points: anObject [
 	points := anObject.
-	dirty := true
+	self setDirty
 ]
 
 { #category : #accessing }
-DiyaPolygon >> recFromPoints [
-	|maxX maxY minX minY x y|
-	maxX := minX := (points at: 1) x.
-	maxY := minY := (points at: 1) y.
-	points  do: [ :p|
-		x := p x.
-		y := p y.
-		maxX := maxX max: x.
-		maxY := maxY max: y.
-		minX := minX min: x.
-		minY := minY min: y.
-	].
-	^ Rectangle origin: minX@minY corner: maxX @ maxY
-]
-
-{ #category : #accessing }
-DiyaPolygon >> update [
-	bbox := self recFromPoints.
-	translation = bbox origin ifFalse:[ self position: bbox origin].
-	points := points collect:[:e | e - bbox origin].
-	bbox := self recFromPoints.
+DiyaPolygon >> process [
+	bbox := Rectangle encompassing: points.
 	self calculateVertices.
 	^true
 ]

Diya/DiyaRectangle.class.st

@@ -16,14 +16,14 @@ DiyaRectangle class >> size: size shader:s [
 
 { #category : #initialization }
 DiyaRectangle >> drawLines [
-	OpenGL drawArrays: GL_LINE_LOOP first:0  count: (vbuffer size >> 2).
+	OpenGL drawArrays: GL_LINE_LOOP first:voffset  count: (vbuffer size >> 2).
 	
 ]
 
 { #category : #accessing }
 DiyaRectangle >> extent: v [
 	bbox := Rectangle origin:0@0 corner: v.
-	dirty := true
+	self setDirty
 ]
 
 { #category : #accessing }
@@ -37,14 +37,28 @@ DiyaRectangle >> initialize [
 ]
 
 { #category : #accessing }
-DiyaRectangle >> update [
+DiyaRectangle >> process [
 	|extent|
 	extent := self extent.
-	{
-		0. 0. 0.0. 0.0.            
-      0. extent y. 0.0. 1.0.
-      extent x. extent y. 1.0. 1.0.
-		extent x. 0. 1.0. 0.0.
-	} doWithIndex: [:e :i| vbuffer at: i put: e].
+	vbuffer
+		at: 1 put: 0.0;
+		at: 2 put: 0.0;
+		at: 3 put: 0.0;
+		at: 4 put: 0.0;
+		
+		at: 5 put: 0.0;
+		at: 6 put: extent y;
+		at: 7 put: 0.0;
+		at: 8 put: 1.0;
+		
+		at: 9 put: extent x;
+		at: 10 put: extent y;
+		at: 11 put: 1.0;
+		at: 12 put: 1.0;
+		
+		at: 13 put: extent x;
+		at: 14 put: 0.0;
+		at: 15 put: 1.0;
+		at: 16 put: 0.0.
 	^true
 ]

Diya/DiyaRendererContext.class.st

@@ -8,7 +8,10 @@ Class {
 		'vao',
 		'texture0',
 		'projection',
-		'assets'
+		'assets',
+		'window',
+		'vbuffer',
+		'voffset'
 	],
 	#pools : [
 		'OpenGLConstants',
@@ -17,6 +20,11 @@ Class {
 	#category : #'Diya-Graphics'
 }
 
+{ #category : #accessing }
+DiyaRendererContext class >> bufferSize [
+	^ 524288 "512Kb"
+]
+
 { #category : #'instance creation' }
 DiyaRendererContext class >> cleanUpInstance: singleton [
 	singleton ifNil:[^self].
@@ -39,12 +47,19 @@ DiyaRendererContext >> assets: anObject [
 ]
 
 { #category : #accessing }
-DiyaRendererContext >> destroy [ 
+DiyaRendererContext >> destroy [
+	self disableGLAttribute: 0.
+	vbuffer free.
 	vao delete.
 	vbo delete.
 	texture0 delete.
 ]
 
+{ #category : #registration }
+DiyaRendererContext >> disableGLAttribute: attribute [
+	vao disableAttribute: attribute
+]
+
 { #category : #accessing }
 DiyaRendererContext >> display [
 	^ display
@@ -55,6 +70,11 @@ DiyaRendererContext >> display: anObject [
 	display := anObject
 ]
 
+{ #category : #registration }
+DiyaRendererContext >> enableGLAttribute: attribute [
+	vao enableAttribute: attribute.
+]
+
 { #category : #accessing }
 DiyaRendererContext >> initialize [
 	super initialize.
@@ -65,6 +85,14 @@ DiyaRendererContext >> initialize [
 	vbo bind: GL_ARRAY_BUFFER.
 	projection := Array2D identity: 4.
 	assets := AssetManager new.
+	"allocate vbuffer"
+	vbuffer :=  FFIExternalArray externalNewType: GLfloat size: self class bufferSize.
+	vbuffer autoRelease.
+	voffset := 0.
+	vbo data: GL_ARRAY_BUFFER data: vbuffer usage: GL_STREAM_DRAW.
+	self enableGLAttribute: 0.
+	OpenGLVertexArray  vertexAttributePointerIndex: 0 size:4 type: GL_FLOAT normalized: GL_FALSE stride: 16 pointer: nil.
+	
 ]
 
 { #category : #accessing }
@@ -82,17 +110,42 @@ DiyaRendererContext >> projection [
 	^ projection
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #registration }
+DiyaRendererContext >> resetBuffer [
+	voffset := 0
+]
+
+{ #category : #accessing }
 DiyaRendererContext >> resolution [
 	^ (display w) @ (display h)
 ]
 
+{ #category : #registration }
+DiyaRendererContext >> setTexture: texture [
+	texture setup.
+	texture0 setImage2D: texture.
+	texture0 active. 	
+]
+
+{ #category : #registration }
+DiyaRendererContext >> submitData: data [
+	|n|
+	n := self voffset.
+	voffset := voffset + (data size << 2).
+	voffset > self class bufferSize ifTrue:[
+		^ DiyaCoreAPIError signal: 'Out of video buffer memory'	
+	].
+	vbo subData: GL_ARRAY_BUFFER offset: n data: data.
+	^ (n >> 4) 
+	
+]
+
 { #category : #accessing }
 DiyaRendererContext >> texture0 [
 	^ texture0
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #registration }
 DiyaRendererContext >> useProjection: aClass [
 	projection := aClass fromDisplay: self display
 ]
@@ -106,3 +159,23 @@ DiyaRendererContext >> vao [
 DiyaRendererContext >> vbo [
 	^ vbo
 ]
+
+{ #category : #accessing }
+DiyaRendererContext >> vbuffer [
+	^ vbuffer
+]
+
+{ #category : #accessing }
+DiyaRendererContext >> voffset [
+	^ voffset
+]
+
+{ #category : #accessing }
+DiyaRendererContext >> window [
+	^ window
+]
+
+{ #category : #accessing }
+DiyaRendererContext >> window: anObject [
+	window := anObject
+]

Diya/DiyaRootNode.class.st

@@ -1,21 +1,40 @@
 Class {
 	#name : #DiyaRootNode,
 	#superclass : #DiyaNode,
+	#instVars : [
+		'Q'
+	],
 	#category : #'Diya-Graphics'
 }
 
+{ #category : #accessing }
+DiyaRootNode >> Q [
+	^ Q
+]
+
 { #category : #accessing }
 DiyaRootNode >> boundingBox [
 	^ Rectangle origin: 0@0 corner: context resolution 
 ]
 
+{ #category : #'add/remove' }
+DiyaRootNode >> cleanDirtyNode: aNode [
+	Q remove: aNode ifAbsent:[]
+]
+
 { #category : #accessing }
 DiyaRootNode >> draw [
 	|c|
-	c := style get: #bgcolor.
+	context resetBuffer.
+	c := self ? #bgColor.
 	OpenGL clearColorR: c red G: c green B: c blue  A: c alpha.
 	OpenGL clear: GL_COLOR_BUFFER_BIT.
-	context vbo bind: GL_ARRAY_BUFFER.
+	"context vbo bind: GL_ARRAY_BUFFER."
+]
+
+{ #category : #'add/remove' }
+DiyaRootNode >> enqueueDirtyNode: aNode [
+	(Q includes: aNode ) ifFalse:[ Q add: aNode].
 ]
 
 { #category : #accessing }
@@ -29,10 +48,11 @@ DiyaRootNode >> initialize [
 	parent := self.
 	shader := nil.
 	root := self.
-	style := DiyaDefaultStyle new
+	styleName := #global.
+	Q := OrderedCollection new
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 DiyaRootNode >> inner: aPoint [
 	^true
 ]
@@ -43,8 +63,26 @@ DiyaRootNode >> isRoot [
 ]
 
 { #category : #initialization }
-DiyaRootNode >> update [
-	^true
+DiyaRootNode >> process [
+	
+]
+
+{ #category : #accessing }
+DiyaRootNode >> processingQueue [
+	^ Q
+]
+
+{ #category : #initialization }
+DiyaRootNode >> setClean [
+	
+	
+	
+]
+
+{ #category : #initialization }
+DiyaRootNode >> setDirty [
+	
+	
 ]
 
 { #category : #accessing }

Diya/DiyaSingleton.class.st

@@ -44,5 +44,5 @@ DiyaSingleton class >> uniqueInstance [
 { #category : #initialization }
 DiyaSingleton >> initialize [
 	super initialize.
-	Transcript show: 'Initialise unique instance of ', self className; cr.
+	self stdlog: 'Initialise unique instance of ', self className.
 ]

Diya/DiyaStyle.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : #DiyaStyle,
+	#superclass : #DiyaBaseObject,
+	#instVars : [
+		'parent',
+		'style'
+	],
+	#category : #'Diya-UIThemes'
+}
+
+{ #category : #accessing }
+DiyaStyle >> at: name ifAbsent: aBlock [
+	|value|
+	value := style at: name ifAbsent:[nil].
+	value ifNotNil: [ ^value ].
+	parent ifNil: [ ^aBlock value ].
+	^ parent at:name ifAbsent: aBlock.
+]
+
+{ #category : #accessing }
+DiyaStyle >> at: name put: value [
+	style at: name put: value
+]
+
+{ #category : #initialization }
+DiyaStyle >> initialize [ 
+	super initialize.
+	style := Dictionary new.
+	parent := nil
+	
+]
+
+{ #category : #accessing }
+DiyaStyle >> parent [
+	^ parent
+]
+
+{ #category : #accessing }
+DiyaStyle >> parent: anObject [
+	parent := anObject
+]

Diya/DiyaStyleSheet.class.st

@@ -0,0 +1,45 @@
+Class {
+	#name : #DiyaStyleSheet,
+	#superclass : #DiyaBaseObject,
+	#instVars : [
+		'stylesheet'
+	],
+	#category : #'Diya-UIThemes'
+}
+
+{ #category : #convenience }
+DiyaStyleSheet >> ? styleName [
+	^stylesheet at: styleName ifAbsent:[
+		DiyaCoreAPIError signal: 'Unable to query stylesheet ', styleName
+	]. 
+]
+
+{ #category : #initialization }
+DiyaStyleSheet >> define: styName extend: parentStyName styles: rules [
+	|parentSheet style|
+	parentSheet := self ? parentStyName.
+	style := self define: styName styles: rules.
+	style parent: parentSheet.
+	^style
+	
+]
+
+{ #category : #initialization }
+DiyaStyleSheet >> define: name styles: rules [
+	|style|
+	style := rules asDiyaStyle.
+	stylesheet at: name put: style.
+	^style
+	
+]
+
+{ #category : #initialization }
+DiyaStyleSheet >> initialize [
+	super initialize.
+	stylesheet := Dictionary new.
+]
+
+{ #category : #accessing }
+DiyaStyleSheet >> stylesheet [
+	^ stylesheet
+]

Diya/DiyaTableLayout.class.st

@@ -1,5 +1,5 @@
 Class {
 	#name : #DiyaTableLayout,
-	#superclass : #DiyaWidget,
+	#superclass : #DiyaLayout,
 	#category : #'Diya-Widgets'
 }

Diya/DiyaText.class.st

@@ -27,13 +27,7 @@ DiyaText class >> data: string shader: s [
 
 { #category : #'menu messages' }
 DiyaText >> align [
-	^ self style get: #textAlign
-]
-
-{ #category : #'menu messages' }
-DiyaText >> align: v [
-	self style set: #textAlign value: v.
-	self formatText
+	^ self ? #xAlign
 ]
 
 { #category : #accessing }
@@ -54,6 +48,11 @@ DiyaText >> allocMemory [
 	vbuffer autoRelease.
 ]
 
+{ #category : #accessing }
+DiyaText >> borderWidth [
+	^0
+]
+
 { #category : #accessing }
 DiyaText >> data [
 	^ data
@@ -62,7 +61,7 @@ DiyaText >> data [
 { #category : #accessing }
 DiyaText >> data: anObject [
 	data := anObject.
-	dirty := true
+	self setDirty
 ]
 
 { #category : #initialization }
@@ -84,39 +83,25 @@ DiyaText >> drawText [
 { #category : #accessing }
 DiyaText >> extent: v [
 	bbox := Rectangle origin: 0@0 corner: (v x) @ (v y negated ). 
-	dirty := true
+	self setDirty
 ]
 
 { #category : #accessing }
 DiyaText >> fontName [
-	^ self style get: #fontFamily
-]
-
-{ #category : #initialization }
-DiyaText >> fontName: name style: face size: size [
-	name  ifNotNil: [style set:#fontFamily value: name].
-	face ifNotNil: [style set: #fontStyle value:face].
-	style set: #fontSize value: size.
-	dirty := true.
-	self initTexture
+	^ self ? #fontFamily
 ]
 
 { #category : #accessing }
 DiyaText >> fontSize [
-	^ self style get:#fontSize
-]
-
-{ #category : #initialization }
-DiyaText >> fontSize: size [
-	self fontName: nil style:nil  size: size
+	^ self ? #fontSize
 ]
 
 { #category : #accessing }
 DiyaText >> fontStyle [
-	^ self style get: #fontStyle
+	^ self ? #fontStyle
 ]
 
-{ #category : #accessing }
+{ #category : #'text-processing' }
 DiyaText >> formatText [
 	|offset index line|
 	lines ifNil: [^self].
@@ -187,13 +172,11 @@ DiyaText >> initialize [
 	data := nil.
 	wrap := false.
 	texheight := 0.
-	style set: #border value: 0.
-	"style set: #bgcolor value: Color red."
 	type := GL_QUADS.
 	maxLineWidth := 0.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'text-processing' }
 DiyaText >> lastSeparatorFrom: index [
 	index to: 1 by: -1 do: [:i|
 		(data at: i) isSeparator ifTrue:[^i].
@@ -217,6 +200,22 @@ DiyaText >> maxLineWidth [
 	^ maxLineWidth
 ]
 
+{ #category : #initialization }
+DiyaText >> process [
+	bbox ifNil: [ ^true ].
+	data ifNil:[^true].
+	data ifEmpty:[^true].
+	texture ifNil: [ self initTexture ].
+	texheight = texture height ifFalse: [
+		texheight := texture height.
+	].
+	vbuffer ifNotNil: [vbuffer free].
+	vbuffer :=  FFIExternalArray externalNewType: GLfloat size: data size * 16.
+	vbuffer autoRelease.
+	self drawText.
+	^true
+]
+
 { #category : #accessing }
 DiyaText >> splitLines [
 	|line ret tex2D|
@@ -232,38 +231,19 @@ DiyaText >> splitLines [
 ]
 
 { #category : #accessing }
-DiyaText >> texture [
-	texture ifNil: [ self initTexture ].
-	texheight = texture height ifFalse: [
-		texheight := texture height.
-		self update.
-		dirty := false.	
-	].
-	^texture
+DiyaText >> styleName: aName [
+	super styleName: aName.
+	texture := nil.
 ]
 
-{ #category : #initialization }
-DiyaText >> update [
-	bbox ifNil: [ ^true ].
-	data ifNil:[^true].
-	data ifEmpty:[^true].
-	vbuffer ifNotNil: [vbuffer free].
-	vbuffer :=  FFIExternalArray externalNewType: GLfloat size: data size * 16.
-	vbuffer autoRelease.
-	self drawText.
-	dirty := false.
-	^true
+{ #category : #accessing }
+DiyaText >> texture [
+	^texture
 ]
 
 { #category : #'menu messages' }
 DiyaText >> valign [
-	^ self style get: #textVAlign
-]
-
-{ #category : #'menu messages' }
-DiyaText >> valign: v [
-	self style set: #textVAlign value: v.
-	self formatText.
+	^ self ? #yAlign
 ]
 
 { #category : #accessing }
@@ -276,5 +256,5 @@ DiyaText >> valignText:h [
 { #category : #initialization }
 DiyaText >> wordWrap: aBool [
 	wrap := aBool.
-	dirty := true
+	self setDirty
 ]

Diya/DiyaTimerNode.class.st

@@ -0,0 +1,68 @@
+Class {
+	#name : #DiyaTimerNode,
+	#superclass : #DiyaMetaNode,
+	#instVars : [
+		'timeout',
+		'elapsedTime',
+		'handlers'
+	],
+	#category : #'Diya-Graphics'
+}
+
+{ #category : #accessing }
+DiyaTimerNode class >> timeout: ms [
+	^ self new timeout: ms; yourself
+]
+
+{ #category : #accessing }
+DiyaTimerNode class >> timeout: ms do: aBlock [
+	^ (self timeout: ms) onTimeout: aBlock;yourself
+]
+
+{ #category : #accessing }
+DiyaTimerNode class >> timeout: ms doOnce: aBlock [
+	^ (self timeout: ms) onceTimeout:  aBlock;yourself
+]
+
+{ #category : #accessing }
+DiyaTimerNode >> delta [
+	^ DiyaClock uniqueInstance delta asMilliSeconds
+]
+
+{ #category : #accessing }
+DiyaTimerNode >> initialize [
+	super initialize.
+	elapsedTime := 0.
+	handlers := OrderedCollection new.
+]
+
+{ #category : #'as yet unclassified' }
+DiyaTimerNode >> onTimeout: aBlock [
+	handlers add: aBlock
+]
+
+{ #category : #'as yet unclassified' }
+DiyaTimerNode >> onceTimeout: aBlock [
+	|newBlock|
+	handlers := OrderedCollection new.
+	newBlock := [ :node | aBlock value: node. self remove ].
+	handlers add: newBlock
+]
+
+{ #category : #stepping }
+DiyaTimerNode >> step [
+	elapsedTime := elapsedTime + self delta.
+	elapsedTime >= timeout ifFalse:[^ self].
+	handlers do:[:e| e value: self ].
+	elapsedTime := 0
+]
+
+{ #category : #accessing }
+DiyaTimerNode >> timeout [
+	^ timeout
+]
+
+{ #category : #accessing }
+DiyaTimerNode >> timeout: anObject [
+	timeout := anObject
+]

Diya/DiyaUIThemesManager.class.st

@@ -0,0 +1,54 @@
+Class {
+	#name : #DiyaUIThemesManager,
+	#superclass : #DiyaSingleton,
+	#instVars : [
+		'themes',
+		'currentThemeName'
+	],
+	#category : #'Diya-UIThemes'
+}
+
+{ #category : #adding }
+DiyaUIThemesManager >> addTheme:name stylesheet:sheet [
+	themes at:name put: sheet
+]
+
+{ #category : #accessing }
+DiyaUIThemesManager >> currentTheme [
+	^ themes at: self currentThemeName  ifAbsent: [ 
+		DiyaCoreAPIError signal: 'Undefined theme named', self currentThemeName
+	]
+]
+
+{ #category : #accessing }
+DiyaUIThemesManager >> currentThemeName [
+	^ currentThemeName
+]
+
+{ #category : #accessing }
+DiyaUIThemesManager >> currentThemeName: anObject [
+	currentThemeName := anObject
+]
+
+{ #category : #initialization }
+DiyaUIThemesManager >> defaultTheme [
+	^ themes at: #default
+]
+
+{ #category : #initialization }
+DiyaUIThemesManager >> defineDefaultTheme [
+	self addTheme: #default stylesheet: DiyaDefaultTheme new. 
+]
+
+{ #category : #initialization }
+DiyaUIThemesManager >> initialize [
+	super initialize.
+	themes := Dictionary new.
+	self defineDefaultTheme.
+	self currentThemeName: #default.
+]
+
+{ #category : #accessing }
+DiyaUIThemesManager >> themes [
+	^ themes
+]

Diya/DiyaWidget.class.st

@@ -12,22 +12,6 @@ DiyaWidget class >> fromStyle: aStyle [
 	^self new style: aStyle; yourself 
 ]
 
-{ #category : #accessing }
-DiyaWidget >> bgColor:v [
-	^style set: #bgcolor value: v
-
-]
-
-{ #category : #accessing }
-DiyaWidget >> color [
-	^style get: #color
-]
-
-{ #category : #accessing }
-DiyaWidget >> color: value [
-	style set: #color value: value
-]
-
 { #category : #geometry }
 DiyaWidget >> extent [
 	^extent
@@ -36,21 +20,10 @@ DiyaWidget >> extent [
 { #category : #geometry }
 DiyaWidget >> extent: size [
 	extent := size.
-	dirty := true.
+	self setDirty.
 ]
 
 { #category : #initialization }
 DiyaWidget >> initialize [
 	super initialize.
 ]
-
-{ #category : #accessing }
-DiyaWidget >> update [
-	self updateLayout.
-	^ true
-]
-
-{ #category : #accessing }
-DiyaWidget >> updateLayout [
-	self subclassResponsibility 
-]

Diya/ImageInitializer.class.st

@@ -51,18 +51,16 @@ ImageInitializer >> initializeImage [
 		do: [ :c | 
 			[ c initialize ]
 				on: Error
-				do: [ c = Cursor
-						ifFalse: [ retryList add: c ] ] ].
+				do: [ retryList add: c ] ].
 	retryList
 		do: [ :c | 
-			Transcript
-				show: 'CLASS: ' , c asString , ' is not initialized';
-				cr.
+			self stdlog: 'CLASS: ' , c asString , ' is not initialized, retry'.
 			c initialize ].
 	DiyaSingleton resetAll.
 	FFIMethodRegistry resetAll.
 	Smalltalk garbageCollect.
 	SourceFiles := SourceFileArray new.
+	"Smalltalk vm parameterAt: 45 put: (Smalltalk vm parameterAt: 44) * 2."
 	Transcript show: 'Image initialized'; cr.
 ]
 

Diya/LibC.extension.st

@@ -1,5 +1,16 @@
 Extension { #name : #LibC }
 
+{ #category : #'*Diya' }
+LibC class >> alloc: size [
+	^self uniqueInstance alloc: size
+]
+
+{ #category : #'*Diya' }
+LibC >> alloc:size [
+	^self ffiCall: #(void *malloc(size_t size))
+	
+]
+
 { #category : #'*Diya' }
 LibC >> memset:pointer value: value size: size [
 	^self ffiCall: #(void *memset(void *pointer, int value, size_t size))

Diya/MatrixTransform2x3.extension.st

@@ -0,0 +1,15 @@
+Extension { #name : #MatrixTransform2x3 }
+
+{ #category : #'*Diya' }
+MatrixTransform2x3 >> asGLBuffer [	
+	|buffer|
+	buffer := FFIExternalArray externalNewType: #float size: 9.
+	1 to: 6 do:[:i|
+		buffer at:i put: (self at:i)].
+	buffer
+		at: 7 put: 0;
+		at: 8 put: 0;
+		at: 9 put: 1.
+	buffer autoRelease.
+	^buffer
+]

Diya/OpenGL.class.st

@@ -93,6 +93,11 @@ OpenGL class >> pixelstorei: pname param: param [
 	^self ffiCall: #(void glPixelStorei(	GLenum pname,GLint param))
 ]
 
+{ #category : #geometry }
+OpenGL class >> readPixelsOn: buffer x:x y: y w:w h:h format: fmt type: type [
+	^ self ffiCall: #(void glReadPixels(	GLint x,GLint y,GLsizei w,GLsizei h,GLenum fmt,GLenum type,void * buffer))
+]
+
 { #category : #accessing }
 OpenGL class >> vertex3fX:x Y:y Z:z [
 	^self ffiCall: #(void glVertex3f(	GLfloat x,GLfloat y,GLfloat z))

Diya/OpenGLConstants.class.st

@@ -11,6 +11,8 @@ Class {
 		'GL_ARRAY_BUFFER',
 		'GL_ARRAY_BUFFER_BINDING',
 		'GL_ATTACHED_SHADERS',
+		'GL_BGR',
+		'GL_BGRA',
 		'GL_BLEND',
 		'GL_BLUE',
 		'GL_BYTE',
@@ -60,6 +62,7 @@ Class {
 		'GL_SRC_ALPHA',
 		'GL_STATIC_DRAW',
 		'GL_STENCIL_BUFFER_BIT',
+		'GL_STREAM_DRAW',
 		'GL_TESS_CONTROL_SHADER',
 		'GL_TESS_EVALUATION_SHADER',
 		'GL_TEXTURE_2D',
@@ -106,6 +109,7 @@ OpenGLConstants class >> initCommonConstants [
 	GL_UNIFORM_BUFFER := 16r8A11.
 	GL_STATIC_DRAW := 16r88E4.
 	GL_DYNAMIC_DRAW := 16r88E8.
+	GL_STREAM_DRAW := 16r88E0.
 	GL_FALSE := 0.
 	GL_TRUE := 1.
 	GL_ARRAY_BUFFER_BINDING := 16r8894.
@@ -115,6 +119,8 @@ OpenGLConstants class >> initCommonConstants [
 	GL_ALPHA := 16r1906.
 	GL_RGB := 16r1907.
 	GL_RGBA := 16r1908.
+	GL_BGR := 16r80E0.
+	GL_BGRA := 16r80E1.
 	GL_LINE_SMOOTH := 16r0B20.
 	GL_LINE_SMOOTH_HINT := 16r0C52
 ]

Diya/OpenGLTexImage2D.class.st

@@ -29,6 +29,11 @@ OpenGLTexImage2D >> border: anObject [
 	border := anObject
 ]
 
+{ #category : #accessing }
+OpenGLTexImage2D >> bytesSize [
+	^(width * height) << 2 
+]
+
 { #category : #accessing }
 OpenGLTexImage2D >> data [
 	^ data
@@ -59,7 +64,7 @@ OpenGLTexImage2D >> drop [
 
 { #category : #accessing }
 OpenGLTexImage2D >> extent [
-	^ width @ height 
+	^ self width @ self height
 ]
 
 { #category : #accessing }

Diya/OpenGLVertexBuffer.class.st

@@ -26,7 +26,7 @@ OpenGLVertexBuffer class >> deleteBuffersSize:n buffers: buffers [
 	^self ffiCall: #(void glDeleteBuffers(	GLsizei n,const GLuint * buffers))
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'library path' }
 OpenGLVertexBuffer class >> ffiLibraryName [ 
 	^ OpenGL ffiLibraryName 
 ]
@@ -78,7 +78,8 @@ OpenGLVertexBuffer >> initialize [
 	vertexBufferID := FFIExternalArray externalNewType: GLint size:1. 
 	vertexBufferID at:1 put: -1.
 	vertexBufferID autoRelease.
-	OpenGLVertexBuffer genVertexBuffersSize: 1 buffers: vertexBufferID getHandle
+	OpenGLVertexBuffer genVertexBuffersSize: 1 buffers: vertexBufferID getHandle.
+	
 ]
 
 { #category : #'as yet unclassified' }

Diya/Point.extension.st

@@ -1,10 +1,5 @@
 Extension { #name : #Point }
 
-{ #category : #'*Diya' }
-Point >> applyTf: tf [
-	^(tf +* (self asArray3F)) asPoint
-]
-
 { #category : #'*Diya' }
 Point >> asArray3F [
 	^ self asArray3F: 1.0
@@ -14,18 +9,3 @@ Point >> asArray3F [
 Point >> asArray3F: z [
 	^ { self x. self y. z }
 ]
-
-{ #category : #'*Diya' }
-Point >> asGLCoord [
-	|res|
-	res := DiyaRendererContext uniqueInstance resolution.
-	^(self / ( res / 2.0)) + (-1.0@ -1.0).
-]
-
-{ #category : #'*Diya' }
-Point >> glNormalise [
-	|res p|
-	res := DiyaRendererContext uniqueInstance resolution.
-	p := self / (res/ 2).
-	^ (p x asFloat) @ (p y asFloat)
-]

Diya/Rectangle.extension.st

@@ -1,8 +0,0 @@
-Extension { #name : #Rectangle }
-
-{ #category : #'*Diya' }
-Rectangle >> applyTf: tf [
-	^ Rectangle
-		origin: (self origin applyTf: tf)
-		corner: (self corner applyTf: tf)
-]

Diya/SDL2.extension.st

@@ -1,11 +1,28 @@
 Extension { #name : #SDL2 }
 
+{ #category : #'*Diya' }
+SDL2 class >> SDLAllocFormat: pixel_format [
+	^ self ffiCall: #(SDL_PixelFormat * SDL_AllocFormat(Uint32 pixel_format))
+	
+]
+
+{ #category : #'*Diya' }
+SDL2 class >> SDLBlitSurface: src srcRect: srcrect dest: dst dstRect: dstrect [
+	^ self ffiCall: #(int SDL_UpperBlit(SDL_Surface* src,SDL_Rect* srcrect,SDL_Surface* dst,SDL_Rect* dstrect))
+]
+
 { #category : #'*Diya' }
 SDL2 class >> SDLClearError [
 	^ self ffiCall: #(void SDL_ClearError(void))
 	
 ]
 
+{ #category : #'*Diya' }
+SDL2 class >> SDLFreeFormat: handle [
+	^ self ffiCall: #(void SDL_FreeFormat(SDL_PixelFormat *handle))
+	
+]
+
 { #category : #'*Diya' }
 SDL2 class >> SDLGetCurrentDisplayMode: mode from:index [
 	^ self ffiCall: #(int SDL_GetCurrentDisplayMode(int index, SDL_DisplayMode* mode))

Diya/SDL2Image.class.st

@@ -0,0 +1,30 @@
+Class {
+	#name : #SDL2Image,
+	#superclass : #DiyaFFIBase,
+	#pools : [
+		'SDL2Constants',
+		'SDL2ConstantsHint',
+		'SDL2Types'
+	],
+	#category : #'Diya-SDL2'
+}
+
+{ #category : #'as yet unclassified' }
+SDL2Image class >> SDLImgLoad: file [
+	^ self ffiCall: #(SDL_Surface * IMG_Load(const char *file))
+]
+
+{ #category : #accessing }
+SDL2Image class >> checkSymbol [
+	^'IMG_Load' 
+]
+
+{ #category : #accessing }
+SDL2Image class >> libNames [
+	^#(
+		'libSDL2_image.so'
+		'libSDL2_image-2.0.so.0'
+		'libSDL2_image-2.0.so'
+		'libSDL2_image-2.0.so.0.2.3'
+	)
+]

Diya/SDL_DisplayMode.class.st

@@ -25,6 +25,25 @@ SDL_DisplayMode class >> fieldsDesc [
 	)
 ]
 
+{ #category : #converting }
+SDL_DisplayMode >> asString [
+	^ 'SDL display: ', self width asString, 'x', self height asString, ' - ', self depth asString, ' bits depth'.
+]
+
+{ #category : #'color mapping' }
+SDL_DisplayMode >> colormapIfNeededFor: dest [
+	^ Color colorMapIfNeededFrom: self depth to: dest depth
+]
+
+{ #category : #'accessing structure variables' }
+SDL_DisplayMode >> depth [
+	|format depth|
+	format := SDL2 SDLAllocFormat: self format.
+	depth := format BitsPerPixel.
+	SDL2 SDLFreeFormat: format.
+	^depth
+]
+
 { #category : #'accessing structure variables' }
 SDL_DisplayMode >> driverdata [
 	"This method was automatically generated"
@@ -37,6 +56,16 @@ SDL_DisplayMode >> driverdata: anObject [
 	handle pointerAt: OFFSET_DRIVERDATA put: anObject getHandle.
 ]
 
+{ #category : #'accessing structure variables' }
+SDL_DisplayMode >> extent [
+	^ self w @ self height
+]
+
+{ #category : #other }
+SDL_DisplayMode >> forceDisplayUpdate [
+	
+]
+
 { #category : #'accessing structure variables' }
 SDL_DisplayMode >> format [
 	"This method was automatically generated"
@@ -61,6 +90,11 @@ SDL_DisplayMode >> h: anObject [
 	handle signedLongAt: OFFSET_H put: anObject
 ]
 
+{ #category : #'accessing structure variables' }
+SDL_DisplayMode >> height [
+	^ self h
+]
+
 { #category : #'accessing structure variables' }
 SDL_DisplayMode >> refresh_rate [
 	"This method was automatically generated"
@@ -84,3 +118,8 @@ SDL_DisplayMode >> w: anObject [
 	"This method was automatically generated"
 	handle signedLongAt: OFFSET_W put: anObject
 ]
+
+{ #category : #'accessing structure variables' }
+SDL_DisplayMode >> width [
+	^ self w
+]

Diya/SDL_Window.extension.st

@@ -6,6 +6,17 @@ SDL_Window >> destroy [
 	handle beNull
 ]
 
+{ #category : #'*Diya' }
+SDL_Window class >> finalizeResourceData: aTuple [
+	| handle |
+	
+	handle := aTuple first.
+	handle isNull ifTrue: [ ^ self ].
+
+	self destroyWindow: handle.
+	handle beNull
+]
+
 { #category : #'*Diya' }
 SDL_Window >> warpMouseX:x Y:y [
 	^self ffiCall: #(void SDL_WarpMouseInWindow(self,int x, int y))