src/imlib/jwindow.cpp

/*
 *  Abuse - dark 2D side-scrolling platform game
 *  Copyright (c) 1995 Crack dot Com
 *  Copyright (c) 2005-2011 Sam Hocevar <sam@hocevar.net>
 *
 *  This software was released into the Public Domain. As with most public
 *  domain software, no warranty is made or implied by Crack dot Com, by
 *  Jonathan Clark, or by Sam Hocevar.
 */

#if defined HAVE_CONFIG_H
#   include "config.h"
#endif

#include <string.h>

#include "common.h"

#include "video.h"
#include "image.h"
#include "input.h"
#include "event.h"
#include "filter.h"
#include "event.h"
#include "jwindow.h"

static int jw_left = 3, jw_right = 3, jw_top = 2, jw_bottom = 3;

int frame_top() { return jw_top; }
int frame_bottom() { return jw_bottom; }
int frame_left() { return jw_left; }
int frame_right() { return jw_right; }

//
//  Sets the size of the border around each window
//
void set_frame_size(int x)
{
    if(x < 1)
        x = 1;
    jw_left = x;
    jw_right = x;
    jw_top = 2;
    jw_bottom = x;
}

 // true if a window lies in this area
int WindowManager::window_in_area(int x1, int y1, int x2, int y2)
{
  for (Jwindow *f=first; f; f=f->next)
    if (f->x<=x2 && f->y<=y2 && f->x+f->l-1>=x1 && f->y+f->h-1>=y1)
      return 1;
  return 0;
}

void WindowManager::grab_focus(Jwindow *j)
{ grab=j; }

void WindowManager::release_focus()
{ grab=NULL; }


void WindowManager::close_window(Jwindow *j)
{
    delete j;
}

void WindowManager::hide_windows()
{
    for (Jwindow *p = first; p; p = p->next)
    {
        if (!p->is_hidden())
        {
            p->hide();
            screen->AddDirty(p->x, p->y, p->x + p->l, p->y + p->h);
        }
    }
}

void WindowManager::show_windows()
{
  Jwindow *p;
  for (p=first; p; p=p->next)
    if (p->is_hidden())
      show_window(p);
}

void WindowManager::hide_window(Jwindow *j)
{
    if (j == first)
        first = first->next;
    else
    {
        Jwindow *k;
        for (k = first; k->next != j; k = k->next)
            k->screen->AddDirty(j->x - k->x, j->y - k->y,
                                j->x + j->l - k->x, j->y + j->h - k->y);
        k->screen->AddDirty(j->x - k->x, j->y - k->y,
                            j->x + j->l - k->x, j->y + j->h - k->y);
        k->next = j->next;
    }
    screen->AddDirty(j->x, j->y, j->x + j->l, j->y + j->h);
    j->hide();
}

void WindowManager::show_window(Jwindow *j)
{
    if (j->is_hidden())
    {
        j->show();
        j->screen->AddDirty(0, 0, j->l, j->h);
    }
}

void WindowManager::get_event(event &ev)
{
  Jwindow *j;
  eh->get_event(ev);
  if (ev.type==EV_KEY)
    key_state[ev.key]=1;
  else if (ev.type==EV_KEYRELEASE)
    key_state[ev.key]=0;

  if (state==inputing)
  {
    for (ev.window=NULL,j=first; j; j=j->next)
      if (!j->is_hidden() && ev.mouse_move.x>=j->x && ev.mouse_move.y>=j->y &&
          ev.mouse_move.x<j->x+j->l && ev.mouse_move.y<j->y+j->h)
        ev.window=j;

    if (!ev.window && grab) ev.window=grab;

    if (ev.window)
    {
      int closew=0,movew=0;

      if ((ev.type==EV_MOUSE_BUTTON && ev.mouse_button==1 && ev.window &&
       ev.mouse_move.x>=ev.window->x && ev.mouse_move.y>=ev.window->y &&
       ev.mouse_move.x<ev.window->x+ev.window->l && ev.mouse_move.y<ev.window->y+ev.window->y1()))
      {
    if (ev.mouse_move.x-ev.window->x<11) closew=1;
    else if (ev.window->is_moveable()) movew=1;
      } else if (grab)
        ev.window=grab;

      if (ev.type==EV_KEY && ev.key==JK_ESC)
        closew=1;


      if (closew)
        ev.type=EV_CLOSE_WINDOW;
      else if (movew)
      {
    int red=0;
    if (ev.window==first)       // see if we need to raise the window
    {
      first=first->next;
      if (first)
        red=1;
    }
    else
    {
      Jwindow *last=first;
      for (; last->next!=ev.window; last=last->next);
      if (ev.window->next)
        red=1;
      last->next=ev.window->next;
    }
    if (!first)
      first=ev.window;
    else
    {
      Jwindow *last=first;
      for (; last->next; last=last->next);
      last->next=ev.window;
    }
    ev.window->next=NULL;
    if (red)
    {
      Jwindow *j=ev.window;
/*      screen->AddDirty(j->x,j->y,j->x+j->l,j->y+j->h);
      for (p=first; p!=j; p=p->next)
        p->screen->AddDirty(j->x-p->x,j->y-p->y,j->x+j->l-p->x,j->y+j->h-p->y); */
      j->screen->AddDirty(0, 0, j->l, j->h);
      flush_screen();
    }

        state=dragging;
        drag_window=ev.window;
        drag_mousex=ev.window->x-ev.mouse_move.x;
        drag_mousey=ev.window->y-ev.mouse_move.y;
        ev.type=EV_SPURIOUS;
      } else if (ev.window)
        ev.window->inm->handle_event(ev,ev.window);
    }
  } else if (state==dragging)
  {
    ev.window=drag_window;
    if (ev.type==EV_MOUSE_BUTTON && ev.mouse_button==0)  // user released the mouse
    {
      state=inputing;
      ev.type=EV_SPURIOUS;
    } else if (ev.type==EV_MOUSE_MOVE)
    {
       move_window(drag_window,ev.mouse_move.x+drag_mousex,ev.mouse_move.y+drag_mousey);
       flush_screen();
       ev.type=EV_DRAG_WINDOW;
       ev.window_position.x=ev.mouse_move.x+drag_mousex;
       ev.window_position.y=ev.mouse_move.y+drag_mousey;
    }
  }
  if (ev.type == EV_REDRAW)
  {
    for (j=first; j; j=j->next)
       j->screen->AddDirty(ev.redraw.x1 - j->x, ev.redraw.y1 - j->y,
                           ev.redraw.x2 + 1 - j->x, ev.redraw.y2 + 1 - j->y);
    screen->AddDirty(ev.redraw.x1, ev.redraw.y1, ev.redraw.x2 + 1, ev.redraw.y2 + 1);
    flush_screen();
    ev.type=EV_SPURIOUS;   // we took care of this one by ourselves.
  }
}

void Jwindow::resize(int L, int H)
{
  screen->SetSize(vec2i(L,H));
  l=L; h=H;
}

void WindowManager::resize_window(Jwindow *j, int l, int h)
{
  Jwindow *p;
  screen->AddDirty(j->x, j->y, j->x + j->l, j->y + j->h);
  for (p=first; p!=j; p=p->next)
    p->screen->AddDirty(j->x - p->x, j->y - p->y, j->x + j->l - p->x, j->y + j->h - p->y);
  j->resize(l,h);
  if (!frame_suppress)
  j->redraw();
}

void WindowManager::move_window(Jwindow *j, int x, int y)
{
    screen->AddDirty(j->x, j->y, j->x + j->l, j->y + j->h);
    for(Jwindow *p = first; p != j; p = p->next)
        p->screen->AddDirty(j->x - p->x, j->y - p->y,
                            j->x + j->l - p->x, j->y + j->h - p->y);
    j->x = x;
    j->y = y;
    j->screen->AddDirty(0, 0, j->l, j->h);
}

WindowManager::WindowManager(image *Screen, palette *Pal, int Hi,
                             int Med, int Low, JCFont *Font)
{
    wm = this;
    screen = Screen;
    hi = Hi; low = Low; med = Med; first = NULL; pal = Pal; grab = NULL;
    bk = pal->find_closest(0, 0, 0);
    state = inputing; fnt = Font;  wframe_fnt = Font;
    memset(key_state, 0, sizeof(key_state));
    eh = new event_handler(screen, pal);
    frame_suppress = 0;
}

WindowManager::~WindowManager()
{
    delete eh;
    while(first)
        close_window(first);
    wm = NULL;
}

void WindowManager::add_window(Jwindow *win)
{
    if(!first)
        first = win;
    else
    {
        Jwindow *tmp = first;
        while(tmp->next)
            tmp = tmp->next;
        tmp->next = win;
        win->next = NULL;
    }
}

void WindowManager::remove_window(Jwindow *win)
{
    if(grab == win)
        grab = NULL;

    // close the window we were dragging
    if(state == dragging && win == drag_window)
        state = inputing;

    if(first == win)
        first = first->next;
    else
    {
        Jwindow * search;
        for(search = first; search->next != win; search = search->next)
            search->screen->AddDirty(win->x - search->x,
                                     win->y - search->y,
                                     win->x + win->l - search->x,
                                     win->y + win->h - search->y);
        search->screen->AddDirty(win->x - search->x, win->y - search->y,
                                 win->x + win->l - search->x,
                                 win->y + win->h - search->y);
        search->next = win->next;
    }

    screen->AddDirty(win->x, win->y, win->x + win->l, win->y + win->h);
}

Jwindow * WindowManager::new_window(int x, int y, int l, int h,
                                     ifield * fields, char const *name)
{
    if(x > screen->Size().x - 4)
        x = screen->Size().x - 25;
    if(y > screen->Size().y - 4)
        y = screen->Size().y - 10;

    Jwindow * j = new Jwindow (x, y, l, h, fields, name);
    j->show();

    return j;
}

void WindowManager::flush_screen()
{
    Jwindow *p, *q;

    int mx = 0, my = 0;
    image *mouse_pic = NULL, *mouse_save = NULL;

    if(has_mouse())
    {
        mouse_pic = eh->mouse_sprite()->visual;
        mouse_save = eh->mouse_sprite()->save;
        mx = eh->mouse->drawx();
        my = eh->mouse->drawy();

        screen->put_part(mouse_save, 0, 0, mx, my,
                         mx + mouse_pic->Size().x - 1,
                         my + mouse_pic->Size().y - 1);
        mouse_pic->put_image(screen, mx, my, 1);
    }

    for(p = first; p; p = p->next)
        if(!p->is_hidden())
            screen->delete_dirty(p->x, p->y, p->x + p->l, p->y + p->h);
    update_dirty(screen);

    if(has_mouse())
        mouse_save->put_image(screen, mx, my);

    for(p = first; p; p = p->next)
    {
        if(p->is_hidden())
            continue;

        if(has_mouse())
        {
            p->screen->put_part(mouse_save, 0, 0, mx - p->x, my - p->y,
                                mx - p->x + mouse_pic->Size().x - 1,
                                my - p->y + mouse_pic->Size().y - 1);
            if(has_mouse())
                mouse_pic->put_image(p->screen, mx - p->x, my - p->y, 1);
        }

//          screen->delete_dirty(p->x, p->y, p->x+p->l, p->y+p->h);
        for(q = p->next; q; q = q->next)
            if(!q->is_hidden())
                p->screen->delete_dirty(q->x - p->x, q->y - p->y,
                                        q->x + q->l - p->x, q->y + q->h - p->y);
        update_dirty(p->screen, p->x, p->y);
        if(has_mouse())
            mouse_save->put_image(p->screen, mx - p->x, my - p->y, 0);
    }
}

Jwindow::Jwindow(char const *name)
{
    _x1 = left_border();
    _y1 = jw_top + 5;
    _x2 = _y2 = 0;

    _hidden = true;
    _moveable = true;
    // property.flags = JWINDOW_NOAUTOHIDE_FLAG;

    inm = new InputManager(this, NULL);
    reconfigure();

    screen = NULL;
    next = NULL;

    _name = NULL;
    if(name)
        _name = strdup(name);
    wm->add_window(this);
}

Jwindow::Jwindow(int X, int Y, int L, int H, ifield *f, char const *name)
{
    l = 0;
    h = 0;
    _hidden = false;
    _moveable = true;

    _x1 = left_border();
    _y1 = name ? top_border() : jw_top + 5;

    screen = NULL;
    inm = new InputManager(screen, f);
    reconfigure(); /* FIXME: TODO */

    l = L >= 0 ? L + left_border() : l - L;
    h = H >= 0 ? H + top_border() : h - H;
    y = Y >= 0 ? Y : yres - h + Y - top_border() - bottom_border() - 1;
    x = X >= 0 ? X : xres - l + X - left_border() - right_border() - 1;

    backg = wm->medium_color();

    _x2 = l - 1;
    _y2 = h - 1;
    l += right_border();
    h += bottom_border();

    if(L == -1)
        if(l < 15 + left_border() + right_border())
            l = 15 + left_border() + right_border();
    if(H == -1)
        if(h < top_border() + bottom_border())
            h = top_border() + bottom_border();
    screen = new image(vec2i(l, h), NULL, 2);
    screen->clear(backg);
    // Keep this from getting destroyed when image list is cleared
    image_list.unlink(screen);
    inm->screen = screen;

    next = NULL;

    _name = NULL;
    if(name)
        _name = strdup(name);

    wm->add_window(this);
    if(!wm->frame_suppress)
        redraw();
}

Jwindow::~Jwindow()
{
    wm->remove_window(this);
    local_close();
    if(screen)
        delete screen;
    delete inm;
    if(_name)
        free(_name);
}

void Jwindow::reconfigure()
{
    int x1, y1, x2, y2;
    ifield *i;
    l = 2;
    h = 2;
    for(i = inm->first; i; i = i->next)
    {
        i->set_owner(this);
        i->area(x1, y1, x2, y2);
        if ((int)y2 > (int)h)
            h = y2;
        if ((int)x2 > (int)l)
            l = x2;
    }
}

void Jwindow::local_close()
{
    ;
}

void Jwindow::redraw()
{
    int hi = wm->bright_color ();
    int med = wm->medium_color ();
    int low = wm->dark_color ();
    JCFont * fnt = wm->frame_font ();

    if(_name)
    {
        if (right_border() >= 1)
        {
            screen->widget_bar (0, 0, l - 1, h - 1, hi, med, low);
            if (right_border() >= 3)
                screen->widget_bar (right_border() - 1, top_border() - 1,
                                l - left_border(), h - bottom_border(), low,
                                med, hi);

          else
            screen->line (left_border() - 1, top_border() - 1,
                           right_border() - 1, top_border() - 1, low);
        }
      screen->rectangle (2, 2, top_border() - 2, top_border() - 3,
                           wm->black ());
      screen->widget_bar (3, 3, top_border() - 3, top_border() - 4, hi, med, low);     // draws the 'close' button
    }

  else
    {
      if (right_border() >= 1)
        {
          screen->widget_bar (0, 0, l - 1, h - 1, hi, med, low);
          if (right_border() >= 3)
            screen->widget_bar (right_border() - 1, jw_top + 4,
                                l - left_border(), h - bottom_border(), low,
                                med, hi);

          else
            screen->line (left_border() - 1, jw_top + 4, right_border() - 1,
                           jw_top + 4, low);
        }
      screen->rectangle (1, 1, 4, 4, wm->black ());
      screen->widget_bar (2, 2, 3, 3, hi, med, low);   // draws the 'close' button
    }
  if (_name && _name[0])
    {
      screen->bar (top_border(), 1,
                    top_border() + fnt->width() * strlen (_name) + 1,
                    top_border() - 2, med);
      fnt->put_string (screen, top_border() + 1, 1, _name, low);
    }
  screen->bar (x1 (), y1 (), x2 (), y2 (), backg);  // clear 'client' region
  inm->redraw ();
}

int Jwindow::left_border()
{
    return frame_left();
}

int Jwindow::right_border()
{
    return frame_right();
}

int Jwindow::top_border()
{
    return wm->font()->height() + frame_top();
}

int Jwindow::bottom_border()
{
    return frame_bottom();
}


ifield *InputManager::unlink(int id)     // unlinks ID from fields list and return the pointer to it
{
  for (ifield *i=first,*last=NULL; i; i=i->next)
  {
    if (i->id==id)
    {
      if (i==first)
    first=first->next;
      else
        last->next=i->next;
      if (active==i)
        active=first;
      return i;
    }
    ifield *x=i->unlink(id);
    if (x) return x;
    last=i;
  }
  return NULL;   // no such id
}

InputManager::~InputManager()
{ ifield *i;
  while (first)
  { i=first;
    first=first->next;
    delete i;
  }
}

void InputManager::clear_current()
{
    if(owner)
        screen = owner->screen;
    if(active)
        active->draw(0, screen);
    active = NULL;
}

void InputManager::handle_event(event &ev, Jwindow *j)
{
  ifield *i,*in_area=NULL;
  int x1,y1,x2,y2;

  if(owner)
      screen = owner->screen;

  if (j)
  {
    ev.mouse_move.x-=j->x;
    ev.mouse_move.y-=j->y;
    cur=j;
  }

  if (!grab)
  {
    if ((ev.type==EV_MOUSE_BUTTON && ev.mouse_button==1) || ev.type==EV_MOUSE_MOVE)
    {
      for (i=first; i; i=i->next)
      {
    i->area(x1,y1,x2,y2);
    if (ev.mouse_move.x>=x1 && ev.mouse_move.y>=y1 &&
        ev.mouse_move.x<=x2 && ev.mouse_move.y<=y2)
        in_area=i;
      }
      if (in_area!=active && (no_selections_allowed || (in_area && in_area->selectable())))
      {
    if (active)
          active->draw(0,screen);

    active=in_area;

    if (active)
      active->draw(1,screen);
      }
    }
    if (ev.type==EV_KEY && ev.key==JK_TAB && active)
    {
      active->draw(0,screen);
      do
      {
    active=active->next;
    if (!active) active=first;
      } while (active && !active->selectable());
      active->draw(1,screen);
    }
  } else active=grab;

  if (active)
  {
    if (ev.type!=EV_MOUSE_MOVE && ev.type!=EV_MOUSE_BUTTON)
      active->handle_event(ev,screen,this);
    else
    {
      active->area(x1,y1,x2,y2);
      if (grab || (ev.mouse_move.x>=x1 && ev.mouse_move.y>=y1 &&
          ev.mouse_move.x<=x2 && ev.mouse_move.y<=y2))
      {
    if (j)
      active->handle_event(ev,screen,j->inm);
    else active->handle_event(ev,screen,this);
      }
    }
  }

  if (j)
  {
    ev.mouse_move.x+=j->x;
    ev.mouse_move.y+=j->y;
  }
}

void InputManager::allow_no_selections()
{
  no_selections_allowed=1;
}

void InputManager::redraw()
{
    ifield *i;
    if(owner)
        screen = owner->screen;
    for(i = first; i; i = i->next)
        i->draw_first(screen);
    if(active)
        active->draw(1, screen);
}

InputManager::InputManager(image *Screen, ifield *First)
{
    no_selections_allowed = 0;
    cur = NULL;
    grab = NULL;
    owner = NULL;
    screen = Screen;
    active = first = First;
    while(active && !active->selectable())
        active = active->next;
    if(screen)
        redraw();
}

InputManager::InputManager(Jwindow *Owner, ifield *First)
{
    no_selections_allowed = 0;
    cur = NULL;
    grab = NULL;
    owner = Owner;
    screen = NULL;
    active = first = First;
    while(active && !active->selectable())
        active = active->next;
}

void InputManager::grab_focus(ifield *i)
{ grab=i;
  if (cur)
    wm->grab_focus(cur);
}

void InputManager::release_focus()
{ grab=NULL;
  if (cur)
    wm->release_focus();
}

void InputManager::remap(Filter *f)
{
  for (ifield *i=first; i; i=i->next)
   i->remap(f);
  redraw();
}

void InputManager::add(ifield *i)
{ ifield *f=first;
  if (i->selectable())
  {
    if (!f)
      first=i;
    else
    {
      while (f->next) f=f->next;
      f->next=i;
    }
  }
}

ifield *InputManager::get(int id)
{
  ifield *f;
  for (f=first; f; f=f->next)
  {
    ifield *ret=f->find(id);
    if (ret) return ret;
  }
  return NULL;
}

ifield::ifield()
{
    owner = NULL;
    x = 0;
    y = 0;
    next = NULL;
    id = 0;
}

ifield::~ifield()
{
    ;
}

/* re-position the control with respect to the "client" area of the window */
void ifield::set_owner(Jwindow * newowner)
{
    if(owner)
        move(x - owner->x1(), y - owner->y1());
    owner = newowner;
    if(owner)
        move(x + owner->x1(), y + owner->y1());
}