Re: rulers -- LINUX5250

Hi Frank,

Thanks.  I'll test it out and look at adding a config file option for it. 
Does anyone have any preferences for a key-binding?

On Wed, May 02, 2001 at 12:27:45PM +0200, Frank Richter wrote:
> As I'm a RPG programmer, I really needed the functionality of "rulers".
> But it's not possible to implement them in a curses client. So I made a
> workaround, which is a bit ugly but works for me: I patched cursesterm.c
> to show the row and column of characters, which the cursor is in, in
> bold. Maybe someone with a deeper knowledge of the source can make a
> configurable option and a key binding for this.
> 
> Here it is:
> 
> --- cursesterm.c.orig Wed May  2 12:16:19 2001
> +++ cursesterm.c      Wed May  2 12:21:43 2001
> @@ -49,6 +49,7 @@
>  #define A_5250_YELLOW   ((attr_t)COLOR_PAIR(COLOR_YELLOW) | A_BOLD)
>  #define A_5250_PINK     ((attr_t)COLOR_PAIR(COLOR_MAGENTA))
>  #define A_5250_BLUE     ((attr_t)COLOR_PAIR(COLOR_CYAN) | A_BOLD)
> +#define A_5250_RULER    (A_BOLD)
>  
>  /*@-globstate -nullpass@*/  /* lclint incorrectly assumes stdscr may be NULL 
>*/
>  
> @@ -605,7 +606,20 @@
>        c = tn5250_display_char_at(display, y, x);
>        if ((c & 0xe0) == 0x20) {      /* ATTRIBUTE */
>           a = (c & 0xff);
> -         addch(attribute_map[0] | ' ');
> +         /* rulers */
> +         if((tn5250_display_cursor_x(display)==x)&&
> +               (x<(tn5250_display_width(display)-1))&&
> +               (tn5250_display_cursor_y(display)!=y)) {
> +            addch(attribute_map[0] | ' ' | A_5250_RULER  );
> +         } else {
> +            if((tn5250_display_cursor_y(display)==y)&&
> +                  (tn5250_display_cursor_x(display)!=x)) {
> +               addch(attribute_map[0] | ' ' | A_5250_RULER  );
> +            } else {
> +               addch(attribute_map[0] | ' ');
> +            }
> +         }
> +         /* ~rulers */
>        } else {               /* DATA */
>           curs_attr = attribute_map[a - 0x20];
>           if (curs_attr == 0x00) {    /* NONDISPLAY */
> @@ -635,7 +649,20 @@
>                       c = '_';
>                 }
>              }
> -            addch((chtype)(c | curs_attr));
> +            /* rulers */
> +            if((tn5250_display_cursor_x(display)==x)&&
> +               (x<(tn5250_display_width(display)-1))&&
> +               (tn5250_display_cursor_y(display)!=y)) {
> +                  addch((chtype)(c | curs_attr | A_5250_RULER  ));
> +            } else {
> +               if((tn5250_display_cursor_y(display)==y)&&
> +                  (tn5250_display_cursor_x(display)!=x)) {
> +                  addch((chtype)(c | curs_attr | A_5250_RULER  ));
> +               } else {
> +                  addch((chtype)(c | curs_attr));
> +               }
> +            }
> +            /* ~rulers */
>           }
>        }                      /* if ((c & 0xe0) ... */
>        }                              /* for (int x ... */
> 
> -- 
> Esda Feinstrumpffabrik GmbH
> Frank Richter, Leiter EDV
> Hauptstr. 76, D-09392 Auerbach
> E-Mail: frichter@esda.com
> +---
> | This is the LINUX5250 Mailing List!
> | To submit a new message, send your mail to LINUX5250@midrange.com.
> | To subscribe to this list send email to LINUX5250-SUB@midrange.com.
> | To unsubscribe from this list send email to LINUX5250-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

-- 
Mike Madore
Software Engineer
TurboLinux, Inc.
+---
| This is the LINUX5250 Mailing List!
| To submit a new message, send your mail to LINUX5250@midrange.com.
| To subscribe to this list send email to LINUX5250-SUB@midrange.com.
| To unsubscribe from this list send email to LINUX5250-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---