_tk.C

Ir a la documentación de este archivo.

//===========================================================================
//= _tk.cc                                                   Agosto de 1998 =
//=-------------------------------------------------------------------------=
//= Definicion de elementos GUI especificos a TK                            =
//=-------------------------------------------------------------------------=
//= ADVERTENCIA: ESTE SOFTWARE NO ESTA CONCEBIDO NI DISENNADO PARA EL USO   =
//= EN EQUIPO DE CONTROL EN LINEA EN ENTORNOS PELIGROSOS QUE REQUIERAN UN   =
//= DESEMPENNO LIBRE DE FALLAS, COMO LA OPERACION DE PLANTAS NUCLEARES,     = 
//= SISTEMAS DE NAVEGACION O COMUNICACION EN AVIONES, TRAFICO AEREO,        =
//= EQUIPO MEDICO DEL CUAL DEPENDAN VIDAS HUMANAS O SISTEMAS DE ARMAMENTO,  =
//= EN LOS CUALES UNA FALLA EN EL SOFTWARE PUEDA IMPLICAR DIRECTAMENTE LA   =
//= MUERTE, DANNOS PERSONALES O DANNOS FISICOS Y/O AMBIENTALES GRAVES       =
//= ("ACTIVIDADES DE ALGO RIESGO").                                         =
//=-------------------------------------------------------------------------=
//= Autor original: Oscar J. Chavarro G.  A.K.A. JEDILINK. Copyright (c),   =
//= 1997 - 2003, oscarchavarro@hotmail.com                                  =
//= AQUYNZA es software libre, y se rige bajo los terminos de la licencia   =
//= LGPL de GNU (http://www.gnu.org). Para mayor informacion respecto a la  =
//= licencia de uso, consulte el archivo ./doc/LICENCIA en la distribucion. =
//===========================================================================

#include "jed_defs.h"  // Incluir antes que nada, en ese modulo se definen 
                       // aspectos importantes para la portabilidad del sistema

#include <stdio.h>
#include <string.h>
#include "jed_gl.h"
#include "framework/gui/_tk.h"

//===========================================================================
//= Chequeo de activacion de esta interfaz                                  =
//===========================================================================

#ifndef TK_ENABLED

JED_GUI_CLASE_NULA(JED_TK_INTERFACE, "JED_TK_INTERFACE",
    "TK/aux", "tk, que viene incluida\n  con las versiones de Mesa "
    "anteriores a la 2.5", "TK_ENABLED");

#endif

#ifdef TK_ENABLED

//===========================================================================
//= Variables globales                                                      =
//===========================================================================

static BOOLEAN MODO_rgb_activo;          // Si es FALSE usa una paleta indexada
static BOOLEAN RENDER_directo_a_hardware;// Saltarse el GUI (solo modo consola)
static BOOLEAN QUIERO_pintarme_tk = FALSE;
static EVENTO_GUI ESTADO_de_entradas_gui;

void (*TKGUI_draw_callback)(int);
int (*TKGUI_tick_callback)(int);
void (*TKGUI_resize_callback)(int x_tam, int y_tam, int);
int (*TKGUI_keyboard_callback)(EVENTO_GUI *e, int);
int (*TKGUI_mouse_callback)(EVENTO_GUI *e, int);

GLenum
tk_keyboard(int tecla, GLenum mask)
{
    EVNT_EVENTO_GUI->tipo_de_evento = ETYPE_KEY_DOWN;
    TKkeycode2JEDkeycode(EVNT_EVENTO_GUI, tecla);
    EVNT_EVENTO_GUI->key_mask = 0x00;

    // OJO: Estas dos condiciones son constantes?
    if ( mask & TK_SHIFT ) EVNT_EVENTO_GUI->key_mask += EKEY_SHIFT;
    if ( mask & TK_CONTROL ) EVNT_EVENTO_GUI->key_mask += EKEY_CTRL;

    //printf(".");  fflush(stdout);
    
    if ( TKGUI_keyboard_callback(EVNT_EVENTO_GUI, 0) ) {
        QUIERO_pintarme_tk = TRUE;
        return GL_FALSE;
    }
    return GL_FALSE;
}

// Las siguientes tres funciones tienen el mismo espiritu que la anterior,
// pero esta ves para el manejo generico del mouse.  Notese que en TK la
// mascara contiene un bit para cada boton del mouse (i.e. 2^0, 2^1, ... 2^n)

#define MANEJO_DE_MOUSE_TK() \
    EVNT_EVENTO_GUI->mouse_button_mask = mask;\
    EVNT_EVENTO_GUI->mouse_old_x = EVNT_EVENTO_GUI->mouse_x;\
    EVNT_EVENTO_GUI->mouse_old_y = EVNT_EVENTO_GUI->mouse_y;\
    EVNT_EVENTO_GUI->mouse_x = x;\
    EVNT_EVENTO_GUI->mouse_y = y;\
    EVNT_EVENTO_GUI->mouse_delta_x=x-EVNT_EVENTO_GUI->mouse_old_x;\
    EVNT_EVENTO_GUI->mouse_delta_y=y-EVNT_EVENTO_GUI->mouse_old_y;\
    if ( TKGUI_mouse_callback(EVNT_EVENTO_GUI, 0) ) {\
        QUIERO_pintarme_tk = TRUE; \
        return GL_FALSE;\
    }\
    return GL_FALSE;


GLenum
tk_mousedown(int x, int y, GLenum mask)
{
    EVNT_EVENTO_GUI->tipo_de_evento = ETYPE_BUTTON_DOWN;
    MANEJO_DE_MOUSE_TK();
}

GLenum
tk_mouseup(int x, int y, GLenum mask)
{
    EVNT_EVENTO_GUI->tipo_de_evento = ETYPE_BUTTON_UP;
    MANEJO_DE_MOUSE_TK();
}

GLenum
tk_mousemove(int x, int y, GLenum mask)
{
    EVNT_EVENTO_GUI->tipo_de_evento = ETYPE_MOUSE_MOVE;
    MANEJO_DE_MOUSE_TK();
}

void
tk_draw(void)
{
    //printf("[");  fflush(stdout);
    TKGUI_draw_callback(0);
    glFlush();    glFinish();
    if ( BUFFER_doble ) tkSwapBuffers();
    //printf("]");  fflush(stdout);
}

void
tk_idle(void)
{
    if ( TKGUI_tick_callback(0) ) QUIERO_pintarme_tk = TRUE;
    if ( QUIERO_pintarme_tk /*|| PLAY_state*/ ) tk_draw();
    QUIERO_pintarme_tk = FALSE;
}

void
tk_idle_nulo(void)
{
    if ( QUIERO_pintarme_tk /*|| PLAY_state*/ ) tk_draw();
    QUIERO_pintarme_tk = FALSE;
}

//===========================================================================
//= Encapsulamiento de la interface especifica de la aplicacion             =
//===========================================================================

static void pintar_nulo(int /*context_id*/) {    ;    }
static int evento_nulo(EVENTO_GUI * /*e*/, int /*context_id*/) { return FALSE; }
static void resize_nulo(int /*x*/, int /*y*/, int /*context_id*/) {    ;    }

static void
tk_resize(int x, int y)
{
    TKGUI_resize_callback(x, y, 0);
}

JED_TK_INTERFACE::JED_TK_INTERFACE()
{
    MODO_rgb_activo = TRUE;
    RENDER_directo_a_hardware = FALSE;
    BUFFER_doble = TRUE;

    TKGUI_draw_callback = pintar_nulo;
    TKGUI_tick_callback = NULL;
    TKGUI_mouse_callback = evento_nulo;
    TKGUI_keyboard_callback = evento_nulo;
    TKGUI_resize_callback = resize_nulo;
}

JED_TK_INTERFACE::~JED_TK_INTERFACE()
{
    ;
}

void JED_TK_INTERFACE::solicitar_repintado(void){;}

void
JED_TK_INTERFACE::set_draw_callback( void (*p)(int context_id) )
{
    TKGUI_draw_callback = p;
}

void
JED_TK_INTERFACE::set_tick_callback( int (*p)(int context_id) )
{
    TKGUI_tick_callback = p;
}

void
JED_TK_INTERFACE::set_keyboard_callback( 
 int (*p)(EVENTO_GUI *e, int context_id) )
{
    TKGUI_keyboard_callback = p;
}

void
JED_TK_INTERFACE::set_mouse_callback( 
 int (*p)(EVENTO_GUI *e, int context_id) )
{
    TKGUI_mouse_callback = p;
}

void
JED_TK_INTERFACE::set_resize_callback(
 void (*p)(int x_tam, int y_tam, int context_id) )
{
    TKGUI_resize_callback = p;
}

void
JED_TK_INTERFACE::set_ejecutor( int (* /* p */ )(int idc, int context_id) )
{
    ;
}

void
JED_TK_INTERFACE::set_multiview_callback
( void (* /* p */ )(int operacion, int id_vista, char *detalles,
                    char *menu, char *botonera) )
{
    ;
}

BOOLEAN
JED_TK_INTERFACE::crear(int * /*Argc*/, char * /*argv*/ [], int x_tam, int y_tam, char *nombre)
{
    int type;

    tkInitPosition(0, 0, x_tam, y_tam);
    type = TK_DEPTH;
    type |= (MODO_rgb_activo) ? TK_RGB : TK_INDEX;
    type |= (BUFFER_doble) ? TK_DOUBLE : TK_SINGLE;
    type |= (RENDER_directo_a_hardware) ? TK_DIRECT : TK_INDIRECT;
    tkInitDisplayMode((GLenum)type);
    if ( tkInitWindow(nombre) == GL_FALSE ) {
        return FALSE;
    }

    leer_gui("etc/spanish.gui");

    return TRUE;
}

void
JED_TK_INTERFACE::ejecutar(void)
{
    EVNT_EVENTO_GUI = &ESTADO_de_entradas_gui;   // Esto puede encapsularse
    tkDisplayFunc(tk_draw);        // Los callbacks ya estan encapsu-
    tkKeyDownFunc(tk_keyboard);    // lados en jed_evnt, y estas
    tkMouseDownFunc(tk_mousedown); // lineas pueden encapsularse en
    tkMouseUpFunc(tk_mouseup);     // algo como "inicialice_tk"
    tkMouseMoveFunc(tk_mousemove);
    tkExposeFunc(tk_resize);
    tkReshapeFunc(tk_resize);
    if ( TKGUI_tick_callback ) tkIdleFunc(tk_idle);
    else tkIdleFunc(tk_idle_nulo);

    //- -
    tkExec();
}


void
JED_TK_INTERFACE::finalizar(void)
{
    tkQuit();
}

BOOLEAN
JED_TK_INTERFACE::anexar_controles(LISTA <CONTROL_GUI *> * /*Controles*/, 
                                   REPOSITORIO_DE_ENTIDADES * /*Repositorio*/)
{
    fprintf(stderr, "<JED_TK_INTERFACE> ERROR: Los controles GUI no estan\n"
        "    implemetados en la interface actual.  Intente Motif.\n");
    fflush(stderr);
    return FALSE;
}

#endif // TK_ENABLED


//===========================================================================
//= EOF                                                                     =
//===========================================================================

---

Este archivo HTML ha sido generado automáticamente a partir del código fuente AQUYNZA. NO LO EDITE. Para mayor información contacte al autor.