sys/src/libdraw/eenter.c

   1 #include <u.h>
   2 #include <libc.h>
   3 #include <draw.h>
   4 #include <event.h>
   5 #include <keyboard.h>
   6
   7 int
   8 eenter(char *ask, char *buf, int len, Mouse *m)
   9 {
  10         int done, down, tick, n, h, w, l, i;
  11         Image *b, *save, *backcol, *bordcol;
  12         Point p, o, t;
  13         Rectangle r, sc;
  14         Event ev;
  15         Rune k;
  16
  17         o = screen->r.min;
  18         backcol = allocimagemix(display, DPurpleblue, DWhite);
  19         bordcol = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DPurpleblue);
  20         if(backcol == nil || bordcol == nil)
  21                 return -1;
  22
  23         while(ecankbd())
  24                 ekbd();
  25
  26         if(m) o = m->xy;
  27
  28         if(buf && len > 0)
  29                 n = strlen(buf);
  30         else {
  31                 buf = nil;
  32                 len = 0;
  33                 n = 0;
  34         }
  35
  36         k = -1;
  37         tick = n;
  38         save = nil;
  39         done = down = 0;
  40
  41         p = stringsize(font, " ");
  42         h = p.y;
  43         w = p.x;
  44
  45         b = screen;
  46         sc = b->clipr;
  47         replclipr(b, 0, b->r);
  48
  49         while(!done){
  50                 p = stringsize(font, buf ? buf : "");
  51                 if(ask && ask[0]){
  52                         if(buf) p.x += w;
  53                         p.x += stringwidth(font, ask);
  54                 }
  55                 r = rectaddpt(insetrect(Rpt(ZP, p), -4), o);
  56                 p.x = 0;
  57                 r = rectsubpt(r, p);
  58
  59                 p = ZP;
  60                 if(r.min.x < screen->r.min.x)
  61                         p.x = screen->r.min.x - r.min.x;
  62                 if(r.min.y < screen->r.min.y)
  63                         p.y = screen->r.min.y - r.min.y;
  64                 r = rectaddpt(r, p);
  65                 p = ZP;
  66                 if(r.max.x > screen->r.max.x)
  67                         p.x = r.max.x - screen->r.max.x;
  68                 if(r.max.y > screen->r.max.y)
  69                         p.y = r.max.y - screen->r.max.y;
  70                 r = rectsubpt(r, p);
  71
  72                 r = insetrect(r, -2);
  73                 if(save == nil){
  74                         save = allocimage(display, r, b->chan, 0, DNofill);
  75                         if(save == nil){
  76                                 n = -1;
  77                                 break;
  78                         }
  79                         draw(save, r, b, nil, r.min);
  80                 }
  81                 draw(b, r, backcol, nil, ZP);
  82                 border(b, r, 2, bordcol, ZP);
  83                 p = addpt(r.min, Pt(6, 6));
  84                 if(ask && ask[0]){
  85                         p = string(b, p, bordcol, ZP, font, ask);
  86                         if(buf) p.x += w;
  87                 }
  88                 if(buf){
  89                         t = p;
  90                         p = stringn(b, p, display->black, ZP, font, buf, utfnlen(buf, tick));
  91                         draw(b, Rect(p.x-1, p.y, p.x+2, p.y+3), display->black, nil, ZP);
  92                         draw(b, Rect(p.x, p.y, p.x+1, p.y+h), display->black, nil, ZP);
  93                         draw(b, Rect(p.x-1, p.y+h-3, p.x+2, p.y+h), display->black, nil, ZP);
  94                         p = string(b, p, display->black, ZP, font, buf+tick);
  95                 }
  96                 flushimage(display, 1);
  97
  98                 i = Ekeyboard;
  99                 if(m != nil)
 100                         i |= Emouse;
 101
 102                 replclipr(b, 0, sc);
 103                 i = eread(i, &ev);
 104
 105                 /* screen might have been resized */
 106                 if(b != screen || !eqrect(screen->clipr, sc)){
 107                         freeimage(save);
 108                         save = nil;
 109                 }
 110                 b = screen;
 111                 sc = b->clipr;
 112                 replclipr(b, 0, b->r);
 113
 114                 switch(i){
 115                 default:
 116                         done = 1;
 117                         n = -1;
 118                         break;
 119                 case Ekeyboard:
 120                         k = ev.kbdc;
 121                         if(buf == nil || k == Keof || k == '\n'){
 122                                 done = 1;
 123                                 break;
 124                         }
 125                         if(k == Knack || k == Kesc){
 126                                 done = !n;
 127                                 buf[n = tick = 0] = 0;
 128                                 break;
 129                         }
 130                         if(k == Ksoh || k == Khome){
 131                                 tick = 0;
 132                                 continue;
 133                         }
 134                         if(k == Kenq || k == Kend){
 135                                 tick = n;
 136                                 continue;
 137                         }
 138                         if(k == Kright){
 139                                 if(tick < n)
 140                                         tick += chartorune(&k, buf+tick);
 141                                 continue;
 142                         }
 143                         if(k == Kleft){
 144                                 for(i = 0; i < n; i += l){
 145                                         l = chartorune(&k, buf+tick);
 146                                         if(i+l >= tick){
 147                                                 tick = i;
 148                                                 break;
 149                                         }
 150                                 }
 151                                 continue;
 152                         }
 153                         if(k == Ketb){
 154                                 while(tick > 0){
 155                                         buf[--tick] = 0;
 156                                         if(tick == 0 || strchr("\t ", buf[tick-1]))
 157                                                 break;
 158                                 }
 159                                 n = tick;
 160                                 break;
 161                         }
 162                         if(k == Kbs){
 163                                 if(tick <= 0)
 164                                         continue;
 165                                 for(i = 0; i < n; i += l){
 166                                         l = chartorune(&k, buf+i);
 167                                         if(i+l >= tick){
 168                                                 memmove(buf+i, buf+i+l, n - (i+l));
 169                                                 buf[n -= l] = 0;
 170                                                 tick -= l;
 171                                                 break;
 172                                         }
 173                                 }
 174                                 break;
 175                         }
 176                         if(k < 0x20 || k == Kdel || (k & 0xFF00) == KF || (k & 0xFF00) == Spec)
 177                                 continue;
 178                         if((len-n) <= (l = runelen(k)))
 179                                 continue;
 180                         memmove(buf+tick+l, buf+tick, n - tick);
 181                         runetochar(buf+tick, &k);
 182                         buf[n += l] = 0;
 183                         tick += l;
 184                         break;
 185                 case Emouse:
 186                         *m = ev.mouse;
 187                         if(!ptinrect(m->xy, r)){
 188                                 down = 0;
 189                                 continue;
 190                         }
 191                         if(m->buttons & 7){
 192                                 down = 1;
 193                                 if(buf && m->xy.x >= (t.x - w)){
 194                                         down = 0;
 195                                         for(i = 0; i < n; i += l){
 196                                                 l = chartorune(&k, buf+i);
 197                                                 t.x += stringnwidth(font, buf+i, 1);
 198                                                 if(t.x > m->xy.x)
 199                                                         break;
 200                                         }
 201                                         tick = i;
 202                                 }
 203                                 continue;
 204                         }
 205                         done = down;
 206                         break;
 207                 }
 208                 if(save){
 209                         draw(b, save->r, save, nil, save->r.min);
 210                         freeimage(save);
 211                         save = nil;
 212                 }
 213         }
 214
 215         replclipr(b, 0, sc);
 216
 217         freeimage(backcol);
 218         freeimage(bordcol);
 219         flushimage(display, 1);
 220
 221         return n;
 222 }
 223