Apple-2gs-SW
/
dict
mirror of https://github.com/ksherlock/dict.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

cache TE Control Handle.

This commit is contained in:
Kelvin Sherlock 2019-07-08 18:18:16 -04:00
parent 93491e673f
commit 74c012f2b7
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
nda.c
View File

@ -49,6 +49,8 @@ Word ipid;
Word FlagTCP;
Word ToolsLoaded;
GrafPortPtr MyWindow;
Handle TECtrlHandle;
Handle TextHandle;
LongWord TextHandleSize;
@ -148,18 +150,10 @@ void AppendText2(word length, char *cp) {
}
void SetText(void) {
Handle handle;
//TERecord *temp;
longword oldStart, oldEnd;
handle = (Handle)GetCtlHandleFromID(MyWindow, rCtrlTE);
//temp = *(TERecord **)handle;
//temp->textFlags &= (~fReadOnly);
TESetSelection((Pointer)-1, (Pointer)-1, handle);
TESetText(teDataIsTextBox2|teTextIsPtr, (Ref)*TextHandle, TextHandleUsed, NULL, NULL, handle);
//temp->textFlags |= fReadOnly;
TESetSelection((Pointer)-1, (Pointer)-1, TECtrlHandle);
TESetText(teDataIsTextBox2|teTextIsPtr, (Ref)*TextHandle, TextHandleUsed, NULL, NULL, TECtrlHandle);
TextHandleUsed = 0;
@ -439,6 +433,7 @@ void NDAClose(void) {
CloseWindow(MyWindow);
MyWindow = NULL;
TECtrlHandle = NULL;
NDAResourceShutDown(&resInfo);
@ -491,7 +486,7 @@ GrafPortPtr NDAOpen(void) {
ShowWindow(MyWindow);
SelectWindow(MyWindow);
TECtrlHandle = (Handle)GetCtlHandleFromID(MyWindow, rCtrlTE);
ConnectionInit(&connection, MyID, MarinettiCallback);