workbench/classes/gadgets/texteditor/mcp/Dispatcher.c

   1 /***************************************************************************
   2
   3  TextEditor.mcc - Textediting MUI Custom Class
   4  Copyright (C) 1997-2000 Allan Odgaard
   5  Copyright (C) 2005 by TextEditor.mcc 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  TextEditor class Support Site:  http://www.sf.net/projects/texteditor-mcc
  18
  19  $Id$
  20
  21 ***************************************************************************/
  22
  23 #include <stdio.h>
  24
  25 #include <clib/alib_protos.h>
  26 #include <utility/tagitem.h>
  27 #include <libraries/mui.h>
  28 #include <proto/intuition.h>
  29 #include <proto/utility.h>
  30 #include <proto/muimaster.h>
  31
  32 #include "locale.h"
  33 #include "private.h"
  34
  35 #include "SDI_compiler.h"
  36 #include "SDI_hook.h"
  37
  38 // the main mcp dispatcher
  39 DISPATCHERPROTO(_DispatcherP)
  40 {
  41   DISPATCHER_INIT
  42
  43   switch(msg->MethodID)
  44   {
  45     case OM_NEW:                              return(New(cl, obj, (APTR)msg));
  46     case OM_DISPOSE:                          return(Dispose(cl, obj, (APTR)msg));
  47     case MUIM_Settingsgroup_ConfigToGadgets:  return(ConfigToGadgets(cl, obj, (APTR)msg));
  48     case MUIM_Settingsgroup_GadgetsToConfig:  return(GadgetsToConfig(cl, obj, (APTR)msg));
  49   }
  50
  51   return(DoSuperMethodA(cl, obj, msg));
  52
  53   DISPATCHER_EXIT
  54 }
  55
  56 DISPATCHERPROTO(Text_Dispatcher)
  57 {
  58   DISPATCHER_INIT
  59
  60   switch(msg->MethodID)
  61   {
  62     case OM_SET:
  63     {
  64       struct opSet *set_msg = (struct opSet *)msg;
  65       struct TagItem *tag;
  66
  67       if((tag = FindTagItem(MUIA_UserData, set_msg->ops_AttrList)))
  68         set(obj, MUIA_Text_Contents, FunctionName(tag->ti_Data));
  69     }
  70     break;
  71   }
  72
  73   return(DoSuperMethodA(cl, obj, msg));
  74
  75   DISPATCHER_EXIT
  76 }
  77
  78 DISPATCHERPROTO(WidthSlider_Dispatcher)
  79 {
  80   DISPATCHER_INIT
  81
  82   if(msg->MethodID == MUIM_Numeric_Stringify)
  83   {
  84     struct MUIP_Numeric_Stringify *smsg = (struct MUIP_Numeric_Stringify *)msg;
  85
  86     if(smsg->value == 1)
  87       return (ULONG)GetStr(MSG_SliderText_MinWidth);
  88
  89     if(smsg->value == 6)
  90       return (ULONG)GetStr(MSG_SliderText_MaxWidth);
  91   }
  92
  93   return(DoSuperMethodA(cl, obj, msg));
  94
  95   DISPATCHER_EXIT
  96 }
  97
  98 DISPATCHERPROTO(SpeedSlider_Dispatcher)
  99 {
 100   DISPATCHER_INIT
 101
 102   if(msg->MethodID == MUIM_Numeric_Stringify)
 103   {
 104     struct MUIP_Numeric_Stringify *smsg = (struct MUIP_Numeric_Stringify *)msg;
 105
 106     if(smsg->value == 0)
 107       return (ULONG)GetStr(MSG_SliderText_MinSpeed);
 108     else
 109     {
 110       static char buf[20];
 111
 112       sprintf(buf, "%ld ms", smsg->value*25);
 113
 114       return (ULONG)buf;
 115     }
 116   }
 117
 118   return(DoSuperMethodA(cl, obj, msg));
 119
 120   DISPATCHER_EXIT
 121 }
 122
 123 struct MUI_CustomClass *widthslider_mcc = NULL;
 124 struct MUI_CustomClass *speedslider_mcc = NULL;
 125 struct MUI_CustomClass *text_mcc = NULL;
 126
 127 #ifndef __AROS__
 128 BOOL CreateSubClasses(void)
 129 {
 130   if((widthslider_mcc = MUI_CreateCustomClass(NULL, "Slider.mui", NULL, 0, ENTRY(WidthSlider_Dispatcher))))
 131   {
 132     if((speedslider_mcc = MUI_CreateCustomClass(NULL, "Slider.mui", NULL, 0, ENTRY(SpeedSlider_Dispatcher))))
 133     {
 134       if((text_mcc = MUI_CreateCustomClass(NULL, "Text.mui", NULL, 0, ENTRY(Text_Dispatcher))))
 135       {
 136         return TRUE;
 137       }
 138     }
 139   }
 140
 141   return FALSE;
 142 }
 143
 144 void DeleteSubClasses(void)
 145 {
 146   if(text_mcc)
 147   {
 148     MUI_DeleteCustomClass(text_mcc);
 149     text_mcc = NULL;
 150   }
 151
 152   if(speedslider_mcc)
 153   {
 154     MUI_DeleteCustomClass(speedslider_mcc);
 155     speedslider_mcc = NULL;
 156   }
 157
 158   if(widthslider_mcc)
 159   {
 160     MUI_DeleteCustomClass(widthslider_mcc);
 161     widthslider_mcc = NULL;
 162   }
 163 }
 164
 165 #endif