00000000  23 69 6e 63 6c 75 64 65  20 22 73 61 76 65 61 73  |#include "saveas|
00000010  2e 68 22 0a 23 69 6e 63  6c 75 64 65 20 22 73 70  |.h".#include "sp|
00000020  72 69 74 65 2e 68 22 0a  23 69 6e 63 6c 75 64 65  |rite.h".#include|
00000030  20 22 65 76 65 6e 74 2e  68 22 0a 23 69 6e 63 6c  | "event.h".#incl|
00000040  75 64 65 20 22 77 65 72  72 2e 68 22 0a 23 69 6e  |ude "werr.h".#in|
00000050  63 6c 75 64 65 20 22 77  69 6d 70 74 2e 68 22 0a  |clude "wimpt.h".|
00000060  23 69 6e 63 6c 75 64 65  20 22 6d 65 6e 75 2e 68  |#include "menu.h|
00000070  22 0a 23 69 6e 63 6c 75  64 65 20 22 77 69 6e 2e  |".#include "win.|
00000080  68 22 0a 23 69 6e 63 6c  75 64 65 20 22 62 61 72  |h".#include "bar|
00000090  69 63 6f 6e 2e 68 22 0a  23 69 6e 63 6c 75 64 65  |icon.h".#include|
000000a0  20 22 66 6c 65 78 2e 68  22 0a 23 69 6e 63 6c 75  | "flex.h".#inclu|
000000b0  64 65 20 22 64 62 6f 78  2e 68 22 0a 23 69 6e 63  |de "dbox.h".#inc|
000000c0  6c 75 64 65 20 22 74 65  6d 70 6c 61 74 65 2e 68  |lude "template.h|
000000d0  22 0a 23 69 6e 63 6c 75  64 65 20 22 74 72 61 63  |".#include "trac|
000000e0  65 2e 68 22 0a 23 69 6e  63 6c 75 64 65 20 22 72  |e.h".#include "r|
000000f0  65 73 2e 68 22 0a 23 69  6e 63 6c 75 64 65 20 22  |es.h".#include "|
00000100  72 65 73 73 70 72 2e 68  22 0a 23 69 6e 63 6c 75  |resspr.h".#inclu|
00000110  64 65 20 22 62 62 63 2e  68 22 0a 23 69 6e 63 6c  |de "bbc.h".#incl|
00000120  75 64 65 20 22 6d 61 67  6e 69 66 79 2e 68 22 0a  |ude "magnify.h".|
00000130  23 69 6e 63 6c 75 64 65  20 22 77 69 6d 70 2e 68  |#include "wimp.h|
00000140  22 0a 23 69 6e 63 6c 75  64 65 20 22 64 72 61 77  |".#include "draw|
00000150  66 64 69 61 67 2e 68 22  0a 23 69 6e 63 6c 75 64  |fdiag.h".#includ|
00000160  65 20 22 64 72 61 77 66  6f 62 6a 2e 68 22 0a 23  |e "drawfobj.h".#|
00000170  69 6e 63 6c 75 64 65 20  22 64 72 61 77 6d 6f 64  |include "drawmod|
00000180  2e 68 22 0a 23 69 6e 63  6c 75 64 65 20 22 78 66  |.h".#include "xf|
00000190  65 72 72 65 63 76 2e 68  22 0a 23 69 6e 63 6c 75  |errecv.h".#inclu|
000001a0  64 65 20 22 78 66 65 72  73 65 6e 64 2e 68 22 0a  |de "xfersend.h".|
000001b0  23 69 6e 63 6c 75 64 65  20 22 76 69 73 64 65 6c  |#include "visdel|
000001c0  61 79 2e 68 22 0a 23 69  6e 63 6c 75 64 65 20 3c  |ay.h".#include <|
000001d0  73 74 64 6c 69 62 2e 68  3e 0a 23 69 6e 63 6c 75  |stdlib.h>.#inclu|
000001e0  64 65 20 3c 73 74 72 69  6e 67 2e 68 3e 0a 0a 0a  |de <string.h>...|
000001f0  74 79 70 65 64 65 66 20  65 6e 75 6d 0a 20 7b 0a  |typedef enum. {.|
00000200  20 4d 6d 61 69 6e 5f 69  6e 66 6f 3d 31 2c 4d 6d  | Mmain_info=1,Mm|
00000210  61 69 6e 5f 7a 6f 6f 6d  2c 4d 6d 61 69 6e 5f 73  |ain_zoom,Mmain_s|
00000220  61 76 65 2c 4d 6d 61 69  6e 5f 71 75 69 74 0a 20  |ave,Mmain_quit. |
00000230  7d 20 4d 6d 61 69 6e 3b  0a 0a 73 74 72 75 63 74  |} Mmain;..struct|
00000240  0a 20 7b 0a 20 77 69 6d  70 5f 77 20 57 6d 61 69  |. {. wimp_w Wmai|
00000250  6e 2c 57 73 61 76 65 3b  0a 20 6d 65 6e 75 20 4d  |n,Wsave;. menu M|
00000260  6d 61 69 6e 2c 4d 6d 61  69 6e 5f 73 3b 0a 20 42  |main,Mmain_s;. B|
00000270  4f 4f 4c 20 6c 6f 61 64  65 64 3b 0a 20 64 72 61  |OOL loaded;. dra|
00000280  77 5f 64 69 61 67 20 64  72 61 77 3b 0a 20 63 68  |w_diag draw;. ch|
00000290  61 72 20 74 69 74 6c 65  5b 32 35 36 5d 3b 0a 20  |ar title[256];. |
000002a0  63 68 61 72 20 73 61 76  65 5b 32 35 36 5d 3b 0a  |char save[256];.|
000002b0  20 64 62 6f 78 20 57 69  6e 66 6f 3b 0a 20 69 6e  | dbox Winfo;. in|
000002c0  74 20 6d 61 67 6d 75 6c  2c 6d 61 67 64 69 76 3b  |t magmul,magdiv;|
000002d0  0a 20 7d 20 58 3b 0a 0a  65 78 74 65 72 6e 20 42  |. } X;..extern B|
000002e0  4f 4f 4c 20 71 75 69 74  20 3d 20 46 41 4c 53 45  |OOL quit = FALSE|
000002f0  3b 0a 0a 0a 0a 76 6f 69  64 20 64 72 61 77 5f 74  |;....void draw_t|
00000300  6f 5f 73 70 72 69 74 65  28 73 70 72 69 74 65 5f  |o_sprite(sprite_|
00000310  61 72 65 61 20 2a 73 61  72 65 61 2c 69 6e 74 20  |area *sarea,int |
00000320  2a 69 64 29 0a 20 7b 0a  20 69 6e 74 20 72 30 2c  |*id). {. int r0,|
00000330  72 31 2c 72 32 2c 72 33  3b 0a 20 77 69 6d 70 5f  |r1,r2,r3;. wimp_|
00000340  72 65 64 72 61 77 73 74  72 20 72 3b 0a 20 77 69  |redrawstr r;. wi|
00000350  6d 70 5f 77 69 6e 66 6f  20 77 3b 0a 20 64 72 61  |mp_winfo w;. dra|
00000360  77 5f 64 69 61 67 20 2a  64 20 3d 20 26 58 2e 64  |w_diag *d = &X.d|
00000370  72 61 77 3b 0a 20 64 72  61 77 5f 65 72 72 6f 72  |raw;. draw_error|
00000380  20 65 72 72 6f 72 3b 0a  20 64 6f 75 62 6c 65 20  | error;. double |
00000390  6d 61 67 20 3d 20 28 64  6f 75 62 6c 65 29 20 58  |mag = (double) X|
000003a0  2e 6d 61 67 6d 75 6c 20  2f 20 28 64 6f 75 62 6c  |.magmul / (doubl|
000003b0  65 29 20 58 2e 6d 61 67  64 69 76 3b 0a 20 77 2e  |e) X.magdiv;. w.|
000003c0  77 20 3d 20 58 2e 57 6d  61 69 6e 3b 0a 20 77 69  |w = X.Wmain;. wi|
000003d0  6d 70 5f 67 65 74 5f 77  69 6e 64 5f 69 6e 66 6f  |mp_get_wind_info|
000003e0  28 26 77 29 3b 0a 20 72  2e 77 20 3d 20 77 2e 77  |(&w);. r.w = w.w|
000003f0  3b 0a 20 77 2e 69 6e 66  6f 2e 62 6f 78 2e 78 31  |;. w.info.box.x1|
00000400  20 2d 3d 20 77 2e 69 6e  66 6f 2e 62 6f 78 2e 78  | -= w.info.box.x|
00000410  30 3b 0a 20 77 2e 69 6e  66 6f 2e 62 6f 78 2e 79  |0;. w.info.box.y|
00000420  31 20 2d 3d 20 77 2e 69  6e 66 6f 2e 62 6f 78 2e  |1 -= w.info.box.|
00000430  79 30 3b 0a 20 77 2e 69  6e 66 6f 2e 62 6f 78 2e  |y0;. w.info.box.|
00000440  78 30 20 3d 20 30 3b 0a  20 77 2e 69 6e 66 6f 2e  |x0 = 0;. w.info.|
00000450  62 6f 78 2e 79 30 20 3d  20 30 3b 0a 20 72 2e 62  |box.y0 = 0;. r.b|
00000460  6f 78 20 3d 20 72 2e 67  20 3d 20 77 2e 69 6e 66  |ox = r.g = w.inf|
00000470  6f 2e 62 6f 78 3b 0a 20  72 2e 73 63 78 20 3d 20  |o.box;. r.scx = |
00000480  77 2e 69 6e 66 6f 2e 73  63 78 3b 0a 20 72 2e 73  |w.info.scx;. r.s|
00000490  63 79 20 3d 20 77 2e 69  6e 66 6f 2e 73 63 79 3b  |cy = w.info.scy;|
000004a0  0a 20 62 62 63 5f 6d 6f  76 65 28 30 2c 30 29 3b  |. bbc_move(0,0);|
000004b0  0a 20 6f 73 5f 73 77 69  34 72 28 30 78 32 65 2c  |. os_swi4r(0x2e,|
000004c0  30 78 31 33 63 2c 28 69  6e 74 29 20 73 61 72 65  |0x13c,(int) sare|
000004d0  61 2c 28 69 6e 74 29 20  69 64 2c 30 2c 26 72 30  |a,(int) id,0,&r0|
000004e0  2c 26 72 31 2c 26 72 32  2c 26 72 33 29 3b 0a 20  |,&r1,&r2,&r3);. |
000004f0  64 72 61 77 5f 72 65 6e  64 65 72 5f 64 69 61 67  |draw_render_diag|
00000500  28 64 2c 28 64 72 61 77  5f 72 65 64 72 61 77 73  |(d,(draw_redraws|
00000510  74 72 20 2a 29 26 72 2c  6d 61 67 2c 26 65 72 72  |tr *)&r,mag,&err|
00000520  6f 72 29 3b 0a 20 6f 73  5f 73 77 69 34 28 30 78  |or);. os_swi4(0x|
00000530  32 65 2c 72 30 2c 72 31  2c 72 32 2c 72 33 29 3b  |2e,r0,r1,r2,r3);|
00000540  0a 20 7d 0a 0a 0a 0a 42  4f 4f 4c 20 73 61 76 65  |. }....BOOL save|
00000550  5f 73 70 72 69 74 65 28  63 68 61 72 20 2a 66 69  |_sprite(char *fi|
00000560  6c 65 2c 76 6f 69 64 20  2a 68 29 0a 20 7b 0a 20  |le,void *h). {. |
00000570  73 70 72 69 74 65 5f 61  72 65 61 20 2a 73 61 72  |sprite_area *sar|
00000580  65 61 3b 0a 20 73 70 72  69 74 65 5f 69 64 20 69  |ea;. sprite_id i|
00000590  64 3b 0a 20 73 70 72 69  74 65 5f 70 74 72 20 2a  |d;. sprite_ptr *|
000005a0  70 74 72 3b 0a 20 66 6c  65 78 5f 70 74 72 20 61  |ptr;. flex_ptr a|
000005b0  6e 63 68 6f 72 3b 0a 20  69 6e 74 20 64 78 20 3d  |nchor;. int dx =|
000005c0  20 77 69 6d 70 74 5f 64  78 28 29 2c 64 79 20 3d  | wimpt_dx(),dy =|
000005d0  20 77 69 6d 70 74 5f 64  79 28 29 3b 0a 20 69 6e  | wimpt_dy();. in|
000005e0  74 20 78 73 2c 79 73 3b  0a 20 77 69 6d 70 5f 77  |t xs,ys;. wimp_w|
000005f0  73 74 61 74 65 20 77 6f  73 3b 0a 20 63 68 61 72  |state wos;. char|
00000600  20 6c 65 61 66 5b 31 33  5d 20 3d 20 22 64 72 61  | leaf[13] = "dra|
00000610  77 73 70 72 69 74 65 22  3b 0a 20 73 74 72 63 70  |wsprite";. strcp|
00000620  79 28 58 2e 73 61 76 65  2c 66 69 6c 65 29 3b 0a  |y(X.save,file);.|
00000630  20 77 69 6d 70 74 5f 63  6f 6d 70 6c 61 69 6e 28  | wimpt_complain(|
00000640  77 69 6d 70 5f 67 65 74  5f 77 69 6e 64 5f 73 74  |wimp_get_wind_st|
00000650  61 74 65 28 58 2e 57 6d  61 69 6e 2c 26 77 6f 73  |ate(X.Wmain,&wos|
00000660  29 29 3b 0a 20 69 66 20  28 68 29 3b 0a 20 73 61  |));. if (h);. sa|
00000670  76 65 61 73 5f 72 65 61  64 5f 6c 65 61 66 6e 61  |veas_read_leafna|
00000680  6d 65 5f 64 75 72 69 6e  67 5f 73 65 6e 64 28 6c  |me_during_send(l|
00000690  65 61 66 2c 31 33 29 3b  0a 20 69 64 2e 73 2e 6e  |eaf,13);. id.s.n|
000006a0  61 6d 65 20 3d 20 6c 65  61 66 3b 0a 20 69 64 2e  |ame = leaf;. id.|
000006b0  74 61 67 20 3d 20 73 70  72 69 74 65 5f 69 64 5f  |tag = sprite_id_|
000006c0  6e 61 6d 65 3b 0a 20 78  73 20 3d 20 28 77 6f 73  |name;. xs = (wos|
000006d0  2e 6f 2e 62 6f 78 2e 78  31 20 2d 20 77 6f 73 2e  |.o.box.x1 - wos.|
000006e0  6f 2e 62 6f 78 2e 78 30  29 20 2f 20 64 78 20 2b  |o.box.x0) / dx +|
000006f0  20 31 3b 0a 20 79 73 20  3d 20 28 77 6f 73 2e 6f  | 1;. ys = (wos.o|
00000700  2e 62 6f 78 2e 79 31 20  2d 20 77 6f 73 2e 6f 2e  |.box.y1 - wos.o.|
00000710  62 6f 78 2e 79 30 29 20  2f 20 64 79 20 2b 20 31  |box.y0) / dy + 1|
00000720  3b 0a 20 69 66 20 28 21  66 6c 65 78 5f 61 6c 6c  |;. if (!flex_all|
00000730  6f 63 28 61 6e 63 68 6f  72 2c 78 73 2a 79 73 2a  |oc(anchor,xs*ys*|
00000740  32 2b 31 30 32 34 29 29  0a 20 20 20 7b 0a 20 20  |2+1024)).   {.  |
00000750  20 77 65 72 72 28 30 2c  22 43 61 6e 6e 6f 74 20  | werr(0,"Cannot |
00000760  61 6c 6c 6f 63 61 74 65  20 65 6e 6f 75 67 68 20  |allocate enough |
00000770  6d 65 6d 6f 72 79 20 66  6f 72 20 73 70 72 69 74  |memory for sprit|
00000780  65 22 29 3b 0a 20 20 20  72 65 74 75 72 6e 20 46  |e");.   return F|
00000790  41 4c 53 45 3b 0a 20 20  20 7d 0a 20 73 61 72 65  |ALSE;.   }. sare|
000007a0  61 20 3d 20 2a 61 6e 63  68 6f 72 3b 0a 20 73 61  |a = *anchor;. sa|
000007b0  72 65 61 2d 3e 73 70 72  6f 66 66 20 3d 20 31 36  |rea->sproff = 16|
000007c0  3b 0a 20 73 70 72 69 74  65 5f 61 72 65 61 5f 69  |;. sprite_area_i|
000007d0  6e 69 74 69 61 6c 69 73  65 28 73 61 72 65 61 2c  |nitialise(sarea,|
000007e0  78 73 2a 79 73 2a 32 2b  35 31 32 29 3b 0a 20 73  |xs*ys*2+512);. s|
000007f0  70 72 69 74 65 5f 63 72  65 61 74 65 5f 72 70 28  |prite_create_rp(|
00000800  73 61 72 65 61 2c 6c 65  61 66 2c 54 52 55 45 2c  |sarea,leaf,TRUE,|
00000810  78 73 2d 31 2c 79 73 2d  31 2c 77 69 6d 70 74 5f  |xs-1,ys-1,wimpt_|
00000820  6d 6f 64 65 28 29 2c 70  74 72 29 3b 0a 20 64 72  |mode(),ptr);. dr|
00000830  61 77 5f 74 6f 5f 73 70  72 69 74 65 28 73 61 72  |aw_to_sprite(sar|
00000840  65 61 2c 28 69 6e 74 20  2a 29 2a 70 74 72 29 3b  |ea,(int *)*ptr);|
00000850  0a 20 73 70 72 69 74 65  5f 61 72 65 61 5f 73 61  |. sprite_area_sa|
00000860  76 65 28 73 61 72 65 61  2c 58 2e 73 61 76 65 29  |ve(sarea,X.save)|
00000870  3b 0a 20 66 6c 65 78 5f  66 72 65 65 28 61 6e 63  |;. flex_free(anc|
00000880  68 6f 72 29 3b 0a 20 72  65 74 75 72 6e 20 54 52  |hor);. return TR|
00000890  55 45 3b 0a 20 7d 0a 0a  0a 0a 76 6f 69 64 20 72  |UE;. }....void r|
000008a0  65 64 72 61 77 5f 77 69  6e 28 77 69 6d 70 5f 77  |edraw_win(wimp_w|
000008b0  20 68 61 6e 64 6c 65 29  0a 20 7b 0a 20 69 6e 74  | handle). {. int|
000008c0  20 6d 6f 72 65 3b 0a 20  64 6f 75 62 6c 65 20 6d  | more;. double m|
000008d0  61 67 20 3d 20 28 64 6f  75 62 6c 65 29 20 58 2e  |ag = (double) X.|
000008e0  6d 61 67 6d 75 6c 20 2f  20 28 64 6f 75 62 6c 65  |magmul / (double|
000008f0  29 20 58 2e 6d 61 67 64  69 76 3b 0a 20 77 69 6d  |) X.magdiv;. wim|
00000900  70 5f 72 65 64 72 61 77  73 74 72 20 72 3b 0a 20  |p_redrawstr r;. |
00000910  42 4f 4f 4c 20 65 72 72  6f 72 73 20 3d 20 46 41  |BOOL errors = FA|
00000920  4c 53 45 3b 0a 20 42 4f  4f 4c 20 6c 6f 61 64 65  |LSE;. BOOL loade|
00000930  64 20 3d 20 58 2e 6c 6f  61 64 65 64 3b 0a 20 64  |d = X.loaded;. d|
00000940  72 61 77 5f 64 69 61 67  20 2a 64 20 3d 20 26 58  |raw_diag *d = &X|
00000950  2e 64 72 61 77 3b 0a 20  72 2e 77 20 3d 20 68 61  |.draw;. r.w = ha|
00000960  6e 64 6c 65 3b 0a 20 77  69 6d 70 74 5f 6e 6f 65  |ndle;. wimpt_noe|
00000970  72 72 28 77 69 6d 70 5f  72 65 64 72 61 77 5f 77  |rr(wimp_redraw_w|
00000980  69 6e 64 28 26 72 2c 26  6d 6f 72 65 29 29 3b 0a  |ind(&r,&more));.|
00000990  20 77 68 69 6c 65 20 28  6d 6f 72 65 29 0a 20 20  | while (more).  |
000009a0  20 7b 0a 20 20 20 64 72  61 77 5f 65 72 72 6f 72  | {.   draw_error|
000009b0  20 65 72 72 6f 72 3b 0a  20 20 20 69 66 20 28 6c  | error;.   if (l|
000009c0  6f 61 64 65 64 20 26 26  20 64 2d 3e 64 61 74 61  |oaded && d->data|
000009d0  20 21 3d 20 4e 55 4c 4c  29 0a 20 20 20 20 20 7b  | != NULL).     {|
000009e0  0a 20 20 20 20 20 69 66  20 28 21 64 72 61 77 5f  |.     if (!draw_|
000009f0  72 65 6e 64 65 72 5f 64  69 61 67 28 64 2c 28 64  |render_diag(d,(d|
00000a00  72 61 77 5f 72 65 64 72  61 77 73 74 72 20 2a 29  |raw_redrawstr *)|
00000a10  26 72 2c 6d 61 67 2c 26  65 72 72 6f 72 29 29 0a  |&r,mag,&error)).|
00000a20  20 20 20 20 20 20 20 65  72 72 6f 72 73 20 3d 20  |       errors = |
00000a30  54 52 55 45 3b 0a 20 20  20 20 20 7d 0a 20 20 20  |TRUE;.     }.   |
00000a40  77 69 6d 70 5f 67 65 74  5f 72 65 63 74 61 6e 67  |wimp_get_rectang|
00000a50  6c 65 28 26 72 2c 26 6d  6f 72 65 29 3b 0a 20 20  |le(&r,&more);.  |
00000a60  20 7d 0a 20 7d 0a 0a 0a  0a 76 6f 69 64 20 66 6f  | }. }....void fo|
00000a70  72 63 65 5f 72 65 64 72  61 77 28 76 6f 69 64 29  |rce_redraw(void)|
00000a80  0a 20 7b 0a 20 77 69 6d  70 5f 72 65 64 72 61 77  |. {. wimp_redraw|
00000a90  73 74 72 20 72 65 64 72  61 77 3b 0a 20 69 66 20  |str redraw;. if |
00000aa0  28 21 58 2e 6c 6f 61 64  65 64 20 7c 7c 20 21 58  |(!X.loaded || !X|
00000ab0  2e 64 72 61 77 2e 64 61  74 61 29 20 72 65 74 75  |.draw.data) retu|
00000ac0  72 6e 3b 0a 20 64 72 61  77 5f 71 75 65 72 79 42  |rn;. draw_queryB|
00000ad0  6f 78 28 26 58 2e 64 72  61 77 2c 28 64 72 61 77  |ox(&X.draw,(draw|
00000ae0  5f 62 6f 78 20 2a 29 26  72 65 64 72 61 77 2e 62  |_box *)&redraw.b|
00000af0  6f 78 2c 54 52 55 45 29  3b 0a 23 64 65 66 69 6e  |ox,TRUE);.#defin|
00000b00  65 20 78 77 20 31 36 0a  20 72 65 64 72 61 77 2e  |e xw 16. redraw.|
00000b10  62 6f 78 2e 78 30 20 3d  20 72 65 64 72 61 77 2e  |box.x0 = redraw.|
00000b20  62 6f 78 2e 78 30 20 2a  20 58 2e 6d 61 67 6d 75  |box.x0 * X.magmu|
00000b30  6c 20 2f 20 58 2e 6d 61  67 64 69 76 20 2d 20 78  |l / X.magdiv - x|
00000b40  77 3b 0a 20 72 65 64 72  61 77 2e 62 6f 78 2e 79  |w;. redraw.box.y|
00000b50  30 20 3d 20 72 65 64 72  61 77 2e 62 6f 78 2e 79  |0 = redraw.box.y|
00000b60  30 20 2a 20 58 2e 6d 61  67 6d 75 6c 20 2f 20 58  |0 * X.magmul / X|
00000b70  2e 6d 61 67 64 69 76 20  2d 20 78 77 3b 0a 20 72  |.magdiv - xw;. r|
00000b80  65 64 72 61 77 2e 62 6f  78 2e 78 31 20 3d 20 72  |edraw.box.x1 = r|
00000b90  65 64 72 61 77 2e 62 6f  78 2e 78 31 20 2a 20 58  |edraw.box.x1 * X|
00000ba0  2e 6d 61 67 6d 75 6c 20  2f 20 58 2e 6d 61 67 64  |.magmul / X.magd|
00000bb0  69 76 20 2b 20 78 77 3b  0a 20 72 65 64 72 61 77  |iv + xw;. redraw|
00000bc0  2e 62 6f 78 2e 79 31 20  3d 20 72 65 64 72 61 77  |.box.y1 = redraw|
00000bd0  2e 62 6f 78 2e 79 31 20  2a 20 58 2e 6d 61 67 6d  |.box.y1 * X.magm|
00000be0  75 6c 20 2f 20 58 2e 6d  61 67 64 69 76 20 2b 20  |ul / X.magdiv + |
00000bf0  78 77 3b 0a 20 72 65 64  72 61 77 2e 77 20 3d 20  |xw;. redraw.w = |
00000c00  58 2e 57 6d 61 69 6e 3b  0a 20 77 69 6d 70 74 5f  |X.Wmain;. wimpt_|
00000c10  6e 6f 65 72 72 28 77 69  6d 70 5f 66 6f 72 63 65  |noerr(wimp_force|
00000c20  5f 72 65 64 72 61 77 28  26 72 65 64 72 61 77 29  |_redraw(&redraw)|
00000c30  29 3b 0a 20 7d 0a 0a 0a  0a 76 6f 69 64 20 65 76  |);. }....void ev|
00000c40  65 6e 74 5f 68 61 6e 64  28 77 69 6d 70 5f 65 76  |ent_hand(wimp_ev|
00000c50  65 6e 74 73 74 72 20 2a  65 2c 76 6f 69 64 20 2a  |entstr *e,void *|
00000c60  68 61 6e 64 6c 65 29 0a  20 7b 0a 20 68 61 6e 64  |handle). {. hand|
00000c70  6c 65 20 3d 20 68 61 6e  64 6c 65 3b 0a 20 73 77  |le = handle;. sw|
00000c80  69 74 63 68 20 28 65 2d  3e 65 29 0a 20 20 20 7b  |itch (e->e).   {|
00000c90  0a 20 20 20 63 61 73 65  20 77 69 6d 70 5f 45 4e  |.   case wimp_EN|
00000ca0  55 4c 4c 3a 0a 20 20 20  20 20 62 72 65 61 6b 3b  |ULL:.     break;|
00000cb0  0a 20 20 20 63 61 73 65  20 77 69 6d 70 5f 45 52  |.   case wimp_ER|
00000cc0  45 44 52 41 57 3a 0a 20  20 20 20 20 77 69 6d 70  |EDRAW:.     wimp|
00000cd0  74 5f 63 68 65 63 6b 6d  6f 64 65 28 29 3b 0a 20  |t_checkmode();. |
00000ce0  20 20 20 20 72 65 64 72  61 77 5f 77 69 6e 28 65  |    redraw_win(e|
00000cf0  2d 3e 64 61 74 61 2e 6f  2e 77 29 3b 0a 20 20 20  |->data.o.w);.   |
00000d00  20 20 62 72 65 61 6b 3b  0a 20 20 20 63 61 73 65  |  break;.   case|
00000d10  20 77 69 6d 70 5f 45 4f  50 45 4e 3a 0a 20 20 20  | wimp_EOPEN:.   |
00000d20  20 20 77 69 6d 70 5f 6f  70 65 6e 5f 77 69 6e 64  |  wimp_open_wind|
00000d30  28 26 65 2d 3e 64 61 74  61 2e 6f 29 3b 0a 20 20  |(&e->data.o);.  |
00000d40  20 20 20 62 72 65 61 6b  3b 0a 20 20 20 63 61 73  |   break;.   cas|
00000d50  65 20 77 69 6d 70 5f 45  43 4c 4f 53 45 3a 0a 20  |e wimp_ECLOSE:. |
00000d60  20 20 20 20 77 69 6d 70  5f 63 6c 6f 73 65 5f 77  |    wimp_close_w|
00000d70  69 6e 64 28 65 2d 3e 64  61 74 61 2e 6f 2e 77 29  |ind(e->data.o.w)|
00000d80  3b 0a 20 20 20 20 20 62  72 65 61 6b 3b 0a 20 20  |;.     break;.  |
00000d90  20 63 61 73 65 20 77 69  6d 70 5f 45 50 54 52 4c  | case wimp_EPTRL|
00000da0  45 41 56 45 3a 0a 20 20  20 20 20 62 72 65 61 6b  |EAVE:.     break|
00000db0  3b 0a 20 20 20 63 61 73  65 20 77 69 6d 70 5f 45  |;.   case wimp_E|
00000dc0  50 54 52 45 4e 54 45 52  3a 0a 20 20 20 20 20 62  |PTRENTER:.     b|
00000dd0  72 65 61 6b 3b 0a 20 20  20 63 61 73 65 20 77 69  |reak;.   case wi|
00000de0  6d 70 5f 45 42 55 54 3a  0a 20 20 20 20 20 62 72  |mp_EBUT:.     br|
00000df0  65 61 6b 3b 0a 20 20 20  63 61 73 65 20 77 69 6d  |eak;.   case wim|
00000e00  70 5f 45 55 53 45 52 44  52 41 47 3a 0a 20 20 20  |p_EUSERDRAG:.   |
00000e10  20 20 62 72 65 61 6b 3b  0a 20 20 20 63 61 73 65  |  break;.   case|
00000e20  20 77 69 6d 70 5f 45 4b  45 59 3a 0a 20 20 20 20  | wimp_EKEY:.    |
00000e30  20 62 72 65 61 6b 3b 0a  20 20 20 63 61 73 65 20  | break;.   case |
00000e40  77 69 6d 70 5f 45 4d 45  4e 55 3a 0a 20 20 20 20  |wimp_EMENU:.    |
00000e50  20 62 72 65 61 6b 3b 0a  20 20 20 63 61 73 65 20  | break;.   case |
00000e60  77 69 6d 70 5f 45 53 43  52 4f 4c 4c 3a 0a 20 20  |wimp_ESCROLL:.  |
00000e70  20 20 20 62 72 65 61 6b  3b 0a 20 20 20 63 61 73  |   break;.   cas|
00000e80  65 20 77 69 6d 70 5f 45  4c 4f 53 45 43 41 52 45  |e wimp_ELOSECARE|
00000e90  54 3a 0a 20 20 20 20 20  62 72 65 61 6b 3b 0a 20  |T:.     break;. |
00000ea0  20 20 63 61 73 65 20 77  69 6d 70 5f 45 47 41 49  |  case wimp_EGAI|
00000eb0  4e 43 41 52 45 54 3a 0a  20 20 20 20 20 62 72 65  |NCARET:.     bre|
00000ec0  61 6b 3b 0a 20 20 20 63  61 73 65 20 77 69 6d 70  |ak;.   case wimp|
00000ed0  5f 45 53 45 4e 44 3a 0a  20 20 20 63 61 73 65 20  |_ESEND:.   case |
00000ee0  77 69 6d 70 5f 45 53 45  4e 44 57 41 4e 54 41 43  |wimp_ESENDWANTAC|
00000ef0  4b 3a 0a 20 20 20 20 20  62 72 65 61 6b 3b 0a 20  |K:.     break;. |
00000f00  20 20 63 61 73 65 20 77  69 6d 70 5f 45 41 43 4b  |  case wimp_EACK|
00000f10  3a 0a 20 20 20 20 20 62  72 65 61 6b 3b 0a 20 20  |:.     break;.  |
00000f20  20 7d 0a 20 7d 0a 0a 0a  0a 76 6f 69 64 20 75 6e  | }. }....void un|
00000f30  6c 6f 61 64 28 76 6f 69  64 29 0a 20 7b 0a 20 58  |load(void). {. X|
00000f40  2e 6c 6f 61 64 65 64 20  3d 20 46 41 4c 53 45 3b  |.loaded = FALSE;|
00000f50  0a 20 6d 65 6e 75 5f 73  65 74 66 6c 61 67 73 28  |. menu_setflags(|
00000f60  58 2e 4d 6d 61 69 6e 2c  32 2c 30 2c 31 29 3b 0a  |X.Mmain,2,0,1);.|
00000f70  20 6d 65 6e 75 5f 73 65  74 66 6c 61 67 73 28 58  | menu_setflags(X|
00000f80  2e 4d 6d 61 69 6e 2c 33  2c 30 2c 31 29 3b 0a 20  |.Mmain,3,0,1);. |
00000f90  7d 0a 0a 0a 0a 76 6f 69  64 20 64 69 73 70 6f 73  |}....void dispos|
00000fa0  65 28 76 6f 69 64 29 0a  20 7b 0a 20 64 72 61 77  |e(void). {. draw|
00000fb0  5f 64 69 61 67 20 2a 64  20 3d 20 26 58 2e 64 72  |_diag *d = &X.dr|
00000fc0  61 77 3b 0a 20 69 66 20  28 58 2e 6c 6f 61 64 65  |aw;. if (X.loade|
00000fd0  64 20 26 26 20 64 2d 3e  64 61 74 61 20 21 3d 20  |d && d->data != |
00000fe0  4e 55 4c 4c 29 0a 20 20  20 7b 0a 20 20 20 66 6f  |NULL).   {.   fo|
00000ff0  72 63 65 5f 72 65 64 72  61 77 28 29 3b 0a 20 20  |rce_redraw();.  |
00001000  20 66 6c 65 78 5f 66 72  65 65 28 28 66 6c 65 78  | flex_free((flex|
00001010  5f 70 74 72 29 20 26 64  2d 3e 64 61 74 61 29 3b  |_ptr) &d->data);|
00001020  0a 20 20 20 64 2d 3e 6c  65 6e 67 74 68 20 3d 20  |.   d->length = |
00001030  30 3b 0a 20 20 20 7d 0a  20 75 6e 6c 6f 61 64 28  |0;.   }. unload(|
00001040  29 3b 0a 20 7d 0a 0a 0a  0a 76 6f 69 64 20 69 63  |);. }....void ic|
00001050  6f 6e 5f 63 6c 69 63 6b  28 77 69 6d 70 5f 69 20  |on_click(wimp_i |
00001060  69 63 6f 6e 29 0a 20 7b  0a 20 77 69 6d 70 5f 77  |icon). {. wimp_w|
00001070  73 74 61 74 65 20 73 74  61 74 65 3b 0a 20 69 63  |state state;. ic|
00001080  6f 6e 20 3d 20 69 63 6f  6e 3b 0a 20 69 66 20 28  |on = icon;. if (|
00001090  21 58 2e 6c 6f 61 64 65  64 29 20 72 65 74 75 72  |!X.loaded) retur|
000010a0  6e 3b 0a 20 77 69 6d 70  74 5f 63 6f 6d 70 6c 61  |n;. wimpt_compla|
000010b0  69 6e 28 77 69 6d 70 5f  67 65 74 5f 77 69 6e 64  |in(wimp_get_wind|
000010c0  5f 73 74 61 74 65 28 58  2e 57 6d 61 69 6e 2c 26  |_state(X.Wmain,&|
000010d0  73 74 61 74 65 29 29 3b  0a 20 73 74 61 74 65 2e  |state));. state.|
000010e0  6f 2e 62 65 68 69 6e 64  20 3d 20 2d 31 3b 0a 20  |o.behind = -1;. |
000010f0  77 69 6d 70 74 5f 6e 6f  65 72 72 28 77 69 6d 70  |wimpt_noerr(wimp|
00001100  5f 6f 70 65 6e 5f 77 69  6e 64 28 26 73 74 61 74  |_open_wind(&stat|
00001110  65 2e 6f 29 29 3b 0a 20  7d 0a 0a 0a 0a 76 6f 69  |e.o));. }....voi|
00001120  64 20 6c 6f 61 64 5f 65  72 72 6f 72 28 76 6f 69  |d load_error(voi|
00001130  64 29 0a 20 7b 0a 20 64  69 73 70 6f 73 65 28 29  |d). {. dispose()|
00001140  3b 0a 20 58 2e 74 69 74  6c 65 5b 30 5d 20 3d 20  |;. X.title[0] = |
00001150  30 3b 0a 20 7d 0a 0a 0a  0a 42 4f 4f 4c 20 6c 6f  |0;. }....BOOL lo|
00001160  61 64 28 76 6f 69 64 29  0a 20 7b 0a 20 6f 73 5f  |ad(void). {. os_|
00001170  66 69 6c 65 73 74 72 20  66 69 6c 65 3b 0a 20 66  |filestr file;. f|
00001180  69 6c 65 2e 61 63 74 69  6f 6e 20 3d 20 32 35 35  |ile.action = 255|
00001190  3b 0a 20 66 69 6c 65 2e  6e 61 6d 65 20 3d 20 58  |;. file.name = X|
000011a0  2e 74 69 74 6c 65 3b 0a  20 66 69 6c 65 2e 6c 6f  |.title;. file.lo|
000011b0  61 64 61 64 64 72 20 3d  20 28 69 6e 74 29 58 2e  |adaddr = (int)X.|
000011c0  64 72 61 77 2e 64 61 74  61 3b 0a 20 66 69 6c 65  |draw.data;. file|
000011d0  2e 65 78 65 63 61 64 64  72 20 3d 20 30 3b 0a 20  |.execaddr = 0;. |
000011e0  72 65 74 75 72 6e 20 28  77 69 6d 70 74 5f 63 6f  |return (wimpt_co|
000011f0  6d 70 6c 61 69 6e 28 6f  73 5f 66 69 6c 65 28 26  |mplain(os_file(&|
00001200  66 69 6c 65 29 29 20 3d  3d 20 30 29 3b 0a 20 7d  |file)) == 0);. }|
00001210  0a 20 20 0a 0a 0a 69 6e  74 20 66 69 6c 65 5f 73  |.  ...int file_s|
00001220  69 7a 65 28 63 68 61 72  20 2a 66 29 0a 20 7b 0a  |ize(char *f). {.|
00001230  20 6f 73 5f 66 69 6c 65  73 74 72 20 66 69 6c 65  | os_filestr file|
00001240  3b 0a 20 66 69 6c 65 2e  61 63 74 69 6f 6e 20 3d  |;. file.action =|
00001250  20 35 3b 0a 20 66 69 6c  65 2e 6e 61 6d 65 20 3d  | 5;. file.name =|
00001260  20 66 3b 0a 20 69 66 20  28 77 69 6d 70 74 5f 63  | f;. if (wimpt_c|
00001270  6f 6d 70 6c 61 69 6e 28  6f 73 5f 66 69 6c 65 28  |omplain(os_file(|
00001280  26 66 69 6c 65 29 29 20  21 3d 20 30 29 20 72 65  |&file)) != 0) re|
00001290  74 75 72 6e 20 30 3b 0a  20 73 77 69 74 63 68 20  |turn 0;. switch |
000012a0  28 66 69 6c 65 2e 61 63  74 69 6f 6e 29 0a 20 20  |(file.action).  |
000012b0  20 7b 0a 20 20 20 63 61  73 65 20 30 3a 20 77 65  | {.   case 0: we|
000012c0  72 72 28 30 2c 22 46 69  6c 65 20 6e 6f 74 20 66  |rr(0,"File not f|
000012d0  6f 75 6e 64 22 29 3b 20  72 65 74 75 72 6e 20 30  |ound"); return 0|
000012e0  3b 0a 20 20 20 63 61 73  65 20 32 3a 20 77 65 72  |;.   case 2: wer|
000012f0  72 28 30 2c 22 49 20 63  61 6e 6e 6f 74 20 6c 6f  |r(0,"I cannot lo|
00001300  61 64 20 61 20 64 69 72  65 63 74 6f 72 79 22 29  |ad a directory")|
00001310  3b 20 72 65 74 75 72 6e  20 30 3b 0a 20 20 20 7d  |; return 0;.   }|
00001320  0a 20 69 66 20 28 28 66  69 6c 65 2e 6c 6f 61 64  |. if ((file.load|
00001330  61 64 64 72 20 26 20 30  78 66 66 66 30 30 30 30  |addr & 0xfff0000|
00001340  30 29 20 3d 3d 20 30 78  66 66 66 30 30 30 30 30  |0) == 0xfff00000|
00001350  29 0a 20 20 20 72 65 74  75 72 6e 20 66 69 6c 65  |).   return file|
00001360  2e 73 74 61 72 74 3b 0a  20 65 6c 73 65 0a 20 20  |.start;. else.  |
00001370  20 7b 0a 20 20 20 77 65  72 72 28 30 2c 22 46 69  | {.   werr(0,"Fi|
00001380  6c 65 20 63 61 6e 6e 6f  74 20 62 65 20 6c 6f 61  |le cannot be loa|
00001390  64 65 64 22 29 3b 0a 20  20 20 72 65 74 75 72 6e  |ded");.   return|
000013a0  20 30 3b 0a 20 20 20 7d  0a 20 7d 0a 0a 0a 0a 76  | 0;.   }. }....v|
000013b0  6f 69 64 20 6c 6f 61 64  5f 66 69 6e 69 73 68 28  |oid load_finish(|
000013c0  69 6e 74 20 73 69 7a 65  29 0a 20 7b 0a 20 64 72  |int size). {. dr|
000013d0  61 77 5f 65 72 72 6f 72  20 65 72 72 6f 72 3b 0a  |aw_error error;.|
000013e0  20 69 66 20 28 64 72 61  77 5f 76 65 72 69 66 79  | if (draw_verify|
000013f0  5f 64 69 61 67 28 26 58  2e 64 72 61 77 2c 26 65  |_diag(&X.draw,&e|
00001400  72 72 6f 72 29 29 0a 20  20 20 7b 0a 20 20 20 58  |rror)).   {.   X|
00001410  2e 64 72 61 77 2e 6c 65  6e 67 74 68 20 3d 20 73  |.draw.length = s|
00001420  69 7a 65 3b 0a 20 20 20  58 2e 6c 6f 61 64 65 64  |ize;.   X.loaded|
00001430  20 3d 20 54 52 55 45 3b  0a 20 20 20 66 6f 72 63  | = TRUE;.   forc|
00001440  65 5f 72 65 64 72 61 77  28 29 3b 0a 20 20 20 7d  |e_redraw();.   }|
00001450  0a 20 65 6c 73 65 0a 20  20 20 7b 0a 20 20 20 77  |. else.   {.   w|
00001460  65 72 72 28 30 2c 22 45  72 72 6f 72 20 69 6e 20  |err(0,"Error in |
00001470  76 65 72 69 66 79 69 6e  67 20 44 72 61 77 20 66  |verifying Draw f|
00001480  69 6c 65 22 29 3b 0a 20  20 20 6c 6f 61 64 5f 65  |ile");.   load_e|
00001490  72 72 6f 72 28 29 3b 0a  20 20 20 7d 0a 20 7d 0a  |rror();.   }. }.|
000014a0  0a 0a 0a 42 4f 4f 4c 20  6c 6f 61 64 5f 63 68 65  |...BOOL load_che|
000014b0  63 6b 28 69 6e 74 20 66  74 79 70 65 2c 69 6e 74  |ck(int ftype,int|
000014c0  20 73 69 7a 65 29 0a 20  7b 0a 20 69 66 20 28 66  | size). {. if (f|
000014d0  74 79 70 65 20 21 3d 20  30 78 61 66 66 29 0a 20  |type != 0xaff). |
000014e0  20 20 7b 0a 20 20 20 77  65 72 72 28 30 2c 22 4e  |  {.   werr(0,"N|
000014f0  6f 74 20 61 20 44 72 61  77 20 66 69 6c 65 22 29  |ot a Draw file")|
00001500  3b 0a 20 20 20 72 65 74  75 72 6e 20 46 41 4c 53  |;.   return FALS|
00001510  45 3b 0a 20 20 20 7d 0a  20 64 69 73 70 6f 73 65  |E;.   }. dispose|
00001520  28 29 3b 0a 20 69 66 20  28 66 6c 65 78 5f 61 6c  |();. if (flex_al|
00001530  6c 6f 63 28 28 66 6c 65  78 5f 70 74 72 29 20 26  |loc((flex_ptr) &|
00001540  58 2e 64 72 61 77 2e 64  61 74 61 2c 20 73 69 7a  |X.draw.data, siz|
00001550  65 29 29 0a 20 20 20 72  65 74 75 72 6e 20 54 52  |e)).   return TR|
00001560  55 45 3b 0a 20 65 6c 73  65 0a 20 20 20 7b 0a 20  |UE;. else.   {. |
00001570  20 20 77 65 72 72 28 30  2c 22 55 6e 61 62 6c 65  |  werr(0,"Unable|
00001580  20 74 6f 20 61 6c 6c 6f  63 61 74 65 20 6d 65 6d  | to allocate mem|
00001590  6f 72 79 20 66 6f 72 20  6e 65 77 20 64 69 61 67  |ory for new diag|
000015a0  72 61 6d 22 29 3b 0a 20  20 20 72 65 74 75 72 6e  |ram");.   return|
000015b0  20 46 41 4c 53 45 3b 0a  20 20 20 7d 0a 20 7d 0a  | FALSE;.   }. }.|
000015c0  0a 0a 0a 76 6f 69 64 20  6c 6f 61 64 5f 66 69 6c  |...void load_fil|
000015d0  65 28 76 6f 69 64 29 0a  20 7b 0a 20 63 68 61 72  |e(void). {. char|
000015e0  20 2a 66 6e 61 6d 65 3b  0a 20 69 6e 74 20 73 69  | *fname;. int si|
000015f0  7a 65 3b 0a 20 69 6e 74  20 66 74 79 70 65 20 3d  |ze;. int ftype =|
00001600  20 78 66 65 72 72 65 63  76 5f 63 68 65 63 6b 69  | xferrecv_checki|
00001610  6e 73 65 72 74 28 26 66  6e 61 6d 65 29 3b 0a 20  |nsert(&fname);. |
00001620  69 66 20 28 73 74 72 6c  65 6e 28 66 6e 61 6d 65  |if (strlen(fname|
00001630  29 20 3e 20 32 35 36 29  0a 20 20 20 77 65 72 72  |) > 256).   werr|
00001640  28 30 2c 22 43 61 6e 6e  6f 74 20 6c 6f 61 64 20  |(0,"Cannot load |
00001650  66 69 6c 65 20 2d 20 66  69 6c 65 6e 61 6d 65 20  |file - filename |
00001660  69 73 20 74 6f 6f 20 6c  6f 6e 67 20 28 6d 61 78  |is too long (max|
00001670  20 3d 20 32 35 36 20 63  68 61 72 73 29 22 29 3b  | = 256 chars)");|
00001680  0a 20 65 6c 73 65 0a 20  20 20 7b 0a 20 20 20 73  |. else.   {.   s|
00001690  74 72 63 70 79 28 58 2e  74 69 74 6c 65 2c 66 6e  |trcpy(X.title,fn|
000016a0  61 6d 65 29 3b 0a 20 20  20 73 69 7a 65 20 3d 20  |ame);.   size = |
000016b0  66 69 6c 65 5f 73 69 7a  65 28 66 6e 61 6d 65 29  |file_size(fname)|
000016c0  3b 0a 20 20 20 69 66 20  28 73 69 7a 65 20 3e 20  |;.   if (size > |
000016d0  30 20 26 26 20 6c 6f 61  64 5f 63 68 65 63 6b 28  |0 && load_check(|
000016e0  66 74 79 70 65 2c 73 69  7a 65 29 29 0a 20 20 20  |ftype,size)).   |
000016f0  20 20 7b 0a 20 20 20 20  20 76 69 73 64 65 6c 61  |  {.     visdela|
00001700  79 5f 62 65 67 69 6e 28  29 3b 0a 20 20 20 20 20  |y_begin();.     |
00001710  69 66 20 28 6c 6f 61 64  28 29 29 0a 20 20 20 20  |if (load()).    |
00001720  20 20 20 7b 0a 20 20 20  20 20 20 20 6c 6f 61 64  |   {.       load|
00001730  5f 66 69 6e 69 73 68 28  73 69 7a 65 29 3b 0a 20  |_finish(size);. |
00001740  20 20 20 20 20 20 7d 0a  20 20 20 20 20 65 6c 73  |      }.     els|
00001750  65 0a 20 20 20 20 20 20  20 6c 6f 61 64 5f 65 72  |e.       load_er|
00001760  72 6f 72 28 29 3b 0a 20  20 20 20 20 76 69 73 64  |ror();.     visd|
00001770  65 6c 61 79 5f 65 6e 64  28 29 3b 0a 20 20 20 20  |elay_end();.    |
00001780  20 7d 0a 20 20 20 7d 0a  20 78 66 65 72 72 65 63  | }.   }. xferrec|
00001790  76 5f 69 6e 73 65 72 74  66 69 6c 65 6f 6b 28 29  |v_insertfileok()|
000017a0  3b 0a 20 6d 65 6e 75 5f  73 65 74 66 6c 61 67 73  |;. menu_setflags|
000017b0  28 58 2e 4d 6d 61 69 6e  2c 32 2c 30 2c 30 29 3b  |(X.Mmain,2,0,0);|
000017c0  0a 20 6d 65 6e 75 5f 73  65 74 66 6c 61 67 73 28  |. menu_setflags(|
000017d0  58 2e 4d 6d 61 69 6e 2c  33 2c 30 2c 30 29 3b 0a  |X.Mmain,3,0,0);.|
000017e0  20 7d 0a 0a 0a 0a 76 6f  69 64 20 73 65 74 5f 77  | }....void set_w|
000017f0  69 6e 28 76 6f 69 64 29  0a 20 7b 0a 20 77 69 6d  |in(void). {. wim|
00001800  70 5f 72 65 64 72 61 77  73 74 72 20 73 74 72 3b  |p_redrawstr str;|
00001810  0a 20 64 72 61 77 5f 71  75 65 72 79 42 6f 78 28  |. draw_queryBox(|
00001820  26 58 2e 64 72 61 77 2c  28 64 72 61 77 5f 62 6f  |&X.draw,(draw_bo|
00001830  78 20 2a 29 26 73 74 72  2e 62 6f 78 2c 54 52 55  |x *)&str.box,TRU|
00001840  45 29 3b 0a 20 73 74 72  2e 62 6f 78 2e 78 30 20  |E);. str.box.x0 |
00001850  3d 20 73 74 72 2e 62 6f  78 2e 78 30 20 2a 20 58  |= str.box.x0 * X|
00001860  2e 6d 61 67 6d 75 6c 20  2f 20 58 2e 6d 61 67 64  |.magmul / X.magd|
00001870  69 76 20 2d 20 31 36 3b  0a 20 73 74 72 2e 62 6f  |iv - 16;. str.bo|
00001880  78 2e 79 30 20 3d 20 73  74 72 2e 62 6f 78 2e 79  |x.y0 = str.box.y|
00001890  30 20 2a 20 58 2e 6d 61  67 6d 75 6c 20 2f 20 58  |0 * X.magmul / X|
000018a0  2e 6d 61 67 64 69 76 20  2d 20 31 36 3b 0a 20 73  |.magdiv - 16;. s|
000018b0  74 72 2e 62 6f 78 2e 78  31 20 3d 20 73 74 72 2e  |tr.box.x1 = str.|
000018c0  62 6f 78 2e 78 31 20 2a  20 58 2e 6d 61 67 6d 75  |box.x1 * X.magmu|
000018d0  6c 20 2f 20 58 2e 6d 61  67 64 69 76 20 2b 20 31  |l / X.magdiv + 1|
000018e0  36 3b 0a 20 73 74 72 2e  62 6f 78 2e 79 31 20 3d  |6;. str.box.y1 =|
000018f0  20 73 74 72 2e 62 6f 78  2e 79 31 20 2a 20 58 2e  | str.box.y1 * X.|
00001900  6d 61 67 6d 75 6c 20 2f  20 58 2e 6d 61 67 64 69  |magmul / X.magdi|
00001910  76 20 2b 20 31 36 3b 0a  20 73 74 72 2e 77 20 3d  |v + 16;. str.w =|
00001920  20 58 2e 57 6d 61 69 6e  3b 0a 20 73 74 72 2e 73  | X.Wmain;. str.s|
00001930  63 78 20 3d 20 30 3b 0a  20 73 74 72 2e 73 63 79  |cx = 0;. str.scy|
00001940  20 3d 20 30 3b 0a 20 69  66 20 28 73 74 72 2e 67  | = 0;. if (str.g|
00001950  2e 78 31 20 3e 20 73 74  72 2e 62 6f 78 2e 78 31  |.x1 > str.box.x1|
00001960  29 20 73 74 72 2e 67 2e  78 31 20 3d 20 73 74 72  |) str.g.x1 = str|
00001970  2e 62 6f 78 2e 78 31 3b  0a 20 69 66 20 28 73 74  |.box.x1;. if (st|
00001980  72 2e 67 2e 79 31 20 3e  20 73 74 72 2e 62 6f 78  |r.g.y1 > str.box|
00001990  2e 79 31 29 20 73 74 72  2e 67 2e 79 31 20 3d 20  |.y1) str.g.y1 = |
000019a0  73 74 72 2e 62 6f 78 2e  79 31 3b 0a 20 77 69 6d  |str.box.y1;. wim|
000019b0  70 5f 73 65 74 5f 65 78  74 65 6e 74 28 26 73 74  |p_set_extent(&st|
000019c0  72 29 3b 0a 20 77 69 6e  5f 73 65 74 74 69 74 6c  |r);. win_settitl|
000019d0  65 28 58 2e 57 6d 61 69  6e 2c 58 2e 74 69 74 6c  |e(X.Wmain,X.titl|
000019e0  65 29 3b 0a 20 7d 0a 0a  0a 0a 42 4f 4f 4c 20 69  |e);. }....BOOL i|
000019f0  63 6f 6e 5f 73 65 6c 65  63 74 28 77 69 6d 70 5f  |con_select(wimp_|
00001a00  77 20 77 69 6e 2c 77 69  6d 70 5f 69 20 69 63 6f  |w win,wimp_i ico|
00001a10  6e 29 0a 20 7b 0a 20 69  6e 74 20 72 3b 0a 20 77  |n). {. int r;. w|
00001a20  69 6d 70 5f 69 63 6f 6e  20 69 3b 0a 20 77 69 6d  |imp_icon i;. wim|
00001a30  70 5f 67 65 74 5f 69 63  6f 6e 5f 69 6e 66 6f 28  |p_get_icon_info(|
00001a40  77 69 6e 2c 69 63 6f 6e  2c 26 69 29 3b 0a 20 72  |win,icon,&i);. r|
00001a50  20 3d 20 69 2e 66 6c 61  67 73 20 26 20 77 69 6d  | = i.flags & wim|
00001a60  70 5f 49 53 45 4c 45 43  54 45 44 3b 0a 20 69 66  |p_ISELECTED;. if|
00001a70  20 28 72 20 3d 3d 20 30  29 20 72 65 74 75 72 6e  | (r == 0) return|
00001a80  20 46 41 4c 53 45 3b 0a  20 65 6c 73 65 20 72 65  | FALSE;. else re|
00001a90  74 75 72 6e 20 54 52 55  45 3b 0a 20 7d 0a 0a 0a  |turn TRUE;. }...|
00001aa0  0a 76 6f 69 64 20 72 65  64 72 61 77 5f 6d 61 67  |.void redraw_mag|
00001ab0  28 76 6f 69 64 20 2a 68  29 0a 20 7b 0a 20 77 69  |(void *h). {. wi|
00001ac0  6d 70 5f 77 73 74 61 74  65 20 77 6f 73 3b 0a 20  |mp_wstate wos;. |
00001ad0  68 20 3d 20 68 3b 0a 20  77 69 6d 70 5f 63 6c 6f  |h = h;. wimp_clo|
00001ae0  73 65 5f 77 69 6e 64 28  58 2e 57 6d 61 69 6e 29  |se_wind(X.Wmain)|
00001af0  3b 0a 20 73 65 74 5f 77  69 6e 28 29 3b 0a 20 77  |;. set_win();. w|
00001b00  69 6d 70 5f 67 65 74 5f  77 69 6e 64 5f 73 74 61  |imp_get_wind_sta|
00001b10  74 65 28 58 2e 57 6d 61  69 6e 2c 26 77 6f 73 29  |te(X.Wmain,&wos)|
00001b20  3b 0a 20 77 69 6d 70 5f  6f 70 65 6e 5f 77 69 6e  |;. wimp_open_win|
00001b30  64 28 26 77 6f 73 2e 6f  29 3b 0a 20 66 6f 72 63  |d(&wos.o);. forc|
00001b40  65 5f 72 65 64 72 61 77  28 29 3b 0a 20 7d 0a 0a  |e_redraw();. }..|
00001b50  0a 0a 69 6e 74 20 70 72  69 6e 74 5f 65 72 72 28  |..int print_err(|
00001b60  63 68 61 72 20 2a 66 2c  20 76 6f 69 64 20 2a 68  |char *f, void *h|
00001b70  29 0a 20 7b 0a 20 66 20  3d 20 66 3b 0a 20 68 20  |). {. f = f;. h |
00001b80  3d 20 68 3b 0a 20 77 65  72 72 28 30 2c 22 55 73  |= h;. werr(0,"Us|
00001b90  65 20 74 68 65 20 21 50  61 69 6e 74 20 61 70 70  |e the !Paint app|
00001ba0  6c 69 63 61 74 69 6f 6e  20 74 6f 20 70 72 69 6e  |lication to prin|
00001bb0  74 20 73 70 72 69 74 65  20 66 69 6c 65 73 22 29  |t sprite files")|
00001bc0  3b 0a 20 72 65 74 75 72  6e 20 78 66 65 72 73 65  |;. return xferse|
00001bd0  6e 64 5f 70 72 69 6e 74  46 61 69 6c 65 64 3b 0a  |nd_printFailed;.|
00001be0  20 7d 0a 0a 0a 0a 76 6f  69 64 20 69 63 6f 6e 5f  | }....void icon_|
00001bf0  6c 6f 61 64 28 77 69 6d  70 5f 65 76 65 6e 74 73  |load(wimp_events|
00001c00  74 72 20 2a 65 2c 76 6f  69 64 20 2a 68 61 6e 64  |tr *e,void *hand|
00001c10  6c 65 29 0a 20 7b 0a 20  77 69 6d 70 5f 77 73 74  |le). {. wimp_wst|
00001c20  61 74 65 20 73 74 61 74  65 3b 0a 20 68 61 6e 64  |ate state;. hand|
00001c30  6c 65 20 3d 20 68 61 6e  64 6c 65 3b 0a 20 65 20  |le = handle;. e |
00001c40  3d 20 65 3b 0a 20 6c 6f  61 64 5f 66 69 6c 65 28  |= e;. load_file(|
00001c50  29 3b 0a 20 73 65 74 5f  77 69 6e 28 29 3b 0a 20  |);. set_win();. |
00001c60  77 69 6d 70 74 5f 63 6f  6d 70 6c 61 69 6e 28 77  |wimpt_complain(w|
00001c70  69 6d 70 5f 67 65 74 5f  77 69 6e 64 5f 73 74 61  |imp_get_wind_sta|
00001c80  74 65 28 58 2e 57 6d 61  69 6e 2c 26 73 74 61 74  |te(X.Wmain,&stat|
00001c90  65 29 29 3b 0a 20 73 74  61 74 65 2e 6f 2e 62 65  |e));. state.o.be|
00001ca0  68 69 6e 64 20 3d 20 2d  31 3b 0a 20 77 69 6d 70  |hind = -1;. wimp|
00001cb0  74 5f 6e 6f 65 72 72 28  77 69 6d 70 5f 6f 70 65  |t_noerr(wimp_ope|
00001cc0  6e 5f 77 69 6e 64 28 26  73 74 61 74 65 2e 6f 29  |n_wind(&state.o)|
00001cd0  29 3b 0a 20 7d 0a 0a 0a  0a 76 6f 69 64 20 69 63  |);. }....void ic|
00001ce0  6f 6e 5f 6d 65 6e 75 28  76 6f 69 64 20 2a 68 61  |on_menu(void *ha|
00001cf0  6e 64 6c 65 2c 63 68 61  72 20 2a 68 69 74 29 0a  |ndle,char *hit).|
00001d00  20 7b 0a 20 68 61 6e 64  6c 65 20 3d 20 68 61 6e  | {. handle = han|
00001d10  64 6c 65 3b 0a 20 73 77  69 74 63 68 20 28 28 4d  |dle;. switch ((M|
00001d20  6d 61 69 6e 29 20 68 69  74 5b 30 5d 29 0a 20 20  |main) hit[0]).  |
00001d30  20 7b 0a 20 20 20 63 61  73 65 20 4d 6d 61 69 6e  | {.   case Mmain|
00001d40  5f 69 6e 66 6f 3a 0a 20  20 20 20 20 64 62 6f 78  |_info:.     dbox|
00001d50  5f 73 68 6f 77 28 58 2e  57 69 6e 66 6f 29 3b 0a  |_show(X.Winfo);.|
00001d60  20 20 20 20 20 64 62 6f  78 5f 66 69 6c 6c 69 6e  |     dbox_fillin|
00001d70  28 58 2e 57 69 6e 66 6f  29 3b 0a 20 20 20 20 20  |(X.Winfo);.     |
00001d80  64 62 6f 78 5f 68 69 64  65 28 58 2e 57 69 6e 66  |dbox_hide(X.Winf|
00001d90  6f 29 3b 0a 20 20 20 20  20 62 72 65 61 6b 3b 0a  |o);.     break;.|
00001da0  20 20 20 63 61 73 65 20  4d 6d 61 69 6e 5f 7a 6f  |   case Mmain_zo|
00001db0  6f 6d 3a 0a 20 20 20 20  20 6d 61 67 6e 69 66 79  |om:.     magnify|
00001dc0  5f 73 65 6c 65 63 74 28  26 58 2e 6d 61 67 6d 75  |_select(&X.magmu|
00001dd0  6c 2c 26 58 2e 6d 61 67  64 69 76 2c 39 2c 39 2c  |l,&X.magdiv,9,9,|
00001de0  72 65 64 72 61 77 5f 6d  61 67 2c 30 29 3b 0a 20  |redraw_mag,0);. |
00001df0  20 20 20 20 62 72 65 61  6b 3b 0a 20 20 20 63 61  |    break;.   ca|
00001e00  73 65 20 4d 6d 61 69 6e  5f 73 61 76 65 3a 0a 20  |se Mmain_save:. |
00001e10  20 20 20 20 73 61 76 65  61 73 28 30 78 66 66 39  |    saveas(0xff9|
00001e20  2c 58 2e 73 61 76 65 2c  58 2e 64 72 61 77 2e 6c  |,X.save,X.draw.l|
00001e30  65 6e 67 74 68 2c 73 61  76 65 5f 73 70 72 69 74  |ength,save_sprit|
00001e40  65 2c 30 2c 70 72 69 6e  74 5f 65 72 72 2c 30 29  |e,0,print_err,0)|
00001e50  3b 0a 20 20 20 20 20 62  72 65 61 6b 3b 0a 20 20  |;.     break;.  |
00001e60  20 63 61 73 65 20 4d 6d  61 69 6e 5f 71 75 69 74  | case Mmain_quit|
00001e70  3a 0a 20 20 20 20 20 71  75 69 74 20 3d 20 54 52  |:.     quit = TR|
00001e80  55 45 3b 0a 20 20 20 20  20 62 72 65 61 6b 3b 0a  |UE;.     break;.|
00001e90  20 20 20 7d 0a 20 7d 0a  0a 0a 0a 42 4f 4f 4c 20  |   }. }....BOOL |
00001ea0  63 72 65 61 74 65 5f 77  69 6e 28 63 68 61 72 20  |create_win(char |
00001eb0  2a 6e 61 6d 65 2c 77 69  6d 70 5f 77 20 2a 68 29  |*name,wimp_w *h)|
00001ec0  0a 20 7b 0a 20 77 69 6d  70 5f 77 69 6e 64 20 2a  |. {. wimp_wind *|
00001ed0  77 69 6e 64 6f 77 3b 0a  20 77 69 6e 64 6f 77 20  |window;. window |
00001ee0  3d 20 74 65 6d 70 6c 61  74 65 5f 73 79 73 68 61  |= template_sysha|
00001ef0  6e 64 6c 65 28 6e 61 6d  65 29 3b 0a 20 77 69 6e  |ndle(name);. win|
00001f00  64 6f 77 2d 3e 6d 69 6e  73 69 7a 65 20 3d 20 30  |dow->minsize = 0|
00001f10  78 30 30 30 31 30 30 30  31 3b 0a 20 69 66 20 28  |x00010001;. if (|
00001f20  77 69 6e 64 6f 77 20 3d  3d 20 30 29 20 72 65 74  |window == 0) ret|
00001f30  75 72 6e 20 46 41 4c 53  45 3b 0a 20 72 65 74 75  |urn FALSE;. retu|
00001f40  72 6e 20 28 77 69 6d 70  74 5f 63 6f 6d 70 6c 61  |rn (wimpt_compla|
00001f50  69 6e 28 77 69 6d 70 5f  63 72 65 61 74 65 5f 77  |in(wimp_create_w|
00001f60  69 6e 64 28 77 69 6e 64  6f 77 2c 68 29 29 20 3d  |ind(window,h)) =|
00001f70  3d 20 30 29 3b 0a 20 7d  0a 0a 0a 0a 42 4f 4f 4c  |= 0);. }....BOOL|
00001f80  20 69 6e 69 74 5f 77 69  6d 70 28 76 6f 69 64 29  | init_wimp(void)|
00001f90  0a 20 7b 0a 20 77 69 6d  70 74 5f 69 6e 69 74 28  |. {. wimpt_init(|
00001fa0  22 44 72 61 77 20 47 72  61 62 62 65 72 22 29 3b  |"Draw Grabber");|
00001fb0  0a 20 66 6c 65 78 5f 69  6e 69 74 28 29 3b 0a 20  |. flex_init();. |
00001fc0  72 65 73 5f 69 6e 69 74  28 22 44 72 61 77 47 72  |res_init("DrawGr|
00001fd0  61 62 22 29 3b 0a 20 72  65 73 73 70 72 5f 69 6e  |ab");. resspr_in|
00001fe0  69 74 28 29 3b 0a 20 74  65 6d 70 6c 61 74 65 5f  |it();. template_|
00001ff0  69 6e 69 74 28 29 3b 0a  20 64 62 6f 78 5f 69 6e  |init();. dbox_in|
00002000  69 74 28 29 3b 0a 0a 20  62 61 72 69 63 6f 6e 28  |it();.. baricon(|
00002010  22 21 44 72 61 77 47 72  61 62 22 2c 28 69 6e 74  |"!DrawGrab",(int|
00002020  29 72 65 73 73 70 72 5f  61 72 65 61 28 29 2c 69  |)resspr_area(),i|
00002030  63 6f 6e 5f 63 6c 69 63  6b 29 3b 0a 20 58 2e 6d  |con_click);. X.m|
00002040  61 67 6d 75 6c 20 3d 20  31 3b 0a 20 58 2e 6d 61  |agmul = 1;. X.ma|
00002050  67 64 69 76 20 3d 20 31  3b 0a 20 73 74 72 63 70  |gdiv = 1;. strcp|
00002060  79 28 58 2e 73 61 76 65  2c 22 44 72 61 77 53 70  |y(X.save,"DrawSp|
00002070  72 69 74 65 22 29 3b 0a  0a 20 2f 2a 20 2a 2a 2a  |rite");.. /* ***|
00002080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 20 2a 2f 0a 20  |*********** */. |
00002090  2f 2a 20 63 72 65 61 74  65 20 77 69 6e 64 6f 77  |/* create window|
000020a0  73 20 2a 2f 0a 20 2f 2a  20 2a 2a 2a 2a 2a 2a 2a  |s */. /* *******|
000020b0  2a 2a 2a 2a 2a 2a 2a 20  2a 2f 0a 0a 20 69 66 20  |******* */.. if |
000020c0  28 21 63 72 65 61 74 65  5f 77 69 6e 28 22 6d 61  |(!create_win("ma|
000020d0  69 6e 22 2c 26 58 2e 57  6d 61 69 6e 29 29 20 72  |in",&X.Wmain)) r|
000020e0  65 74 75 72 6e 20 46 41  4c 53 45 3b 0a 20 58 2e  |eturn FALSE;. X.|
000020f0  57 69 6e 66 6f 20 3d 20  64 62 6f 78 5f 6e 65 77  |Winfo = dbox_new|
00002100  28 22 70 72 6f 67 49 6e  66 6f 22 29 3b 0a 20 64  |("progInfo");. d|
00002110  62 6f 78 5f 73 65 74 66  69 65 6c 64 28 58 2e 57  |box_setfield(X.W|
00002120  69 6e 66 6f 2c 31 2c 22  21 44 72 61 77 47 72 61  |info,1,"!DrawGra|
00002130  62 22 29 3b 0a 20 64 62  6f 78 5f 73 65 74 66 69  |b");. dbox_setfi|
00002140  65 6c 64 28 58 2e 57 69  6e 66 6f 2c 32 2c 22 53  |eld(X.Winfo,2,"S|
00002150  61 76 65 73 20 44 72 61  77 20 66 69 6c 65 73 20  |aves Draw files |
00002160  61 73 20 53 70 72 69 74  65 73 22 29 3b 0a 20 64  |as Sprites");. d|
00002170  62 6f 78 5f 73 65 74 66  69 65 6c 64 28 58 2e 57  |box_setfield(X.W|
00002180  69 6e 66 6f 2c 33 2c 22  a9 20 50 61 75 6c 20 4d  |info,3,". Paul M|
00002190  61 73 6f 6e 2c 20 31 39  39 32 22 29 3b 0a 20 64  |ason, 1992");. d|
000021a0  62 6f 78 5f 73 65 74 66  69 65 6c 64 28 58 2e 57  |box_setfield(X.W|
000021b0  69 6e 66 6f 2c 34 2c 22  31 2e 30 30 20 28 32 37  |info,4,"1.00 (27|
000021c0  2d 4f 63 74 2d 31 39 39  32 29 22 29 3b 0a 20 77  |-Oct-1992)");. w|
000021d0  69 6e 5f 72 65 67 69 73  74 65 72 5f 65 76 65 6e  |in_register_even|
000021e0  74 5f 68 61 6e 64 6c 65  72 28 58 2e 57 6d 61 69  |t_handler(X.Wmai|
000021f0  6e 2c 65 76 65 6e 74 5f  68 61 6e 64 2c 26 58 2e  |n,event_hand,&X.|
00002200  57 6d 61 69 6e 29 3b 0a  20 77 69 6e 5f 72 65 67  |Wmain);. win_reg|
00002210  69 73 74 65 72 5f 65 76  65 6e 74 5f 68 61 6e 64  |ister_event_hand|
00002220  6c 65 72 28 77 69 6e 5f  49 43 4f 4e 42 41 52 4c  |ler(win_ICONBARL|
00002230  4f 41 44 2c 69 63 6f 6e  5f 6c 6f 61 64 2c 30 29  |OAD,icon_load,0)|
00002240  3b 0a 0a 20 2f 2a 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.. /* *********|
00002250  2a 2a 2a 20 2a 2f 0a 20  2f 2a 20 63 72 65 61 74  |*** */. /* creat|
00002260  65 20 6d 65 6e 75 73 20  2a 2f 0a 20 2f 2a 20 2a  |e menus */. /* *|
00002270  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 20 2a 2f 0a 0a  |*********** */..|
00002280  20 2f 2a 20 58 2e 4d 6d  61 69 6e 5f 73 20 3d 20  | /* X.Mmain_s = |
00002290  6d 65 6e 75 5f 6e 65 77  28 22 4f 70 74 69 6f 6e  |menu_new("Option|
000022a0  73 22 2c 22 4f 70 74 31  2c 4f 70 74 32 2c 4f 70  |s","Opt1,Opt2,Op|
000022b0  74 33 22 29 3b 20 2a 2f  0a 20 58 2e 4d 6d 61 69  |t3"); */. X.Mmai|
000022c0  6e 20 3d 20 6d 65 6e 75  5f 6e 65 77 28 22 44 72  |n = menu_new("Dr|
000022d0  61 77 47 72 61 62 22 2c  22 3e 49 6e 66 6f 2c 3e  |awGrab",">Info,>|
000022e0  5a 6f 6f 6d 2c 3e 53 61  76 65 20 73 70 72 69 74  |Zoom,>Save sprit|
000022f0  65 2c 51 75 69 74 22 29  3b 0a 20 2f 2a 20 6d 65  |e,Quit");. /* me|
00002300  6e 75 5f 73 75 62 6d 65  6e 75 28 58 2e 4d 6d 61  |nu_submenu(X.Mma|
00002310  69 6e 2c 32 2c 58 2e 4d  6d 61 69 6e 5f 73 29 3b  |in,2,X.Mmain_s);|
00002320  20 2a 2f 0a 20 6d 65 6e  75 5f 73 65 74 66 6c 61  | */. menu_setfla|
00002330  67 73 28 58 2e 4d 6d 61  69 6e 2c 4d 6d 61 69 6e  |gs(X.Mmain,Mmain|
00002340  5f 7a 6f 6f 6d 2c 30 2c  31 29 3b 0a 20 6d 65 6e  |_zoom,0,1);. men|
00002350  75 5f 73 65 74 66 6c 61  67 73 28 58 2e 4d 6d 61  |u_setflags(X.Mma|
00002360  69 6e 2c 4d 6d 61 69 6e  5f 73 61 76 65 2c 30 2c  |in,Mmain_save,0,|
00002370  31 29 3b 0a 20 69 66 20  28 21 65 76 65 6e 74 5f  |1);. if (!event_|
00002380  61 74 74 61 63 68 6d 65  6e 75 28 58 2e 57 6d 61  |attachmenu(X.Wma|
00002390  69 6e 2c 58 2e 4d 6d 61  69 6e 2c 69 63 6f 6e 5f  |in,X.Mmain,icon_|
000023a0  6d 65 6e 75 2c 30 29 29  20 72 65 74 75 72 6e 20  |menu,0)) return |
000023b0  46 41 4c 53 45 3b 0a 20  69 66 20 28 21 65 76 65  |FALSE;. if (!eve|
000023c0  6e 74 5f 61 74 74 61 63  68 6d 65 6e 75 28 77 69  |nt_attachmenu(wi|
000023d0  6e 5f 49 43 4f 4e 42 41  52 2c 58 2e 4d 6d 61 69  |n_ICONBAR,X.Mmai|
000023e0  6e 2c 69 63 6f 6e 5f 6d  65 6e 75 2c 30 29 29 20  |n,icon_menu,0)) |
000023f0  72 65 74 75 72 6e 20 46  41 4c 53 45 3b 0a 20 20  |return FALSE;.  |
00002400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002410  20 20 20 0a 20 2f 2a 20  2a 2a 2a 2a 2a 2a 2a 2a  |   . /* ********|
00002420  2a 2a 2a 2a 2a 2a 20 2a  2f 0a 20 2f 2a 20 64 72  |****** */. /* dr|
00002430  61 77 20 66 75 6e 63 74  69 6f 6e 73 20 2a 2f 0a  |aw functions */.|
00002440  20 2f 2a 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | /* ************|
00002450  2a 2a 20 2a 2f 0a 0a 20  64 72 61 77 5f 72 65 67  |** */.. draw_reg|
00002460  69 73 74 65 72 4d 65 6d  6f 72 79 46 75 6e 63 74  |isterMemoryFunct|
00002470  69 6f 6e 73 28 66 6c 65  78 5f 61 6c 6c 6f 63 2c  |ions(flex_alloc,|
00002480  66 6c 65 78 5f 65 78 74  65 6e 64 2c 66 6c 65 78  |flex_extend,flex|
00002490  5f 66 72 65 65 29 3b 0a  20 58 2e 64 72 61 77 2e  |_free);. X.draw.|
000024a0  64 61 74 61 20 3d 20 4e  55 4c 4c 3b 0a 20 58 2e  |data = NULL;. X.|
000024b0  64 72 61 77 2e 64 61 74  61 20 3d 20 30 3b 0a 0a  |draw.data = 0;..|
000024c0  20 72 65 74 75 72 6e 20  54 52 55 45 3b 0a 20 7d  | return TRUE;. }|
000024d0  20 20 20 20 20 20 20 20  20 20 0a 0a 0a 0a 76 6f  |          ....vo|
000024e0  69 64 20 70 6f 6c 6c 28  76 6f 69 64 29 0a 20 7b  |id poll(void). {|
000024f0  0a 20 77 68 69 6c 65 20  28 21 71 75 69 74 29 0a  |. while (!quit).|
00002500  20 20 20 65 76 65 6e 74  5f 70 72 6f 63 65 73 73  |   event_process|
00002510  28 29 3b 0a 20 7d 0a 0a  0a 0a 69 6e 74 20 6d 61  |();. }....int ma|
00002520  69 6e 28 76 6f 69 64 29  0a 20 7b 0a 20 74 72 61  |in(void). {. tra|
00002530  63 65 5f 6f 6e 28 29 3b  0a 20 69 66 20 28 69 6e  |ce_on();. if (in|
00002540  69 74 5f 77 69 6d 70 28  29 20 3d 3d 20 46 41 4c  |it_wimp() == FAL|
00002550  53 45 29 20 65 78 69 74  28 31 29 3b 0a 20 70 6f  |SE) exit(1);. po|
00002560  6c 6c 28 29 3b 0a 20 7d  0a                       |ll();. }.|
00002569