dopus/Config/screen.c

   1 /*
   2
   3 Directory Opus 4
   4 Original GPL release version 4.12
   5 Copyright 1993-2000 Jonathan Potter
   6
   7 This program is free software; you can redistribute it and/or
   8 modify it under the terms of the GNU General Public License
   9 as published by the Free Software Foundation; either version 2
  10 of the License, or (at your option) any later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20
  21 All users of Directory Opus 4 (including versions distributed
  22 under the GPL) are entitled to upgrade to the latest version of
  23 Directory Opus version 5 at a reduced price. Please see
  24 http://www.gpsoft.com.au for more information.
  25
  26 The release of Directory Opus 4 under the GPL in NO WAY affects
  27 the existing commercial status of Directory Opus 5.
  28
  29 */
  30
  31 #include "config.h"
  32
  33 char old_general_font[30];
  34
  35 int doscreenconfig()
  36 {
  37     ULONG class;
  38     UWORD code,gadgetid,qual;
  39     struct ConfigUndo *undo;
  40     struct Gadget *gad;
  41     int mode=-1,realpen=1,x,y,cursel=-1,a,b,fontnum=0,arrowact=0,c;
  42     char *fg=NULL,*bg=NULL,buf[256],*ptr;
  43     struct DOpusListView *view;
  44     struct Screen scrbuf;
  45     unsigned char k;
  46
  47     showconfigscreen(CFG_SCREEN);
  48     undo=makeundo(UNDO_MAIN);
  49     curmode=NULL;
  50     /*if (version2)*/ fontsizelistview.h=52;
  51
  52     FOREVER {
  53         Wait(1<<Window->UserPort->mp_SigBit);
  54         while (IMsg=getintuimsg()) {
  55             if (!(mode==SCREEN_SCREENMODE &&
  56                 (view=ListViewIDCMP(&screenmodeview,IMsg))!=(struct DOpusListView *)-1) &&
  57                 !(mode==SCREEN_FONTS &&
  58                 (view=ListViewIDCMP(&fontplacelist,IMsg))!=(struct DOpusListView *)-1) &&
  59                 !(mode==SCREEN_PALETTE &&
  60                 (view=ListViewIDCMP(&palettelist,IMsg))!=(struct DOpusListView *)-1)) {
  61                 class=IMsg->Class; code=IMsg->Code; qual=IMsg->Qualifier;
  62                 x=IMsg->MouseX; y=IMsg->MouseY;
  63                 if (class==GADGETUP || class==GADGETDOWN) {
  64                     gad=(struct Gadget *)IMsg->IAddress;
  65                     gadgetid=gad->GadgetID;
  66                 }
  67                 ReplyMsg((struct Message *)IMsg);
  68                 switch (class) {
  69                     case IDCMP_MENUPICK:
  70                         if (code==MENUNULL) break;
  71                         if (mode>-1) {
  72                             select_gadget(&maingad[mode],0);
  73                             removescreenedit(mode);
  74                             mode=realpen=cursel=-1;
  75                         }
  76                         switch ((a=ITEMNUM(code))) {
  77                             case 0:
  78                             case 1:
  79                                 if (doload(CFG_SCREEN,a)) {
  80                                     if (config->scrdepth!=screen_depth)
  81                                         close_screen();
  82                                     open_screen();
  83                                     showconfigscreen(CFG_SCREEN);
  84                                 }
  85                                 break;
  86                         }
  87                         break;
  88
  89                     case IDCMP_MOUSEBUTTONS:
  90                         if (code==SELECTDOWN) {
  91                             if (mode==SCREEN_PALETTE) {
  92                                 if (x>x_off+297 && y>y_off+33 && x<x_off+514 && y<y_off+46) {
  93                                     for (a=0;a<(1<<((screen_depth > 4) ? 4 : screen_depth));a++) {
  94                                         if (x>=palettegad_xy[a][0] && x<=palettegad_xy[a][2] &&
  95                                             y>=palettegad_xy[a][1] && y<=palettegad_xy[a][3]) {
  96                                             realpen=screen_pens[a].pen;
  97                                             showcolourvals(realpen,1);
  98                                             showpalettegad(a);
  99                                             break;
 100                                         }
 101                                     }
 102                                 }
 103                             }
 104                             else if (mode==SCREEN_ARROWS) {
 105                                 for (a=0;a<3;a++) {
 106                                     if (x>x_off+182+(a*129) && x<x_off+307+(a*129) &&
 107                                         y>y_off+32 && y<y_off+89) {
 108                                         if (arrowact!=a) {
 109                                             showarrowborders(a,arrowact);
 110                                             arrowact=a;
 111                                             DoCycleGadget(&arrowgadgets[7],Window,arrowtypetxt,arrowact);
 112                                             fixarrowgads(arrowact);
 113                                             break;
 114                                         }
 115                                     }
 116                                 }
 117                             }
 118                             else if (mode==SCREEN_COLOURS && fg && bg) {
 119                                 a=*fg; b=*bg;
 120                                 if (docolourgad(rp,x_off+208,y_off+33,x,y,
 121                                     (cursel==COLBIT_3DBOXES)?NULL:cfg_string[STR_EXAMPLE],&a,&b,CFG_GADGET)) {
 122                                     *fg=a; *bg=b;
 123                                     if (cursel==COLBIT_3DBOXES) {
 124                                         showfuncob(rp,cfg_string[STR_EXAMPLE],1,0,CFG_GADGET,x_off+302,y_off+23);
 125                                         showscreencolours(COLOURS_ALL,NULL,NULL,4);
 126                                     }
 127                                     else showscreencolours((1<<cursel),NULL,NULL,0);
 128                                 }
 129                                 else {
 130                                     for (a=0;;a++) {
 131                                         if (coloursel[a].item==-1) break;
 132                                         if (x>=x_off+coloursel[a].x1 && x<=x_off+coloursel[a].x2 &&
 133                                             y>=y_off+coloursel[a].y1 && y<=y_off+coloursel[a].y2) {
 134                                             if (/*version2 ||*/ (a!=COLBIT_STRINGS && a!=COLBIT_SELSTRINGS)) {
 135                                                 cursel=coloursel[a].item;
 136                                                 showscreencolours((1<<cursel),&fg,&bg,0);
 137                                                 showcolourscycle(*fg,*bg,cursel);
 138                                                 setupcolourbox(rp,x_off+208,y_off+33,*fg,*bg);
 139                                             }
 140                                             break;
 141                                         }
 142                                     }
 143                                 }
 144                             }
 145                         }
 146                         break;
 147
 148                     case IDCMP_RAWKEY:
 149                         if ((code>=0x60 && code<=0x67) || code&0x80) break;
 150                         buf[0]=0;
 151                         RawkeyToStr(code,qual,NULL,buf,10);
 152                         k = LToLower(buf[0]);
 153                         if (mode==SCREEN_PALETTE)
 154                          {
 155                            if (k == getkeyshortcut(cfg_string[STR_PALETTE_RED]))
 156                                      ActivateStrGad(&palettegads[3],Window);
 157                            else if (k == getkeyshortcut(cfg_string[STR_PALETTE_GREEN]))
 158                                      ActivateStrGad(&palettegads[4],Window);
 159                            else if (k == getkeyshortcut(cfg_string[STR_PALETTE_BLUE]))
 160                                      ActivateStrGad(&palettegads[5],Window);
 161                          }
 162                         else if (mode==SCREEN_SCREENMODE)
 163                          {
 164                            if (k == getkeyshortcut(cfg_string[STR_SCREENMODE_WIDTH]))
 165                                      ActivateStrGad(&screenmodegads[0],Window);
 166                            else if (k == getkeyshortcut(cfg_string[STR_SCREENMODE_HEIGHT]))
 167                                      ActivateStrGad(&screenmodegads[1],Window);
 168                            else if (k == getkeyshortcut(cfg_string[STR_SCREENMODE_COLORS]))
 169                                      ActivateStrGad(&screenmodegads[2],Window);
 170                          }
 171                         break;
 172
 173                     case IDCMP_GADGETDOWN:
 174                         if (gadgetid>=PALETTE_SLIDER && gadgetid<PALETTE_SLIDER+3) {
 175                             updatecolourvals(realpen,0);
 176                             FOREVER {
 177                                 Wait(1<<Window->UserPort->mp_SigBit);
 178                                 while (IMsg=getintuimsg()) {
 179                                     class=IMsg->Class;
 180                                     ReplyMsg((struct Message *)IMsg);
 181                                     if (class==GADGETUP) break;
 182                                     if (class==MOUSEMOVE) updatecolourvals(realpen,0);
 183                                 }
 184                                 if (class==GADGETUP) {
 185                                     updatecolourvals(realpen,1);
 186                                     break;
 187                                 }
 188                             }
 189                         }
 190                         else if (gadgetid>=ARROWBASE+3 && gadgetid<ARROWBASE+7) {
 191                             gadgetid-=ARROWBASE+3; a=0;
 192                             FOREVER {
 193                                 if (IntuitionBase->ActiveWindow!=Window ||
 194                                     !(gad->Flags&SELECTED)) break;
 195                                 if ((arrowact==0 && gadgetid>1) ||
 196                                     (arrowact>0 && gadgetid<2)) {
 197                                     b=config->arrowsize[arrowact];
 198                                     if ((arrowact==0 && gadgetid==2) ||
 199                                         (arrowact>0 && gadgetid==0))
 200                                         ++config->arrowsize[arrowact];
 201                                     else --config->arrowsize[arrowact];
 202                                     switch (arrowact) {
 203                                         case 0:
 204                                             showupdownslider();
 205                                             break;
 206                                         case 1:
 207                                             showleftrightslider();
 208                                             break;
 209                                         case 2:
 210                                             showstringgadget();
 211                                             break;
 212                                     }
 213                                     if (b==config->arrowsize[arrowact]) a=-1;
 214                                 }
 215                                 else {
 216                                     switch (arrowact) {
 217                                         case 0:
 218                                             b=config->sliderwidth;
 219                                             if (gadgetid==1) config->sliderwidth-=2;
 220                                             else config->sliderwidth+=2;
 221                                             showupdownslider();
 222                                             if (b==config->sliderwidth) {
 223                                                 a=-1;
 224                                                 break;
 225                                             }
 226                                             break;
 227                                         case 1:
 228                                             b=config->sliderheight;
 229                                             if (gadgetid==3) config->sliderheight-=2;
 230                                             else config->sliderheight+=2;
 231                                             showleftrightslider();
 232                                             if (b==config->sliderheight) {
 233                                                 a=-1;
 234                                                 break;
 235                                             }
 236                                             break;
 237                                         case 2:
 238                                             b=config->stringheight;
 239                                             if (gadgetid==3) config->stringheight-=2;
 240                                             else config->stringheight+=2;
 241                                             showstringgadget();
 242                                             if (b==config->stringheight) {
 243                                                 a=-1;
 244                                                 break;
 245                                             }
 246                                             break;
 247                                     }
 248                                 }
 249                                 if (a==-1) break;
 250                                 else if (a==0) {
 251                                     Delay(5);
 252                                     a=1;
 253                                 }
 254                                 else Delay(1);
 255                                 while (IMsg=getintuimsg()) {
 256                                     class=IMsg->Class;
 257                                     ReplyMsg((struct Message *)IMsg);
 258                                     if (class==GADGETUP) break;
 259                                 }
 260                                 if (class==GADGETUP) break;
 261                             }
 262                         }
 263                         else if (gadgetid>=ARROWBASE && gadgetid<ARROWBASE+3) {
 264                             gadgetid-=ARROWBASE;
 265                             if (config->arrowpos[arrowact]!=gadgetid) {
 266                                 config->arrowpos[arrowact]=gadgetid;
 267                                 if (arrowact==0) showupdownslider();
 268                                 else if (arrowact==1) showleftrightslider();
 269                                 else showstringgadget();
 270                             }
 271                             fixarrowgads(arrowact);
 272                         }
 273                         break;
 274
 275                     case IDCMP_GADGETUP:
 276                         if (mode==SCREEN_GENERAL && gadgetid>GAD_BASE) {
 277                             config->generalscreenflags=processtickgad(scr_generalgadgets,config->generalscreenflags,gadgetid-GAD_BASE,-1);
 278                             break;
 279                         }
 280                         if (gadgetid<SCREEN_OKAY) {
 281                             if (mode==gadgetid) {
 282                                 removescreenedit(mode);
 283                                 mode=realpen=cursel=-1;
 284                                 makehelpname((char *)-1);
 285                                 doscreentitle(cfg_string[STR_SCREEN_SCREEN]);
 286                                 break;
 287                             }
 288                             if (mode>-1) {
 289                                 if (mode==SCREEN_SCREENMODE || mode==SCREEN_FONTS)
 290                                     select_gadget(&maingad[gadgetid],0);
 291                                 select_gadget(&maingad[mode],0);
 292                                 removescreenedit(mode);
 293                                 if (mode==SCREEN_SCREENMODE || mode==SCREEN_FONTS)
 294                                     select_gadget(&maingad[gadgetid],1);
 295                                 mode=realpen=cursel=-1;
 296                                 makehelpname((char *)-1);
 297                             }
 298                             makehelpname(screengadgets[gadgetid]);
 299                             doscreentitle(currenthelpname);
 300                         }
 301                         if (gadgetid>=PALETTE_STRING && gadgetid<PALETTE_STRING+3) {
 302                             updatecolourvals(realpen,-1);
 303                             if (code!=0x9) getnextgadget(gad);
 304                         }
 305                         else switch (gadgetid) {
 306                             case FONT_SIZE:
 307 //                                if (!version2) break;
 308                                 RefreshStrGad(&fontsizegadget,Window);
 309                                 a=atoi(fontsize_buf);
 310                                 c=config->fontsizes[fontnum];
 311                                 config->fontsizes[fontnum]=a;
 312                                 for (b=0;b<fontsizelistview.count;b++)
 313                                     if (atoi(fontsizelistview.items[b])==a) break;
 314                                 if (b<fontsizelistview.count) {
 315                                     fontsizelistview.itemselected=b;
 316                                     if (b<fontsizelistview.topitem ||
 317                                         b>fontsizelistview.topitem+fontsizelistview.lines-1)
 318                                         fontsizelistview.topitem=b;
 319                                     RefreshListView(&fontsizelistview,1);
 320                                     fontsize_buf[0]=0;
 321                                     RefreshStrGad(&fontsizegadget,Window);
 322                                 }
 323                                 else {
 324                                     fontsizelistview.itemselected=-1;
 325                                     RefreshListView(&fontsizelistview,1);
 326                                 }
 327                                 if (c!=a) dofontdemo(config->fontbufs[fontnum],config->fontsizes[fontnum]);
 328                                 break;
 329
 330                             case ARROWCYCLE:
 331                                 a=arrowact;
 332                                 if (qual&IEQUALIFIER_LSHIFT || qual&IEQUALIFIER_RSHIFT) {
 333                                     if ((--arrowact)<0) arrowact=2;
 334                                 }
 335                                 else if ((++arrowact)==3) arrowact=0;
 336                                 showarrowborders(arrowact,a);
 337                                 DoCycleGadget(&arrowgadgets[7],Window,arrowtypetxt,arrowact);
 338                                 fixarrowgads(arrowact);
 339                                 break;
 340
 341                             case SCREEN_SLIDER_LEFTCYCLE:
 342                                 config->slider_pos^=1;
 343                                 show_slider_setup(182,32,0);
 344                                 break;
 345
 346                             case SCREEN_SLIDER_RIGHTCYCLE:
 347                                 config->slider_pos^=2;
 348                                 show_slider_setup(373,32,1);
 349                                 break;
 350
 351                             case SCREEN_PALETTE:
 352                                 realpen=screen_pens[1].pen;
 353                             case SCREEN_FONTS:
 354                                 fontnum=FONT_CLOCK;
 355                             case SCREEN_ARROWS:
 356                                 arrowact=0;
 357                             case SCREEN_COLOURS:
 358                             case SCREEN_GENERAL:
 359                             case SCREEN_SCREENMODE:
 360                             case SCREEN_SLIDERS:
 361                                 mode=gadgetid;
 362                                 makescreenedit(mode);
 363                                 if (gadgetid==SCREEN_COLOURS) {
 364                                     cursel=0;
 365                                     fg=&config->statusfg; bg=&config->statusbg;
 366                                 }
 367                                 break;
 368
 369                             case COLOURS_SELECT:
 370                                 if (qual&IEQUALIFIER_LSHIFT || qual&IEQUALIFIER_RSHIFT) {
 371                                     if ((--cursel)<0) cursel= /*(version2)?*/COLBIT_SELSTRINGS/*:COLBIT_3DBOXES*/;
 372                                 }
 373                                 else {
 374                                     if (!coloursgadgets[++cursel]/* ||
 375                                         (!version2 && cursel==COLBIT_STRINGS)*/) cursel=0;
 376                                 }
 377                                 showscreencolours((1<<cursel),&fg,&bg,0);
 378                                 showcolourscycle(*fg,*bg,cursel);
 379                                 setupcolourbox(rp,x_off+208,y_off+33,*fg,*bg);
 380                                 break;
 381
 382                             case SCREENMODE_WIDTH:
 383                                 a=atoi(screenwidth_buf);
 384                                 if (a%2) lsprintf(screenwidth_buf,"%ld",(long int)(a+1));
 385                                 CheckNumGad(&screenmodegads[SCREENMODE_WIDTH-300],Window,curmode->minw,curmode->maxw);
 386                                 config->scrw=atoi(screenwidth_buf);
 387                                 config->scr_winw=config->scrw;
 388                                 if (code!=0x9) getnextgadget(gad);
 389                                 break;
 390
 391                             case SCREENMODE_HEIGHT:
 392                                 CheckNumGad(&screenmodegads[SCREENMODE_HEIGHT-300],Window,curmode->minh,curmode->maxh);
 393                                 config->scrh=atoi(screenheight_buf);
 394                                 config->scr_winh=config->scrh;
 395                                 if (code!=0x9) getnextgadget(gad);
 396                                 break;
 397
 398                             case SCREENMODE_DEPTH:
 399                                 a=atoi(screendepth_buf);
 400                                 for (b=curmode->maxdepth;b>=2;b--) {
 401                                     if (a>=(1<<b)) {
 402                                         a=b;
 403                                         break;
 404                                     }
 405                                 }
 406                                 if (b<=2) a=2;
 407
 408                             case SCREENMODE_SLIDER:
 409                                 if (gadgetid==SCREENMODE_SLIDER)
 410                                     a=GetSliderPos(&screenmodegads[SCREENMODE_SLIDER-300],curmode->maxdepth-1,1)+2;
 411                                 if (a>curmode->maxdepth) a=curmode->maxdepth;
 412                                 else if (a<2) a=2;
 413                                 lsprintf(screendepth_buf,"%ld",(long int)(1<<a));
 414                                 RefreshStrGad(&screenmodegads[SCREENMODE_DEPTH-300],Window);
 415                                 config->scrdepth=a;
 416                                 FixSliderPot(Window,&screenmodegads[SCREENMODE_SLIDER-300],config->scrdepth-2,curmode->maxdepth-1,1,2);
 417                                 if (gadgetid==SCREENMODE_DEPTH && code!=0x9) getnextgadget(gad);
 418                                 break;
 419
 420                             case SCREENMODE_DEFWIDTH:
 421                                 if (screenmodegads[SCREENMODE_DEFWIDTH-300].Flags&SELECTED) {
 422                                     config->screenflags|=SCRFLAGS_DEFWIDTH;
 423                                     EnableGadget(&screenmodegads[SCREENMODE_WIDTH-300],rp,0,0);
 424                                     config->scrw=curmode->defw;
 425                                     config->scr_winw=config->scrw;
 426                                     fixmodegads(curmode);
 427                                 }
 428                                 else config->screenflags&=~SCRFLAGS_DEFWIDTH;
 429                                 fixdefaultgads(curmode);
 430                                 fixmodegads(curmode);
 431                                 break;
 432
 433                             case SCREENMODE_DEFHEIGHT:
 434                                 if (screenmodegads[SCREENMODE_DEFHEIGHT-300].Flags&SELECTED) {
 435                                     config->screenflags|=SCRFLAGS_DEFHEIGHT;
 436                                     EnableGadget(&screenmodegads[SCREENMODE_HEIGHT-300],rp,0,0);
 437                                     config->scrh=curmode->defh;
 438                                     config->scr_winh=config->scrh;
 439                                     fixmodegads(curmode);
 440                                 }
 441                                 else config->screenflags&=~SCRFLAGS_DEFHEIGHT;
 442                                 fixdefaultgads(curmode);
 443                                 fixmodegads(curmode);
 444                                 break;
 445
 446                             case SCREENMODE_HALFHEIGHT:
 447                                 if (screenmodegads[SCREENMODE_HALFHEIGHT-300].Flags&SELECTED)
 448                                     config->screenflags|=SCRFLAGS_HALFHEIGHT;
 449                                 else config->screenflags&=~SCRFLAGS_HALFHEIGHT;
 450                                 break;
 451
 452                             case SCREEN_CANCEL:
 453                                 doundo(undo,UNDO_MAIN);
 454                                 if (config->scrdepth!=screen_depth) {
 455                                     if (mode>-1) {
 456                                         removescreenedit(mode);
 457                                         mode=-1;
 458                                     }
 459                                     close_screen();
 460                                 }
 461                                 open_screen();
 462                             case SCREEN_OKAY:
 463                                 if (mode>-1) removescreenedit(mode);
 464                                 doundo(undo,0);
 465                                 return((gadgetid==SCREEN_OKAY));
 466                         }
 467                         break;
 468                 }
 469             }
 470             else if (view) {
 471                 if (mode==SCREEN_FONTS) {
 472                     if (view->listid==1) {
 473                         /*if (version2)*/ {
 474                             fontsize_buf[0]=0;
 475                             RefreshStrGad(&fontsizegadget,Window);
 476                         }
 477                         fontnum=fontplacevals[view->itemselected];
 478                         initfontlist(fontnum,1,fontplaceflags[fontnum]);
 479                     }
 480                     else if (fontnum>=0 && fontnum<NUMFONTS) {
 481                         if (view->listid==2) {
 482                             strcpy(buf,config->fontbufs[fontnum]);
 483                             if ((ptr=strstri(buf,".font"))) *ptr=0;
 484                             if (strcmp(buf,view->items[view->itemselected])) {
 485                                 /*if (version2)*/ {
 486                                     fontsize_buf[0]=0;
 487                                     RefreshStrGad(&fontsizegadget,Window);
 488                                 }
 489                                 strcpy(config->fontbufs[fontnum],view->items[view->itemselected]);
 490                                 config->fontsizes[fontnum]=initfontlist(fontnum,0,fontplaceflags[fontnum]);
 491                                 StrConcat(config->fontbufs[fontnum],".font",40);
 492                             }
 493                         }
 494                         else if (view->listid==3) {
 495                             /*if (version2)*/ {
 496                                 fontsize_buf[0]=0;
 497                                 RefreshStrGad(&fontsizegadget,Window);
 498                             }
 499                             a=config->fontsizes[fontnum];
 500                             config->fontsizes[fontnum]=atoi(view->items[view->itemselected]);
 501                             if (a!=config->fontsizes[fontnum])
 502                                 dofontdemo(config->fontbufs[fontnum],config->fontsizes[fontnum]);
 503                         }
 504                     }
 505                 }
 506                 else if (view->listid==1) {
 507                     curmode=showdisplaydesc();
 508                     fixdefaultgads(curmode);
 509                     if (screenmodegads[SCREENMODE_DEFWIDTH-300].Flags&SELECTED) {
 510                         config->scrw=curmode->defw;
 511                         config->scr_winw=config->scrw;
 512                         EnableGadget(&screenmodegads[SCREENMODE_WIDTH-300],rp,0,0);
 513                     }
 514                     if (screenmodegads[SCREENMODE_DEFHEIGHT-300].Flags&SELECTED) {
 515                         config->scrh=curmode->defh;
 516                         config->scr_winh=config->scrh;
 517                         EnableGadget(&screenmodegads[SCREENMODE_HEIGHT-300],rp,0,0);
 518                     }
 519                     fixmodegads(curmode);
 520                     if (config->screenflags&SCRFLAGS_DEFWIDTH)
 521                         DisableGadget(&screenmodegads[SCREENMODE_WIDTH-300],rp,0,0);
 522                     if (config->screenflags&SCRFLAGS_DEFHEIGHT)
 523                         DisableGadget(&screenmodegads[SCREENMODE_HEIGHT-300],rp,0,0);
 524                     config->screenmode=curmode->mode;
 525
 526                     if (curmode->mode==MODE_PUBLICSCREENUSE /* ||
 527                         curmode->mode==MODE_PUBLICSCREENCLONE */ ) {
 528                         for (a=0;a<80;a++) {
 529                             if (!curmode->name[a]) break;
 530                             if (a>0 && curmode->name[a-1]==':') {
 531                                 if ((strcmp(&curmode->name[a],cfg_string[STR_SCREEN_MODE_USE]))==0)
 532                                     break;
 533 /*
 534                                 if ((strcmp(&curmode->name[a],cfg_string[STR_SCREEN_MODE_CLONE]))==0)
 535                                     break;
 536 */
 537                             }
 538                         }
 539                         if (a>0 && curmode->name[a]) {
 540                             strncpy(config->pubscreen_name,curmode->name,a);
 541                             config->pubscreen_name[a-1]=0;
 542                         }
 543                     }
 544                     else config->pubscreen_name[0]=0;
 545 /*
 546                     if (version2<OSVER_39) {
 547                         if (config->screenmode==MODE_WORKBENCHUSE ||
 548                             curmode->mode==MODE_PUBLICSCREENUSE)
 549                             DisableGadget(&maingad[SCREEN_PALETTE],rp,2,1);
 550                         else EnableGadget(&maingad[SCREEN_PALETTE],rp,2,1);
 551                     }*/
 552                 }
 553                 else if (view->listid==2) {
 554                     if (view->itemselected>=0 && view->itemselected<13) {
 555                         if (view->itemselected==0)
 556                             load_palette(Screen,palette_backup,1<<((screen_depth > 4) ? 4 : screen_depth));
 557                         else if (view->itemselected==1)
 558                             loadrgb4(Screen,def_dopus_palette,1<<((screen_depth > 4) ? 4 : screen_depth));
 559                         else if (view->itemselected==3) {
 560                             ULONG *palbuf;
 561                             int wbdepth,size;
 562
 563                             GetWBScreen(&scrbuf);
 564                             wbdepth=1<<scrbuf.RastPort.BitMap->Depth;
 565                             if (wbdepth > 256) wbdepth = 256;
 566                             size=(wbdepth*3)*sizeof(ULONG);
 567                             if (palbuf=AllocMem(size,MEMF_CLEAR)) {
 568                                 ULONG palette[48];
 569
 570                                 get_palette(&scrbuf,palbuf,wbdepth);
 571                                 for (a=0;a<4;a++) {
 572                                     palette[(a*3)]=palbuf[(a*3)];
 573                                     palette[(a*3)+1]=palbuf[(a*3)+1];
 574                                     palette[(a*3)+2]=palbuf[(a*3)+2];
 575                                 }
 576                                 for (a=4;a<16;a++) {
 577                                     palette[(a*3)]=config->new_palette[(a*3)];
 578                                     palette[(a*3)+1]=config->new_palette[(a*3)+1];
 579                                     palette[(a*3)+2]=config->new_palette[(a*3)+2];
 580                                 }
 581                                 if (wbdepth>4 && screen_depth>2) {
 582                                     int a,endwb,endme;
 583
 584                                     endwb=wbdepth-4;
 585                                     endme=(1<<screen_depth)-4;
 586
 587                                     for (a=0;a<4;a++) {
 588                                         palette[((a+endme)*3)]=palbuf[((a+endwb)*3)];
 589                                         palette[((a+endme)*3)+1]=palbuf[((a+endwb)*3)+1];
 590                                         palette[((a+endme)*3)+2]=palbuf[((a+endwb)*3)+2];
 591                                     }
 592                                 }
 593                                 load_palette(Screen,palette,1<<((screen_depth > 4) ? 4 : screen_depth));
 594                                 FreeMem(palbuf,size);
 595                             }
 596                         }
 597                         else loadrgb4(Screen,defpalettes[view->itemselected-2],4);
 598                         get_palette(Screen,config->new_palette,1<<((screen_depth > 4) ? 4 : screen_depth));
 599                         showcolourvals(realpen,1);
 600                     }
 601                 }
 602                 break;
 603             }
 604         }
 605     }
 606 }
 607
 608 void makescreenedit(mode)
 609 int mode;
 610 {
 611     int a,b,wclone,shortage,size,fnum,fontnum,nopropnum,only8num,num;
 612     ULONG modeid;
 613     char *ptr,buf[256];
 614     DisplayInfoHandle *handle;
 615     struct DisplayInfo *dispinfo;
 616     struct AvailFonts *avail;
 617
 618     borderkey=NULL;
 619
 620     SetAPen(rp,screen_pens[1].pen);
 621     switch (mode) {
 622         case SCREEN_PALETTE:
 623             bpg=4;
 624             /*if (version2>=OSVER_39)*/ {
 625                 modeid=GetVPModeID(vp);
 626                 if ((handle=FindDisplayInfo(config->screenmode)) ||
 627                     (handle=FindDisplayInfo(modeid))) {
 628                     GetDisplayInfoData(handle,buf,256,DTAG_DISP,0);
 629                     dispinfo=(struct DisplayInfo *)buf;
 630                     bpg=(dispinfo->RedBits+dispinfo->GreenBits+dispinfo->BlueBits)/3;
 631                 }
 632             }
 633             for (a=0;a<3;a++) {
 634                 fix_slider(&palettegads[a]);
 635                 FixSliderBody(Window,&palettegads[a],1<<bpg,1,2);
 636             }
 637             AddGadgets(Window,
 638                 palettegads,
 639                 palettegadgets,
 640                 6,
 641                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 642             do3dbox(x_off+296,y_off+33,220,14);
 643             do3dbox(x_off+250,y_off+33,40,14);
 644             setuplist(&palettelist,250,93);
 645             AddListView(&palettelist,1);
 646             showpalettegad(1);
 647             showcolourvals(screen_pens[1].pen,1);
 648             get_palette(Screen,palette_backup,1<<((screen_depth > 4) ? 4 : screen_depth));
 649             break;
 650
 651         case SCREEN_COLOURS:
 652             if (config->stringfgcol==config->stringbgcol) ++config->stringfgcol;
 653             do3dbox(x_off+142,y_off+61,464,122);
 654             AddGadgetBorders(&borderkey,
 655                 &coloursgad,
 656                 1,
 657                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
 658             AddGadgets(Window,
 659                 &coloursgad,
 660                 NULL,
 661                 1,
 662                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 663             setupcolourbox(rp,x_off+208,y_off+33,config->statusfg,config->statusbg);
 664             showscreencolours(COLOURS_ALL,NULL,NULL,0);
 665             showcolourscycle(config->statusfg,config->statusbg,0);
 666             break;
 667
 668         case SCREEN_SCREENMODE:
 669             screenkey=NULL; firstmode=NULL;
 670             screenmodeview.itemselected=-1; wclone=0;
 671             busy();
 672             if ((a=initscreenmodes()) &&
 673                 (screenmodelist=LAllocRemember(&screenkey,(a+1)*sizeof(APTR),MEMF_CLEAR))) {
 674                 screenmode=firstmode;
 675                 for (b=0;b<a;b++) {
 676                     if (screenmodelist[b]=LAllocRemember(&screenkey,DISPLAYNAMELEN,MEMF_CLEAR))
 677                         strcpy(screenmodelist[b],screenmode->name);
 678                     if (screenmode->mode==MODE_WORKBENCHCLONE) wclone=b;
 679                     if (screenmode->mode==config->screenmode) {
 680                         if (screenmode->mode==MODE_PUBLICSCREENUSE) {
 681                             lsprintf(buf,"%s:%s",config->pubscreen_name,cfg_string[STR_SCREEN_MODE_USE]);
 682                             if (LStrCmpI(buf,screenmode->name)==0) screenmodeview.itemselected=b;
 683                         }
 684 /*
 685                         else if (screenmode->mode==MODE_PUBLICSCREENCLONE) {
 686                             lsprintf(buf,"%s:%s",config->pubscreen_name,cfg_string[STR_SCREEN_MODE_CLONE]);
 687                             if (LStrCmpI(buf,screenmode->name)==0) screenmodeview.itemselected=b;
 688                         }
 689 */
 690                         else screenmodeview.itemselected=b;
 691                     }
 692                     if (!(screenmode=screenmode->next)) break;
 693                 }
 694             }
 695             unbusy();
 696             if (screenmodeview.itemselected==-1) screenmodeview.itemselected=wclone;
 697             setuplist(&screenmodeview,238,17);
 698             screenmodeview.items=screenmodelist;
 699             screenmodeview.topitem=screenmodeview.itemselected;
 700             AddListView(&screenmodeview,1);
 701             screenmodegads[0].Flags&=~GFLG_DISABLED;
 702             screenmodegads[1].Flags&=~GFLG_DISABLED;
 703             for (a=SCREENMODE_DEFWIDTH-300;a<SCREENMODE_SLIDER-300;a++)
 704                 screenmodegads[a].Flags&=~(GFLG_SELECTED|GFLG_DISABLED);
 705             if (config->screenflags&SCRFLAGS_HALFHEIGHT)
 706                 screenmodegads[SCREENMODE_HALFHEIGHT-300].Flags|=GFLG_SELECTED;
 707             else screenmodegads[SCREENMODE_HALFHEIGHT-300].Flags&=~GFLG_SELECTED;
 708             fix_slider(&screenmodegads[SCREENMODE_SLIDER-300]);
 709             AddGadgets(Window,
 710                 screenmodegads,
 711                 screenmodegadgets,
 712                 7,
 713                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 714             Do3DBox(rp,
 715                 x_off+238,y_off+140,
 716                 272,40,
 717                 screen_pens[config->gadgetbotcol].pen,screen_pens[config->gadgettopcol].pen);
 718             SetAPen(rp,screen_pens[1].pen);
 719             UScoreText(rp,
 720                 cfg_string[STR_DISPLAY_MODE_DESCRIPTION],
 721                 x_off+238,y_off+136,
 722                 -1);
 723             fixmodegads((curmode=showdisplaydesc()));
 724             fixdefaultgads(curmode);
 725             break;
 726
 727         case SCREEN_FONTS:
 728             if (!fontdatabuf) {
 729                 busy();
 730                 size=(sizeof(struct AvailFonts)*512)+sizeof(struct AvailFontsHeader);
 731                 do {
 732                     if (!(fontdatabuf=LAllocRemember(&fontkey,size,MEMF_CLEAR)))
 733                         break;
 734                     if (shortage=AvailFonts(fontdatabuf,size,AFF_MEMORY|AFF_DISK)) {
 735                         LFreeRemember(&fontkey);
 736                         size+=shortage;
 737                     }
 738                     else break;
 739                 } while (shortage);
 740                 unbusy();
 741                 if (!fontdatabuf) break;
 742                 num=((struct AvailFontsHeader *)fontdatabuf)->afh_NumEntries;
 743                 if (!num ||
 744                     !(fontlist=LAllocRemember(&fontkey,(num+1)*sizeof(APTR),MEMF_CLEAR)) ||
 745                     !(fontsizelist=LAllocRemember(&fontkey,(num+1)*sizeof(APTR),MEMF_CLEAR)))
 746                     break;
 747                 if (!(noproplist=LAllocRemember(&fontkey,(num+1)*sizeof(APTR),MEMF_CLEAR)) ||
 748                     !(nopropsizelist=LAllocRemember(&fontkey,(num+1)*4,MEMF_CLEAR))) {
 749                     noproplist=fontlist;
 750                     nopropsizelist=fontsizelist;
 751                 }
 752                 if (!(only8list=LAllocRemember(&fontkey,(num+1)*sizeof(APTR),MEMF_CLEAR)))
 753                     only8list=fontlist;
 754                 avail=(struct AvailFonts *)&fontdatabuf[sizeof(UWORD)];
 755                 sortfontlist(avail,num,0);
 756                 sortfontlist(avail,num,1);
 757                 for (fnum=0;fnum<num;fnum++) {
 758                     if (ptr=strstri(avail[fnum].af_Attr.ta_Name,".font")) *ptr=0;
 759                     avail[fnum].af_Attr.ta_Style=0;
 760                 }
 761                 for (fnum=0;fnum<num;fnum++) {
 762                     for (a=0;a<num;a++) {
 763                         if (!stricmp((char *)avail[a].af_Attr.ta_Name,(char *)avail[fnum].af_Attr.ta_Name))
 764                             ++avail[fnum].af_Attr.ta_Style;
 765                     }
 766                 }
 767 //D(for(fnum=0;fnum<num;fnum++){bug("%s has %ld sizes\n",avail[fnum].af_Attr.ta_Name,avail[fnum].af_Attr.ta_Style);});
 768                 for (fnum=0,fontnum=0,nopropnum=0,only8num=0;fnum<num;fnum++) {
 769                     for (a=0;a<fontnum;a++) {
 770                         if (strcmp(fontlist[a],(char *)avail[fnum].af_Attr.ta_Name)==0) break;
 771                     }
 772                     if (a==fontnum) {
 773                         fontlist[fontnum]=(char *)avail[fnum].af_Attr.ta_Name;
 774                         fontsizelist[fontnum]=LAllocRemember(&fontkey,(avail[fnum].af_Attr.ta_Style+1)*sizeof(APTR),MEMF_CLEAR);
 775                         if (!(avail[fnum].af_Attr.ta_Flags&FPF_PROPORTIONAL)) {
 776                             noproplist[nopropnum]=fontlist[fontnum];
 777                             nopropsizelist[nopropnum]=fontsizelist[fontnum];
 778                             ++nopropnum;
 779                             if (avail[fnum].af_Attr.ta_YSize==8) {
 780                                 only8list[only8num]=fontlist[fontnum];
 781                                 ++only8num;
 782                             }
 783                         }
 784                         ++fontnum;
 785                     }
 786                     if (fontsizelist[a]) {
 787                         for (b=0;;b++) {
 788                             if (!fontsizelist[a][b])
 789                              {
 790                               if (/*b>-1 &&*/ (fontsizelist[a][b]=LAllocRemember(&fontkey,8,MEMF_CLEAR)))
 791                                   lsprintf(fontsizelist[a][b],"%4ld",(long int)avail[fnum].af_Attr.ta_YSize);
 792                               break;
 793                              }
 794 //D(bug("fontsizelist[%ld][%ld]=%lx (%s)\n",a,b,fontsizelist[a][b],fontsizelist[a][b]));
 795                             if (atoi(fontsizelist[a][b])==avail[fnum].af_Attr.ta_YSize) {
 796 //                                b=-1;
 797                                 break;
 798                             }
 799                         }
 800                     }
 801                 }
 802             }
 803             setuplist(&fontplacelist,146,18);
 804             setuplist(&fontlistview,360,18);
 805             setuplist(&fontsizelistview,566,18);
 806             fontplacelist.itemselected=fontplacelist.topitem=0;
 807             fontsizelistview.items=fontlistview.items=NULL;
 808             AddListView(&fontplacelist,3);
 809             SetAPen(rp,screen_pens[1].pen);
 810             UScoreText(rp,
 811                 cfg_string[STR_DISPLAY_ITEM],
 812                 x_off+146,y_off+14,
 813                 -1);
 814             UScoreText(rp,
 815                 cfg_string[STR_FONT],
 816                 x_off+360,y_off+14,
 817                 -1);
 818             UScoreText(rp,
 819                 cfg_string[STR_FONT_SIZE],
 820                 x_off+566,y_off+14,
 821                 -1);
 822             /*if (version2)*/ {
 823                 fontsize_buf[0]=0;
 824                 AddGadgets(Window,
 825                     &fontsizegadget,
 826                     NULL,
 827                     1,
 828                     screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 829             }
 830             initfontlist(FONT_CLOCK,1,0);
 831             strcpy(old_general_font,config->fontbufs[0]);
 832             break;
 833
 834         case SCREEN_GENERAL:
 835             inittickgads(scr_generalgadgets,config->generalscreenflags,0);
 836             break;
 837
 838         case SCREEN_ARROWS:
 839             for (a=0;a<3;a++) {
 840                 arrowgadgets[a].GadgetRender=(APTR)buttonoffimage;
 841                 arrowgadgets[a].SelectRender=(APTR)buttononimage;
 842                 do3dbox(x_off+184+(a*129),y_off+33,121,55);
 843             }
 844
 845             AddGadgetBorders(&borderkey,
 846                 &arrowgadgets[3],
 847                 2,
 848                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
 849             AddGadgetBorders(&borderkey,
 850                 &arrowgadgets[5],
 851                 2,
 852                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
 853             AddGadgetBorders(&borderkey,
 854                 &arrowgadgets[7],
 855                 1,
 856                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
 857
 858             AddGadgets(Window,
 859                 arrowgadgets,
 860                 arrowgadtxt,
 861                 8,
 862                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 863             for (a=0;a<2;a++) {
 864                 DoArrow(rp,x_off+420+(a*34),y_off+144,10,9,screen_pens[1].pen,screen_pens[0].pen,3-a);
 865                 DoArrow(rp,x_off+436,y_off+138+(a*12),12,9,screen_pens[1].pen,screen_pens[0].pen,a);
 866             }
 867             showupdownslider();
 868             showleftrightslider();
 869             showstringgadget();
 870             showarrowborders(0,-1);
 871             fixarrowgads(0);
 872             SetAPen(rp,screen_pens[1].pen);
 873             UScoreText(rp,
 874                 cfg_string[STR_MODIFY_SIZE],
 875                 x_off+294,y_off+151,
 876                 -1);
 877             DoCycleGadget(&arrowgadgets[7],Window,arrowtypetxt,0);
 878             break;
 879
 880         case SCREEN_SLIDERS:
 881             for (a=0;a<2;a++) {
 882                 AddGadgetBorders(&borderkey,
 883                     &screen_sliders_gadgets[a],
 884                     2,
 885                     screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen);
 886             }
 887
 888             AddGadgets(Window,
 889                 screen_sliders_gadgets,
 890                 NULL,
 891                 2,
 892                 screen_pens[config->gadgettopcol].pen,screen_pens[config->gadgetbotcol].pen,1);
 893
 894             for (a=0;a<2;a++) show_slider_setup(182+(a*191),32,a);
 895             break;
 896     }
 897 }
 898
 899 void removescreenedit(mode)
 900 int mode;
 901 {
 902     SetAPen(rp,screen_pens[0].pen);
 903     RectFill(rp,
 904         x_off+120,y_off+4,
 905         x_bot,y_bot);
 906     SetAPen(rp,screen_pens[1].pen);
 907     switch (mode) {
 908         case SCREEN_PALETTE:
 909             RemoveGList(Window,palettegads,6);
 910             RemoveListView(&palettelist,1);
 911             break;
 912
 913         case SCREEN_COLOURS:
 914             RemoveGList(Window,&coloursgad,1);
 915             doradiobuttons();
 916             break;
 917
 918         case SCREEN_SCREENMODE:
 919             RemoveListView(&screenmodeview,1);
 920             RemoveGList(Window,screenmodegads,7);
 921             LFreeRemember(&screenkey);
 922             if (config->scrdepth!=screen_depth) {
 923                 close_screen();
 924                 open_screen();
 925                 showconfigscreen(CFG_SCREEN);
 926             }
 927             break;
 928
 929         case SCREEN_FONTS:
 930             RemoveListView(&fontplacelist,3);
 931             /*if (version2)*/ RemoveGList(Window,&fontsizegadget,1);
 932             if (LStrCmpI(config->fontbufs[0],old_general_font)!=0) {
 933                 close_screen();
 934                 open_screen();
 935                 showconfigscreen(CFG_SCREEN);
 936             }
 937             break;
 938
 939         case SCREEN_ARROWS:
 940             RemoveGList(Window,arrowgadgets,8);
 941             break;
 942
 943         case SCREEN_GENERAL:
 944             removetickgads();
 945             break;
 946
 947         case SCREEN_SLIDERS:
 948             RemoveGList(Window,screen_sliders_gadgets,2);
 949             break;
 950     }
 951     LFreeRemember(&borderkey);
 952 }