Apple-2-Tools/DiskBrowser
1
0
Fork 0
mirror of https://github.com/sheumann/DiskBrowser.git synced 2024-11-18 17:12:32 +00:00
Code Issues Projects Releases Wiki Activity

Set things up so that events on the window are handled similarly to an NDA.

Browse Source 
At this point, the controls in the window are active (but do nothing), and the window can be closed.
This commit is contained in:
Stephen Heumann 2019-04-10 22:07:37 -05:00
parent 93dcee6313
commit 5a7e0de0d1
1 changed files with 75 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
diskbrowser.c
View File

@ -1,5 +1,6 @@
#pragma rtl
#include <string.h>
#include <locator.h>
#include <menu.h>
#include <resources.h>
@ -72,6 +73,62 @@ void DrawContents(void) {
}
#pragma databank 0
#pragma databank 1
void CloseBrowserWindow(void) {
if (windowOpened) {
CloseWindow(window);
windowOpened = false;
window = NULL;
}
if (resourceFileOpened && !windowOpened) {
CloseResourceFile(resourceFileID);
resourceFileOpened = false;
}
}
#pragma databank 0
/* NDA-style action routine for our window */
#pragma databank 1
int ActionProc(EventRecord *eventRec, int actionCode) {
static WmTaskRec taskRec;
int handledEvent = 0;
switch (actionCode) {
case eventAction:
/* Copy basic event rec & use our own wmTaskMask, as per IIgs TN 84 */
memset(&taskRec, sizeof(taskRec), 0);
memmove(&taskRec, eventRec, 16);
taskRec.wmTaskMask = 0x1F7FFF; /* everything except tmInfo */
TaskMasterDA(0, &taskRec);
break;
case cursorAction:
break;
case cutAction: // TODO
break;
case copyAction:
break;
case pasteAction:
break;
case clearAction:
break;
}
return handledEvent;
}
#pragma databank 0
asm void actionProcWrapper(void) {
pha
phy
phx
jsl ActionProc
rtl
}
void ShowBrowserWindow(void) {
if (windowOpened) {
BringToFront(window);
@ -100,10 +157,26 @@ void ShowBrowserWindow(void) {
windowOpened = true;
SetSysWindow(window);
AuxWindInfoRecord *auxWindInfo = GetAuxWindInfo(window);
if (toolerror()) {
CloseWindow(window);
windowOpened = false;
window = NULL;
goto cleanup;
}
memset(&sysWindRecord, sizeof(sysWindRecord), 0);
sysWindRecord.closeProc = (ProcPtr)CloseBrowserWindow;
sysWindRecord.actionProc = (ProcPtr)actionProcWrapper;
sysWindRecord.eventMask = 0xFFFF; //0x03FF;
sysWindRecord.memoryID = myUserID;
auxWindInfo->NDASysWindPtr = (Ptr)&sysWindRecord;
cleanup:
if (resourceFileOpened) {
//CloseResourceFile(resourceFileID); // FIXME OK to do here ??
if (resourceFileOpened && !windowOpened) {
CloseResourceFile(resourceFileID);
resourceFileOpened = false;
}
SetCurResourceApp(origResourceApp);