#include "TextField.h"

#define MUIA_Boopsi_Smart 0x8042b8d7 /* V9 i.. BOOL */

struct Library *TextFieldBase;
Class *TextFieldClass;

int _STI_200_TextFieldInit(void)
{
   TextFieldBase = OpenLibrary("gadgets/textfield.gadget", 0);
   if (TextFieldBase) {
      TextFieldClass = TEXTFIELD_GetClass();
      return 0;
   } else {
      return 1;
   }
}

void _STD_200_TextFieldTerm(void)
{
   CloseLibrary(TextFieldBase);
   TextFieldClass = NULL;
   TextFieldBase = NULL;
}


struct ObjTextField * CreateTextField( void )
{
  struct ObjTextField * Object;
  
  if (!(Object = AllocVec( sizeof( struct ObjTextField ), MEMF_PUBLIC|MEMF_CLEAR )))
    return( NULL );
  
  Object->textfield = HGroup,
    MUIA_Group_HorizSpacing, 0,
    Child, Object->text = BoopsiObject,
      InputListFrame,
      MUIA_Background, MUII_BACKGROUND,
      MUIA_Boopsi_Class, TextFieldClass,
      MUIA_Boopsi_Smart, TRUE,
      MUIA_Boopsi_MinWidth, 20,
      MUIA_Boopsi_MinHeight, 20,
      ICA_TARGET, ICTARGET_IDCMP,
      TEXTFIELD_Text,(ULONG)"",
    End,
    Child, Object->prop = ScrollbarObject, End,
  End;

  if (!(Object->textfield))
    {
      FreeVec(Object);
      Object = NULL;
    }
  
  DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Lines, MUIV_EveryTime,
      Object->prop, 3, MUIM_Set, MUIA_Prop_Entries, MUIV_TriggerValue);
  
  DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Visible, MUIV_EveryTime,
      Object->prop, 3, MUIM_Set, MUIA_Prop_Visible, MUIV_TriggerValue);
  
  DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Top, MUIV_EveryTime,
      Object->prop, 3, MUIM_NoNotifySet, MUIA_Prop_First, MUIV_TriggerValue);
  
  DoMethod(Object->prop, MUIM_Notify, MUIA_Prop_First, MUIV_EveryTime,
      Object->text, 3, MUIM_Set, TEXTFIELD_Top, MUIV_TriggerValue);
  
  return( Object );
}

void DisposeTextField( struct ObjTextField * Object )
{
  MUI_DisposeObject(Object->textfield);
  FreeVec( Object );
}