home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / gui / GenCodeC2_2d.lha / GenCodeC2.2d / source / TextField.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-08  |  1.6 KB  |  61 lines
  1. #include "TextField.h"
  2. #include "Tools.h"
  3.  
  4. #define MUIA_Boopsi_Smart 0x8042b8d7 /* V9 i.. BOOL */
  5.  
  6. struct ObjTextField * CreateTextField( void )
  7. {
  8.     Class *TextFieldClass;
  9.     struct ObjTextField * Object;
  10.  
  11.     TextFieldClass = TEXTFIELD_GetClass();
  12.  
  13.     if (!(Object = AllocMemory( sizeof( struct ObjTextField ),FALSE )))
  14.         return( NULL );
  15.  
  16.   Object->textfield = HGroup,
  17.     MUIA_Group_HorizSpacing, 0,
  18.     Child, Object->text = BoopsiObject,
  19.       InputListFrame,
  20.       MUIA_Background, MUII_BACKGROUND,
  21.       MUIA_Boopsi_Class, TextFieldClass,
  22.       MUIA_Boopsi_Smart, TRUE,
  23.       MUIA_Boopsi_MinWidth, 20,
  24.       MUIA_Boopsi_MinHeight, 20,
  25.       ICA_TARGET, ICTARGET_IDCMP,
  26.       TEXTFIELD_Text,(ULONG)"",
  27.     End,
  28.     Child, Object->prop = ScrollbarObject, End,
  29.   End;
  30.  
  31.   if (!(Object->textfield))
  32.     {
  33.       FreeMemory(Object);
  34.       Object = NULL;
  35.     }
  36.  
  37.   DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Lines, MUIV_EveryTime,
  38.       Object->prop, 3, MUIM_Set, MUIA_Prop_Entries, MUIV_TriggerValue);
  39.  
  40.   DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Visible, MUIV_EveryTime,
  41.       Object->prop, 3, MUIM_Set, MUIA_Prop_Visible, MUIV_TriggerValue);
  42.  
  43.   DoMethod(Object->text, MUIM_Notify, TEXTFIELD_Top, MUIV_EveryTime,
  44.       Object->prop, 3, MUIM_NoNotifySet, MUIA_Prop_First, MUIV_TriggerValue);
  45.  
  46.   DoMethod(Object->prop, MUIM_Notify, MUIA_Prop_First, MUIV_EveryTime,
  47.       Object->text, 3, MUIM_Set, TEXTFIELD_Top, MUIV_TriggerValue);
  48.  
  49.   return( Object );
  50. }
  51.  
  52. void DisposeTextField( struct ObjTextField * Object )
  53. {
  54.     if (Object != NULL)
  55.     {
  56.         if (Object->textfield != NULL)
  57.             MUI_DisposeObject(Object->textfield);
  58.         FreeMemory(Object);
  59.     }
  60. }
  61.