mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-10 06:29:34 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
113 lines
2.7 KiB
OpenEdge ABL
113 lines
2.7 KiB
OpenEdge ABL
{
|
|
File: BalloonWDEF.p
|
|
|
|
Contains: BalloonWDEF - A small window defproc code resource for use by Help Mgr.
|
|
|
|
Written by: Randy Carr
|
|
|
|
Copyright: © 1989-1990, 1992 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<8> 3/23/92 JSM OSEvents.p is obsolete, use Events.p.
|
|
<7> 8/16/90 RLC Change calls to private interface to use OsErr returned in
|
|
interface.
|
|
<6> 7/20/90 RLC Shorten the code again.
|
|
<5> 6/26/90 RLC Shorten to the minimum.
|
|
<4> 4/4/90 KSM Changed references to 'ourPackNum' to be _Pack14.
|
|
<3> 1/25/90 RLC Tweak design of balloon.
|
|
<2> 1/25/90 RLC Put private interface calls right in code.
|
|
<1.2> 8/29/89 RLC Change routine to call the _Pack14 Help Mgr trap directly to
|
|
save code.
|
|
<1.1> 7/20/89 RLC Changes uses interfaces for defproc.
|
|
<1.0> 6/29/89 RLC Created Today.
|
|
}
|
|
|
|
UNIT HMWindow;
|
|
|
|
INTERFACE
|
|
|
|
USES Types, QuickDraw, ToolUtils, Fonts, Events, Controls,
|
|
Windows, Dialogs, Files, Menus, Desk, Traps, OSUtils,
|
|
Resources, Memory, Packages, Errors, Layers, Balloons;
|
|
|
|
|
|
FUNCTION HMDrawBalloonFrame(rgn: RgnHandle): OsErr;
|
|
INLINE $303C,$02FE,_Pack14;
|
|
|
|
|
|
FUNCTION HMSetupBalloonRgns( varCode: INTEGER;
|
|
VAR structRgn: RgnHandle;
|
|
VAR contentRgn: RgnHandle;
|
|
VAR bounds: Rect): OsErr;
|
|
INLINE $303C,$07FF,_Pack14;
|
|
|
|
|
|
FUNCTION HMWindowDefProc(varCode: INTEGER; theWindow: WindowPtr;
|
|
message: INTEGER; param: LONGINT): LONGINT;
|
|
|
|
|
|
{$D-}
|
|
{$R-}
|
|
|
|
|
|
IMPLEMENTATION
|
|
|
|
|
|
|
|
FUNCTION HMWindowDefProc(varCode: INTEGER; theWindow: WindowPtr;
|
|
message: INTEGER; param: LONGINT): LONGINT;
|
|
VAR w : WindowPeek;
|
|
p : Point;
|
|
r : Rect;
|
|
rp : RectPtr;
|
|
|
|
BEGIN
|
|
HMWindowDefProc := 0;
|
|
with WindowPeek(theWindow)^ do
|
|
case message of
|
|
wDraw:
|
|
if visible then
|
|
begin
|
|
PenNormal;
|
|
|
|
if HMDrawBalloonFrame(strucRgn)=noErr then;
|
|
|
|
PenNormal; {restore to normal state}
|
|
end;
|
|
(*
|
|
wHit: {*** Test: allow dragging if CurLayer and Point is set to Help Balloon}
|
|
begin
|
|
p := Point(param);
|
|
|
|
if PtInRgn(p, contRgn) then
|
|
HMWindowDefProc := wInContent
|
|
else if PtInRgn(p,strucRgn) then
|
|
HMWindowDefProc := wInDrag
|
|
else HMWindowDefProc := wNoHit;
|
|
end;
|
|
*)
|
|
|
|
wCalcRgns: {figure out the balloon's position, tip shape, and rgns}
|
|
begin
|
|
r := theWindow^.portRect;
|
|
|
|
with CGrafPtr(theWindow)^ do
|
|
if portVersion < 0 then { color port }
|
|
rp := @portPixMap^^.bounds
|
|
else rp := @theWindow^.portBits.bounds;
|
|
|
|
OffsetRect(r, -rp^.left, -rp^.top);
|
|
|
|
if HMSetupBalloonRgns(varCode,strucRgn,contRgn,r)=noErr then;
|
|
|
|
end;
|
|
end;
|
|
END;
|
|
|
|
|
|
|
|
END.
|
|
|
|
|