sundinKC@dna.lth.se (Anders Sundin) (06/17/91)
This question has been asked before, but I have not seen any answers...
How do I receive update events for my application window when I use
SFGetFile or SFPutFile under System 7.0?
Applications like MacWrite II or HyperCard 2.1 has the same bug (=no update)!
The code below used to work under system 6.*
SFPGetFile(pt, '', nil, -1, typeList, nil, gReply, SFPGetID, @UpdateFilter);
function UpdateFilter(dlg:DialogPtr; var evt: EventRecord;
var itemHit: integer): Boolean;
begin
UpdateFilter := false;
if ((evt.what = updateEvt) and (DialogPtr(evt.message) <> dlg)) then
begin
if IsAppWindow(DialogPtr(evt.message)) then
begin
DoUpdate(WindowPtr(evt.message));
itemHit := 100;
UpdateFilter := true;
end;
end;
end;
Is this a System 7.0 bug or should I use some other method?
--
-------------------------------------------------------------
| Anders Sundin | e-mail: sundinKC@dna.lth.se |
| University of Lund | ok2aps@gemini.ldc.lu.se |
| Organic Chemistry 2, | ok2aps@seldc52.bitnet |
| P.O. Box 124 | phone: +46 46 108214 |
| S-22100 Lund, Sweden | fax: +46 46 108209 |
-------------------------------------------------------------