OPT MODULE
OPT EXPORT
OPT PREPROCESS

/*
**	bgui_macros.e - AmigaE v3.1a macro definitions file.
**
**	(C) Copyright 1993-1994 Jaba Development.
**	(C) Copyright 1993-1994 Jan van den Baard.
**	All Rights Reserved.
**
**	A lot of these macros  depend in the 'tools/Boopsi.m'
**	module of the AmigaE 3.0 distribution. Please include
**	this module into your code.
**/

/*****************************************************************************
 *
 *	General object creation macros.
 */
#define HGroupObject		BgUI_NewObjectA( BGUI_GROUP_GADGET,	[ TAG_IGNORE, 0
#define VGroupObject		BgUI_NewObjectA( BGUI_GROUP_GADGET,	[ GROUP_STYLE, GRSTYLE_VERTICAL
#define ButtonObject		BgUI_NewObjectA( BGUI_BUTTON_GADGET,	[ TAG_IGNORE, 0
#define ToggleObject		BgUI_NewObjectA( BGUI_BUTTON_GADGET,	[ GA_TOGGLESELECT, TRUE
#define CycleObject		BgUI_NewObjectA( BGUI_CYCLE_GADGET,	[ TAG_IGNORE, 0
#define CheckBoxObject		BgUI_NewObjectA( BGUI_CHECKBOX_GADGET,	[ TAG_IGNORE, 0
#define InfoObject		BgUI_NewObjectA( BGUI_INFO_GADGET,	[ TAG_IGNORE, 0
#define StringObject		BgUI_NewObjectA( BGUI_STRING_GADGET,	[ TAG_IGNORE, 0
#define PropObject		BgUI_NewObjectA( BGUI_PROP_GADGET,	[ TAG_IGNORE, 0
#define IndicatorObject         BgUI_NewObjectA( BGUI_INDICATOR_GADGET, [ TAG_IGNORE, 0
#define ProgressObject		BgUI_NewObjectA( BGUI_PROGRESS_GADGET,	[ TAG_IGNORE, 0
#define SliderObject		BgUI_NewObjectA( BGUI_SLIDER_GADGET,	[ TAG_IGNORE, 0
#define PageObject		BgUI_NewObjectA( BGUI_PAGE_GADGET,	[ TAG_IGNORE, 0
#define MxObject		BgUI_NewObjectA( BGUI_MX_GADGET,	[ TAG_IGNORE, 0
#define ListviewObject		BgUI_NewObjectA( BGUI_LISTVIEW_GADGET,	[ TAG_IGNORE, 0
#define ExternalObject		BgUI_NewObjectA( BGUI_EXTERNAL_GADGET,	[ GA_LEFT, 0, GA_TOP, 0, GA_WIDTH, 0, GA_HEIGHT, 0
#define SeparatorObject         BgUI_NewObjectA( BGUI_SEPARATOR_GADGET, [ TAG_IGNORE, 0
#define SeperatorObject         BgUI_NewObjectA( BGUI_SEPERATOR_GADGET, [ TAG_IGNORE, 0
#define WindowObject		BgUI_NewObjectA( BGUI_WINDOW_OBJECT,	[ TAG_IGNORE, 0
#define FileReqObject		BgUI_NewObjectA( BGUI_FILEREQ_OBJECT,	[ TAG_IGNORE, 0
#define CommodityObject         BgUI_NewObjectA( BGUI_COMMODITY_OBJECT, [ TAG_IGNORE, 0

#define EndObject		TAG_END ] )

/*****************************************************************************
 *
 *	Frames.
 */
#define ButtonFrame		FRM_TYPE, FRTYPE_BUTTON
#define RidgeFrame		FRM_TYPE, FRTYPE_RIDGE
#define DropBoxFrame		FRM_TYPE, FRTYPE_DROPBOX
#define NeXTFrame		FRM_TYPE, FRTYPE_NEXT
#define RadioFrame		FRM_TYPE, FRTYPE_RADIOBUTTON
#define XenFrame		FRM_TYPE, FRTYPE_XEN_BUTTON

/* For clarity. */
#define StringFrame		RidgeFrame
#define MxFrame                 RadioFrame

#define FrameTitle(t)		FRM_TITLE, t

/* Built-in back fills */
#define ShineRaster		FRM_BACKFILL, SHINE_RASTER
#define ShadowRaster		FRM_BACKFILL, SHADOW_RASTER
#define ShineShadowRaster	FRM_BACKFILL, SHINE_SHADOW_RASTER
#define FillRaster		FRM_BACKFILL, FILL_RASTER
#define ShineFillRaster         FRM_BACKFILL, SHINE_FILL_RASTER
#define ShadowFillRaster	FRM_BACKFILL, SHADOW_FILL_RASTER
#define ShineBlock		FRM_BACKFILL, SHINE_BLOCK
#define ShadowBlock		FRM_BACKFILL, SHADOW_BLOCK

/*****************************************************************************
 *
 *	Vector images.
 */
#define GetPath                 VIT_BUILTIN, BUILTIN_GETPATH
#define GetFile                 VIT_BUILTIN, BUILTIN_GETFILE
#define CheckMark		VIT_BUILTIN, BUILTIN_CHECKMARK
#define PopUp			VIT_BUILTIN, BUILTIN_POPUP
#define ArrowUp                 VIT_BUILTIN, BUILTIN_ARROW_UP
#define ArrowDown		VIT_BUILTIN, BUILTIN_ARROW_DOWN
#define ArrowLeft		VIT_BUILTIN, BUILTIN_ARROW_LEFT
#define ArrowRight		VIT_BUILTIN, BUILTIN_ARROW_RIGHT

/*****************************************************************************
 *
 *	Group class macros.
 */
#define StartMember		GROUP_MEMBER
#define EndMember		TAG_END, 0
#define Spacing(p)		GROUP_SPACING, p
#define HOffset(p)		GROUP_HORIZOFFSET, p
#define VOffset(p)		GROUP_VERTOFFSET, p
#define LOffset(p)		GROUP_LEFTOFFSET, p
#define ROffset(p)		GROUP_RIGHTOFFSET, p
#define TOffset(p)		GROUP_TOPOFFSET, p
#define BOffset(p)		GROUP_BOTTOMOFFSET, p
#define VarSpace(w)		GROUP_SPACEOBJECT, w
#define EqualWidth		GROUP_EQUALWIDTH, TRUE
#define EqualHeight		GROUP_EQUALHEIGHT, TRUE

/*****************************************************************************
 *
 *	Layout macros.
 */
#define FixMinWidth		LGO_FIXMINWIDTH, TRUE
#define FixMinHeight		LGO_FIXMINHEIGHT, TRUE
#define Weight(w)		LGO_WEIGHT, w
#define FixWidth(w)		LGO_FIXWIDTH, w
#define FixHeight(h)		LGO_FIXHEIGHT, h
#define Align			LGO_ALIGN, TRUE
#define FixMinSize		FixMinWidth, FixMinHeight
#define FixSize(w,h)		FixWidth(w), FixHeight(h)
#define NoAlign                 LGO_NOALIGN, TRUE

/*****************************************************************************
 *
 *	Page class macros.
 */
#define PageMember		PAGE_MEMBER

/*****************************************************************************
 *
 *	"Quick" button creation macros.
 */
#define Button(label,id)\
	ButtonObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
	EndObject

#define KeyButton(label,id)\
	ButtonObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
	EndObject

#define Toggle(label,state,id)\
	ToggleObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		GA_SELECTED,		state,\
		FRM_TYPE,		FRTYPE_BUTTON,\
	EndObject

#define KeyToggle(label,state,id)\
	ToggleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		GA_SELECTED,		state,\
		FRM_TYPE,		FRTYPE_BUTTON,\
	EndObject

#define XenButton(label,id)\
	ButtonObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
	EndObject

#define XenKeyButton(label,id)\
	ButtonObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
	EndObject

#define XenToggle(label,state,id)\
	ToggleObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		GA_SELECTED,		state,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
	EndObject

#define XenKeyToggle(label,state,id)\
	ToggleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		GA_SELECTED,		state,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
	EndObject
/*****************************************************************************
 *
 *	"Quick" cycle creation macros.
 */
#define Cycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
	EndObject

#define KeyCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
	EndObject

#define XenCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
	EndObject

#define XenKeyCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
	EndObject

#define PopCycle(label,labels,active,id)\
	CycleObject,\
		LAB_Label,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
		CYC_POPUP,		TRUE,\
	EndObject

#define KeyPopCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
		CYC_POPUP,		TRUE,\
	EndObject

#define XenPopCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
		CYC_POPUP,		TRUE,\
	EndObject

#define XenKeyPopCycle(label,labels,active,id)\
	CycleObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		CYC_LABELS,		labels,\
		CYC_ACTIVE,		active,\
		CYC_POPUP,		TRUE,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" checkbox creation macros.
 */
#define CheckBox(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject, FixMinSize

#define KeyCheckBox(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject, FixMinSize

#define XenCheckBox(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject, FixMinSize

#define XenKeyCheckBox(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject, FixMinSize

#define CheckBoxNF(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject

#define KeyCheckBoxNF(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject

#define XenCheckBoxNF(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject

#define XenKeyCheckBoxNF(label,state,id)\
	CheckBoxObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		GA_ID,			id,\
		FRM_TYPE,		FRTYPE_XEN_BUTTON,\
		FRM_FLAGS,		FRF_EDGES_ONLY,\
		GA_SELECTED,		state,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" info object creation macros.
 */
#define InfoFixed(label,text,args,numlines)\
	InfoObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_RECESSED,\
		INFO_TEXTFORMAT,	text,\
		INFO_ARGS,		args,\
		INFO_MINLINES,		numlines,\
		INFO_FIXTEXTWIDTH,	TRUE,\
	EndObject

#define InfoObj(label,text,args,numlines)\
	InfoObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_RECESSED,\
		INFO_TEXTFORMAT,	text,\
		INFO_ARGS,		args,\
		INFO_MINLINES,		numlines,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" string/integer creation macros.
 */
#define StringG(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_TEXTVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
	EndObject

#define KeyString(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_TEXTVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
	EndObject

#define TabString(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_TEXTVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
		GA_TABCYCLE,		TRUE,\
	EndObject

#define TabKeyString(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_TEXTVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
		GA_TABCYCLE,		TRUE,\
	EndObject

#define Integer(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_LONGVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
	EndObject

#define KeyInteger(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_LONGVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
	EndObject

#define TabInteger(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_LONGVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
		GA_TABCYCLE,		TRUE,\
	EndObject

#define TabKeyInteger(label,contents,maxchars,id)\
	StringObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		FRM_TYPE,		FRTYPE_RIDGE,\
		STRINGA_LONGVAL,	contents,\
		STRINGA_MAXCHARS,	maxchars,\
		GA_ID,			id,\
		GA_TABCYCLE,		TRUE,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" scroller creation macros.
 */
#define HorizScroller(label,top,total,visible,id)\
	PropObject,\
		LAB_LABEL,		label,\
		PGA_TOP,		top,\
		PGA_TOTAL,		total,\
		PGA_VISIBLE,		visible,\
		PGA_FREEDOM,		FREEHORIZ,\
		GA_ID,			id,\
		PGA_ARROWS,		TRUE,\
	EndObject

#define VertScroller(label,top,total,visible,id)\
	PropObject,\
		LAB_LABEL,		label,\
		PGA_TOP,		top,\
		PGA_TOTAL,		total,\
		PGA_VISIBLE,		visible,\
		GA_ID,			id,\
		PGA_ARROWS,		TRUE,\
	EndObject

#define KeyHorizScroller(label,top,total,visible,id)\
	PropObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		PGA_TOP,		top,\
		PGA_TOTAL,		total,\
		PGA_VISIBLE,		visible,\
		PGA_FREEDOM,		FREEHORIZ,\
		GA_ID,			id,\
		PGA_ARROWS,		TRUE,\
	EndObject

#define KeyVertScroller(label,top,total,visible,id)\
	PropObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		PGA_TOP,		top,\
		PGA_TOTAL,		total,\
		PGA_VISIBLE,		visible,\
		GA_ID,			id,\
		PGA_ARROWS,		TRUE,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" indicator creation macros.
 */
#define Indicator(min,max,level,just)\
	IndicatorObject,\
		INDIC_MIN,		min,\
		INDIC_MAX,		max,\
		INDIC_LEVEL,		level,\
		INDIC_JUSTIFICATION,	just,\
	EndObject

#define IndicatorFormat(min,max,level,just,format)\
	IndicatorObject,\
		INDIC_MIN,		min,\
		INDIC_MAX,		max,\
		INDIC_LEVEL,		level,\
		INDIC_JUSTIFICATION,	just,\
		INDIC_FORMATSTRING,	format,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" progress creation macros.
 */
#define HorizProgress(label,min,max,done)\
	ProgressObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_RECESSED,\
		PROGRESS_MIN,		min,\
		PROGRESS_MAX,		max,\
		PROGRESS_DONE,		done,\
	EndObject

#define VertProgress(label,min,max,done)\
	ProgressObject,\
		LAB_LABEL,		label,\
		FRM_TYPE,		FRTYPE_BUTTON,\
		FRM_FLAGS,		FRF_RECESSED,\
		PROGRESS_MIN,		min,\
		PROGRESS_MAX,		max,\
		PROGRESS_DONE,		done,\
		PROGRESS_VERTICAL,	TRUE,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" slider creation macros.
 */
#define HorizSlider(label,min,max,level,id)\
	SliderObject,\
		LAB_LABEL,		label,\
		SLIDER_MIN,		min,\
		SLIDER_MAX,		max,\
		SLIDER_LEVEL,		level,\
		GA_ID,			id,\
	EndObject

#define VertSlider(label,min,max,level,id)\
	SliderObject,\
		LAB_LABEL,		label,\
		SLIDER_MIN,		min,\
		SLIDER_MAX,		max,\
		SLIDER_LEVEL,		level,\
		PGA_FREEDOM,		FREEVERT,\
		GA_ID,			id,\
	EndObject

#define KeyHorizSlider(label,min,max,level,id)\
	SliderObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		SLIDER_MIN,		min,\
		SLIDER_MAX,		max,\
		SLIDER_LEVEL,		level,\
		GA_ID,			id,\
	EndObject

#define KeyVertSlider(label,min,max,level,id)\
	SliderObject,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		SLIDER_MIN,		min,\
		SLIDER_MAX,		max,\
		SLIDER_LEVEL,		level,\
		PGA_FREEDOM,		FREEVERT,\
		GA_ID,			id,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" mx creation macros.
 */
#define RightMx(label,labels,active,id)\
	MxObject,\
		GROUP_STYLE,		GRSTYLE_VERTICAL,\
		LAB_LABEL,		label,\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinSize

#define LeftMx(label,labels,active,id)\
	MxObject,\
		GROUP_STYLE,		GRSTYLE_VERTICAL,\
		LAB_LABEL,		label,\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		MX_LABELPLACE,		PLACE_LEFT,\
		GA_ID,			id,\
	EndObject, FixMinSize

#define RightMxKey(label,labels,active,id)\
	MxObject,\
		GROUP_STYLE,		GRSTYLE_VERTICAL,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinSize

#define LeftMxKey(label,labels,active,id)\
	MxObject,\
		GROUP_STYLE,		GRSTYLE_VERTICAL,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         "_",\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		MX_LABELPLACE,		PLACE_LEFT,\
		GA_ID,			id,\
	EndObject, FixMinSize

#define Tabs(label,labels,active,id)\
	MxObject,\
		MX_TABSOBJECT,		TRUE,\
		LAB_LABEL,		label,\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinHeight

#define TabsKey(label,labels,active,id)\
	MxObject,\
		MX_TABSOBJECT,		TRUE,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         '_',\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinHeight

#define TabsEqual(label,labels,active,id)\
	MxObject,\
		GROUP_EQUALWIDTH,	TRUE,\
		MX_TABSOBJECT,		TRUE,\
		LAB_LABEL,		label,\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinHeight

#define TabsEqualKey(label,labels,active,id)\
	MxObject,\
		GROUP_EQUALWIDTH,	TRUE,\
		MX_TABSOBJECT,		TRUE,\
		LAB_LABEL,		label,\
		LAB_UNDERSCORE,         '_',\
		MX_LABELS,		labels,\
		MX_ACTIVE,		active,\
		GA_ID,			id,\
	EndObject, FixMinHeight

/*****************************************************************************
 *
 *	"Quick" listview creation macros.
 */
#define StrListview(label,strings,id)\
	ListviewObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		LISTV_ENTRYARRAY,	strings,\
	EndObject

#define StrListviewSorted(label,strings,id)\
	ListviewObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		LISTV_ENTRYARRAY,	strings,\
		LISTV_SORTENTRYARRAY,	TRUE,\
	EndObject

#define ReadStrListview(label,strings)\
	ListviewObject,\
		LAB_LABEL,		label,\
		LISTV_ENTRYARRAY,	strings,\
		LISTV_READONLY,         TRUE,\
	EndObject

#define ReadStrListviewSorted(label,strings)\
	ListviewObject,\
		LAB_LABEL,		label,\
		LISTV_ENTRYARRAY,	strings,\
		LISTV_SORTENTRYARRAY,	TRUE,\
		LISTV_READONLY,         TRUE,\
	EndObject

#define MultiStrListview(label,strings,id)\
	ListviewObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		LISTV_ENTRYARRAY,	strings,\
		LISTV_MULTISELECT,	TRUE,\
	EndObject

#define MultiStrListviewSorted(label,strings,id)\
	ListviewObject,\
		LAB_LABEL,		label,\
		GA_ID,			id,\
		LISTV_ENTRYARRAY,	strings,\
		LISTV_SORTENTRYARRAY,	TRUE,\
		LISTV_MULTISELECT,	TRUE,\
	EndObject

/*****************************************************************************
 *
 *	"Quick" separator bar creation macros.
 */
#define VertSeparator \
	SeparatorObject,\
	EndObject, FixMinWidth

#define VertThinSeparator \
	SeparatorObject,\
		SEP_THIN,		TRUE,\
	EndObject, FixMinWidth

#define HorizSeparator \
	SeparatorObject,\
		SEP_HORIZ,		TRUE,\
	EndObject, FixMinHeight

#define TitleSeparator(t)\
	SeparatorObject,\
		SEP_HORIZ,		TRUE,\
		SEP_TITLE,		t,\
	EndObject, FixMinHeight

#define HTitleSeparator(t)\
	SeparatorObject,\
		SEP_HORIZ,		TRUE,\
		SEP_TITLE,		t,\
		SEP_HIGHLIGHT,		TRUE,\
	EndObject, FixMinHeight

#define CTitleSeparator(t)\
	SeparatorObject,\
		SEP_HORIZ,		TRUE,\
		SEP_TITLE,		t,\
		SEP_CENTERTITLE,	TRUE,\
	EndObject, FixMinHeight

#define CHTitleSeparator(t)\
	SeparatorObject,\
		SEP_HORIZ,		TRUE,\
		SEP_TITLE,		t,\
		SEP_HIGHLIGHT,		TRUE,\
		SEP_CENTERTITLE,	TRUE,\
	EndObject, FixMinHeight

/* Typos */
#define VertSeperator		VertSeparator
#define VertThinSeperator	VertThinSeparator
#define HorizSeperator		HorizSeparator
#define TitleSeperator		TitleSeparator
#define HTitleSeperator         HTitleSeparator
#define CTitleSeperator         CTitleSeparator
#define CHTitleSeperator	CHTitleSeparator

/*****************************************************************************
 *
 *	Base class method macros.
 */
#define AddMap(object,target,map)\
	domethod( object, [ BASE_ADDMAP, target, map ] )

#define AddCondit(object,target,ttag,tdat,ftag,fdat,stag,sdat)\
	domethod( object, [ BASE_ADDCONDITIONAL, target,\
		  ttag, tdat,\
		  ftag, fdat,\
		  stag, sdat ] )

#define AddHook(object,hook)\
	domethod( object, [ BASE_ADDHOOK, hook ] )

#define RemMap(object,target)\
	domethod( object, [ BASE_REMMAP, target  ] )

#define RemCondit(object,target)\
	domethod( object, [ BASE_REMCONDITIONAL, target ] )

#define RemHook( object,hook)\
	domethod( object, [ BASE_REMHOOK, hook ] )

/*****************************************************************************
 *
 *	Listview class method macros.
 */
#define AddEntry(window,object,entry,how)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_ADDSINGLE,\
			     NIL, entry, how, 0 ] )

#define AddEntryVisible(window,object,entry,how)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_ADDSINGLE,\
			     NIL, entry, how, LVASF_MAKEVISIBLE ] )

#define AddEntrySelect(window,object,entry,how)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_ADDSINGLE,\
			     NIL, entry, how, LVASF_SELECT ] )

#define ClearList(window,object)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_CLEAR, NIL ] )

#define FirstEntry(object)\
	domethod( object, [ LVM_FIRSTENTRY, NIL, 0 ] )

#define FirstSelected(object)\
	domethod( object, [ LVM_FIRSTENTRY, NIL, LVGEF_SELECTED ] )

#define LastEntry(object)\
	domethod( object, [ LVM_LASTENTRY, NIL, 0 ] )

#define LastSelected(object)\
	domethod( object, [ LVM_LASTENTRY, NIL, LVGEF_SELECTED ] )

#define NextEntry(object,last)\
	domethod( object, [ LVM_NEXTENTRY, last, 0 ] )

#define NextSelected(object,last)\
	domethod( object, [ LVM_NEXTENTRY, last, LVGEF_SELECTED ] )

#define PrevEntry(object,last)\
	domethod( object, [ LVM_PREVENTRY, last, 0 ] )

#define PrevSelected(object,last)\
	domethod( object, [ LVM_PREVENTRY, last, LVGEF_SELECTED ] )

#define RemoveEntry(object,entry)\
	domethod( object, [ LVM_REMENTRY, NIL, entry ] )

#define RemoveEntryVisible(window,object,entry)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_REMENTRY, NIL, entry ] )

#define RefreshList(window,object)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_REFRESH, NIL ] )

#define SortList(window,object)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_SORT, NIL ] )

#define LockList(object)\
	domethod( object, [ LVM_LOCKLIST, NIL ] )

#define UnlockList(window,object)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_UNLOCKLIST, NIL ] )

#define MoveEntry(window,object,entry,dir)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_MOVE, NIL,\
			     entry, dir ] )

#define MoveSelectedEntry(window,object,dir)\
	BgUI_DoGadgetMethodA( object, window, NIL, [ LVM_MOVE, NIL,\
			     NIL, dir ] )

#define ReplaceEntry(window,object,old,new)\
	BgUI_DoGadgetMethodA( object, window, NULL, [ LVM_REPLACE, NIL,\
			     old, new ] )

/*****************************************************************************
 *
 *	Window class method macros.
 */
#define GadgetKey(wobj,gobj,key)\
	domethod( wobj, [ WM_GADGETKEY, NIL, gobj, key ] )

#define WindowOpen(wobj)\
	domethod( wobj, [ WM_OPEN ] )

#define WindowClose(wobj)\
	domethod( wobj, [ WM_CLOSE ] )

#define WindowBusy(wobj)\
	domethod( wobj, [ WM_SLEEP ] )

#define WindowReady(wobj)\
	domethod( wobj, [ WM_WAKEUP ] )

#define HandleEvent(wobj)\
	domethod( wobj, [ WM_HANDLEIDCMP ] )

#define DisableMenu(wobj,id,set)\
	domethod( wobj, [ WM_DISABLEMENU, id, set ] )

#define CheckItem(wobj,id,set)\
	domethod( wobj, [ WM_CHECKITEM, id, set ] )

#define MenuDisabled(wobj,id)\
	domethod( wobj, [ WM_MENUDISABLED, id ] )

#define ItemChecked(wobj,id)\
	domethod( wobj, [ WM_ITEMCHECKED, id ] )

#define GetAppMsg(wobj)\
	domethod( wobj, [ WM_GETAPPMSG ] )

#define AddUpdate(wobj,id,target,map)\
	domethod( wobj, [ WM_ADDUPDATE, id, target, map ] )

#define GetSignalWindow(wobj)\
	domethod( wobj, [ WM_GET_SIGNAL_WINDOW ] )

/*****************************************************************************
 *
 *	Commodity class method macros.
 */
#define AddHotkey(broker,desc,id,flags)\
	domethod( broker, [ CM_ADDHOTKEY, desc, id, flags ] )

#define RemHotkey(broker,id)\
	domethod( broker, [ CM_REMHOTKEY, id ] )

#define DisableHotkey(broker,id)\
	domethod( broker, [ CM_DISABLEHOTKEY, id ] )

#define EnableHotKey(broker,id)\
	domethod( broker, [ CM_ENABLEHOTKEY, id ] )

#define EnableBroker(broker)\
	domethod( broker, [ CM_ENABLEBROKER ] )

#define DisableBroker(broker)\
	domethod( broker, [ CM_DISABLEBROKER ] )

#define MsgInfo(broker,type,id,data)\
	domethod( broker, [ CM_MSGINFO,\
			    type,\
			    id,\
			    data ] )

/*****************************************************************************
 *
 *	FileReq class method macros.
 */
#define DoRequest(object)\
	domethod( object, [ FRM_DOREQUEST ] )