GUI: Add PT demo.

Author: gabordemooij

plugins/gui/examples/pt/guipt.ctr

@@ -0,0 +1,117 @@
+# Titel.......: GUINL
+# Auteur......: Gabor de Mooij (c) copyright 2025
+# Datum.......: 2025-03-14
+# Licentie....: BSD-3/MIT
+# Versie......: 1.1
+#
+# Beschrijving:
+# GUINL is een voorbeeldprogramma van een GUI in Citrine/NL.
+#
+# Benodigdheden:
+# - xmlboom
+# - lvglnl
+# - supplementnl
+
+>> gui := Gui novo.
+
+gui
+	usar: 
+		Localização-de-arquivo supplementopt,
+	usar:
+		Localização-de-arquivo arvorexml,
+	usar: 
+		Localização-de-arquivo lvglpt.
+
+>> papel-de-parede := 
+	Imagem novo: ['guidemo.png'].
+
+>> tipografia := 
+	Tipografia novo
+	fonte: ['Shortcake.ttf'] tamanho: 40.
+
+>> branco := Cor 
+	novo
+	vermelho: 255
+	verde: 255
+	azul: 255.
+
+>> xmldemo := 
+	Árvore-xml
+	sem-xml: ['<lv_label text="arvore XML"></lv_label>'].
+
+gui em: ['clique:'] fazer: { :id
+	(id = 2) verdadeiro: {
+		>> xml := 
+		
+		['
+		<component>
+		<view extends="lv_obj" height="100%" width="100%" style_bg_opa="0">
+		<lv_obj height="100%" width="100%">
+		'] + (gui valor-introduzido: 1) + ['
+		</lv_obj>
+		</view>
+		</component>
+		'].
+		
+		eu xml: xml nome: ['x'] por: ['3'].
+	}.
+
+}.
+
+>> arvore := LVGLPT novo.
+arvore
+	componente
+	elementos
+		visualizar
+		baseado-em: ['objeto'],
+		id: 100,
+		interativo: Verdadeiro,
+		altura: ['100%'],
+		largura: ['100%'],
+		fundo: papel-de-parede,
+		elementos
+			objeto
+			cobertura-fundo: 0,
+			interativo: Verdadeiro,
+			borda: 0,
+			largura: ['100%'],
+			altura: ['100%'],
+			disposição: ['flex'],
+			fluxo-flexível: ['coluna'],
+			elementos
+				rótulo
+				tipografia: tipografia,
+				cor: branco,
+				texto: ['Uma arvore XML'],
+				fechar
+				campo-de-texto
+				largura: ['100%'],
+				id: ['1'],
+				interativo: Verdadeiro,
+				selecionável: Verdadeiro,
+				texto: xmldemo,
+				fechar
+				botão
+				interativo: Verdadeiro,
+				id: ['2'],
+				elementos
+					rótulo
+					texto: ['desenhar'],
+					fechar
+				fechar
+				objeto
+				id: ['3'],
+				cobertura-fundo: 0,
+				borda: 0,
+				largura: ['100%'],
+				altura: ['50%'],
+				fechar
+			fechar
+		fechar
+	fechar.
+
+Saída escrever: arvore string.
+
+gui 
+largura: 400 altura: 800,
+tela: arvore string.

plugins/gui/extra/pt/arvorexml

@@ -1,4 +1,4 @@
-# Título.......: Xmlboom
+# Título.......: Árvore xml
 # Autor........: Gabor de Mooij (c) copyright 2025
 # Data.........: 28 de janeiro de 2025
 # Licença......: BSD-3/MIT
@@ -16,13 +16,13 @@
 Árvore-xml em: ['novo'] fazer: { <- eu novo preparar. }.
 
 Árvore-xml em: ['preparar'] fazer: {
-	eu opschonen.
+	eu limpar.
 	próprio nomes-de-atributos := Mapa novo.
 	próprio valores-de-atributos := Mapa novo.
 	próprio nomes-dos-elementos := Mapa novo.
 }.
 
-Árvore-xml em: ['opschonen'] fazer: {
+Árvore-xml em: ['limpar'] fazer: {
 	próprio modo-de-texto := Falso.
 	próprio resultado := [''].
 	próprio elementos := Listar novo.
@@ -46,10 +46,10 @@
 	próprio resultado acrescentar: (
 		['<elemento '] elemento: nome-do-elemento 
 	).
-	próprio elementmodus := Falso.
+	próprio modo-de-elemento := Falso.
 }.
 
-Árvore-xml em: ['bericht:argument:'] fazer: { :mensagem :argumento
+Árvore-xml em: ['responder:e:'] fazer: { :mensagem :argumento
 	mensagem := mensagem - [':'].
 	próprio modo-de-texto verdadeiro: {
 		próprio modo-de-texto := Falso.
@@ -73,8 +73,7 @@
 
 
 Árvore-xml em: ['elementos'] fazer: {
-	próprio resultado acrescentar: ['>\
-'].
+	próprio resultado acrescentar: ['>\n'].
 	próprio elementmodus := Verdadeiro.
 }.
 
@@ -86,16 +85,15 @@
 Árvore-xml em: ['fechar'] fazer: {
 	>> fechar := próprio elementos pop.
 	próprio modo-de-elemento verdadeiro: {
-		próprio resultado acrescentar: (['\
-</elemento>'] elemento: slot).
-	}, senão: {
-		próprio resultado acrescentar: (['></elemento>'] elemento: slot).
-		próprio elementmodus := Verdadeiro.
+		próprio resultado acrescentar: (['\n</elemento>'] elemento: fechar).
+	}, falso: {
+		próprio resultado acrescentar: (['></elemento>'] elemento: fechar).
+		próprio modo-de-elemento := Verdadeiro.
 	}.
 }.
 
 
-Árvore-xml em: ['tekst'] fazer: { <- próprio resultado. }.
+Árvore-xml em: ['string'] fazer: { <- próprio resultado. }.
 
 
 Árvore-xml em: ['sem-xml:'] fazer: { :conteúdo <- conteúdo string

plugins/gui/extra/pt/lvglpt

@@ -17,15 +17,15 @@
 
 LVGLPT em: ['novo'] fazer: {
 
-	>> árvore-xml := self novo.
+	>> árvore-xml := eu novo.
 	árvore-xml
 	elementos: (
 		Mapa novo
 			componente: ['component'],
 			visualizar: ['view'],
 			objeto: ['lv_obj'],
 			botão: ['lv_button'],
-			label: ['lv_label'],
+			rótulo: ['lv_label'],
 			imagem: ['lv_image'],
 			campo-de-texto: ['lv_textarea'],
 			grelha-de-botões: ['lv_buttonmatrix'],
@@ -44,7 +44,7 @@ LVGLPT em: ['novo'] fazer: {
 	)
 	atributos: (
 		Mapa novo
-			base-on: ['extends'],
+			baseado-em: ['extends'],
 			interativo: ['event_bubble'],
 			largura: ['width'],
 			altura: ['height'],
@@ -108,7 +108,7 @@ LVGLPT em: ['cor:'] fazer: { :cor
 	eu style_text_color: cor rgbhex.
 }.
 
-LVGLNL em: ['cor-da-borda:'] fazer: { :cor
+LVGLPT em: ['cor-da-borda:'] fazer: { :cor
 	eu style_border_color: cor rgbhex.
 }.