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.
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.
Comentarios