home *** CD-ROM | disk | FTP | other *** search
- #include "cp.h"
-
- WORD listcode;
-
- BOOL sel = FALSE;
-
- int addClicked( void )
- {
- /* routine when gadget "_Add" is clicked. */
- if (AddNewSet())
- {
- Erase ();
- DrawView ( TRUE );
- }
- return ( 1 );
- }
-
- int newfile( void )
- {
- /* routine when "Open File" is selected from menu. */
- FreeAllSets();
- AddNewSet();
- Erase ();
- DrawView ( TRUE );
- return ( 1 );
- }
-
- int deleteClicked( void )
- {
- /* routine when gadget "_Kill" is clicked. */
-
- if ( OpenGTXWindow( OpendelwinWindow ))
- {
- Death(20);
- }
-
- sel = FALSE;
- GT_SetGadgetAttrs(delwinGadgets[0],delwinWnd,NULL,GTLV_Labels,SetList,TAG_DONE);
-
- do {
- Wait ( 1L << delwinWnd-> UserPort-> mp_SigBit );
- }
- while ( HandledelwinIDCMP() );
-
- ClosedelwinWindow();
- return (1);
- }
-
-
- int fullClicked( void )
- {
- /* routine when gadget "_Full" is clicked. */
- Erase();
- DrawView( TRUE );
- return(1);
- }
-
- int zoomClicked( void )
- {
- /* routine when gadget "_Zoom" is clicked. */
- Zoom();
- return (1);
- }
-
- int gridClicked( void )
- {
- /* routine when gadget "_Grid" is clicked. */
- Grid();
- if ( grid == TRUE ) grid = FALSE;
- else grid = TRUE;
- return (1);
- }
-
- int quitClicked( void )
- {
- /* routine when gadget "_Quit" is clicked. */
- return (0);
- }
-
-
- int PlotWindowItem0( void )
- {
-
- struct EasyStruct ES =
- {
- sizeof(struct EasyStruct),
- 0,
- "SAIC",
- "%s",
- "oh ok"
- };
- EasyRequest (PlotWindowWnd,&ES,NULL,"cP\nby\nChris Conger\n\nScience Applications International Corp.\n1993");
- return (1);
- }
-
- int PlotWindowItem1( void )
- {
- return (0);
- }
-
- int PlotWindowItem2( void )
- {
- LOGX = FALSE;
- Erase();
- DrawView( TRUE );
- return (1);
- }
-
- int PlotWindowItem3( void )
- {
- LOGX = TRUE;
- Erase();
- DrawView( TRUE );
- return (1);
- }
-
- int PlotWindowItem4( void )
- {
- LOGY = FALSE;
- Erase();
- DrawView( TRUE );
- return (1);
- }
-
- int PlotWindowItem5( void )
- {
- LOGY = TRUE;
- Erase();
- DrawView( TRUE );
- return (1);
- }
-
- int PlotWindowItem6( void )
- {
- if( sym == TRUE ) sym = FALSE;
- else sym = TRUE;
- Erase();
- DrawView ( FALSE );
- return ( 1 );
- }
-
- int PlotWindowItem7( void )
- {
- UWORD r = NULL;
-
- if( CPANEL == TRUE )
- {
- CPANEL = FALSE;
- r = RemoveGList( PlotWindowWnd, PlotWindowGList, PlotWindow_CNT+1 );
- }
- else
- {
- r = AddGList( PlotWindowWnd,PlotWindowGList, NULL, PlotWindow_CNT+1, NULL );
- CPANEL = TRUE;
- }
- Erase();
- DrawView ( FALSE );
- return ( 1 );
- }
-
- int PlotWindowVanillaKey( void )
- {
- switch (PlotWindowMsg.Code)
- {
- case 'a':
- case 'A':
- return( addClicked() );
- case 'k':
- case 'K':
- return( deleteClicked() );
- case 'z':
- case 'Z':
- return( zoomClicked() );
- case 'f':
- case 'F':
- return( fullClicked() );
- case 'g':
- case 'G':
- return( gridClicked() );
- case 'r':
- case 'R':
- Erase();
- DrawView( FALSE );
- return( 1 );
- case 'q':
- case 'Q':
- return ( quitClicked() );
- default:
- return (1);
- }
- }
-
-
- int delwinVanillaKey(void)
- {
-
- switch (delwinMsg.Code)
- {
- case 'r':
- case 'R':
- return( canlistClicked() );
-
- case 'd':
- case 'D':
- return ( delsetClicked());
- }
-
- return(1);
- }
-
- int dellistClicked( void )
- {
- sel = TRUE;
- listcode = delwinMsg.Code;
- return ( 1 );
- }
-
- int delsetClicked( void )
- {
- struct Set *node;
- WORD k;
-
- if ( sel )
- {
- node = (struct Set *)SetList-> lh_Head;
- k = 0;
-
- while ( k < listcode )
- {
- node = (struct Set *)node-> snode.ln_Succ;
- k++;
- }
-
- GT_SetGadgetAttrs(delwinGadgets[0],delwinWnd,NULL,GTLV_Labels,~0,TAG_DONE);
-
- FreePoints( node -> FirstPoint);
- Remove( (struct Node *)node );
- FreeVec( node );
-
- GT_SetGadgetAttrs(delwinGadgets[0],delwinWnd,NULL,GTLV_Labels,SetList,TAG_DONE);
-
- sel = FALSE;
- }
- return ( 1 );
- }
-
- int canlistClicked( void )
- {
- delwinTop = delwinWnd-> TopEdge;
- delwinLeft = delwinWnd-> LeftEdge;
- Erase();
- DrawView( FALSE );
- return ( 0 );
- }
-
- int delwinCloseWindow( void )
- {
- delwinTop = delwinWnd-> TopEdge;
- delwinLeft = delwinWnd-> LeftEdge;
- return ( 0 );
- }
-
-