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         sc = screen->clipr;
  27         replclipr(screen, 0, screen->r);
  28
  29         if(m) o = m->xy;
  30
  31         if(buf && len > 0)
  32                 n = strlen(buf);
  33         else {
  34                 buf = nil;
  35                 len = 0;
  36                 n = 0;
  37         }
  38
  39         k = -1;
  40         b = screen;
  41         tick = n;
  42         save = nil;
  43         done = down = 0;
  44
  45         p = stringsize(font, " ");
  46         h = p.y;
  47         w = p.x;
  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                 switch(eread(i, &ev)){
 102                 default:
 103                         done = 1;
 104                         n = -1;
 105                         break;
 106                 case Ekeyboard:
 107                         k = ev.kbdc;
 108                         if(buf == nil || k == Keof || k == '\n'){
 109                                 done = 1;
 110                                 break;
 111                         }
 112                         if(k == Knack || k == Kesc){
 113                                 done = !n;
 114                                 buf[n = tick = 0] = 0;
 115                                 break;
 116                         }
 117                         if(k == Ksoh || k == Khome){
 118                                 tick = 0;
 119                                 continue;
 120                         }
 121                         if(k == Kenq || k == Kend){
 122                                 tick = n;
 123                                 continue;
 124                         }
 125                         if(k == Kright){
 126                                 if(tick < n)
 127                                         tick += chartorune(&k, buf+tick);
 128                                 continue;
 129                         }
 130                         if(k == Kleft){
 131                                 for(i = 0; i < n; i += l){
 132                                         l = chartorune(&k, buf+tick);
 133                                         if(i+l >= tick){
 134                                                 tick = i;
 135                                                 break;
 136                                         }
 137                                 }
 138                                 continue;
 139                         }
 140                         if(k == Kbs){
 141                                 if(tick <= 0)
 142                                         continue;
 143                                 for(i = 0; i < n; i += l){
 144                                         l = chartorune(&k, buf+i);
 145                                         if(i+l >= tick){
 146                                                 memmove(buf+i, buf+i+l, n - (i+l));
 147                                                 buf[n -= l] = 0;
 148                                                 tick -= l;
 149                                                 break;
 150                                         }
 151                                 }
 152                                 break;
 153                         }
 154                         if(k < 0x20 || k == Kdel || (k & 0xFF00) == KF || (k & 0xFF00) == Spec)
 155                                 continue;
 156                         if((len-n) <= (l = runelen(k)))
 157                                 continue;
 158                         memmove(buf+tick+l, buf+tick, n - tick);
 159                         runetochar(buf+tick, &k);
 160                         buf[n += l] = 0;
 161                         tick += l;
 162                         break;
 163                 case Emouse:
 164                         *m = ev.mouse;
 165                         if(!ptinrect(m->xy, r)){
 166                                 down = 0;
 167                                 continue;
 168                         }
 169                         if(m->buttons & 7){
 170                                 down = 1;
 171                                 if(buf && m->xy.x >= (t.x - w)){
 172                                         down = 0;
 173                                         for(i = 0; i < n; i += l){
 174                                                 l = chartorune(&k, buf+i);
 175                                                 t.x += stringnwidth(font, buf+i, 1);
 176                                                 if(t.x > m->xy.x)
 177                                                         break;
 178                                         }
 179                                         tick = i;
 180                                 }
 181                                 continue;
 182                         }
 183                         done = down;
 184                         break;
 185                 }
 186
 187                 draw(b, save->r, save, nil, save->r.min);
 188                 freeimage(save);
 189                 save = nil;
 190         }
 191
 192         replclipr(screen, 0, sc);
 193
 194         freeimage(backcol);
 195         freeimage(bordcol);
 196         flushimage(display, 1);
 197
 198         return n;
 199 }
 200