workbench/libs/codesets/developer/examples/demo1.c

   1 /***************************************************************************
   2
   3  codesets.library - Amiga shared library for handling different codesets
   4  Copyright (C) 2001-2005 by Alfonso [alfie] Ranieri <alforan@tin.it>.
   5  Copyright (C) 2005-2014 codesets.library Open Source Team
   6
   7  This library is free software; you can redistribute it and/or
   8  modify it under the terms of the GNU Lesser General Public
   9  License as published by the Free Software Foundation; either
  10  version 2.1 of the License, or (at your option) any later version.
  11
  12  This library 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 GNU
  15  Lesser General Public License for more details.
  16
  17  codesets.library project: http://sourceforge.net/projects/codesetslib/
  18
  19  Most of the code included in this file was relicensed from GPL to LGPL
  20  from the source code of SimpleMail (http://www.sf.net/projects/simplemail)
  21  with full permissions by its authors.
  22
  23  $Id$
  24
  25 ***************************************************************************/
  26
  27 #include <proto/codesets.h>
  28
  29 #if defined(__MORPHOS__)
  30 #if defined(USE_INLINE_STDARG)
  31 #undef USE_INLINE_STDARG
  32 #endif
  33 #endif
  34 #define INTUITION_NO_INLINE_STDARG
  35 #define MUIMASTER_NO_INLINE_STDARG
  36
  37 #include <clib/alib_protos.h>
  38
  39 #include <proto/exec.h>
  40 #include <proto/dos.h>
  41 #include <proto/utility.h>
  42 #include <proto/muimaster.h>
  43 #include <proto/intuition.h>
  44 #include <libraries/asl.h>
  45 #include <libraries/gadtools.h>
  46 #include <libraries/mui.h>
  47 #include <mui/TextEditor_mcc.h>
  48
  49 #include <stdio.h>
  50 #include <string.h>
  51
  52 #include "SDI_compiler.h"
  53 #include "SDI_hook.h"
  54 #include "SDI_stdarg.h"
  55
  56 /***********************************************************************/
  57 /*
  58 ** Some macro
  59 */
  60
  61 #ifndef MAKE_ID
  62 #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  63 #endif
  64
  65 #if defined(__amigaos4__)
  66 #define GETINTERFACE(iface, base)       (iface = (APTR)GetInterface((struct Library *)(base), "main", 1L, NULL))
  67 #define DROPINTERFACE(iface)                    (DropInterface((struct Interface *)iface), iface = NULL)
  68 #else
  69 #define GETINTERFACE(iface, base)       TRUE
  70 #define DROPINTERFACE(iface)
  71 #endif
  72
  73 /***********************************************************************/
  74 /*
  75 ** Globals
  76 */
  77
  78 char __ver[] = "\0$VER: CodesetsDemo1 1.0 (10.11.2004)";
  79 long __stack = 8192;
  80
  81 struct Library *MUIMasterBase = NULL;
  82 struct Library *CodesetsBase = NULL;
  83 #ifdef __AROS__
  84 struct UtilityBase *UtilityBase = NULL;
  85 #else
  86 struct Library *UtilityBase = NULL;
  87 #endif
  88
  89 #if defined(__amigaos4__)
  90 struct MUIMasterIFace *IMUIMaster = NULL;
  91 struct CodesetsIFace  *ICodesets = NULL;
  92 struct IntuitionIFace *IIntuition = NULL;
  93 struct UtilityIFace   *IUtility = NULL;
  94 struct Library *IntuitionBase = NULL;
  95 #else
  96 struct IntuitionBase *IntuitionBase = NULL;
  97 #endif
  98
  99
 100 struct MUI_CustomClass *appClass, *popupCodesetsClass, *editorClass;
 101
 102 /***********************************************************************/
 103 /*
 104 ** MUI stuff
 105 */
 106
 107 /* App attributes */
 108 #define MUIA_App_Win            (TAG_USER+1)
 109
 110 /* App methods */
 111 #define MUIM_App_DisposeWin     (TAG_USER+2)
 112 #define MUIM_App_About          (TAG_USER+3)
 113
 114 struct MUIP_App_DisposeWin
 115 {
 116     ULONG  MethodID;
 117     Object *win;
 118 };
 119
 120 /* Editor attributes */
 121 #define MUIA_Editor_CodesetsObj (TAG_USER+5)
 122
 123 /* Editor methods */
 124 #define MUIM_Editor_Load        (TAG_USER+6)
 125 #define MUIM_Editor_Save        (TAG_USER+7)
 126
 127 struct MUIP_Editor_Load
 128 {
 129     ULONG MethodID;
 130     ULONG plain;
 131 };
 132
 133 /* Classes object creation macros */
 134 #define appObject          NewObject(appClass->mcc_Class,NULL
 135 #define editorObject       NewObject(editorClass->mcc_Class,NULL
 136 #define popupCodesetObject NewObject(popupCodesetsClass->mcc_Class,NULL
 137
 138 /***********************************************************************/
 139 /*
 140 ** Usual DoSuperNew funct
 141 */
 142
 143 /// DoSuperNew
 144 //  Calls parent NEW method within a subclass
 145 #if !defined(__MORPHOS__)
 146 #ifdef __AROS__
 147 #define DoSuperNew(cl, obj, ...) DoSuperNewTags(cl, obj, NULL, __VA_ARGS__)
 148 #else
 149 Object * STDARGS VARARGS68K DoSuperNew(struct IClass *cl, Object *obj, ...)
 150 {
 151   Object *rc;
 152   VA_LIST args;
 153
 154   VA_START(args, obj);
 155   rc = (Object *)DoSuperMethod(cl, obj, OM_NEW, VA_ARG(args, ULONG), NULL);
 156   VA_END(args);
 157
 158   return rc;
 159 }
 160 #endif
 161 #endif
 162 ///
 163
 164 /***********************************************************************/
 165 /*
 166 ** Codesets popup open window hook funct
 167 */
 168
 169 HOOKPROTONH(popupWindowFun, void, Object *pop, Object *win)
 170 {
 171   set(win,MUIA_Window_DefaultObject,pop);
 172 }
 173 MakeStaticHook(popupWindowHook, popupWindowFun);
 174
 175 /***********************************************************************/
 176 /*
 177 ** Codesets popup open hook funct
 178 ** Sets the active entry in the list
 179 */
 180
 181 HOOKPROTONH(popupOpenFun, ULONG, Object *list, Object *str)
 182 {
 183     STRPTR s = NULL, x;
 184     int i;
 185
 186     get(str, MUIA_Text_Contents, &s);
 187
 188     if(s != NULL)
 189     {
 190         for (i = 0; ;i++)
 191         {
 192             DoMethod(list,MUIM_List_GetEntry,i,&x);
 193             if (x == NULL)
 194             {
 195                 set(list,MUIA_List_Active,MUIV_List_Active_Off);
 196                 break;
 197             }
 198             else
 199                 if (stricmp(x,s) == 0)
 200                 {
 201                     set(list,MUIA_List_Active,i);
 202                     break;
 203                 }
 204         }
 205     }
 206
 207     return TRUE;
 208 }
 209 MakeStaticHook(popupOpenHook, popupOpenFun);
 210
 211 /***********************************************************************/
 212 /*
 213 ** Codesets popup close hook funct
 214 ** Set the string contents
 215 */
 216
 217 HOOKPROTONH(popupCloseFun, void, Object *list, Object *str)
 218 {
 219     STRPTR e;
 220
 221     DoMethod(list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&e);
 222     set(str,MUIA_Text_Contents,e);
 223 }
 224 MakeStaticHook(popupCloseHook, popupCloseFun);
 225
 226 /***********************************************************************/
 227 /*
 228 ** Codesets popup new method
 229 */
 230
 231 static Object *
 232 mpopupNew(struct IClass *cl,Object *obj,struct opSet *msg)
 233 {
 234     Object *str, *bt, *lv, *l;
 235
 236     if((obj = (Object *)DoSuperNew(cl,obj,
 237
 238             MUIA_Popstring_String, str = TextObject,
 239                 TextFrame,
 240                 MUIA_Background, MUII_TextBack,
 241             End,
 242
 243             MUIA_Popstring_Button, bt = MUI_MakeObject(MUIO_PopButton,MUII_PopUp),
 244
 245             MUIA_Popobject_Object, lv = ListviewObject,
 246                 MUIA_Listview_List, l = ListObject,
 247                     MUIA_Frame,              MUIV_Frame_InputList,
 248                     MUIA_Background,         MUII_ListBack,
 249                     MUIA_List_AutoVisible,   TRUE,
 250                     MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
 251                     MUIA_List_DestructHook,  MUIV_List_DestructHook_String,
 252                 End,
 253             End,
 254             MUIA_Popobject_WindowHook, &popupWindowHook,
 255             MUIA_Popobject_StrObjHook, &popupOpenHook,
 256             MUIA_Popobject_ObjStrHook, &popupCloseHook,
 257
 258             TAG_MORE,msg->ops_AttrList)))
 259     {
 260         struct codeset *codeset;
 261         STRPTR         *array;
 262
 263         set(bt,MUIA_CycleChain,TRUE);
 264         DoMethod(lv,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,obj,2,MUIM_Popstring_Close,TRUE);
 265
 266         /* Build list of available codesets */
 267         if((array = CodesetsSupportedA(NULL)))
 268         {
 269             DoMethod(l,MUIM_List_Insert,array,-1,MUIV_List_Insert_Sorted);
 270             CodesetsFreeA(array,NULL);
 271         }
 272         else SetSuperAttrs(cl,obj,MUIA_Disabled,TRUE,TAG_DONE);
 273
 274         /* Use the default codeset */
 275         codeset = CodesetsFindA(NULL,NULL);
 276         set(str,MUIA_Text_Contents,codeset->name);
 277     }
 278
 279     return obj;
 280 }
 281
 282 /***********************************************************************/
 283 /*
 284 ** Codesets popup dispatcher
 285 */
 286
 287 DISPATCHER(popupDispatcher)
 288 {
 289     switch (msg->MethodID)
 290     {
 291         case OM_NEW: return (IPTR)mpopupNew(cl,obj,(APTR)msg);
 292         default:     return DoSuperMethodA(cl,obj,msg);
 293     }
 294 }
 295
 296 /***********************************************************************/
 297 /*
 298 ** Editor instance
 299 */
 300
 301 struct editorData
 302 {
 303     Object               *codesetsObj;
 304     struct FileRequester *req;
 305 };
 306
 307 /***********************************************************************/
 308 /*
 309 ** Editor new method
 310 */
 311
 312 static Object *
 313 meditorNew(struct IClass *cl,Object *obj,struct opSet *msg)
 314 {
 315     struct FileRequester *req;
 316
 317     if ((req = MUI_AllocAslRequest(ASL_FileRequest,NULL)) &&
 318         (obj = (Object *)DoSuperNew(cl,obj,
 319             TAG_MORE,msg->ops_AttrList)))
 320     {
 321         struct editorData *data = INST_DATA(cl,obj);
 322
 323         data->codesetsObj = (Object *)GetTagData(MUIA_Editor_CodesetsObj, 0, msg->ops_AttrList);
 324
 325         data->req = req;
 326     }
 327     else
 328     {
 329         if (req) MUI_FreeAslRequest(req);
 330     }
 331
 332     return obj;
 333 }
 334
 335 /***********************************************************************/
 336 /*
 337 ** Editor dispose method
 338 */
 339
 340 static ULONG
 341 meditorDispose(struct IClass *cl,Object *obj,Msg msg)
 342 {
 343     struct editorData *data = INST_DATA(cl,obj);
 344
 345     if (data->req) MUI_FreeAslRequest(data->req);
 346
 347     return DoSuperMethodA(cl,obj,msg);
 348 }
 349
 350 /***********************************************************************/
 351 /*
 352 ** Editor load method
 353 */
 354
 355 static ULONG
 356 meditorLoad(struct IClass *cl,Object *obj,struct MUIP_Editor_Load *msg)
 357 {
 358     struct editorData *data = INST_DATA(cl,obj);
 359
 360     set(_app(obj),MUIA_Application_Sleep,TRUE);
 361     SetSuperAttrs(cl,obj,MUIA_TextEditor_Quiet,FALSE,TAG_DONE);
 362
 363     /* Request file name */
 364     if (MUI_AslRequestTags(data->req,ASLFR_TitleText,msg->plain ?
 365         "Select a file to load" : "Select a file to load as UTF8",TAG_DONE))
 366     {
 367         char fname[256];
 368         BPTR lock;
 369
 370         strlcpy(fname,data->req->fr_Drawer,sizeof(fname));
 371         AddPart(fname,data->req->fr_File,sizeof(fname));
 372
 373         /* Get size */
 374         if((lock = Lock(fname,SHARED_LOCK)))
 375         {
 376             struct FileInfoBlock *fib;
 377             ULONG                go = FALSE, size = 0;
 378
 379             if((fib = AllocDosObject(DOS_FIB,NULL)))
 380             {
 381                 if (Examine(lock,fib))
 382                 {
 383                     size = fib->fib_Size;
 384                     go = TRUE;
 385                 }
 386
 387                 FreeDosObject(DOS_FIB,fib);
 388             }
 389
 390             UnLock(lock);
 391
 392             if (go)
 393             {
 394                 DoSuperMethod(cl,obj,MUIM_TextEditor_ClearText);
 395
 396                 if (size>0)
 397                 {
 398                     STRPTR buf;
 399
 400                     /* Alloc whole file buf */
 401                     if((buf = AllocMem(size+1,MEMF_ANY)))
 402                     {
 403                         BPTR file;
 404
 405                         if((file = Open(fname,MODE_OLDFILE)))
 406                         {
 407                             LONG r;
 408
 409                             r = Read(file,buf,size);
 410                             if(r >= 0)
 411                             {
 412                                 buf[r] = 0;
 413
 414                                 if (msg->plain)
 415                                 {
 416                                     /* If plain just set it */
 417                                     set(obj,MUIA_TextEditor_Contents,buf);
 418                                 }
 419                                 else
 420                                 {
 421                                     struct codeset *codeset;
 422                                     STRPTR         str;
 423                                     STRPTR                  cname = NULL;
 424
 425                                     /* Get used codeset */
 426                                     get(data->codesetsObj, MUIA_Text_Contents, &cname);
 427                                     codeset = CodesetsFindA(cname,NULL);
 428
 429                                     /* Convert */
 430                                     str = CodesetsUTF8ToStr(CSA_Source,        (IPTR)buf,
 431                                                             CSA_SourceCodeset, (IPTR)codeset,
 432                                                             TAG_DONE);
 433                                     if (str)
 434                                     {
 435                                         SetSuperAttrs(cl,obj,MUIA_TextEditor_Contents,str,TAG_DONE);
 436                                         CodesetsFreeA(str,NULL);
 437                                     }
 438                                 }
 439                             }
 440
 441                             Close(file);
 442                         }
 443
 444                         FreeMem(buf,size+1);
 445                     }
 446                 }
 447
 448                 SetSuperAttrs(cl,obj,MUIA_TextEditor_CursorX, 0,
 449                                      MUIA_TextEditor_CursorY, 0,
 450                                      TAG_DONE);
 451             }
 452         }
 453     }
 454
 455     SetSuperAttrs(cl,obj,MUIA_TextEditor_Quiet,FALSE,TAG_DONE);
 456     set(_app(obj),MUIA_Application_Sleep,FALSE);
 457
 458     return 0;
 459 }
 460
 461 /***********************************************************************/
 462 /*
 463 ** Editor save method
 464 */
 465
 466 static ULONG
 467 meditorSave(struct IClass *cl, Object *obj, UNUSED Msg msg)
 468 {
 469     struct editorData *data = INST_DATA(cl,obj);
 470     STRPTR                     text;
 471
 472     set(_app(obj),MUIA_Application_Sleep,TRUE);
 473
 474     /* Get editor text */
 475     if((text = (STRPTR)DoSuperMethod(cl,obj,MUIM_TextEditor_ExportText)))
 476     {
 477         struct codeset *codeset;
 478         UTF8           *utf8;
 479         STRPTR                  cname = NULL;
 480         ULONG                   dlen;
 481
 482         /* Get current user codeset */
 483         get(data->codesetsObj, MUIA_Text_Contents, &cname);
 484         codeset = CodesetsFindA(cname,NULL);
 485
 486         /* Convert text as utf8 */
 487         if((utf8 = CodesetsUTF8Create(CSA_Source,         (IPTR)text,
 488                                       CSA_SourceCodeset,  (IPTR)codeset,
 489                                       CSA_DestLenPtr,     (IPTR)&dlen,
 490                                       TAG_DONE)))
 491         {
 492             /* Save converted text to a file */
 493
 494             if (MUI_AslRequestTags(data->req,ASLFR_DoSaveMode,TRUE,ASLFR_TitleText,"Select a file to save as UTF8",TAG_DONE))
 495             {
 496                 char fname[256];
 497                 BPTR file;
 498
 499                 strlcpy(fname,data->req->fr_Drawer,sizeof(fname));
 500                 AddPart(fname,data->req->fr_File,sizeof(fname));
 501
 502                 if((file = Open(fname,MODE_NEWFILE)))
 503                 {
 504                     Write(file,utf8,dlen);
 505                     Close(file);
 506                 }
 507             }
 508
 509             /* Free converted string */
 510             CodesetsFreeA(utf8,NULL);
 511         }
 512
 513         FreeVec(text);
 514     }
 515
 516     set(_app(obj),MUIA_Application_Sleep,FALSE);
 517
 518     return 0;
 519 }
 520
 521 /***********************************************************************/
 522 /*
 523 ** Editor dispatcher
 524 */
 525
 526 DISPATCHER(editorDispatcher)
 527 {
 528     switch (msg->MethodID)
 529     {
 530         case OM_NEW:           return (IPTR)meditorNew(cl,obj,(APTR)msg);
 531         case OM_DISPOSE:       return meditorDispose(cl,obj,(APTR)msg);
 532         case MUIM_Editor_Save: return meditorSave(cl,obj,(APTR)msg);
 533         case MUIM_Editor_Load: return meditorLoad(cl,obj,(APTR)msg);
 534         default:               return DoSuperMethodA(cl,obj,msg);
 535     }
 536 }
 537
 538 /***********************************************************************/
 539 /*
 540 ** App instance
 541 */
 542
 543 struct appData
 544 {
 545     Object *win;
 546     Object *about;
 547     Object *aboutMUI;
 548     Object *config;
 549 };
 550
 551 /***********************************************************************/
 552 /*
 553 ** App new method
 554 */
 555
 556 /* Menus */
 557 #define MTITLE(t)  {NM_TITLE,(STRPTR)(t),0,0,0,0}
 558 #define MITEM(t,d) {NM_ITEM,(STRPTR)(t),0,0,0,(APTR)(d)}
 559 #define MBAR       {NM_ITEM,(STRPTR)NM_BARLABEL,0,0,0,NULL}
 560 #define MEND       {NM_END,NULL,0,0,0,NULL}
 561
 562 enum
 563 {
 564     MABOUT = 1,
 565     MABOUTMUI,
 566     MMUI,
 567     MQUIT,
 568 };
 569
 570 static struct NewMenu appMenu[] =
 571 {
 572     MTITLE("Project"),
 573         MITEM("?\0About...",MABOUT),
 574         MITEM("M\0About MUI...",MABOUTMUI),
 575         MBAR,
 576         MITEM("Q\0Quit",MQUIT),
 577
 578     MTITLE("Editor"),
 579         MITEM("M\0MUI Settings...",MMUI),
 580
 581     MEND
 582 };
 583
 584 static Object *
 585 mappNew(struct IClass *cl,Object *obj,struct opSet *msg)
 586 {
 587     Object *strip, *win, *codesets = NULL, *editor, *sb, *loadPlain, *loadUTF8, *save, *cancel;
 588
 589     codesets = popupCodesetObject, End;
 590
 591     if((obj = (Object *)DoSuperNew(cl,obj,
 592                 MUIA_Application_Title,        "Codesets Demo1",
 593                 MUIA_Application_Version,      "$VER: CodesetsDemo1 1.0 (10.11.2004)",
 594                 MUIA_Application_Copyright,    "Copyright 2004 by Alfonso Ranieri",
 595                 MUIA_Application_Author,       "Alfonso Ranieri <alforan@tin.it>",
 596                 MUIA_Application_Description,  "Codesets example",
 597                 MUIA_Application_Base,         "CODESETSEXAMPLE",
 598                 MUIA_Application_Menustrip,    strip = MUI_MakeObject(MUIO_MenustripNM,appMenu,MUIO_MenustripNM_CommandKeyCheck),
 599
 600                 SubWindow, win = WindowObject,
 601                     MUIA_Window_ID,             MAKE_ID('M','A','I','N'),
 602                     MUIA_Window_Title,          "Codesets Demo1",
 603                     WindowContents, VGroup,
 604
 605                         Child, HGroup,
 606                             Child, Label2("Charset"),
 607                             Child, codesets,
 608                         End,
 609
 610                         Child, HGroup,
 611                             MUIA_Group_Horiz,   TRUE,
 612                             MUIA_Group_Spacing, 0,
 613                             Child, editor = editorObject,
 614                                 MUIA_Editor_CodesetsObj, codesets,
 615                             End,
 616                             Child, sb = ScrollbarObject, End,
 617                         End,
 618
 619                         Child, HGroup,
 620                             Child, loadPlain = MUI_MakeObject(MUIO_Button,"Load _plain"),
 621                             Child, RectangleObject, MUIA_Weight, 50, End,
 622                             Child, loadUTF8 = MUI_MakeObject(MUIO_Button,"_Load utf8"),
 623                             Child, RectangleObject, MUIA_Weight, 50, End,
 624                             Child, save = MUI_MakeObject(MUIO_Button,"_Save utf8"),
 625                             Child, RectangleObject, MUIA_Weight, 50, End,
 626                             Child, cancel = MUI_MakeObject(MUIO_Button,"_Cancel"),
 627                         End,
 628
 629                     End,
 630                 End,
 631                 TAG_MORE,msg->ops_AttrList)))
 632     {
 633         struct appData *data = INST_DATA(cl,obj);
 634         data->win = win;
 635
 636         set(editor,MUIA_TextEditor_Slider,sb);
 637
 638         set(loadPlain,MUIA_CycleChain,TRUE);
 639         set(loadUTF8,MUIA_CycleChain,TRUE);
 640         set(save,MUIA_CycleChain,TRUE);
 641         set(cancel,MUIA_CycleChain,TRUE);
 642
 643         DoMethod(win,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,MUIV_Notify_Application,2,
 644             MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 645
 646         DoMethod(loadPlain,MUIM_Notify,MUIA_Pressed,FALSE,editor,2,MUIM_Editor_Load,TRUE);
 647         DoMethod(loadUTF8,MUIM_Notify,MUIA_Pressed,FALSE,editor,2,MUIM_Editor_Load,FALSE);
 648         DoMethod(save,MUIM_Notify,MUIA_Pressed,FALSE,editor,1,MUIM_Editor_Save);
 649         DoMethod(cancel,MUIM_Notify,MUIA_Pressed,FALSE,MUIV_Notify_Application,2,
 650             MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
 651
 652         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MABOUT),MUIM_Notify,
 653             MUIA_Menuitem_Trigger,MUIV_EveryTime,obj,1,MUIM_App_About);
 654
 655         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MABOUTMUI),MUIM_Notify,
 656             MUIA_Menuitem_Trigger,MUIV_EveryTime,obj,1,MUIM_Application_AboutMUI);
 657
 658         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MQUIT),MUIM_Notify,
 659             MUIA_Menuitem_Trigger,MUIV_EveryTime,obj,2,MUIM_Application_ReturnID,
 660             MUIV_Application_ReturnID_Quit);
 661
 662         DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MMUI),MUIM_Notify,
 663             MUIA_Menuitem_Trigger,MUIV_EveryTime,obj,2,MUIM_Application_OpenConfigWindow,0);
 664
 665         set(win,MUIA_Window_Open,TRUE);
 666     }
 667
 668     return obj;
 669 }
 670
 671 /***********************************************************************/
 672 /*
 673 ** App dispose win method
 674 */
 675
 676 static ULONG
 677 mappDisposeWin(struct IClass *cl,Object *obj,struct MUIP_App_DisposeWin *msg)
 678 {
 679     struct appData *data = INST_DATA(cl,obj);
 680     Object         *win = msg->win;
 681
 682     set(win,MUIA_Window_Open,FALSE);
 683     DoSuperMethod(cl,obj,OM_REMMEMBER,win);
 684     MUI_DisposeObject(win);
 685
 686     if (win==data->about) data->about = NULL;
 687     else if (win==data->aboutMUI) data->aboutMUI = NULL;
 688
 689     return 0;
 690 }
 691
 692 /***********************************************************************/
 693 /*
 694 ** App about method
 695 */
 696
 697 static ULONG
 698 mappAbout(struct IClass *cl,Object *obj,UNUSED Msg msg)
 699 {
 700     struct appData *data = INST_DATA(cl,obj);
 701
 702     SetSuperAttrs(cl,obj,MUIA_Application_Sleep,TRUE,TAG_DONE);
 703
 704     if (!data->about)
 705     {
 706         Object *ok;
 707
 708         if((data->about = WindowObject,
 709                 MUIA_Window_RefWindow, data->win,
 710                 MUIA_Window_Title,     "About Codesets Demo1",
 711                 WindowContents, VGroup,
 712                     Child, TextObject,
 713                         MUIA_Text_Contents, "\n"
 714                                             "Codesets Demo1\n"
 715                                             "Copyright 2004 by Alfonso Ranieri <alforan@tin.it>\n",
 716                         MUIA_Text_PreParse, MUIX_C,
 717                     End,
 718                     Child, RectangleObject, MUIA_Weight, 0, MUIA_Rectangle_HBar, TRUE, End,
 719                     Child, HGroup,
 720                         Child, RectangleObject, MUIA_Weight, 200, End,
 721                         Child, ok = MUI_MakeObject(MUIO_Button,"_OK"),
 722                         Child, RectangleObject, MUIA_Weight, 200, End,
 723                     End,
 724                 End,
 725             End))
 726         {
 727             DoSuperMethod(cl,obj,OM_ADDMEMBER,data->about);
 728
 729             set(data->about,MUIA_Window_ActiveObject,ok);
 730
 731             DoMethod(data->about,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,obj,5,
 732                 MUIM_Application_PushMethod,obj,2,MUIM_App_DisposeWin,data->about);
 733
 734             DoMethod(ok,MUIM_Notify,MUIA_Pressed,FALSE,obj,5,
 735                 MUIM_Application_PushMethod,obj,2,MUIM_App_DisposeWin,data->about);
 736         }
 737     }
 738
 739     set(data->about,MUIA_Window_Open,TRUE);
 740
 741     SetSuperAttrs(cl,obj,MUIA_Application_Sleep,FALSE,TAG_DONE);
 742
 743     return 0;
 744 }
 745
 746 /***********************************************************************/
 747 /*
 748 ** App MUI settings method
 749 */
 750
 751 static ULONG
 752 mappOpenMUIConfigWindow(struct IClass *cl,Object *obj,Msg msg)
 753 {
 754     ULONG res;
 755
 756     SetSuperAttrs(cl,obj,MUIA_Application_Sleep,TRUE,TAG_DONE);
 757     res = DoSuperMethodA(cl,obj,msg);
 758     SetSuperAttrs(cl,obj,MUIA_Application_Sleep,FALSE,TAG_DONE);
 759
 760     return res;
 761 }
 762
 763 /***********************************************************************/
 764 /*
 765 ** App dispatcher
 766 */
 767
 768 DISPATCHER(appDispatcher)
 769 {
 770     switch (msg->MethodID)
 771     {
 772         case OM_NEW:                            return (IPTR)mappNew(cl,obj,(APTR)msg);
 773         case MUIM_App_DisposeWin:               return mappDisposeWin(cl,obj,(APTR)msg);
 774         case MUIM_App_About:                    return mappAbout(cl,obj,(APTR)msg);
 775         case MUIM_Application_OpenConfigWindow: return mappOpenMUIConfigWindow(cl,obj,(APTR)msg);
 776         default:                                return DoSuperMethodA(cl,obj,msg);
 777     }
 778 }
 779
 780 /***********************************************************************/
 781 /*
 782 ** Main
 783 */
 784
 785 int
 786 main(UNUSED int argc,char **argv)
 787 {
 788     int res = RETURN_FAIL;
 789
 790     if((IntuitionBase = (APTR)OpenLibrary("intuition.library", 39)) &&  // open intuition.library
 791        GETINTERFACE(IIntuition, IntuitionBase))
 792     {
 793       if((UtilityBase = (APTR)OpenLibrary("utility.library", 39)) &&      // open utility.library
 794          GETINTERFACE(IUtility, UtilityBase))
 795       {
 796         if((CodesetsBase = OpenLibrary(CODESETSNAME, CODESETSVER)) && // open codesets.library
 797            GETINTERFACE(ICodesets, CodesetsBase))
 798         {
 799             /* Open muimaster.library */
 800             if((MUIMasterBase = OpenLibrary("muimaster.library",19)) &&
 801                GETINTERFACE(IMUIMaster, MUIMasterBase))
 802             {
 803                 /* Create classes */
 804                 if ((appClass = MUI_CreateCustomClass(NULL,             MUIC_Application, NULL, sizeof(struct appData), ENTRY(appDispatcher))) &&
 805                     (popupCodesetsClass = MUI_CreateCustomClass(NULL, MUIC_Popobject, NULL, 0, ENTRY(popupDispatcher))) &&
 806                     (editorClass = MUI_CreateCustomClass(NULL, MUIC_TextEditor, NULL, sizeof(struct editorData), ENTRY(editorDispatcher))))
 807                 {
 808                     Object *app;
 809
 810                     /* Create application */
 811                     if((app = appObject, End))
 812                     {
 813                        /* Here we go */
 814                         ULONG sigs = 0;
 815
 816                         while (DoMethod(app,MUIM_Application_NewInput,&sigs) != (ULONG)MUIV_Application_ReturnID_Quit)
 817                         {
 818                             if (sigs)
 819                             {
 820                                 sigs = Wait(sigs | SIGBREAKF_CTRL_C);
 821                                 if (sigs & SIGBREAKF_CTRL_C) break;
 822                             }
 823                         }
 824
 825                         MUI_DisposeObject(app);
 826
 827                         res = RETURN_OK;
 828                     }
 829                     else
 830                     {
 831                         printf("%s: can't create application\n",argv[0]);
 832                     }
 833
 834                     MUI_DeleteCustomClass(popupCodesetsClass);
 835                     MUI_DeleteCustomClass(editorClass);
 836                     MUI_DeleteCustomClass(appClass);
 837                 }
 838                 else
 839                 {
 840                     if (appClass)
 841                     {
 842                         if (popupCodesetsClass) MUI_DeleteCustomClass(popupCodesetsClass);
 843                         MUI_DeleteCustomClass(appClass);
 844                     }
 845
 846                     printf("%s: can't create custom classes\n",argv[0]);
 847                 }
 848
 849                 DROPINTERFACE(IMUIMaster);
 850                 CloseLibrary(MUIMasterBase);
 851             }
 852             else
 853             {
 854                 printf("%s: Can't open muimaster.library ver 19 or higher\n",argv[0]);
 855                 res = RETURN_ERROR;
 856             }
 857
 858             DROPINTERFACE(ICodesets);
 859             CloseLibrary(CodesetsBase);
 860         }
 861         else
 862         {
 863             printf("%s: Can't open codesets.library ver %d or higher.\n", argv[0], CODESETSVER);
 864             res = RETURN_ERROR;
 865         }
 866
 867         DROPINTERFACE(IUtility);
 868         CloseLibrary((struct Library *)UtilityBase);
 869       }
 870
 871       DROPINTERFACE(IIntuition);
 872       CloseLibrary((struct Library *)IntuitionBase);
 873     }
 874
 875     return res;
 876 }
 877
 878 /***********************************************************************/