MorphZone

[AmigaE, MUI] Notifying Coloradjust object

igracki

# 6

Order of the Butterfly

Posts: 463 from 2003/2/24

From: Berlin

[quote]r-tea wrote:
[quote]igracki wrote:
Also better use subclassing, then you can use own methods instead of hooks.[/quote]

But hooks are better than putting all the handling stuff into MUI's main loop in SELECT CASE ENDSELECT block, and that was the way I did in my very first E/MUI programming attempts :-)

There's still something wrong in my code. Now the hook is executed each time the color changes, but it allways returns the same color value.
And I forgot to mention now I use ECX to make use of your Lamp module.
[/quote][/quote]

When using subclassing, the main MUI "loop" looks like this:
Code:


     DoMethod(app, MUIM_Application_Run)

Here is an example of how a MUI program in ecx looks like (with my own mui extensions):
The main source:
Code:


OPT PREPROCESS, STACK = 32678 -> SEHR WICHTIG! Sonst gibts Hits, wenn AboutMUI oder meine AboutBox offen war!!!
OPT EXENAME = 'ofdbMUI'

MODULE '*mods/myApp' -> APP_NAME, APP_AUTHOR, APP_VER

MODULE 'dos/dos', 'dos/rdargs'
MODULE 'muimaster', 'new/muimaster'
MODULE 'utility/tagitem', 'amigalib/boopsi' -> for doSuperMethodA
-> my own public modules
MODULE 'libMUI', 'mccSupport', 'muiSupport'
MODULE 'myDebug', 'ezRequester'
MODULE '*mods/lstMovies_mcc', '*mods/winMain_mcc', '*mods/app_mcc'

-> shell args stuff
#define ARGS_TEMPLATE 'E-Source/M,VERBOSE/S'

OBJECT myArgs
	srcs: PTR TO LONG	-> the source file(s)
	verbose
ENDOBJECT

VERBOSE MACRO IF args.verbose = DOSTRUE THEN 1

DEF 
	rda = NIL: PTR TO rdargs, args: PTR TO myArgs

PROC main() HANDLE
DEF app=NIL

	NEW args
	IFN rda := ReadArgs(ARGS_TEMPLATE, args, NIL) THEN Raise("ARGS")

	OpenMuiMasterLib()
	InitClasses 3
	AddNewClass MyApp
	AddNewClass WinMain
	AddNewClass LstMovies

	IF ClassesSetup()
		app := MyAppObject, End
		IFN app THEN Raise("APP")

		set(winMain, MUIA_Window_Open, MUI_TRUE)
		DoMethod(app, MUIM_Application_Run)
		set(winMain, MUIA_Window_Open, FALSE)
	ELSE
		PrintF('ClassesSetup() failed!!!n')
	ENDIF

EXCEPT DO
	SELECT exception 
		CASE "ARGS"; DOSError(NIL)
		CASE "APP" ; PrintF('ERROR: Failed to create Application!n')
	ENDSELECT
	
	IF rda THEN FreeArgs(rda)
	END args
	
	IF app THEN MUI_DisposeObject(app)
	
	ClassesCleanup()
	CloseMuiMasterLib()
ENDPROC

In this module I put all methods of all my subclasses, so I need to import only this module:
Code:


OPT MODULE, MODNAME='myApp'
OPT PREPROCESS, EXPORT

MODULE 'utility/tagitem', 'intuition/classes', 'workbench/workbench'
MODULE 'libMUI', 'mccSupport', 'muiSupport'

CONST MUISN_IGRACKI		= <put your own mui serial here!>
CONST TAGBASE_IGRACKI	= TAG_USER OR (MUISN_IGRACKI SHL 16)

-> change these 3 defines
#define APP_VER		  '1.0'
#define APP_NAME 	  'ofdbMUI' -> CHANGEME
#define APP_AUTHOR	  'Thomas Igracki' -> CHANGEME

#define APP_VERSION	  '$VER: ' + APP_NAME + '_' + __TARGET__ + ' ' + APP_VER + ' ' + __AMIGADATE__ + ' by ' + APP_AUTHOR + ''
#fmtstr APP_COMPILED  'Compiled: s s for s - ECX vs' __DATE__ __TIME__ __TARGET__ ECX_VERSION
#define APP_COPYRIGHT '(c) 2014'


#define DOSError(str) PrintFault(IoErr(), IF str THEN str ELSE APP_NAME)

-> Now all attributes and methods of ALL my subclasses, so every module can access them

->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
->>> app_mcc.e: Attributes/Methods <<<<<<<<<<<<<<
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ENUM
	MA_MyApp_Base = TAGBASE_IGRACKI

ENUM
	MM_MyApp_Base = TAGBASE_IGRACKI,
	MM_MyApp_ShowAbout
 
MOBJECT MP_MyApp_ShowAbout, mp_MyApp_ShowAbout
	methodID: LONG
ENDOBJECT

->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
->>> winMain_mcc.e Attributes/Methods <<<<<<<<<<<
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ENUM
	MA_WinMain_Base = TAGBASE_IGRACKI
	
ENUM
	MM_WinMain_Base = TAGBASE_IGRACKI,
	MM_WinMain_MenuAction,
	MM_WinMain_Search

MOBJECT MP_WinMain_Search, mp_WinMain_Search
	methodID: LONG
ENDOBJECT

MOBJECT MP_WinMain_MenuAction, mp_WinMain_MenuAction
	methodID: LONG
	itemID	: LONG
ENDOBJECT

->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
->>> lstMovies_mcc.e Attributes/Methods <<<<<<<<
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ENUM
	MA_LstMovies_Base = TAGBASE_IGRACKI
	
ENUM
	MM_LstMovies_Base = TAGBASE_IGRACKI,
	MM_LstMovies_Search

MOBJECT MP_LstMovies_Search, mp_LstMovies_Search
	methodID: LONG
	forStr: PTR TO CHAR
ENDOBJECT

And a subclass, winMain_mcc.e:
Code:


OPT PREPROCESS, MODULE, MODNAME='winMain_mcc'

MODULE 'exec/libraries', 'exec/lists',
	   'mui/muicustomclass', 'muimaster','new/muimaster', 
       'intuition/classes','intuition/classusr','intuition/screens','intuition/intuition',
       'utility', 'utility/tagitem',
       'workbench/startup', 'workbench/workbench',
       'amigalib/boopsi', -> 
       'dos/dostags'
->MODULE 'libraries/asl'

MODULE 'mui/StringHistory', 'mui/Lamp'

-> my modules
MODULE 'myDebug', 'libMUI', 'mccSupport', 'muiSupport', 'MUInames', 'ezRequester'
MODULE '*myApp', '*lstMovies_mcc'

/****************************************************************************/
/* Here is the beginning of our new class...								*/
/****************************************************************************/

/*
** This is the instance data for our custom class.
*/

DEF mcc = NIL: PTR TO mui_customclass
OBJECT myData
	strip
	strSearch
	butSearch
	lstMovies
	lamp
ENDOBJECT

-> the attributes/methods of my subclass are defined in myApp.e, so all modules can access them!
->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


-> menu ids
ENUM
	MEN_PROJECT = 0,
	MEN_PROJECT_ABOUT,
	MEN_PROJECT_ABOUTMUI,
	MEN_PROJECT_QUIT

-> this macro creates the needed procs/defines:
-> mccCreateXXX(), mccDeleteXXX(), XXXObject
DEC_SUBCLASS MUIC_Window, WinMain

PROC_MNEW winMain
DEF nd: myData

	D('WinMain: nd = 0x%lxn', nd)
	->nd := 0
->	IF (obj := doSuperNewA(cl, obj, [
	IF (obj := DOSUPERNEW(
		MUIA_Window_ID,			"MAIN",
		MUIA_Window_Title,		APP_NAME,
		MUIA_Window_AppWindow,	MUI_TRUE,
		
		MUIA_Window_Menustrip, nd.strip := MenustripObject,
			Child, MenuObjectT('Project'),
				Child, MyMenuitem('?About...', MEN_PROJECT_ABOUT),
				Child, MyMenuitem('About MUI...', MEN_PROJECT_ABOUTMUI),
				Child, MyMenuitem(NM_BARLABEL, 0),
				Child, MyMenuitem('QQuit', MEN_PROJECT_QUIT),
			End,
		End,

		WindowContents, VGroup,
			Child, HGroup,
				Child, nd.lamp := LampObject, MUIA_Lamp_Type,MUIV_Lamp_Type_Gigantic, End,
				Child, Label2('_Search'),
				Child, nd.strSearch := KeyString('', 128, "s"),
			End,
			Child, nd.butSearch := MakeButton('S_earch'),

			Child, VGroup,
				GroupFrameT('Movies'),
				Child, nd.lstMovies := LstMoviesObject,
				End,
			End,

		End,
		TAG_MORE, INIT_TAGS
	))
		-> DDELAY(2)
		D('WinMain: obj = 0x%lxn', obj)
		GETDATA -> data := INST_DATA(cl, obj)
		COPYDATA -> copies contents of 'nd' to 'data'

		Notify(doMethodA(data.strip, [MUIM_FindUData, MEN_PROJECT_ABOUTMUI]),
			MUIA_Menuitem_Trigger, MUIV_EveryTime, MUIV_Notify_Application, 2, MUIM_Application_AboutMUI, obj)

		Notify(obj, MUIA_Window_MenuAction,MUIV_EveryTime, obj, 2, MM_WinMain_MenuAction, MUIV_TriggerValue)

		NotifyBut(data.butSearch, obj, 1, MM_WinMain_Search)

	ENDIF
ENDPROC_MNEW winMain

PROC_MSET winMain

	GETDATA -> data := INST_DATA(cl, obj)
	->D('data = 0x%lx, msg = 0x%lxn', data, msg)

	FORTAG INIT_TAGS
/*
		CASE MUIA_Window_Open
			DDELAY(2)
			DOSUPER
			D('in MUIA_Window_Open, TI_DATA =%ldn', TI_DATA)
			IF TI_DATA = MUI_TRUE
				DDELAY(3)
			ENDIF
*/

		DEFAULT
			->DebugF('tag.tag = 0x%lx(%s)n', tag.tag, MID2STR(tag.tag))
	NEXTTAG

ENDPROC_MSET winMain

PROC_METHOD MM_WinMain_MenuAction, mp_WinMain_MenuAction

	GETDATA -> data := INSTDATA(cl, obj)
	
	SELECT msg.itemID
		CASE MEN_PROJECT_ABOUT;		DoMethod(_app(obj), MM_MyApp_ShowAbout)
		->CASE MEN_PROJECT_ABOUTMUI;	doMethodA(_app(obj), [MUIM_Application_AboutMUI, obj, 0])
		CASE MEN_PROJECT_QUIT;		setMuiTrue(obj, MUIA_Window_CloseRequest)
	DEFAULT
		DebugF('itemID = %ldn', msg.itemID)
	ENDSELECT

ENDPROC_METHOD MM_WinMain_MenuAction, 0

PROC_METHOD MM_WinMain_Search, MP_WinMain_Search
	GETDATA -> data := INSTDATA(cl, obj)
	->Okay('Hallo!')
	set(data.lamp, MUIA_Lamp_Color, MUIV_Lamp_Color_Connecting)
	Delay(20)
	set(data.lamp, MUIA_Lamp_Color, MUIV_Lamp_Color_LoadingData)
	Delay(20)
	set(data.lamp, MUIA_Lamp_Color, MUIV_Lamp_Color_Ok)
	Delay(20)
	DoMethod(data.lstMovies, MM_LstMovies_Search, xget(data.strSearch, MUIA_String_Contents))
ENDPROC_METHOD MM_WinMain_Search, 0

/*********************************************************************
** Here comes the dispatcher for our custom class.
** Unknown/unused methods are passed to the superclass immediately.
**********************************************************************/
DISPATCHER_TABLE
	DEC_NEW
	DEC_SET
	DEC_METHOD MM_WinMain_MenuAction
	DEC_METHOD MM_WinMain_Search
/*
	DEFAULT
		D('msg.methodid = 0x%lxn', msg.methodid)
*/
DISPATCHER_TABLE_END

»16.01.17 - 13:04