Programming AmigaOS 4: GUI Toolkit ReAction - Revision history

Costel Mincea: Text replacement - "" to ""

2025-01-26T19:31:21Z

Text replacement - "<syntaxhighlight>" to "<syntaxhighlight lang="C" line>"

← Older revision		Revision as of 19:31, 26 January 2025
Line 21:		Line 21:
	All ReAction objects (gadgets, window and Requester) are set up with IIntuition->NewObject(). The result is a generic 'Object' pointer. However, most of the old functions still expect a pointer on a gadget structure (or a window structure), so that you must decide whether you want to cast the return value immediately, or once you activate the respective functions. There is no standard notation in SDK at the moment. Right now, casting the result pointer is the best option. This way you can immediately see what it is about, in case you have selected an unfavourable name for the variable. You can create a button as follows:		All ReAction objects (gadgets, window and Requester) are set up with IIntuition->NewObject(). The result is a generic 'Object' pointer. However, most of the old functions still expect a pointer on a gadget structure (or a window structure), so that you must decide whether you want to cast the return value immediately, or once you activate the respective functions. There is no standard notation in SDK at the moment. Right now, casting the result pointer is the best option. This way you can immediately see what it is about, in case you have selected an unfavourable name for the variable. You can create a button as follows:

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	struct Gadget *gb_ButtonGad;		struct Gadget *gb_ButtonGad;
	#define GAD_ID_Quit 2		#define GAD_ID_Quit 2
Line 36:		Line 36:
	You can also use the same procedure to create a window, but this time you must use the WINDOW_xxx Defines from "classes/window.h". In addition, you can also use a great number of old WA tags.		You can also use the same procedure to create a window, but this time you must use the WINDOW_xxx Defines from "classes/window.h". In addition, you can also use a great number of old WA tags.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	Object *gb_WindowObj;		Object *gb_WindowObj;
	if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,		if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,
Line 51:		Line 51:
	A ReAction window requires implicitly a layout object, which automatically handles the size adjustment and distribution of the individual gadgets. In our example with only one gadget we need a central layout method. The layout object serves the horizontal and vertical arrangement of several gadgets within the window. This way, you can also realise very complex layouts by dividing them into horizontal and vertical groups.		A ReAction window requires implicitly a layout object, which automatically handles the size adjustment and distribution of the individual gadgets. In our example with only one gadget we need a central layout method. The layout object serves the horizontal and vertical arrangement of several gadgets within the window. This way, you can also realise very complex layouts by dividing them into horizontal and vertical groups.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	struct Gadget *gb_MainLayout;		struct Gadget *gb_MainLayout;
	WINDOW_ParentGroup, gb_MainLayout = (struct Gadget *)		WINDOW_ParentGroup, gb_MainLayout = (struct Gadget *)
Line 65:		Line 65:
	As already mentioned, creating menus has become a very simple task in the meantime. All you need to do is create the NewMenu structure (from "libraries/gadtools.h") dating from gadtools times, which describes the individual menu points. This structure is given then when you create the window object. You no longer need to take care of deleting the menu structure; this happens automatically when the window object is released.		As already mentioned, creating menus has become a very simple task in the meantime. All you need to do is create the NewMenu structure (from "libraries/gadtools.h") dating from gadtools times, which describes the individual menu points. This structure is given then when you create the window object. You no longer need to take care of deleting the menu structure; this happens automatically when the window object is released.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	struct NewMenu gb_MenuDescribe[] =		struct NewMenu gb_MenuDescribe[] =
	{		{
Line 81:		Line 81:
	Since AmigaOS 4's release the ReAction gadgets have been included in the BubbleHelp. If you move the mouse cursor over such an element, a bubble with help text will be displayed soon afterwards. You need to do just a little bit of programming for this. Mainly, you must fill out the HintInfo structure from "classes/window.h":		Since AmigaOS 4's release the ReAction gadgets have been included in the BubbleHelp. If you move the mouse cursor over such an element, a bubble with help text will be displayed soon afterwards. You need to do just a little bit of programming for this. Mainly, you must fill out the HintInfo structure from "classes/window.h":

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	struct HintInfo gb_HintInfo[] =		struct HintInfo gb_HintInfo[] =
	{		{
Line 92:		Line 92:
	The fourth value is reserved for the future flags and a 0 is assigned to it at the moment. The structure must be indicated when you create the window object.		The fourth value is reserved for the future flags and a 0 is assigned to it at the moment. The structure must be indicated when you create the window object.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	IIntuition->NewObject(IWindow->WINDOW_GetClass(),		IIntuition->NewObject(IWindow->WINDOW_GetClass(),
	WINDOW_HintInfo, gb_HintInfo,		WINDOW_HintInfo, gb_HintInfo,
Line 100:		Line 100:
	With the WINDOW_GadgetHelp you can turn on/off the help. With 'WINDOW_GadgetHelp, FALSE' you can deactivate it, so it will not be displayed again. With TRUE you can re-activate it. You can change this tag during runtime. Other settings such as influencing the waiting time until the display, the display duration, the colour, etc. are still not possible, but users should be able to change them by using a global Prefs adjuster in the future.		With the WINDOW_GadgetHelp you can turn on/off the help. With 'WINDOW_GadgetHelp, FALSE' you can deactivate it, so it will not be displayed again. With TRUE you can re-activate it. You can change this tag during runtime. Other settings such as influencing the waiting time until the display, the display duration, the colour, etc. are still not possible, but users should be able to change them by using a global Prefs adjuster in the future.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	IIntuition->SetAttrs(gb_WindowObj, WINDOW_GadgetHelp, FALSE, TAG_DONE);		IIntuition->SetAttrs(gb_WindowObj, WINDOW_GadgetHelp, FALSE, TAG_DONE);
	</syntaxhighlight>		</syntaxhighlight>
Line 106:		Line 106:
	We will add a checkbox to the sample program in order to put this possibility to use. We can turn on and off the help any time with it. In reality, you will set this option on a menu point or in the program settings, if there are any. A tooltype in the icon information is also an alternative.		We will add a checkbox to the sample program in order to put this possibility to use. We can turn on and off the help any time with it. In reality, you will set this option on a menu point or in the program settings, if there are any. A tooltype in the icon information is also an alternative.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	struct Gadget *gb_CheckboxGad;		struct Gadget *gb_CheckboxGad;
	#define GAD_ID_Help 1		#define GAD_ID_Help 1
Line 124:		Line 124:
	Since these are macros, you cannot use the typical interface notation. The news editing loop looks in practice as follows:		Since these are macros, you cannot use the typical interface notation. The news editing loop looks in practice as follows:

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	if((gb_Win = RA_OpenWindow(gb_WindowObj)))		if((gb_Win = RA_OpenWindow(gb_WindowObj)))
	{		{
Line 183:		Line 183:
	To close the program, that is, to release all created objects all you need to do is activate IIntuition->DisposeObject(). It automatically makes sure that all elements included in the object are also released. If you specify the window pointer here, all included gadgets, menus and helptexts will be also deleted and can no longer be used!		To close the program, that is, to release all created objects all you need to do is activate IIntuition->DisposeObject(). It automatically makes sure that all elements included in the object are also released. If you specify the window pointer here, all included gadgets, menus and helptexts will be also deleted and can no longer be used!

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	IIntuition->DisposeObject(gb_WindowObj);		IIntuition->DisposeObject(gb_WindowObj);
	</syntaxhighlight>		</syntaxhighlight>
Line 191:		Line 191:
	== ReAction Example ==		== ReAction Example ==

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	/* Michael Christoph		/* Michael Christoph
	* ReActionEx.c		* ReActionEx.c
Line 370:		Line 370:
	We can deal with programming with ReAction here only in theory. But for this purpose we have put "AllGadgets.c" as a bonus. Here all available gadgets are used and you can see how they can be created and queried. The use of page gadgets is also shown. In conjunction with the Clicktab gadget you can also realise tabs, which always show another 'page' with gadgets. For instance, you can divide comprehensive setting windows into individual pages.		We can deal with programming with ReAction here only in theory. But for this purpose we have put "AllGadgets.c" as a bonus. Here all available gadgets are used and you can see how they can be created and queried. The use of page gadgets is also shown. In conjunction with the Clicktab gadget you can also realise tabs, which always show another 'page' with gadgets. For instance, you can divide comprehensive setting windows into individual pages.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	/* Michael Christoph		/* Michael Christoph
	* AllGadgets.c		* AllGadgets.c
Line 1,761:		Line 1,761:
	Another bonus is "ClickTab-Test" which deals exclusively with the Clicktab gadget. As I already mentioned, you can use it to create tabs. The tabs can in the meantime be dynamically added and deleted again. Moreover, you can use both tags, so all tags have the same width and the tab labeling is not shortened.		Another bonus is "ClickTab-Test" which deals exclusively with the Clicktab gadget. As I already mentioned, you can use it to create tabs. The tabs can in the meantime be dynamically added and deleted again. Moreover, you can use both tags, so all tags have the same width and the tab labeling is not shortened.

	<syntaxhighlight>		<syntaxhighlight lang="C" line>
	/* Michael Christoph		/* Michael Christoph
	* ClickTab-Test.c		* ClickTab-Test.c

Steven Solie: /* AllGadgets Example */

2016-10-18T22:47:36Z

AllGadgets Example

← Older revision		Revision as of 22:47, 18 October 2016
Line 1,145:		Line 1,145:
	for(i=1; i<=26; i++)		for(i=1; i<=26; i++)
	{		{
	/* 13-17 ~~und~~ 19 ~~gibt~~ es ~~nicht~~ */		/* 13-17 and 19 do not exist */
	gb_GlyphImg[i] = (struct Image *) IIntuition->NewObject(IGlyph->GLYPH_GetClass(),NULL,		gb_GlyphImg[i] = (struct Image *) IIntuition->NewObject(IGlyph->GLYPH_GetClass(),NULL,
	GLYPH_Glyph, i, /GLYPH_xxx /		GLYPH_Glyph, i, /GLYPH_xxx /
Line 1,154:		Line 1,154:


	/* ~~die~~ ~~einzelnen~~ ~~Seiten~~ ~~der~~ ~~Dragbar~~ ~~anlegen~~ */		/* create the single pages of the Drag Bar */
	gb_Page1Layout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,		gb_Page1Layout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,
	LAYOUT_Orientation, LAYOUT_ORIENT_VERT,		LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
Line 1,373:		Line 1,373:


	/* Layout~~-Objekt~~ ~~erzeugen~~ */		/* create Layout Object */
	gb_MainLayout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,		gb_MainLayout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,
	LAYOUT_Orientation, LAYOUT_ORIENT_VERT,		LAYOUT_Orientation, LAYOUT_ORIENT_VERT,
Line 1,387:		Line 1,387:
	{		{

	/* ~~das~~ ~~Fenster-Objekt~~ ~~erzeugen~~ */		/* create the Window Object */
	if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,		if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,
	WA_IDCMP, IDCMP_GADGETUP \| IDCMP_GADGETDOWN \|		WA_IDCMP, IDCMP_GADGETUP \| IDCMP_GADGETDOWN \|
Line 1,408:		Line 1,408:
	TAG_END)))		TAG_END)))
	{		{
	/* ~~alles~~ ~~korrekt~~ ~~erzeugt~~ */		/* everything created correctly */

	/* ~~das~~ ~~Fenster~~ ~~kann~~ ~~jetzt~~ ~~angezeigt~~ ~~werden~~ */		/* the Window can be shown now */
	gb_Win = RA_OpenWindow(gb_WindowObj);		gb_Win = RA_OpenWindow(gb_WindowObj);
	}		}
Line 1,422:		Line 1,422:
	void DestroyAll()		void DestroyAll()
	{		{
	/* ~~Fenster~~ ~~schlieï¬en~~ ~~und~~ ~~enthaltene~~ ~~Objekte~~ ~~freigeben~~ */		/* close Window and release included Objects */
	RA_CloseWindow(gb_WindowObj);		RA_CloseWindow(gb_WindowObj);
	IIntuition->DisposeObject(gb_WindowObj);		IIntuition->DisposeObject(gb_WindowObj);

	/* ~~die~~ Listview~~-Eintrâ°ge~~ ~~freigeben~~ */		/* release Listview entries */
	FreigebenList();		FreigebenList();

	/* ~~die~~ ~~reservierten~~ ~~Zeichenstifte~~ ~~freigeben~~ */		/* release the reserved pens */
	struct ColorMap *cm = (gb_Scr ? gb_Scr->ViewPort.ColorMap : NULL);		struct ColorMap *cm = (gb_Scr ? gb_Scr->ViewPort.ColorMap : NULL);

Line 1,448:		Line 1,448:
	BOOL laufen = TRUE;		BOOL laufen = TRUE;

	/* ~~Signalbits~~ ~~des~~ ~~Fensters~~ ~~vermerken~~ */		/* save Signal Bits of the Window */
	IIntuition->GetAttr(WINDOW_SigMask,gb_WindowObj,&winsig);		IIntuition->GetAttr(WINDOW_SigMask,gb_WindowObj,&winsig);

	while(laufen)		while(laufen)
	{		{
	/* ~~warten~~ ~~auf~~ ~~Benutzeraktionen~~ */		/* wait for user actions */
	const ULONG sigs = IExec->Wait(winsig \| SIGBREAKF_CTRL_C);		const ULONG sigs = IExec->Wait(winsig \| SIGBREAKF_CTRL_C);

	/* ~~die~~ ~~eingetroffenen~~ ~~Nachrichten~~ ~~verarbeiten~~ */		/* process the received Messages */
	while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG)		while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG)
	{		{
	/* ~~den~~ ~~Nachrichtenanteil~~ ~~ausmaskieren~~ ! */		/* mask out the Messages part */
	switch(result & WMHI_CLASSMASK)		switch(result & WMHI_CLASSMASK)
	{		{
	/* Gadget~~-Nachrichten~~ ~~auswerten~~ */		/* process Gadget Messages */
	case WMHI_GADGETUP:		case WMHI_GADGETUP:
	switch(result & WMHI_GADGETMASK)		switch(result & WMHI_GADGETMASK)
Line 1,628:		Line 1,628:
	IDOS->Printf("Colorwheel: [red=%08lx green=%08lx blue=%08lx]\n",val.cw_Red,val.cw_Green,val.cw_Blue);		IDOS->Printf("Colorwheel: [red=%08lx green=%08lx blue=%08lx]\n",val.cw_Red,val.cw_Green,val.cw_Blue);

	/* ~~anhand~~ ~~der~~ ~~neuen~~ ~~Farbauswahl~~ ~~den~~ ~~Gradientslieder~~ ~~anpassen~~ */		/* reset the Gradient Slider depending on the new color selection */
	struct ViewPort *vp = &gb_Scr->ViewPort;		struct ViewPort *vp = &gb_Scr->ViewPort;

Line 1,699:		Line 1,699:
	break;		break;

	/* RawKey ~~der~~ ~~gedrÂ¸ckten~~ ~~Taste~~ */		/* RawKey of pressed key */
	case WMHI_RAWKEY:		case WMHI_RAWKEY:
	{		{
Line 1,709:		Line 1,709:
	break;		break;

	/* ASCII~~-Zeichencode~~ ~~der~~ ~~gedrÂ¸ckten~~ ~~Taste~~ */		/* ASCII code of pressed key */
	case WMHI_MENUPICK:		case WMHI_MENUPICK:
	switch(result & WMHI_MENUMASK)		switch(result & WMHI_MENUMASK)
Line 1,718:		Line 1,718:
	break;		break;

	/* ~~Fenster-Schlieï¬symbol~~ ~~angeklickt~~ */		/* Window Close Icon clicked */
	case WMHI_CLOSEWINDOW:		case WMHI_CLOSEWINDOW:
	{		{
	/* ~~Fenster~~ ~~Schlieï¬symbol~~ ~~betâ°tigt~~ */		/* Window Close Icon executed */
	laufen = FALSE;		laufen = FALSE;
	}		}
Line 1,729:		Line 1,729:


	/* CTRL-C in ~~der~~ ~~Shell~~ ~~gedrÂ¸ckt~~ ~~oder~~ ~~als~~ ~~Signal~~ ~~erhalten~~ */		/* CTRL-C typed into the Shell or received as signal */
	if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;		if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;
	}		}

Steven Solie: /* AllGadgets Example */

2016-10-18T22:41:18Z

AllGadgets Example

Show changes

Steven Solie: /* ReAction Example */

2016-10-18T22:24:20Z

ReAction Example

← Older revision		Revision as of 22:24, 18 October 2016
Line 221:		Line 221:
	/******************************************************************************/		/******************************************************************************/

	static const char *version USED = "\0$VER: ReActionEx 1.00 (16.12.2004) - (c) ~~Dez~~.2004 by Meicky-Soft\n";		static const char *version USED = "\0$VER: ReActionEx 1.00 (16.12.2004) - (c) Dec.2004 by Meicky-Soft\n";

	/******************************************************************************/		/******************************************************************************/
Line 250:		Line 250:
	int main()		int main()
	{		{
	/* ~~ein~~ Checkbox~~-Gadget~~ ~~erzeugen~~ */		/* create a Checkbox Gadget */
	if((gb_CheckboxGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,		if((gb_CheckboxGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,
	GA_ID, GAD_ID_Help,		GA_ID, GAD_ID_Help,
Line 257:		Line 257:
	TAG_DONE)))		TAG_DONE)))
	{		{
	/* ~~den~~ ~~Button~~ ~~erzeugen~~ */		/* create the Button */
	if((gb_ButtonGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,		if((gb_ButtonGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,
	GA_ID, GAD_ID_Quit,		GA_ID, GAD_ID_Quit,
Line 264:		Line 264:
	TAG_DONE)))		TAG_DONE)))
	{		{
	/* ~~das~~ ~~Fenster-Objekt~~ ~~erzeugen~~ */		/* create the Window Object */
	if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,		if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,
	WA_IDCMP, IDCMP_GADGETUP \| IDCMP_CLOSEWINDOW \| IDCMP_MENUPICK,		WA_IDCMP, IDCMP_GADGETUP \| IDCMP_CLOSEWINDOW \| IDCMP_MENUPICK,
Line 278:		Line 278:
	WINDOW_GadgetHelp, FALSE,		WINDOW_GadgetHelp, FALSE,

	/* ~~das~~ Layout-Object ~~erzeugen~~ ~~und~~ im ~~Fenster~~ ~~einhâ°ngen~~ */		/* create the Layout Object and include it into the Window */
	WINDOW_ParentGroup, gb_MainLayout = (struct Gadget *)		WINDOW_ParentGroup, gb_MainLayout = (struct Gadget *)
	IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,		IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,
Line 289:		Line 289:
	TAG_DONE)))		TAG_DONE)))
	{		{
	/* ~~das~~ ~~Fenster~~ ~~Ëffnen~~ */		/* open the Window */
	if((gb_Win = RA_OpenWindow(gb_WindowObj)))		if((gb_Win = RA_OpenWindow(gb_WindowObj)))
	{		{
	/* ~~Signalbit~~ ~~des~~ ~~Fensters~~ ~~erfragen~~ */		/* query the Signal Bit of the Window */
	ULONG winsig;		ULONG winsig;
	IIntuition->GetAttr(WINDOW_SigMask,gb_WindowObj,&winsig);		IIntuition->GetAttr(WINDOW_SigMask,gb_WindowObj,&winsig);
Line 301:		Line 301:
	ULONG result, code, val;		ULONG result, code, val;

	/* ~~warten~~ ~~bis~~ ~~der~~ Button ~~oder~~ ~~das~~ ~~Schlieï¬symbol~~ ~~geklickt~~ ~~wird~~ */		/* wait till either Button or Close Icon are clicked */
	const ULONG sigs = IExec->Wait(winsig \| SIGBREAKF_CTRL_C);		const ULONG sigs = IExec->Wait(winsig \| SIGBREAKF_CTRL_C);

	/* ~~die~~ ~~eingetroffenen~~ ~~Nachrichten~~ ~~verarbeiten~~ */		/* process the received Messages */
	while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG)		while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG)
	{		{
	/* ~~den~~ ~~Nachrichtenanteil~~ ~~ausmaskieren~~ ! */		/* mask out the Messages part */
	switch(result & WMHI_CLASSMASK)		switch(result & WMHI_CLASSMASK)
	{		{
	/* Gadget~~-Nachrichten~~ ~~auswerten~~ */		/* process the Gadget Messages */
	case WMHI_GADGETUP:		case WMHI_GADGETUP:
	switch(result & WMHI_GADGETMASK)		switch(result & WMHI_GADGETMASK)
Line 329:		Line 329:
	break;		break;

	/* ~~Fenster-Schlieï¬symbol~~ ~~auswerten~~ */		/* query the Window Close Icon */
	case WMHI_CLOSEWINDOW:		case WMHI_CLOSEWINDOW:
	laufen = FALSE;		laufen = FALSE;
	break;		break;

	/* ~~MenÂ¸auswahl~~ ~~auswerten~~ */		/* query the Menu Selection */
	case WMHI_MENUPICK:		case WMHI_MENUPICK:
	switch(result & WMHI_MENUMASK)		switch(result & WMHI_MENUMASK)
Line 346:		Line 346:
	}		}

	/* CTRL-C ~~von~~ ~~der~~ ~~Shell~~ ~~erhalten ?~~ */		/* query if CTRL-C received from the Shell */
	if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;		if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;
	}		}

	/* ~~Fenster~~ ~~schlieï¬en~~ */		/* close the Window */
	RA_CloseWindow(gb_WindowObj);		RA_CloseWindow(gb_WindowObj);
	}		}
Line 356:		Line 356:
	}		}

	/* Window~~-Object~~ ~~freigeben~~, ~~entsorgt~~ ~~auch~~ Layout ~~und~~ Gadget~~-Objekte~~ */		/* release Window Object, dump also Layout and Gadget Objects */
	IIntuition->DisposeObject(gb_WindowObj);		IIntuition->DisposeObject(gb_WindowObj);
	}		}

Steven Solie: /* ClickTab-Test Example */

2016-10-03T17:09:25Z

ClickTab-Test Example

← Older revision		Revision as of 17:09, 3 October 2016
Line 1,903:		Line 1,903:
	{		{

	/* ~~das~~ ~~Fenster-Objekt~~ ~~erzeugen~~ */		/* Create the window object */
	if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,		if((gb_WindowObj = (Object *) IIntuition->NewObject(IWindow->WINDOW_GetClass(),NULL,
	WA_IDCMP, IDCMP_GADGETUP \|		WA_IDCMP, IDCMP_GADGETUP \|
Line 1,950:		Line 1,950:
	ULONG winsig;		ULONG winsig;
	ULONG result, code;		ULONG result, code;
	BOOL ~~laufen~~ = TRUE;		BOOL running = TRUE;

	/* ~~Signalbits~~ ~~des~~ ~~Fensters~~ ~~vermerken~~ */		/* Get the window signal bit mask */
	IIntuition->GetAttr(WINDOW_SigMask, gb_WindowObj, &winsig);		IIntuition->GetAttr(WINDOW_SigMask, gb_WindowObj, &winsig);

	while(~~laufen~~)		while(running)
	{		{
	/* Wait for user actions */		/* Wait for user actions */
Line 2,079:		Line 2,079:
	case WMHI_CLOSEWINDOW:		case WMHI_CLOSEWINDOW:
	{		{
	~~laufen~~ = FALSE;		running = FALSE;
	}		}
	break;		break;

Steven Solie: /* ClickTab-Test Example */

2016-10-03T17:07:23Z

ClickTab-Test Example

Show changes

Steven Solie: /* ClickTab-Test Example */

2016-09-24T23:47:08Z

ClickTab-Test Example

← Older revision		Revision as of 23:47, 24 September 2016
Line 1,836:		Line 1,836:
	BOOL CreateGUI()		BOOL CreateGUI()
	{		{
	if((gb_ClicktabLabels[0] = (STRPTR) IExec->AllocVecTags(31,AVT_Type,MEMF_SHARED,~~TAG_DONE~~)))		if((gb_ClicktabLabels[0] = (STRPTR) IExec->AllocVecTags(31,AVT_Type,MEMF_SHARED,TAG_END)))
	{		{
	IUtility->Strlcpy(gb_ClicktabLabels[0],"_Muster",30);		IUtility->Strlcpy(gb_ClicktabLabels[0],"_Muster",30);
Line 1,847:		Line 1,847:
	STRINGA_MaxChars, 30+1,		STRINGA_MaxChars, 30+1,
	STRINGA_MinVisible, 30,		STRINGA_MinVisible, 30,
	~~TAG_DONE~~);		TAG_END);

	gb_AddGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,		gb_AddGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,
Line 1,853:		Line 1,853:
	GA_RelVerify, TRUE,		GA_RelVerify, TRUE,
	GA_Text, "_Add",		GA_Text, "_Add",
	~~TAG_DONE~~);		TAG_END);

	gb_DelGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,		gb_DelGad = (struct Gadget *) IIntuition->NewObject(IButton->BUTTON_GetClass(),NULL,
Line 1,859:		Line 1,859:
	GA_RelVerify, TRUE,		GA_RelVerify, TRUE,
	GA_Text, "_Del",		GA_Text, "_Del",
	~~TAG_DONE~~);		TAG_END);

	gb_EvensizeGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,		gb_EvensizeGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,
Line 1,867:		Line 1,867:
	CHECKBOX_TextPlace, PLACETEXT_RIGHT,		CHECKBOX_TextPlace, PLACETEXT_RIGHT,
	CHECKBOX_Checked, FALSE,		CHECKBOX_Checked, FALSE,
	~~TAG_DONE~~);		TAG_END);

	gb_LabeltruncateGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,		gb_LabeltruncateGad = (struct Gadget *) IIntuition->NewObject(ICheckBox->CHECKBOX_GetClass(),NULL,
Line 1,875:		Line 1,875:
	CHECKBOX_TextPlace, PLACETEXT_RIGHT,		CHECKBOX_TextPlace, PLACETEXT_RIGHT,
	CHECKBOX_Checked, TRUE,		CHECKBOX_Checked, TRUE,
	~~TAG_DONE~~);		TAG_END);

	gb_ClicktabGad = (struct Gadget *) IIntuition->NewObject(IClickTab->CLICKTAB_GetClass(),NULL,		gb_ClicktabGad = (struct Gadget *) IIntuition->NewObject(IClickTab->CLICKTAB_GetClass(),NULL,
Line 1,884:		Line 1,884:
	CLICKTAB_LabelTruncate, TRUE,		CLICKTAB_LabelTruncate, TRUE,
	//CLICKTAB_PageGroup, gb_PagesLayout,		//CLICKTAB_PageGroup, gb_PagesLayout,
	~~TAG_DONE~~);		TAG_END);

	gb_MainLayout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,		gb_MainLayout = (struct Gadget *) IIntuition->NewObject(ILayout->LAYOUT_GetClass(),NULL,
Line 1,898:		Line 1,898:
	LAYOUT_AddChild, gb_ClicktabGad,		LAYOUT_AddChild, gb_ClicktabGad,

	~~TAG_DONE~~);		TAG_END);

	if(gb_MainLayout)		if(gb_MainLayout)
Line 1,918:		Line 1,918:
	WA_CloseGadget, TRUE,		WA_CloseGadget, TRUE,
	WINDOW_ParentGroup, gb_MainLayout,		WINDOW_ParentGroup, gb_MainLayout,
	~~TAG_DONE~~)))		TAG_END)))
	{		{
	/* alles korrekt erzeugt */		/* alles korrekt erzeugt */
Line 1,979:		Line 1,979:
	IUtility->Strlcpy(gb_ClicktabLabels[val],name,30);		IUtility->Strlcpy(gb_ClicktabLabels[val],name,30);
	IDOS->Printf("Update CT [%ld] <%s>\n",val,name);		IDOS->Printf("Update CT [%ld] <%s>\n",val,name);
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, TAG_END);
	}		}
	break;		break;
Line 1,995:		Line 1,995:
	{		{
	IDOS->Printf("Add CT [%ld] <%s>\n",max,name);		IDOS->Printf("Add CT [%ld] <%s>\n",max,name);
	if((gb_ClicktabLabels[max] = (STRPTR) IExec->AllocVecTags(31,AVT_Type,MEMF_SHARED,~~TAG_DONE~~)))		if((gb_ClicktabLabels[max] = (STRPTR) IExec->AllocVecTags(31,AVT_Type,MEMF_SHARED,TAG_END)))
	{		{
	IUtility->Strlcpy(gb_ClicktabLabels[max],name,30);		IUtility->Strlcpy(gb_ClicktabLabels[max],name,30);
	}		}
	else IDOS->Printf("out of memory\n");		else IDOS->Printf("out of memory\n");
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, TAG_END);
	}		}
	else IDOS->Printf("Name for tab required\n");		else IDOS->Printf("Name for tab required\n");
Line 2,019:		Line 2,019:
	gb_ClicktabLabels[i] = gb_ClicktabLabels[i + 1];		gb_ClicktabLabels[i] = gb_ClicktabLabels[i + 1];
	}		}
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, TAG_END);
	}		}
	break;		break;
Line 2,029:		Line 2,029:
	ULONG val;		ULONG val;
	IIntuition->GetAttr(GA_Selected,(Object)gb_EvensizeGad,(ULONG)&val);		IIntuition->GetAttr(GA_Selected,(Object)gb_EvensizeGad,(ULONG)&val);
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, CLICKTAB_EvenSize,val, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, CLICKTAB_EvenSize,val, TAG_END);
	/* !!! MUST DO to layout the changed tag !!! */		/* !!! MUST DO to layout the changed tag !!! */
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, TAG_END);
	}		}
	break;		break;
Line 2,041:		Line 2,041:
	ULONG val;		ULONG val;
	IIntuition->GetAttr(GA_Selected,(Object)gb_LabeltruncateGad,(ULONG)&val);		IIntuition->GetAttr(GA_Selected,(Object)gb_LabeltruncateGad,(ULONG)&val);
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, CLICKTAB_LabelTruncate,val, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, CLICKTAB_LabelTruncate,val, TAG_END);
	/* !!! MUST DO to layout the changed tag !!! */		/* !!! MUST DO to layout the changed tag !!! */
	IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, ~~TAG_DONE~~);		IIntuition->RefreshSetGadgetAttrs(gb_ClicktabGad,gb_Win,NULL, GA_Text,gb_ClicktabLabels, TAG_END);
	}		}
	break;		break;
Line 2,053:		Line 2,053:
	IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);		IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);
	IDOS->Printf("Update STR [%ld] <%s>\n",val,gb_ClicktabLabels[val]);		IDOS->Printf("Update STR [%ld] <%s>\n",val,gb_ClicktabLabels[val]);
	IIntuition->SetGadgetAttrs(gb_NameGad,gb_Win,NULL, STRINGA_TextVal,gb_ClicktabLabels[val], ~~TAG_DONE~~);		IIntuition->SetGadgetAttrs(gb_NameGad,gb_Win,NULL, STRINGA_TextVal,gb_ClicktabLabels[val], TAG_END);
	}		}
	break;		break;

Steven Solie: /* ClickTab-Test Example */

2016-09-24T23:43:50Z

ClickTab-Test Example

← Older revision		Revision as of 23:43, 24 September 2016
Line 1,763:		Line 1,763:

	<syntaxhighlight>		<syntaxhighlight>
	/* Michael Christoph ~~- Musterbeispiel */~~		/* Michael Christoph
	/* ClickTab-Test.c ~~: Einfaches Beispielprogramm mit variablen ClickTabs */~~		* ClickTab-Test.c
		⚫	*
		⚫	* gcc ClickTab-Test.c -o ClickTab-Test -l auto
		⚫	*/

⚫	/*
⚫	** gcc ClickTab-Test.c -o ClickTab-Test -l auto
⚫	*/

⚫	/************************ ~~PROGRAMM-PARAMETER~~ ******************************/

⚫	static const char *version = "\0$VER: ClickTab-Test 1.0 (13.02.2009) - (c) Feb.2009 by Meicky-Soft\n";

	/***************************** INCLUDES ***********************************/		/***************************** INCLUDES ***********************************/
Line 1,802:		Line 1,798:
	#include <proto/checkbox.h>		#include <proto/checkbox.h>
	#include <proto/label.h>		#include <proto/label.h>

		⚫	/******************************************************************************/

		⚫	static const char *version USED = "\0$VER: ClickTab-Test 1.0 (13.02.2009) - (c) Feb.2009 by Meicky-Soft\n";

	/******************************************************************************/		/******************************************************************************/
Line 1,985:		Line 1,985:
	case GAD_ID_Add:		case GAD_ID_Add:
	{		{
	/* einen neuen Tab ~~hinzuf~~¸gen */		/* einen neuen Tab hinzufÂ¸gen */
	ULONG max;		ULONG max;
	IIntuition->GetAttr(CLICKTAB_Total,(Object)gb_ClicktabGad,(ULONG)&max);		IIntuition->GetAttr(CLICKTAB_Total,(Object)gb_ClicktabGad,(ULONG)&max);
Line 2,010:		Line 2,010:
	case GAD_ID_Del:		case GAD_ID_Del:
	{		{
	/* den aktuellen Tab ~~lˆschen~~ */		/* den aktuellen Tab lËschen */
	ULONG val, i;		ULONG val, i;
	IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);		IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);
Line 2,037:		Line 2,037:
	case GAD_ID_Labeltruncate:		case GAD_ID_Labeltruncate:
	{		{
	/* bei Bedarf Tabbeschriftung k¸rzen */		/* bei Bedarf Tabbeschriftung kÂ¸rzen */
	/* V53: FUNKTIONIERT IM MOMENT NUR BEI INITIALISIERUNG ! */		/* V53: FUNKTIONIERT IM MOMENT NUR BEI INITIALISIERUNG ! */
	ULONG val;		ULONG val;
Line 2,049:		Line 2,049:
	case GAD_ID_Clicktab:		case GAD_ID_Clicktab:
	{		{
	/* Tabbezeichnung ¸bernehmen zur Bearbeitung */		/* Tabbezeichnung Â¸bernehmen zur Bearbeitung */
	ULONG val;		ULONG val;
	IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);		IIntuition->GetAttr(CLICKTAB_Current,(Object)gb_ClicktabGad,(ULONG)&val);
Line 2,076:		Line 2,076:
	break;		break;

	/* Fenster-~~Schlieﬂsymbol~~ angeklickt */		/* Fenster-Schlieï¬symbol angeklickt */
	case WMHI_CLOSEWINDOW:		case WMHI_CLOSEWINDOW:
	{		{
	/* Fenster ~~Schlieﬂsymbol~~ ~~bet‰tigt~~ */		/* Fenster Schlieï¬symbol betâ°tigt */
	laufen = FALSE;		laufen = FALSE;
	}		}
Line 2,087:		Line 2,087:


	/* CTRL-C in der Shell ~~gedr~~¸ckt oder als Signal erhalten */		/* CTRL-C in der Shell gedrÂ¸ckt oder als Signal erhalten */
	if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;		if(sigs & SIGBREAKF_CTRL_C) laufen = FALSE;
	}		}
Line 2,099:		Line 2,099:
	if(SysBase->lib_Version < 53)		if(SysBase->lib_Version < 53)
	{		{
	IDOS->Printf("~~program~~ ~~required~~ AmigaOS 4.1\n");		IDOS->Printf("Program requires AmigaOS 4.1\n");
	return( 20 );		return( 20 );
	}		}
Line 2,109:		Line 2,109:
	FreeGUI();		FreeGUI();
	}		}
	else IDOS->Printf("~~Createing~~ GUI failed !\n");		else IDOS->Printf("GUI creation failed !\n");

	return( 0 );		return 0;
	}		}
	</syntaxhighlight>		</syntaxhighlight>

Steven Solie: /* AllGadgets Example */

2016-09-24T23:39:39Z

AllGadgets Example

← Older revision		Revision as of 23:39, 24 September 2016
Line 1,398:		Line 1,398:
	WA_DragBar, TRUE,		WA_DragBar, TRUE,
	WA_Activate, TRUE,		WA_Activate, TRUE,
	WA_Title, "~~Alle~~ ~~Reaction~~ Gadgets",		WA_Title, "All ReAction Gadgets",
	WA_InnerWidth, 100,		WA_InnerWidth, 100,
	WA_InnerHeight, 100,		WA_InnerHeight, 100,

Steven Solie: /* AllReActionGadgets Example */

2016-09-24T23:37:38Z

AllReActionGadgets Example

Show changes