Example 2.2 of the tutorial : Adding GEM desktop
[Tutorial]

/*
 * WinDom: a high level GEM library
 * Copyright (c) 1997-2006 windom authors (see AUTHORS file)
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 *
 * $Source: /cvsroot/windom/htdocs/doc/html/group__tut2__2.html,v $
 *
 * CVS info:
 *   $Author: bercegeay $
 *   $Date: 2006/06/22 11:58:28 $
 *   $Revision: 1.5 $
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <windom.h>

#include "text.h"
#include "tut_2.h"

static 
void __CDECL evnt_draw_text( WINDOW *win, short buff[8], void *data) {
  short x, y, w, h;
  short hcell, hcar;
  short i, attr[10];
  short y_max, h_offset;
  TEXT *ptext = (TEXT*) data;

  /* Get window workarea coordinate */
  WindGet( win, WF_WORKXYWH, &x, &y, &w, &h);
  y_max = MIN( y + h, win->graf->clip.g_y + win->graf->clip.g_h) - 1;

  /* Get height of cellule and character */
  vqt_attributes( win->graf->handle, attr);
  hcell = attr[9];
  hcar  = attr[7];
  
  /* Foreground */
  vswr_mode( win->graf->handle, MD_TRANS);

  /* vertical offset for a nice text drawing */
  h_offset = hcell - hcar; 
  
  /* from the first line visible to the end ...
   * Convention: we have always 0 <= win->ypos < win->yposmax */
  for( i=win->ypos; i<win->ypos_max ; i++)  {
    y += hcell;

    /* If the line is upper than the clipped zone? */
    if( y < win->graf->clip.g_y)
      continue;
    
    /* line inside the window ? */
    if( strlen( ptext->line[ i]) > win->xpos) 
      v_gtext(win->graf->handle, x, y - h_offset, ptext->line[i] + win->xpos);
    
    /* End if the line is downer than the clipped zone */
    if (y > y_max) 
      break;
  }
}


static
void __CDECL evnt_destroy_text( WINDOW *win, short buff[8], void *text) {
    free_text( text);
}

WINDOW *OpenText( TEXT *text) {
    WINDOW *win;
    short attrib[10];
     
    win = WindCreate( WAT_NOINFO, app.x, app.y, app.w, app.h);
    EvntDataAdd( win, WM_REDRAW, evnt_draw_text, text, EV_BOT);
    EvntDataAdd( win, WM_DESTROY, evnt_destroy_text, text, EV_TOP);

    /* Maximal lenght of a line */
    win -> xpos_max = 255;
    /* Number of line */
    win -> ypos_max = text->maxline;
    vqt_attributes( win->graf->handle, attrib);
    /* Height of a cell character */
    win -> w_u = attrib[8];  
    /* Width of a cell character */
    win -> h_u = attrib[9];  
    /* Height of a character */
    text-> wchar = attrib[6];
    /* Width of a character */
    text-> hchar = attrib[7];
    /* Open the window */
    WindOpen( win, app.x, app.y, app.w, app.h);
    /* Update the size and position of sliders */
    WindSlider( win, HSLIDER|VSLIDER);
    return win;
}

int endprog = FALSE;

static
void evnt_apterm( ) {
    while( wglb.first) {
        ApplWrite( _AESapid, WM_DESTROY, wglb.first->handle, 0, 0, 0, 0);
        EvntWindom( MU_MESAG);
    }
    /* Something to say about the standard destroy function */
    endprog = TRUE;
}

OBJECT *get_tree( int index) {
    OBJECT *tree;
    rsrc_gaddr( 0, index, &tree);
    return tree;
}

static void menudesk_open( WINDOW *null, int index, int title, void *data) {
    TEXT *text = NULL;
    WINDOW *win;
    static char path[256]="", name[64]="";

    if( FselInput(path, name, "*.*", "View text file", NULL, NULL)) {
        char filename[256];

        strcpy( filename, path);
        strcat( filename, "\\");
        strcat( filename, name);

        text = load_text( filename);
        if( text) win = OpenText( text);
    }
    if( text == NULL) FormAlert( 1, FA_ERROR "[Error: file not found][OK]");
    MenuTnormal( NULL, title, 1);
}

static void menudesk_info( WINDOW *null, int index, int title, void *data) {
    FormAlert( 1, FA_INFO "[Tutorial WinDom| " __FILE__ "|(c) 2004][Ok]");
    MenuTnormal( NULL, title, 1);
}

int main( void) {
    ApplInit();

    /* Load the resource file */
    if( RsrcLoad( "tut_2.rsc") == 0) {
        FormAlert( 1, FA_ERROR "[Can not locate tut-2.rsc][Fatal]");
        ApplExit();
        return -1;
    }

    /* Install the desktop menu */
    MenuBar( get_tree( MENUDESK), 1);

    /* Register application for MultiTOS */
    menu_register( _AESapid, "  Tutorial WinDom 2-2 ");

    /* A new function ! See tut-3-* for details */
    ObjcAttachMenuFunc( NULL, MENUDESK_OPEN, menudesk_open, NULL);
    ObjcAttachMenuFunc( NULL, MENUDESK_INFO, menudesk_info, NULL);
    ObjcAttachMenuFunc( NULL, MENUDESK_QUIT, evnt_apterm,   NULL);

    /* bind some events */
    EvntAttach( NULL, AP_TERM, evnt_apterm);

    /* Handle GEM events */
    while( !endprog) EvntWindom( MU_MESAG + MU_KEYBD);

    MenuBar( get_tree(MENUDESK), 0);
    RsrcFree();
    ApplExit();

    return EXIT_SUCCESS;
}

---