Framework WebSpeed Orientado a Objetos?

Exemplo de aplicação WebSpeed orientada a objetos.

Já imaginou interceptar o click de um botão no seu programa ".w" ou ".p" como se fosse um evento similar ao AppBuilder e ainda manipular os objetos do HTML como se fossem controles Windows?

Veja um exemplo:

Página HTML

Evento Progress
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE $BotaoAdicionarMais_Click Procedure
PROCEDURE $BotaoAdicionarMais_Click :
/*------------------------------------------------------------------------------
Purpose:
Parameters:
Notes:
------------------------------------------------------------------------------*/
    DEF INPUT PARAMETER pArgumentos AS CHAR NO-UNDO.
    CAST($Get("$Marcado"), com.Framework.WebControls.WebCheckBox):Marcado = YES.
    CAST($Get("$Descricao"), com.Framework.WebControls.WebTextBox):Texto = "12345".
    CAST($Get("$lblDescricao"), com.Framework.WebControls.WebLabel):Texto = "Novo Label".
    CAST($Get("$lblDescricao"), com.Framework.WebControls.WebLabel):Atributos = "color:blue;".
    CAST($Get("$Categoria"), com.Framework.WebControls.WebComboBox):AddItem("4", "Novo Item", YES).
    CAST($Get("$Categoria"), com.Framework.WebControls.WebComboBox):Selecionado = "4".
    CAST($Get("$BotaoAdicionarMais"), com.Framework.WebControls.WebButton):Texto = "Texto Alterado no BOTÃO".
    CAST($Get("$BotaoAdicionarMais"), com.Framework.WebControls.WebButton):Desabilitado = YES.
    DEF VAR lit2 AS com.Framework.WebControls.WebLiteral.
    lit2 = NEW com.Framework.WebControls.WebLiteral("litAux", "Teste Literal").
    RETURN "OK".
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

Resultado HTML após o evento Click

Este framework é um protótipo que demonstra a capacidade do WebSpeed. Enquanto muitos costumam dizer que o WebSpeed não tem potencial nós dizemos o contrário.

Consulte também nosso Framework para a plataforma .Net. Integração nativa com a tecnologia Progress.

Carlos R. Nobrega
Arquiteto de Soluções .Net