25 de Agosto 2004
POO y más 'cacharros'...
Mientras yo me dedicaba a la implementacion de POO para T-Gtk,
Joaquim se dedicaba a la implementacion de más Widgets y a añadirle mas funcionalidades.
Como pasa el tiempo, parece que fue ayer cuando 'el juguete' empezo con sus primeros pasos, todo eran mimos y ilusiones.
Con el paso de las semanas, 'el juguete' empezo a crecer, y vinieron nuevas necesidades, y el 'padrino Joaquim Ferrer' le regaló unos 'cacharros' a base de 'Listas Multidimensionales', iconos, dialogos, etc..., lo esta mal mimando ;-)
Además, al 'papa' le dio por ver sus primeras implementaciones de 'POO',
todo muy sencillo, tan sencillo que cuesta creerlo, para ejemplo un trozo de
codigo:
DEFINE WINDOW oWindow TITLE "GUI T-Gtk for Harbour by Rafa Carmona"
DEFINE BOX oBoxMenu VERTICAL OF oWindow
Create_Menus( oBoxMenu ) // ----> Nos vamos a crear MENUS!!
DEFINE BOX oBoxH OF oBoxMenu
DEFINE BOX oBoxV VERTICAL OF oBoxH
ListBrowse( oBoxv )
DEFINE LABEL TEXT cTextLabel MARKUP OF oBoxV
DEFINE BUTTON oBtn TEXT "Hola, ponte encima" ACTION MyClicked( oBtn ) OF oBoxV
// Podemos asignar señales facilmente
oBtn:bLeave := { |o| MyLeave( o ) } //Asignamos al code la ejecuccion de codigo
oBtn:Connect( "leave" ) // y conectamos la señal
DEFINE TOGGLE oToggle TEXT "Comnutador" OF oBoxV ACTION EstadoCom( o )
DEFINE BUTTON oBtn ;
TEXT "_Salida rapidita..." ;
MNEMONIC ;
ACTION Exit( oFont );
OF oBoxV FONT oFont
oBtn:Style( "Blue", FGCOLOR , STATE_NORMAL ) // cambiamos el estilo del boton
DEFINE BOX oBoxV2 VERTICAL OF oBoxH
DEFINE IMAGE oImage FILE "nena.jpg" OF oBoxv2 CONTAINER
ACTIVATE WINDOW oWindow CENTER
y a medida que la criatura va creciendo, sus exigencias son mas altas ;-)
ahora con pleno soporte de menus, mirar el dialogo "Ejemplos" es una parte
que podemos hacer que salga automaticamente, realmente es el menu de la barra de herramientas!! ;-), ...,
y mucho mas que esperemos dar noticias sobre ello.
El resultado del trabajo, 90 % en POO + funciones de widgets aparte :
Rafa tan solo una pregunta, ¿ q pretendeis hacer con estas cosas ?.
Saludos.
Escrito por Manuel Calero a las 26 de Agosto 2004 a las 11:37 AMPues de momento, ir terminando cosas ;-), mas
adelante, ya veremos, lo que es seguro que todo aquel que quiera probar, va a tener posibilidades de ello.
Saludos.
Escrito por Rafa a las 26 de Agosto 2004 a las 01:32 PM