:: XPos :: Programando en GTK

Siguiendo usando la librerìa grafica XHGTK, estoy desarrollando un sistema de punto de venta gratutito, solo para aprender a manejar interfaces. Pero estoy encontrando un mundo de posibilidades, debido a que GTK es portable casi a cualquier sistema operativo, ya hace unos meses intente hacer una librerìa grafica para portar Clarion a Gtk pero sin interes por mis amigos programadores Clairon. Por eso ahora solo lo desarrollo para experiencia propìa.

Domingo Torres

Emiliano Ranzuglia

Clarion 7

Dicen que no hay que creer hasta que lo veas con tus ojos, pues aca hay algo.

Imposible dejar de hablar de WINDEV

Muy buena mercadotecnía.

xClarion Open Source, Nuevo codigo

A la librería xClarion.ch le he agregado nuevos código, para que soporte más código Clarion, para que funcione igual ó "Casi" igual al lenguaje Clarion.

Muestro la pantalla generada de Clarion:
La siguiente pantalla es generada por xClarion:
ahora mostraré el código generado por Clarion:


Ahora muestro el código de xClarion:


Notarán que es muy parecido al original, pero no es lo mismo. Se que es mucho trabajo pero si me detengo ahora, no podre saber si realmente funciona, por lo pronto mi meta es correr este mismo ejemplo en Linux, aunque mi prioridad es terminar los demas controles de pantalla que me faltan.

xClarion Open Source

Hace unas semanas explique como algunos programadores Clipper con iniciativa, al ver su futuro incierto por CA, Pues se pusieron manos a la obra y desarrollaron una librería gráfica.

Pues aunque Clarion no se va a descontinuar, si es cierto que nunca va a funcionar 100% en Linux u otros sistemas operativos, y según la tendencia, es que el precio de la licencia clarion y los templates, se ha incrementado.

Estoy desarrollando una librería gráfica, a la que le llamo xClarion, está librería corré sobre XHGTK que es una librería clipper, pero la librería xClarion es independiente de dicha librería , pero si utilizo la infraestructura de datos y Xharbour que es clipper para window.


por ejemplo en clarion se usa este codigo para diseñar una ventana:

Window WINDOW('Ventana de Ejemplo'),AT(,,238,137),IMM,SYSTEM,GRAY,MAX,RESIZE,AUTO
.......STRING('Texto en String'),AT(10,12),USE(?String1)
....... PROMPT('Loc Dato:'),AT(10,27),USE(?LocDato:Prompt)
....... ENTRY(@s20),AT(51,27,60,10),USE(LocDato)
....... SHEET,AT(8,42,226,74),USE(?Sheet1)
............ TAB('Tab 1'),USE(?Tab1)
............ END
............ TAB('Tab 2'),USE(?Tab2)
............ END
....... END
....... BUTTON('Cerrar'),AT(183,118,45,14),USE(?Close)
....... BUTTON('Ok'),AT(134,118,45,14),USE(?Button2)
END


y en la librería xClarion.ch que estoy creando se diseña así:

#include "xclarion.ch"
procedure Main(cOption)
Local oWindow,oClose,oOk,oSheet1,oString1,oPrompt,oEntry1

TEMPLATE oWindow WINDOW("Ventana de Ejemplo"),AT(0,0,478,274),CENTER,RESIZE
....... STRING("Texto en String"),AT(15,22),USE(oString1) OF oWindow
....... PROMPT("Loc Dato:"),AT(50,22),USE(oPrompt) OF oWindow
....... ENTRY("999.99"),AT(47,85,150,20),USE(oEntry1) OF oWindow
....... SHEET,AT(73,22,442,140),USE(oSheet1) OF oWindow
............ TAB("Tab 1") OF oSheet1
............ ENDTAB OF oSheet1
............ TAB("Tab 2") OF oSheet1
............ ENDTAB OF oSheet1
....... BUTTON("Cerrar"),AT(230,375,89,34),USE(oClose) of oWindow
....... BUTTON("Ok"),AT(230,275,89,34),USE(oOk) of oWindow
ACTIVATE WINDOW oWindow

Return

miren la imagen de las 2 ventanas:
Las Pantallas son muy similares con la diferencía que xClarion es 100% open source, usa GTK y corre sobre Window, Linux y Mac y pongo a disposición a cuaquier programador clarion que la quiera y este tambien con deseos de ayudarme a terminar dicha librería grafica.

A Clarion Love Song

A Clarion Love Song---- ¿Me perdí de algo?



A pesar de que clarion esta atrasado, no podemos perder el espiritu.