Power Manager
I am having a problem making a call to the power manager. The modemstatus
returns random data. I looked at the code in macsbug and it seems to be
dereferencing a nil handle??
the code follows:
{——————–}
procedure ChartWindowObj.Background;
var
srcRect, dstRect: Rect;
pt: Point;
ms: Byte;
i: Integer;
err: OSErr;
procedure DrawABit (bitMask: Integer);
begin
if bitAnd(bitMask, ms) = bitMask then
begin
line(0, 0);
move(0, 5);
end
else
begin
move(0, 5);
line(0, 0);
end;
move(0, 5);
end;
begin
err := ModemStatus(ms);
if err = noErr then
begin
with theWindowPtr^.portRect do
MoveTo(right – 31, top + 1);
end;
DrawABit(ModemOnMask);
DrawABit(ringWakeUpMask);
DrawABit(modemInstalledMask);
DrawABit(ringDetectMask);
DrawABit(modemOnHookMask);
srcRect := theWindowPtr^.portRect;
with srcRect do
begin
right := right – 28;
left := left + 1;
end;
dstRect := srcRect;
offsetRect(dstRect, -1, 0);
CopyBits(theWindowPtr^.portBits, theWindowPtr^.portBits, srcRect, dstRect,
srcCopy, nil);
end;
——–
running on a PB-170 8 meg of ram PSI PowerModem IV.
Any Ideas??
Jeffrey G. Backes
72227,1130
ALink PSI.BACKES