?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
revert between 56095 -> 55830 in arch
[AROS.git] / workbench / prefs / Editor / JanoPrefs.c
blob49cf2323aeecfa17ab923d8e587e879fa1c789f1
1 /***************************************************************
2 **** JanoPrefs.c: Configuration window for JanoEditor ****
3 **** Free software under GNU license, started on 11/11/2000 ****
4 **** © T.Pierron, C.Guillaume. ****
5 ***************************************************************/
6
7 #define ASL_V38_NAMES_ONLY
8 #include <intuition/intuition.h>
9 #include <intuition/intuitionbase.h>
10 #include <libraries/gadtools.h>
11 #include <libraries/asl.h>
12 #include <libraries/dos.h>
13 #include <graphics/gfxbase.h>
14 #include <graphics/modeid.h>
15
16 #include <proto/exec.h>
17 #include <proto/dos.h>
18 #include <proto/graphics.h>
19 #include <proto/intuition.h>
20 #include <proto/gadtools.h>
21 #include <proto/asl.h>
22
23 #include <stdlib.h>
24 #include <string.h>
25 #include <stdio.h>
26
27 #include "Jed.h"
28 #include "JanoPrefs.h"
29 #include "IPC_Prefs.h"
30 #include "Sample.h"
31
32 #define CATCOMP_NUMBERS
33 #include "strings.h"
34 #ifdef _STRINGS_H
35 #undef _STRINGS_H
36 #endif
37 #define LocaleInfo LocaleInfoTmp /* Avoid redefinition :-( */
38 #include "../../tools/Edit/strings.h"
39
40 /* Shared libraires we'll need to open */
41 struct IntuitionBase *IntuitionBase = NULL;
42 struct GfxBase *GfxBase = NULL;
43 struct Library *GadToolsBase = NULL;
44 struct Library *AslBase = NULL;
45 struct Library *LocaleBase = NULL;
46 struct Library *DiskfontBase = NULL;
47 struct Library *LayersBase = NULL;
48
49 struct IntuiMessage *msg, msgbuf;
50 struct NewWindow NewPrefWin =
51 {
52 0,0,0,0, 1,1, /* LE,TE,Wid,Hei, Pens */
53 IDCMP_MENUPICK | IDCMP_CLOSEWINDOW | IDCMP_GADGETUP | IDCMP_NEWSIZE | IDCMP_VANILLAKEY,
54 WFLG_CLOSEGADGET | WFLG_NEWLOOKMENUS | WFLG_DEPTHGADGET | WFLG_ACTIVATE | WFLG_SMART_REFRESH |
55 WFLG_DRAGBAR,
56 NULL, /* FirstGadget */
57 NULL, /* CheckMark */
58 NULL, /* Title */
59 NULL, /* Screen */
60 NULL, /* BitMap */
61 100, 50, 0xffff, 0xffff, /* Min & Max size */
62 CUSTOMSCREEN
63 };
64
65 /** Standard GUI ressource **/
66 struct Screen *Scr = NULL; /* Screen where window opens */
67 struct Window *Wnd = NULL; /* Pointer to the opened window */
68 void *Vi = NULL; /* Visual Info for gadget */
69 struct Menu *Menu = NULL; /* Menu of interface */
70 struct TextFont *font; /* Font used for gadgets */
71 struct RastPort RPT; /* Font measurement */
72
73 STRPTR FSCycTxt[5];
74 UBYTE CB_state[CBS];
75
76 /* Tag list for various gadget */
77 struct TagItem IntTags[] = { /*{GTIN_Number, 0},*/ {GTST_MaxChars,2}, {TAG_DONE}};
78 struct TagItem SepTags[] = {{GTST_MaxChars, MAX_SPLIT}, {TAG_DONE}};
79 struct TagItem TextFontTags[] = {{GTCY_Labels, (IPTR)FTCycTxt}, {GTCY_Active,0}, {TAG_DONE}};
80 struct TagItem ScrFontTags[] = {{GTCY_Labels, (IPTR)FSCycTxt}, {GTCY_Active,0}, {TAG_DONE}};
81 struct TagItem ScrMdTags[] = {{GTCY_Labels, (IPTR)ScrCycTxt}, {GTCY_Active,0}, {TAG_DONE}};
82 struct TagItem ColorTags[] = {{GTCY_Labels, (IPTR)ColCycTxt}, {GTCY_Active,0}, {TAG_DONE}};
83 struct TagItem MenuTags[] = {{GTMN_FrontPen, 1L}, {TAG_DONE}};
84
85 struct TagItem *GadTags[] = {IntTags, SepTags, TextFontTags, ScrFontTags, ScrMdTags};
86
87 /* Tag list for opening the main window */
88 WORD PrefZoom[4];
89 struct TagItem PrefTags[] = {
90 {WA_Zoom,(IPTR)PrefZoom},
91 {WA_NewLookMenus,TRUE},
92 {TAG_DONE}
93 };
94
95 struct NewGadget NG; /* To create the gadgets */
96 struct Gadget *pgads=NULL; /* Gadtool's gadgets */
97 struct Gadget *gads[CBS+CGS];
98 extern PREFS prefs; /* Preference buffer */
99 extern UBYTE Modif[]; /* Buffer for string's gadget */
100 ULONG prefsigbit, msgport; /* Signal bits for asynchronous messages collect */
101 ULONG extended; /* Extended cycle gadgets */
102 UBYTE ConfigFile = TRUE; /* TRUE is a config file is edited */
103 UBYTE ColorIndex = 0; /* Color index to change */
104 UBYTE StrInfo[60]; /* Screen/font description */
105 WORD wid[5]; /* Width of various strings */
106
107 /*** Display an error message in the window's title ***/
108 static UBYTE *Title = NULL;
109 static ULONG err_time;
110 void ThrowError(struct Window *W, UBYTE *Msg)
111 {
112 if( W ) {
113 /* Save old title */
114 if(Title == 0)
115 Title = (W->Flags & WFLG_BACKDROP ? W->WScreen->Title : W->Title);
116 /* If window is backdrop'ed, change screen's title instead of window */
117 if(W->Flags & WFLG_BACKDROP) SetWindowTitles(W,(STRPTR)-1,Msg);
118 else SetWindowTitles(W,Msg,(STRPTR)-1);
119
120 DisplayBeep(W->WScreen);
121 err_time = 0;
122 /* To be sure that mesage will be disappear one day */
123 ModifyIDCMP(W,W->IDCMPFlags | IDCMP_INTUITICKS);
124 } else puts(Msg);
125 }
126
127 /*** Show messages associated with IoErr() number ***/
128 void ThrowDOSError(struct Window *W, STRPTR Prefix, UBYTE err)
129 {
130 static UBYTE Message[100];
131
132 /* Get standard DOS error message */
133 Fault(err, Prefix, Message, sizeof(Message));
134
135 ThrowError(W, Message);
136 }
137
138 /*** Reset the old title ***/
139 void StopError(struct Window *W)
140 {
141 if(W->Flags & WFLG_BACKDROP) SetWindowTitles(W,(STRPTR)-1,Title);
142 else SetWindowTitles(W,Title,(STRPTR)-1);
143 Title=0;
144 /* INTUITICKS aren't required anymore */
145 ModifyIDCMP(W,W->IDCMPFlags & ~IDCMP_INTUITICKS);
146 }
147
148 /*** Try to open configuration window, return 1 if all's ok ***/
149 BYTE setup_guipref( void )
150 {
151 extern UBYTE Path[];
152 WORD width,i;
153
154 /** Look if window isn't already open, thus just activate it **/
155 if( Wnd ) {
156 ActivateWindow(Wnd);
157 WindowToFront(Wnd);
158 /* Uniconified it, if it is */
159 if(Wnd->Height<=Wnd->BorderTop) ZipWindow(Wnd);
160 ScreenToFront(Scr);
161 return TRUE;
162 }
163
164 /** Visual info pointer **/
165 if(Vi == NULL && !(Vi = (void *) GetVisualInfoA(Scr,NULL))) return 0;
166
167 /** Init missing strings **/
168 CopyMem(FTCycTxt,FSCycTxt,sizeof(FSCycTxt));
169 CopyMem(FTCycTxt+1,ScrCycTxt+2,sizeof(UBYTE *)*2);
170 FTCycTxt[0]=StrInfo;
171 FSCycTxt[0]=StrInfo+20;
172 ScrCycTxt[0]=StrInfo+40;
173 /** Init temporary rastport, for font measurement **/
174 InitRastPort(&RPT);
175 SetFont(&RPT, font = Scr->RastPort.Font);
176
177 /** Compute window width and height **/
178 wid[0] = meas_table(MiscTxt);
179 wid[1] = meas_table(ChkTxt);
180 wid[2] = meas_table(OkCanSav)+20;
181 wid[3] = meas_table(FSCycTxt);
182 wid[4] = meas_table(ColCycTxt);
183 width = meas_table(ScrCycTxt);
184 if(wid[3] < width) wid[3] = width;
185
186 NewPrefWin.Width = wid[0] + wid[3] + wid[1] + 130;
187 NewPrefWin.Height = Scr->BarHeight + font->tf_YSize * 8 + (59 + SAMPLE_HEI);
188 NewPrefWin.LeftEdge = 50;
189 NewPrefWin.TopEdge = 50;
190 NewPrefWin.Screen = Scr;
191 NewPrefWin.Title = (ConfigFile ? Path : PrefMsg[0]);
192
193 /** Does it fit in the screen ? **/
194 fit_in_screen(&NewPrefWin, Scr);
195
196 /** Compute the iconified window dimensions: **/
197 PrefZoom[2] = TextLength(&RPT,NewPrefWin.Title,strlen(NewPrefWin.Title))+100;
198 if(prefs.use_pub) PrefZoom[0] = Scr->Width-PrefZoom[2]-15, PrefZoom[1] = 0;
199 else PrefZoom[0] = PrefZoom[1] = 50;
200 PrefZoom[3] = Scr->WBorTop + Scr->Font->ta_YSize + 1;
201
202 /** Setup inital tags: **/
203 ScrFontTags[1].ti_Data = 0;
204 ScrMdTags[1].ti_Data = 0;
205 TextFontTags[1].ti_Data = 0;
206 extended=0;
207
208 if( prefs.use_txtfont )
209 font_info(StrInfo, prefs.txtfont),
210 TextFontTags[0].ti_Data = (IPTR) FTCycTxt, extended |= 1;
211 else
212 TextFontTags[0].ti_Data = (IPTR) (FTCycTxt+1);
213
214 if( prefs.use_scrfont )
215 font_info(StrInfo+20, prefs.scrfont),
216 ScrFontTags[0].ti_Data = (IPTR) FSCycTxt, extended |= 2;
217 else
218 ScrFontTags[0].ti_Data = (IPTR) (FSCycTxt+1);
219
220 if( prefs.use_pub==1 )
221 scr_info(StrInfo+40,Scr->Width, Scr->Height, Scr->RastPort.BitMap->Depth),
222 ScrMdTags[0].ti_Data = (IPTR) ScrCycTxt, extended |= 4;
223 else {
224 ScrMdTags[0].ti_Data = (IPTR) (ScrCycTxt+1);
225 if(prefs.use_pub!=2) ScrMdTags[1].ti_Data = 1; /* Clone */
226 }
227 /* Checkbox states */
228 CopyMem(&prefs.backdrop, CB_state, CBS);
229
230 /* If it isn't the frontmost screen */
231 if(Scr != IntuitionBase->ActiveScreen) ScreenToFront(Scr);
232
233 /** Init Menus **/
234 if(NULL == (Menu = (void *) CreateMenusA(newmenu, MenuTags)) ||
235 0 == LayoutMenus(Menu, Vi, GTMN_TextAttr, Scr->Font, TAG_DONE)) return FALSE;
236
237 /** Try to open the window **/
238 if(( Wnd = (struct Window *) OpenWindowTagList(&NewPrefWin,PrefTags) ))
239 {
240 struct Gadget **pg = gads, *gad;
241 pgads = NULL;
242 gad = (struct Gadget *) CreateContext(&pgads);
243 NG.ng_TopEdge = Wnd->BorderTop+5;
244 NG.ng_Width = wid[3]+40;
245 NG.ng_LeftEdge = wid[0]+20;
246 NG.ng_Height = font->tf_YSize+6;
247 NG.ng_Flags = PLACETEXT_LEFT | NG_HIGHLABEL;
248 NG.ng_TextAttr = Scr->Font;
249 NG.ng_VisualInfo = Vi;
250
251 /* Create left column of gadgets */
252 for(i=0; i<CGS; i++, NG.ng_TopEdge+=NG.ng_Height, *pg++ = gad)
253 {
254 WORD kind;
255
256 NG.ng_GadgetText = MiscTxt[i];
257 NG.ng_GadgetID = i;
258 if (i == 0)
259 {
260 kind = INTEGER_KIND;
261 }
262 else if (i == 1)
263 {
264 kind = STRING_KIND;
265 }
266 else
267 {
268 kind = CYCLE_KIND;
269 }
270
271 gad = (void *) CreateGadgetA(kind, gad, &NG, GadTags[i]);
272 if(i==0) AddNum (prefs.tabsize, GetSI(gad)->Buffer);
273 if(i==1) CopyMem(prefs.wordssep, GetSI(gad)->Buffer, MAX_SPLIT);
274 }
275
276 /* Create right column of gads */
277 NG.ng_TopEdge = Wnd->BorderTop+5;
278 NG.ng_LeftEdge += NG.ng_Width+20;
279 NG.ng_Width = (NG.ng_Height -= 2);
280 NG.ng_Flags = PLACETEXT_RIGHT;
281 for(; i<CGS+CBS; i++, NG.ng_TopEdge+=NG.ng_Height, *pg++ = gad)
282 {
283 NG.ng_GadgetText = ChkTxt[i-CGS];
284 NG.ng_GadgetID = i;
285 gad = (void *) CreateGadget(CHECKBOX_KIND, gad, &NG, GTCB_Checked, CB_state[i-CGS], TAG_DONE);
286 if(i == CGS && prefs.use_pub == 0)
287 gad->Flags |= GFLG_DISABLED;
288 }
289
290 /* Create bottom row of gadgets */
291 NG.ng_TopEdge = Wnd->Height-NG.ng_Height-10;
292 NG.ng_LeftEdge = 10;
293 NG.ng_Width = wid[2];
294 NG.ng_Flags = PLACETEXT_IN;
295 width = (Wnd->Width-20-wid[2]) >> 1;
296 for(; i<UCS+3; i++, NG.ng_LeftEdge+=width)
297 {
298 NG.ng_GadgetText = OkCanSav[i-UCS];
299 NG.ng_GadgetID = i;
300 gad = (void *) CreateGadgetA(BUTTON_KIND, gad, &NG, NULL);
301 }
302
303 /* Initiate sample editor to see colors adjustement */
304 init_sample(Wnd, &prefs, NG.ng_TopEdge -= 5 + SAMPLE_HEI);
305
306 /* Cycle color chooser */
307 NG.ng_TopEdge -= NG.ng_Height+3;
308 NG.ng_Width = wid[4]+40;
309 NG.ng_GadgetText = NULL;
310 NG.ng_GadgetID = i;
311 NG.ng_LeftEdge = 10;
312 gad = (void *) CreateGadgetA(CYCLE_KIND, gad, &NG, ColorTags);
313
314 /* Palette chooser */
315 NG.ng_Width = Wnd->Width - 10 - (
316 NG.ng_LeftEdge += NG.ng_Width+10);
317 NG.ng_GadgetID = i+1;
318 CreateGadget(PALETTE_KIND,
319 gad,
320 &NG,
321 GTPA_Depth, ((Scr->RastPort.BitMap->Depth > 5) ? 5 : Scr->RastPort.BitMap->Depth),
322 TAG_DONE);
323
324 /* Add gadgets to window: */
325 CopyMem(Wnd->RPort, &RPT, sizeof(RPT));
326 SetFont(&RPT, prefs.scrfont);
327 render_sample(Wnd, EDIT_ALL);
328 AddGList( Wnd, pgads, -1, -1, NULL);
329 RefreshGList(pgads, Wnd, NULL, -1);
330 SetMenuStrip( Wnd, Menu );
331 GT_RefreshWindow(Wnd, NULL);
332
333 /* Add window's signal bit: */
334 prefsigbit = 1 << Wnd->UserPort->mp_SigBit;
335 return TRUE;
336 }
337 return FALSE;
338 }
339
340 /*** Close the preference window ***/
341 void close_prefwnd( BYTE cmd )
342 {
343 if(Wnd != NULL)
344 {
345 if( Menu ) ClearMenuStrip(Wnd);
346 CloseWindow(Wnd);
347 prefsigbit=0; Wnd=NULL;
348 }
349 if(pgads) {
350 /* Flush content of some gadget that may not be confirmed */
351 prefs.tabsize = atoi(GetSI(gads[0])->Buffer);
352 CopyMem(GetSI(gads[1])->Buffer, prefs.wordssep, MAX_SPLIT);
353
354 FreeGadgets(pgads); pgads=NULL;
355 }
356
357 if(Menu) FreeMenus(Menu),Menu=NULL;
358
359 /* Do we need to send modifications to JANO? */
360 if( cmd && !ConfigFile ) send_jano(&prefs, cmd);
361 }
362
363 /*** Handle messages coming from gadgets ***/
364 BYTE handle_pref_gadget(struct Gadget *G)
365 {
366 struct TextFont *newfont;
367 static UBYTE useit[]={1,2,0,1};
368 LONG Code;
369
370 switch( G->GadgetID )
371 {
372 case 0: /* Check tabulation: */
373 check_tab( G );
374 break;
375 case 2: /* Changing default text font: */
376
377 Code = msgbuf.Code; if(extended & 1) Code--;
378 if(Code <= 0)
379 {
380 if( !(prefs.use_txtfont = (Code==-1)) )
381 /* User want to use the default text font: */
382 text_to_attr(prefs.txtfont=GfxBase->DefaultFont, &prefs.attrtxt);
383 else
384 if((newfont = get_old_font(FTCycTxt[0])))
385 text_to_attr(prefs.txtfont=newfont, &prefs.attrtxt);
386 else { ThrowError(Wnd, ErrMsg(ERR_LOADFONT)); break; }
387 render_sample(Wnd, EDIT_AREA);
388 break;
389 } else
390 /* User want to change the text font: */
391 if((newfont = change_fonts(&prefs.attrtxt, Wnd, TRUE)))
392 {
393 if( prefs.txtfont ) CloseFont(prefs.txtfont);
394 font_info(StrInfo, prefs.txtfont = newfont );
395 TextFontTags[0].ti_Data = (IPTR) FTCycTxt; extended |= 1;
396 prefs.use_txtfont = TRUE;
397 TextFontTags[1].ti_Data = 0;
398 } /* else we must reset the original cycle gadget entry */
399 GT_SetGadgetAttrsA(G, Wnd, NULL, TextFontTags);
400 render_sample(Wnd, EDIT_AREA);
401 break;
402 case 3: /* Changing default screen font */
403
404 Code = msgbuf.Code; if(extended & 2) Code--;
405 if(Code <= 0)
406 {
407 if( !(prefs.use_scrfont = (Code==-1)) )
408 /* User want to use default screen font */
409 text_to_attr(prefs.scrfont=prefs.parent->RastPort.Font, &prefs.attrscr);
410 else
411 if((newfont = get_old_font(FSCycTxt[0])))
412 text_to_attr(prefs.scrfont=newfont, &prefs.attrscr);
413 else { ThrowError(Wnd, ErrMsg(ERR_LOADFONT)); break; }
414
415 render_sample(Wnd, EDIT_ALL);
416 break;
417 } else
418 /* User want to change the screen font */
419 if((newfont = change_fonts(&prefs.attrscr, Wnd, FALSE)))
420 {
421 if( prefs.scrfont ) CloseFont(prefs.scrfont);
422 font_info(StrInfo+20, prefs.scrfont = newfont );
423 ScrFontTags[0].ti_Data = (IPTR) FSCycTxt; extended |= 2;
424 prefs.use_scrfont = TRUE;
425 ScrFontTags[1].ti_Data = 0;
426 }
427 GT_SetGadgetAttrsA(G, Wnd, NULL, ScrFontTags);
428 render_sample(Wnd, EDIT_ALL);
429 break;
430 case 4: /* Change screen mode/type */
431
432 Code = msgbuf.Code; if(extended & 4) Code--;
433 if(Code <= 1)
434 prefs.use_pub = useit[Code+1];
435 else
436 {
437 /* User want to use a pubscreen instead of workbench screen: */
438 if((Code = change_screen_mode(wid, prefs.modeid)) != INVALID_ID)
439 {
440 prefs.depth = wid[2];
441 prefs.modeid = Code;
442 ScrMdTags[0].ti_Data = (IPTR) ScrCycTxt;
443 ScrMdTags[1].ti_Data = 0;
444 scr_info(StrInfo+40, wid[0], wid[1], wid[2]);
445 prefs.use_pub = TRUE; extended |= 4;
446 } else ScrMdTags[1].ti_Data = useit[ prefs.use_pub+1 ];
447 GT_SetGadgetAttrsA(G, Wnd, NULL, ScrMdTags);
448 }
449 /* If user want to use a pubscreen, then disable backdrop checkbox **
450 ** It is not recommended to use a backdrop'ed window on a such scr */
451 if( prefs.use_pub )
452 OnGadget (gads[CGS], Wnd, NULL);
453 else
454 OffGadget (gads[CGS], Wnd, NULL);
455 break;
456 case CGS: case CGS+1: /* Checkbuttons */
457 case CGS+2: case CGS+3:
458 (&prefs.backdrop)[G->GadgetID-CGS] = ((G->Flags & GFLG_SELECTED) == GFLG_SELECTED);
459 break;
460 case UCS: /* Save */
461 close_prefwnd(CMD_SAVPREF);
462 if(ConfigFile) save_prefs(&prefs);
463 return TRUE;
464 case UCS+1: /* Use */
465 close_prefwnd(CMD_NEWPREF); return TRUE;
466 case UCS+2: /* Cancel */
467 close_prefwnd(0); return TRUE;
468 case UCS+3: /* Cycle color */
469 ColorIndex = msgbuf.Code; break;
470 case UCS+4: /* Palette */
471 if((&pen.bg)[ ColorIndex ] != msgbuf.Code)
472 {
473 (&pen.bg)[ColorIndex] = msgbuf.Code;
474 (&prefs.pen.bg)[ColorIndex] = -msgbuf.Code - 1;
475
476 render_sample(Wnd, Modif[ColorIndex] );
477 }
478 }
479 /* Returns TRUE if window is closed */
480 return FALSE;
481 }
482
483 /*** Keyboard shorcut ***/
484 BYTE handle_pref_kbd( UBYTE Key )
485 {
486 switch( Key )
487 {
488 case '\t':
489 case 't':
490 case 'T':
491 GetSI(gads[0])->BufferPos = GetSI(gads[0])->MaxChars;
492 ActivateGadget(gads[0], Wnd, NULL); break;
493 case 27: close_prefwnd(0); return TRUE;
494 case 13:
495 case 'u':
496 case 'U': close_prefwnd(CMD_NEWPREF); return TRUE;
497 case 's':
498 case 'S':
499 close_prefwnd(CMD_SAVPREF);
500 if(ConfigFile) save_prefs(&prefs);
501 return TRUE;
502 case 127:
503 if(Wnd->Height > Wnd->BorderTop)
504 ZipWindow(Wnd);
505 }
506 return FALSE;
507 }
508
509 /*** Handle newmenu events ***/
510 BYTE handle_pref_menu( ULONG MenuID )
511 {
512 switch( MenuID )
513 {
514 case 101: load_pref(&prefs); break; /* Load */
515 case 102: save_pref_as(&prefs); break; /* Save as */
516 case 103: close_prefwnd(0); return TRUE;
517 case 201: default_prefs(&prefs); break; /* Default prefs */
518 case 202: restore_config(&prefs); break; /* Last saved */
519 }
520 return FALSE;
521 }
522
523 /*** Handle events coming from pref window ***/
524 void handle_pref( void )
525 {
526 /* Collect messages posted to the window port: */
527 while(( msg=GT_GetIMsg(Wnd->UserPort) ))
528 {
529 /* Copy the entire message into the buffer: */
530 CopyMem(msg, &msgbuf, sizeof(msgbuf));
531 GT_ReplyIMsg( msg );
532
533 switch( msgbuf.Class )
534 {
535 case IDCMP_CLOSEWINDOW: close_prefwnd(CMD_NEWPREF); return;
536 case IDCMP_INTUITICKS:
537 /* An error message which needs to be removed? */
538 if(err_time == 0) err_time = msgbuf.Seconds;
539 if(err_time && msgbuf.Seconds-err_time>4) StopError(Wnd);
540 break;
541 case IDCMP_VANILLAKEY:
542 if( handle_pref_kbd( msgbuf.Code ) ) return;
543 else break;
544 case IDCMP_MENUPICK:
545 {
546 struct MenuItem *item = ItemAddress(Menu,msgbuf.Code);
547
548 if (item)
549 {
550 if( handle_pref_menu((IPTR)GTMENUITEM_USERDATA(item))) return;
551 }
552 break;
553 }
554 case IDCMP_GADGETUP:
555 if( handle_pref_gadget( (struct Gadget *) msgbuf.IAddress) ) return;
556 else break;
557 case IDCMP_NEWSIZE:
558 if( Wnd->Height > SAMPLE_HEI ) render_sample(Wnd, EDIT_ALL);
559 }
560 }
561 }
562
563 #ifdef DEBUG
564 ULONG amem, bmem;
565 #endif
566
567 void free_locale(void);
568
569 /*** Handle events coming from main window: ***/
570 void cleanup(UBYTE *msg, int errcode)
571 {
572 free_locale();
573 close_port();
574 free_sample();
575 free_asl();
576
577 if(Vi) FreeVisualInfo(Vi);
578 if(DiskfontBase) CloseLibrary(DiskfontBase);
579 if(LocaleBase) CloseLibrary(LocaleBase);
580 if(AslBase) CloseLibrary(AslBase);
581 if(GadToolsBase) CloseLibrary(GadToolsBase);
582 if(GfxBase) CloseLibrary((struct Library *)GfxBase);
583 if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
584 if(msg) puts(msg);
585
586 #ifdef DEBUG
587 /* Here can be compared good programs with the others :-) */
588 amem = AvailMem( MEMF_PUBLIC );
589 if(amem < bmem) printf("Possible memory lost of %d bytes\n", bmem-amem);
590 #endif
591 exit(errcode);
592 }
593
594 void prefs_local(void);
595
596 /*** MAIN LOOP ***/
597 int main(int argc, char *argv[])
598 {
599 ULONG sigwait, sigrcvd;
600 #ifdef DEBUG
601 bmem = AvailMem( MEMF_PUBLIC );
602 #endif
603 memset(&prefs,0,sizeof(prefs));
604
605 /* If preference tool is already running, just quits */
606 if( find_prefs() ) cleanup(0,0);
607
608 /* Optionnal libraries */
609 AslBase = (struct Library *) OpenLibrary("asl.library", 36);
610 LocaleBase = (struct Library *) OpenLibrary("locale.library", 38);
611 DiskfontBase = (struct Library *) OpenLibrary("diskfont.library", 0);
612
613 if(LocaleBase) prefs_local(); /* Localize the prog */
614
615 /* Open the required ROM libraries: */
616 if( (IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 36)) &&
617 (GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 36)) &&
618 (GadToolsBase = (struct Library *) OpenLibrary("gadtools.library", 36)) &&
619 (LayersBase = (struct Library *) OpenLibrary("layers.library", 36)) )
620 {
621 if( !(msgport = create_port()) ) cleanup(0, RETURN_FAIL);
622
623 /* User may want to "edit" a particular file */
624 if(argc > 1) {
625 if( load_prefs(&prefs, argv[1]) ) cleanup(ErrMsg(ERR_LOADFILE), RETURN_FAIL);
626 } else
627 if( find_jano(&prefs) ) ConfigFile = FALSE;
628 else load_prefs(&prefs, NULL);
629
630 save_config( ConfigFile );
631 if(ConfigFile) Scr = prefs.parent;
632
633 /* Init interface */
634 if( setup_guipref() )
635 {
636 sigwait = msgport | prefsigbit | SIGBREAKF_CTRL_C;
637 for( ;; )
638 {
639 sigrcvd = Wait( sigwait );
640 /* From where does the signal comes from? */
641 if(sigrcvd & SIGBREAKF_CTRL_C) break;
642
643 else if(sigrcvd & msgport) handle_port();
644
645 else handle_pref();
646 if(Wnd == NULL) break;
647 }
648 } else ThrowError(Wnd, ErrMsg(ERR_NOGUI));
649 } else ThrowError(Wnd, ErrMsg(ERR_BADOS));
650 cleanup(0,0);
651
652 return 0;
653 }
Mirror of AROS' svn.