rainlance/ClassAct
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Files
51f73b984375554aa2a6fa22ae5469fec985bb1f
ClassAct/Examples/Speed/SpeedExample3.c
Carsten Larsen 51f73b9843 Initial commit
2021-02-28 22:17:19 +01:00

445 lines
11 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* ClassAct Example
* Copyright © 1995 Christopher Aldi
* All Rights Reserved.
*
* This Example Shows ClassAct's speed laying out & rendering 50 palettes
*/
#include <clib/macros.h>
#include <clib/alib_protos.h>
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/utility.h>
#include <proto/graphics.h>
#include <proto/intuition.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <proto/window.h>
#include <classes/window.h>
#include <libraries/gadtools.h>
#include <classact.h>
#include <classact_author.h>
struct ClassLibrary *WindowBase;
struct ClassLibrary *LayoutBase;
struct ClassLibrary *PaletteBase;
LONG ARG[1];
int main( void )
{
struct Window *window;
Object *Win_Object;
ULONG signal, result;
ULONG done = FALSE;
struct RDArgs *args;
if (!(args = ReadArgs("ND=NODEFER/S",ARG,NULL)))
return 20;
/* Open the classes we will use. Note, classlib.lib SAS/C or DICE autoinit
* can do this for you automatically.
*/
if( WindowBase = (struct ClassLibrary *)OpenLibrary("window.class",0L) )
{
if( LayoutBase = (struct ClassLibrary *)OpenLibrary("gadgets/layout.gadget",0L) )
{
if( PaletteBase = (struct ClassLibrary *)OpenLibrary("gadgets/palette.gadget",0L) )
{
/* Create the window object.
*/
Win_Object = WindowObject,
WA_ScreenTitle, "ClassAct Copyright 1995, Phantom Development LLC.",
WA_Title, "SpeedTest2 (50 palettes)",
WA_SizeGadget, TRUE,
WA_Left, 40,
WA_Top, 30,
WA_DepthGadget, TRUE,
WA_DragBar, TRUE,
WA_CloseGadget, TRUE,
WA_Activate, TRUE,
WINDOW_ParentGroup, HGroupObject,
TAligned,
LAYOUT_SpaceOuter, TRUE,
LAYOUT_DeferLayout, !ARG[0],
StartVGroup,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
End,
StartVGroup,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
End,
StartVGroup,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
End,
StartVGroup,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
End,
StartVGroup,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
StartMember, PaletteObject,
PALETTE_NumColors, 8,
PALETTE_Color, 1,
EndMember,
CHILD_MinWidth, 50,
CHILD_MinHeight, 15,
End,
EndMember,
EndWindow;
/* Object creation sucessful?
*/
if( Win_Object )
{
/* Open the window.
*/
if( window = (struct Window *) CA_OpenWindow(Win_Object) )
{
ULONG wait;
/* Obtain the window wait signal mask.
*/
GetAttr( WINDOW_SigMask, Win_Object, &signal );
/* Input Event Loop
*/
while( !done )
{
wait = Wait(signal|SIGBREAKF_CTRL_C);
if (wait & SIGBREAKF_CTRL_C) done = TRUE;
else
while ((result = CA_HandleInput(Win_Object,NULL)) != WMHI_LASTMSG)
{
switch(result)
{
case WMHI_CLOSEWINDOW:
done = TRUE;
break;
}
}
}
}
/* Disposing of the window object will
* also close the window if it is
* already opened and it will dispose of
* all objects attached to it.
*/
DisposeObject( Win_Object );
}
}
}
}
/* Close the classes.
*/
if (LayoutBase) CloseLibrary( (struct Library *)LayoutBase );
if (PaletteBase) CloseLibrary( (struct Library *)PaletteBase );
if (WindowBase) CloseLibrary( (struct Library *)WindowBase );
FreeArgs(args);
}
#ifdef _DCC
int wbmain( struct WBStartup *wbs )
{
return( main( 0, NULL ));
}
#endif
Reference in New Issue View Git Blame Copy Permalink