gitkrwcharacterinput.c

Go to the documentation of this file.

#define GITK_RENDERER_C
#define GITKR_WIDGET_CHARACTERINPUT_C

#include "gitkrincludes.h"

void gitkr_widget_characterinput_new(GitkrTextWidgetPtr widget,GitkDialogPtr dialog,xmlNodePtr node) {
  widget->icon='>';
  gitkr_widget_new(widget,dialog,node);
  widget->type=GITK_WIDGET_TYPE_CHARACTERINPUT;
  widget->output=gitkr_widget_characterinput_output;
  widget->handle=gitkr_widget_characterinput_handle;
}

void gitkr_widget_characterinput_output(GitkrTextWidgetPtr widget,gint line,gboolean active) {
  gint str_len;
  gchar *value=gitkr_widget_get_value(widget->dialog,widget->id,"value");

  gitkr_widget_output_pre(widget,line,active);

  //-- display label
  if(widget->label) {
    mvaddstr(line,2,widget->label);
    str_len=strlen(widget->label);
  }
  else {
    mvaddstr(line,2,"-");
    str_len=1;
  }
  mvaddstr(line,2+str_len," : [");
  gitkr_widget_characterinput_value_output(2+str_len+4,line,(value?value:" "),0);
  mvaddstr(line,COLS-1,"]");
  free(value);

  if(active && widget->label) { festival_say_text(ftinfo,widget->label); }
  gitkr_widget_output_post(widget,line,active);
}

#define MAX_INPUT_LEN 1024

gboolean gitkr_widget_characterinput_handle(GitkrTextWidgetPtr widget,gint line) {
  gint key;
  gboolean sub_run=TRUE,result=TRUE;
  gint xmin,xmax,xlen,xpos,xoff;
  gchar editbuf[MAX_INPUT_LEN],*value,*editpos;

  //-- un-highlight widget
  widget->output(widget,line,FALSE);
  //-- activate style
  gitkr_widget_output_pre(widget,line,FALSE);
  //-- calculate widget size
  if(widget->label) {
    xmin=2+strlen(widget->label)+4;
  }
  else {
    xmin=2+1+4;
  }
  xmax=COLS-(xmin+1);
  xlen=xmax-xmin;
  //-- init edit buffer with old value, calculate initial cursor pos
  value=gitkr_widget_get_value(widget->dialog,widget->id,"value");
  if(value) {
    festival_say_text(ftinfo,value);
    strncpy(editbuf,value,MAX_INPUT_LEN);
    xpos=strlen(value);
    if(xpos>MAX_INPUT_LEN) xpos=MAX_INPUT_LEN;
    //-- is value longer that widget ?
    if(xpos>xlen) {
      xoff=xpos-xlen;
      xpos-=xoff;
    }
    else {
      xoff=0;
    }
    free(value);
  }
  else {
    *editbuf='\0';
    xpos=0;xoff=0;
  }
  //-- position cursor
  move(line,xmin+xpos);
  refresh();
  editpos=&editbuf[xoff+xpos];

  //-- now run the sub-event-loop
  while(run && sub_run) {
    if((key=gitkr_event_loop_getkey())==ERR) continue;
    //-- process the key-code
    switch(key) {
      case KEY_F10:    // cancel edit
        sub_run=FALSE;result=FALSE;
        break;
      case KEY_RETURN: // submit edit
      case KEY_ENTER:
        gitkr_widget_set_value(widget->dialog,widget->id,"value",editbuf);
        festival_say_text(ftinfo,value);
        sub_run=FALSE;
        break;
      case KEY_LEFT:
        if(xpos) {
          editpos--;xpos--;
          move(line,xmin+xpos);
        }
        else if(xoff) {
          editpos--;xoff--;
          gitkr_widget_characterinput_value_output(xmin,line,editbuf,xoff);
          move(line,xmin+xpos);
        }
        else beep();
        refresh();
        break;
      case KEY_RIGHT:
        if(xpos<xlen && *editpos) {
          editpos++;xpos++;
          move(line,xmin+xpos);
        }
        else if(xpos==xlen && *editpos) {
          editpos++;xoff++;
          gitkr_widget_characterinput_value_output(xmin,line,editbuf,xoff);
          move(line,xmin+xpos); 
        }
        else beep();
        refresh();
        break;
      case KEY_BACKSPACE:
        //gitk_log2("BACKSPACE.1 : xpos=%d  xoff=%d",xpos,xoff);
        if(xpos || xoff) {
          editpos--;xpos--;
          //gitk_log3("BACKSPACE.2 : xpos=%d  xoff=%d  *editpos='%c'",xpos,xoff,*editpos);
          if(*editpos) {
            memmove(editpos,editpos+1,strlen(editpos)+1);
            gitkr_widget_characterinput_value_output(xmin,line,editbuf,xoff);
            move(line,xmin+xpos);
          }
          else beep();
        }
        else beep();
        refresh();
        break;
      case KEY_DEL:
        if(*editpos) {
          memmove(editpos,editpos+1,strlen(editpos)+1);
          gitkr_widget_characterinput_value_output(xmin,line,editbuf,xoff);
          move(line,xmin+xpos);
        }
        else beep();
        refresh();
        break;
      default:
        if(key && key>=' ') {
          gitk_log3("?             : %4d 0x%03x '%c'",key,key,KEYCODE_TO_ASCII(key));
          //-- apply filter
          if(TRUE) { 
            //-- check that there is enough space to include one more character
            if(TRUE) { 
              //-- insert char
              if(!*editpos) { // we're at the end of the line
                *editpos++=key;*editpos='\0';
                xpos++;
              }
              else {
                memmove(editpos+1,editpos,strlen(editpos)+1);
                *editpos++=key;xpos++;
              }
              gitkr_widget_characterinput_value_output(xmin,line,editbuf,xoff);
              move(line,xmin+xpos);
            }
            else beep();
          }
          else beep();
          refresh();
        }
        else {
          gitk_log("key-event : CTRL-CHR");
        }
    }
  }
  //-- highlight widget
  widget->output(widget,line,TRUE);
  //-- re-position cursor
  move(line,0);
  refresh();

  return(result);
}

void gitkr_widget_characterinput_value_output(gint col,gint line,gchar *value, gint offset) {
  gchar *linebuf;
  gint val_len;

  gitk_log1("value=\"%s\"",value);

  val_len=COLS-(col+1);
  linebuf=g_malloc(val_len+1);
  sprintf(linebuf,"%-*s",val_len,&value[offset]);
  //strncpy(linebuf,&value[offset],val_len);
  //linebuf[val_len]='\0';
  mvaddstr(line,col,linebuf);
  g_free(linebuf);
}

---