#pragma nda NDAOpen NDAClose NDAAction NDAInit 30 0xffff  "--Dict\\H**"
#pragma lint -1

#include <Types.h>
#include <GSOS.h>
#include <Memory.h>
#include <Locator.h>
#include <Loader.h>
#include <Desk.h>
#include <Event.h>
#include <Window.h>
#include <Control.h>
#include <Resources.h>
#include <Quickdraw.h>

#include "test.h"


WindowPtr MyWindow;
Word MyID;
Word MyRID;
Word RadioOn;

void DrawWindow(void)
{
  DrawControls(GetPort());
}



GrafPortPtr NDAOpen(void)
{
    Pointer myPath;
    Word oldLevel;
    Word oldPrefs;
    Word oldRApp; 
    LevelRecGS levelDCB;
    SysPrefsRecGS prefsDCB;
    Handle H;


    // load our resource. -- see TN.iigs #71
    oldRApp = GetCurResourceApp();
    ResourceStartUp(MyID);
    myPath = LGetPathname2(MyID, 1);

    levelDCB.pCount = 2;
    GetLevelGS(&levelDCB);
    oldLevel = levelDCB.level;
    levelDCB.level = 0;
    SetLevelGS(&levelDCB);

    prefsDCB.pCount = 1;
    GetSysPrefsGS(&prefsDCB);
    oldPrefs = prefsDCB.preferences;
    prefsDCB.preferences = (prefsDCB.preferences & 0x1fff) | 0x8000;
    SetSysPrefsGS(&prefsDCB);

    MyRID = OpenResourceFile(readEnable, NULL, myPath);

    //
    MyWindow = NewWindow2(NULL, 0, DrawWindow, NULL,
      refIsResource, WindTest, rWindParam1);

    SetSysWindow(MyWindow);
    ShowWindow(MyWindow);
    SelectWindow(MyWindow);

    RadioOn = true;

    //
    prefsDCB.preferences = oldPrefs;
    SetSysPrefsGS(&prefsDCB);

    levelDCB.level = oldLevel;
    SetLevelGS(&levelDCB);

    SetCurResourceApp(oldRApp);

    return MyWindow;
}

void NDAClose(void)
{
    CloseWindow(MyWindow);
    MyWindow = NULL;
    CloseResourceFile(MyRID);
    ResourceShutDown();
}

void NDAInit(Word code)
{
  if (code)
  {
    MyWindow = NULL;

    MyID = MMStartUp();
    MyRID = 0;
  }
  else
  {
    // nothing to do.
  }
}

word NDAAction(void *param, int code)
{
word eventCode;

static EventRecord event = { 0 };
static word counter = 0;

  if (code == runAction)
  {
    if (RadioOn)
      SetCtlValueByID(counter++, MyWindow, CtrlWait);
    return 0;
  }

  if (code == eventAction)
  {
    BlockMove((Pointer)param, (Pointer)&event, 16);
    event.wmTaskMask = 0x001FFFFF;
    eventCode = TaskMasterDA(0, &event);
    switch(eventCode)
    {
    case updateEvt:
      BeginUpdate(MyWindow);
      DrawWindow();
      EndUpdate(MyWindow);
      break;

    case wInControl:
    {
        CtlRecHndl ctrlH = GetCtlHandleFromID(MyWindow, CtrlWait);
        switch (event.wmTaskData4)
        {
        case CtrlRadioOn:
          RadioOn = true;
    	  HiliteControl(noHilite, ctrlH);
	  ShowControl(ctrlH);
	
	  break;

        case CtrlRadioOff:
          RadioOn = false;
    	  HiliteControl(inactiveHilite, ctrlH);
	  ShowControl(ctrlH);
	  break;

        case CtrlRadioHide:
	  RadioOn = false;
	  HideControl(ctrlH);
	  break;
        } // switch(event.wmTaskData4)
      } // case wInControl
    } // switch (eventCode)
    return 0;
  } // code == eventAction

 return 0;
}