Macintosh-SW/mac-rom
1
0
Fork 0
mirror of https://github.com/elliotnunn/mac-rom.git synced 2024-12-28 16:31:01 +00:00
Code Issues Projects Releases Wiki Activity
a3bfccdb99
mac-rom/Toolbox/WindowMgr/RoundedWDEF.a

905 lines
30 KiB
Plaintext
Raw Normal View History

Bring in CubeE sources 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.
2017-09-17 09:09:04 +00:00
;
; File: RoundedWDEF.a
;
; Contains: The rounded window defintion procedure
;
; Copyright: <09> 1982-1991 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <4> 8/30/91 DTY Remove a shift which prevented half of the variations from being
; used. (Conditionilised for PsychoticFarmer.)
; <3> 11/9/90 VL (dc) Rolled back change <2> because The Gang of Five decided
; that titles should not be drawn in TrueGray.
; <2> 10/30/90 VL (KSM) Title should be drawn in TrueGray when the window is
; inactive.
; <1.2> 8/22/89 SES Removed references to nFiles. Updated equates accordingly.
; <1.1> 11/11/88 CCH Fixed Header.
; <1.0> 11/9/88 CCH Adding to EASE.
; <<3C>1.1> 9/23/88 CCH Got rid of inc.sum.d and empty nFiles
; <1.0> 2/12/88 BBM Adding file for the first time into EASE<53>
; <C700> 1/26/87 DAF Universal defproc (version 10)
; <C491> 12/8/86 DAF Locked title string before drawing it (OLD BUG!)
; <C424> 11/18/86 DAF Added portToMap to correct problems in cWindows.
; <C407> 10/13/86 DAF changed textmode from srcBIC to srcCopy
; <Cxxx> 10/6/86 DAF updated color support to use RGB calls on Beck's. Fixed goaway
; mask to center mask for everyone.
; 8/22/86 DLD Recoded draw goaway before DoHilite to fix Mac Plus system.
; <C60> 8/22/86 DLD Recoded draw goaway before DoHilite to fix Mac Plus system.
; 7/23/86 DLD Converted source to MPW.
; <C59> 6/30/86 DAF added color support for nuMac
; <v4> 8/7/85 EHB did variable system font height version
; 7/29/85 EHB converted back to porkshop
; 2/14/85 JTC named rsrc.
; 1/31/85 EHB made hit-testing of GoAway box accurate
; 1/11/85 JTC convert to MDS
; 10/18/83 AJH made it ignore unwanted messages; new hiliting
; 8/20/83 AJH made it get roundness from selector instead of refCon
; 4/27/83 AJH only plot, hit-test goAway if window is active
; 3/17/83 AJH Fixed D4 trash bug
; 3/7/83 AJH Made it dispose the title region (bug fix)
; 1/2/83 AJH Made it a "WDEF" resource
; 11/15/82 AJH Added GoAway button, made content rectangular
; 10/16/82 AJH Converted to QuickDraw Trap Interface
;
; To Do:
;
;EASE$$$ READ ONLY COPY of file <20>RoundedWDEF.a<>
; 1.2 SES 08/22/1989 Removed references to nFiles. Updated equates accordingly.
; 1.1 CCH 11/11/1988 Fixed Header.
; 1.0 CCH 11/ 9/1988 Adding to EASE.
; OLD REVISIONS BELOW
;<3B>1.1 CCH 9/23/1988 Got rid of inc.sum.d and empty nFiles
; 1.0 BBM 2/12/88 Adding file for the first time into EASE<53>
; END EASE MODIFICATION HISTORY
;
;File RoundedWDEF.a
;-------------------------------------------------------
;
; Rounded Corner Window Definition Routine "RDocProc"
;
; written by Andy Hertzfeld Aug 4, 1982
;
; <20> Apple Computer, Inc. 1982, 1983, 1984, 1985, 1986, 1987
; All rights reserved.
;
; This file contains the window definition procedure
; "RDocProc", a standard Mac window type similar to the
; "DocumentProc" included in the ROM. It is indentical if
; the refCon is zero, otherwise the roundness of the corners
; is specified using the high 2 bytes of the window
; refCon. It is intended to be linked with applications or
; desk ornaments.
;
; Modification History:
;
; 16-OCt-82 AJH Converted to QuickDraw Trap Interface
; 15-Nov-82 AJH Added GoAway button, made content rectangular
; 02-Jan-83 AJH Made it a "WDEF" resource
; 07-Mar-83 AJH Made it dispose the title region (bug fix)
; 17-Mar-83 AJH Fixed D4 trash bug
; 27-Apr-83 AJH only plot, hit-test goAway if window is active
; 20-Aug-83 AJH made it get roundness from selector instead of refCon
; 18-Oct-83 AJH made it ignore unwanted messages; new hiliting
; 11-Jan-85 JTC convert to MDS
; 31-Jan-85 EHB made hit-testing of GoAway box accurate
; 14-Feb-85 JTC named rsrc.
; 29-Jul-85 EHB converted back to porkshop
;v4 7-Aug-85 EHB did variable system font height version
; 23 Jul 86 DLD Converted source to MPW.
; 22 Aug 86 DLD Recoded draw goaway before DoHilite to fix Mac Plus system.
;
;----Reno World!----------------------------------------
;
; <C59/30Jun86> DAF added color support for nuMac
; <C60/22Aug86> DLD Recoded draw goaway before DoHilite to fix Mac Plus system.
; <Cxxx/06Oct86> DAF updated color support to use RGB calls on Beck's. Fixed
; goaway mask to center mask for everyone.
; <C407/13Oct86> DAF changed textmode from srcBIC to srcCopy
; <C424/18Nov86> DAF Added portToMap to correct problems in cWindows.
; <C491/08Dec86> DAF Locked title string before drawing it (OLD BUG!)
; <C700/26Jan87> DAF Universal defproc (version 10)
;
BLANKS ON
STRING ASIS
PRINT OFF
LOAD 'StandardEqu.d'
INCLUDE 'colorequ.a'
PRINT ON
WDEF1 FUNC EXPORT
; Stack Frame Definitions
WindowID EQU 14 ;
message EQU 12 ;
WFrameSize EQU -30 ;
IsColor EQU -30 ; do we have colorQD and toolbox? [boolean]
Align EQU -29 ; a dead byte for IsColor
SavFgCol EQU -28
SavBkCol EQU -22
WCTabHndl EQU -16 ;
WCTabPtr EQU -12 ;
WInfoRec EQU -8 ; <7Aug85>
WAscent EQU -8 ; <7Aug85>
WDescent EQU -6 ; <7Aug85>
WHeight EQU -4 ; <7Aug85>
WBoxDelta EQU -2 ; <7Aug85>
;
; FUNCTION RDocProc( selector: INTEGER
; window: WindowPtr,
; message: INTEGER;
; parameter: LongInt): LongInt
;
BRA.S @0
; standard header
DC.W 0 ; flags word
DC.B 'WDEF' ; type
DC.W 1 ; ID
DC.W 10 ; version
@0
LINK A6,#WFrameSize ; set up a stack frame to address parameters
MOVEM.L D3-D5/A3-A4,-(SP) ; save work registers
; test if the message is in range
CMP.W #wCalcRgnMsg,message(A6) ; compare to highest value (this is highest for rdocs)<C700/26Jan87> DAF
BGT OORange ; skip it, it's too high <C700/26Jan87> DAF
CMP.W #wDrawMsg,message(A6) ; compare to lowest value, too <C700/26Jan87> DAF
BMI OORange ; <C700/26Jan87> DAF
MOVE.L grafGlobals(A5),A0 ; get pointer to quickDraw globals <7Aug85>
MOVE.L thePort(A0),-(SP) ; save current port on stack <7Aug85>
; Determine type of system. We need to know if we have color QuickDraw and a color
; window manager port.
CMP.W #$3FFF,ROM85 ; do we have color QD?
SLS IsColor(A6) ; set boolean depending on color or B&W system
BHI.S @BWSys ; no, this system has B&W QD
; when using the wmgrCPort, it is the defproc's responsibility to reconcile
; the wmgrPort and the wmgrCPort.
BSR UpdateCPort ; compare and update wmgrPorts, also set WMgrCPort
; save off the current port fore- & backcolors on color systems.
PEA SavFgCol(A6) ; push a pointer to save area
_GetForeColor ; get the current color
PEA SavBkCol(A6) ;
_GetBackColor ;
; also, find the auxWinRec and lock it down
CLR.L -(SP) ; here's a space for the var handle
CLR.W -(SP) ; function return here
MOVE.L 14(A6),-(SP) ; push window ptr
PEA 6(SP) ; a pointer to the space above
_GetAuxWin ; find the auxrec
ADDQ #2,SP ; pitch the boolean (it doesn't matter)
MOVE.L (SP)+,A0 ; get the auxRecHandle
MOVE.L (A0),A0 ; handle -> ptr
MOVE.L awCTable(A0),A0 ; get the colortable handle <1.2>
MOVE.L A0,WCTabHndl(A6) ; save this handle
_HLock ; lock the table down in memory
MOVE.L (A0),WCTabPtr(A6) ; and get a pointer too!
BRA.S @CommonSys ;
@BWSys ; END OF A COLOR-ONLY SECTION
MOVE.L WMgrPort,-(SP) ; and set port to window manager port
_SetPort ;
@CommonSys
; rdocprocs have asymmetric titles that are 19 high. Figure it so that fonts smaller
; or equal to chicago get mapped to 19, and all others are made odd for good centering.
LEA WInfoRec(A6),A3 ; point to our info rec <7Aug85>
@1 MOVE.L A3,-(SP) ; push a pointer <7Aug85>
_GetFontInfo ; and get the font's info <7Aug85>
MOVE.W (A3)+,D0 ; get ascent+2 <5Aug85>
ADD.W (A3)+,D0 ; add descent <5Aug85>
ADDQ.W #4,D0 ; get the height <5Aug85>
BSET #0,D0 ; make height odd for symmetry <7Aug85>
MOVEQ #19,D1 ; get 19 <26Aug85>
CMP.W D1,D0 ; force height to 19 min <26Aug85>
BGE.S @3 ; => not a tiny font <5Aug85>
SUB.W D0,D1 ; how much less than 19 is it? <26Aug85>
LSR.W #1,D1 ; used for centering tiny fonts <26Aug85>
ADD.W D1,WAscent(A6) ; make the ascent "bigger" <26Aug85>
MOVEQ #19,D0 ; <7Aug85>
@3 MOVE.W D0,(A3)+ ; WHeight = ascent+descent+4 <7Aug85>
SUB.W #13,D0 ; subtract height of box <7Aug85>
LSR.W #1,D0 ; divide by 2 <7Aug85>
MOVE.W D0,(A3) ; save delta to goAway box <7Aug85>
; fetch the parameters into registers
LEA 8(A6),A0 ; get ptr to first parameter
MOVE.L (A0)+,D3 ; get param in D3
MOVE.W (A0)+,D0 ; get message
MOVE.L (A0)+,A3 ; get the window pointer
MOVE.W (A0)+,D5 ; get the selector
;
; <4> This line effectively reduced the number of possible variants by half.
; Take it out for PsychoticFarmer.
;
if CubeE then
LSR #1,D5 ; only use 8 alternatives
endif
ASL #2,D5 ; quadruple for long index
CLR.L (A0) ; clear out function result
;
; case out on the message number
;
CMP #3,D0 ; is it one we deal with?
BGE.S @4 ; if not, skip
ASL #2,D0 ; quadruple for long index
JSR GODOCPROC(D0) ; dispatch to appropriate routine
;
; we're done -- restore port and registers and return to caller
;
@4
TST.B IsColor(A6) ; are we on a color system?
BEQ.S @NoColor2 ; if on B&W, then skip
PEA SavFgCol(A6) ;
_RGBForeColor ;
PEA SavBkCol(A6) ;
_RGBBackColor ;
MOVE.L WCTabHndl(A6),A0 ; unlock the colortable
_HUnlock ;
@NoColor2 ; END OF A COLOR-ONLY SECTION
_SetPort ; restore the port <7Aug85>
OORange ; 'Out Of Range, of course' <C700/26Jan87> DAF
MOVEM.L (SP)+,D3-D5/A3-A4 ; restore work registers
UNLK A6 ; unlink stack frame
MOVE.L (SP)+,A0
ADD #12,SP ; strip parameters
JMP (A0) ; return to caller
;
; DocumentProc dispatch table -- entries must be long branches!
;
GODOCPROC
BRA DRAWDOC ; draw is message 0
BRA HITDOC ; hit test is message 1
BRA CALCDOC ; calc test is message 2
DoneDoc RTS ; nor does it need dispose call
; utility UpdateCPort
; This utility compares the pertinent fields of the wmgrPort and the wmgrCPort,
; updating the wmgrCPort as necessary to match the wmgrPort.
UpdateCPort ; <C700/26Jan87> DAF
MOVE.L WmgrCPort,-(SP) ; make the wmgrCPort the current port
_SetPort ; set it
MOVE.L WmgrPort,A0 ; get the wmgrPort addr
MOVE.L WmgrCPort,A1 ; and the wmgrCPort too
PEA bkPat(A0) ; push pointers to pattern for later
PEA pnPat(A0) ;
; copy all fields from pnLoc to end of grafPort, excluding pnPixPat and fillPixPat
LEA pnLoc(A0),A0 ; point at source
LEA pnLoc(A1),A1 ; point at dest
MOVE.L (A0)+,(A1)+ ; copy pnLoc
MOVE.L (A0)+,(A1)+ ; copy pnSize
MOVE.W (A0)+,(A1)+ ; copy pnMode
ADDQ #8,A0 ; skip pnPat (aka, pnPixPat,fillPixPat)
ADDQ #8,A1 ;
MOVE.W #((portRec-pnVis)/2)-1,D0 ; set up a counter (long sized)
@1
MOVE.W (A0)+,(A1)+ ; copy it
DBRA D0,@1 ; loop
; now set up the patterns in the wmgrCPort (which is thePort)
; the parameters were pushed before the copying loop above
_PenPat
_BackPat
RTS ; <C700/26Jan87> DAF
; SetUpColor takes a window part identifier in D0, finds the corresponding
; part in the AuxWinTable (the part code is in the .value field) and returns
; a pointer to its RGB on the stack. If the requested part is not found,
; the first color table element is used (I'd use frameColor, but that might
; not be there!). Trashes A0/D0.
SetUpColor
MOVE.L D1,-(SP) ; save a register
MOVE.L WCTabPtr(A6),A0 ; get the color table pointer
MOVE.W CTSize(A0),D1 ; get the color table size
MULU #8,D1 ; convert to color table index
LegalIndex
CMP.W CTTable+value(A0,D1),D0 ; is this the one?
BEQ.S FoundIt ; if equal, then done
SUB.W #8,D1 ; try the previous one
BGE.S LegalIndex ; loop while index positive
MOVEQ #0,D1 ; OK, use the first one
FoundIt
LEA CTTable+rgb(A0,D1),A0 ; get the address of the color to use
MOVE.L A0,D0 ; we'll need A0 in a second
MOVE.L (SP)+,D1 ; restore the register
MOVE.L (SP)+,A0 ; get the return address
MOVE.L D0,-(SP) ; push the rgb addr on the stack
JMP (A0) ; return to caller
PORTTOMAP ; <C424/18Nov86> DAF
;----------------------------------------------------------
;
; Given a window pointer in A0, return the bitmap/pixmap pointer in A0
ADDQ #PORTBITS,A0 ;POINT TO BITMAP/PIXMAP HANDLE
TST ROWBYTES(A0) ;BITMAP OR PIXMAP HANDLE?
BPL.S GOTBITMAP ;=>JUST A BITMAP
MOVE.L BASEADDR(A0),A0 ;ELSE GET PORT'S PIXMAP HANDLE
MOVE.L (A0),A0 ;GET PIXMAP POINTER
GOTBITMAP RTS
;
; DrawDoc -- draw the document window. The windowPtr is in A3
;
DrawDoc
TST.B WVISIBLE(A3) ; is it visible?
BEQ.S DoneDoc ; if not, don't do anything
;
; see if its a EORGoAway call and special case it
;
CMP #wInGoAway,D3 ; is it a goAway call?
BEQ EorGoAway ; if so, go handle it
;
; derive the titleBar rectangle from the structRgn and keep it in TempRect
;
LEA TEMPRECT,A0 ; get pointer to tempRect
MOVE.L STRUCTRGN(A3),A1 ; get structure region handle
MOVE.L (A1),A1 ; get strucRgn pointer
ADDQ #RGNBBOX,A1 ; point A1 at the bounding box
MOVE.L (A1)+,(A0)+ ; copy bounding box into tempRect
MOVE.L (A1),(A0)
;
; make bottom := top + height
;
MOVE -4(A0),D0 ; get top
ADD.W WHeight(A6),D0 ; compute top + height <EHB 7Aug85>
MOVE D0,(A0) ; update bottom
;
; handle the case of non-rectangular titleBar -- we must allocate a region
;
CLR.L -(SP) ; make space for function result
_NewRgn ; allocate a region
MOVE.L (SP),A4 ; keep it in A4 -- and don't pop it off
PEA TEMPRECT ; tempRect defines the bounding rect
BSR GetRadPoint ; get the radius point in D0
MOVE.L D0,-(SP) ; push the radius factor
ST -(SP) ; topRound is true
CLR -(SP) ; botRound is false
BSR MakeRoundRegion ; make the region
; set the frame color first
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor3 ; no, so skip this
MOVE.W #wframeColor,D0 ; get element index
BSR.S SetUpColor ; get it on the stack
_RGBForeColor ; and set it
; and do a PenNormal so that pattern and mode are OK (mostly for PaintRgn coming up) <C254/22Oct86> DAF
_PenNormal ; <C254/22Oct86> DAF
@NoColor3 ; END OF A COLOR-ONLY SECTION
; draw the titlebar outline
MOVE.L A4,-(SP) ; push the region
_FrameRgn ; frame it
; determine the highlight state and set colors accordingly <26Apr86>
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor4 ; no, so skip this
TST.B WHILITED(A3) ; is it hilited?
BNE.S @8 ; <20> is highlighted, = is not highlighted
MOVEQ #wTitleBarColor,D0 ; not hilited, so paint the titlebar in this color
BSR.S SetUpColor ;
_RGBForeColor
MOVEQ #wFrameColor,D0 ; in this state, text is in frame color
BSR.S SetUpColor ;
BRA.S @9
@8 MOVEQ #wTitleBarColor,D0 ; hilited, so paint the text in this color
BSR.S SetUpColor ; (foreColor is already frameColor!)
@9 _RGBBackColor
@NoColor4 ; END OF A COLOR-ONLY SECTION
; now, go on and draw the rest of the titlebar
MOVE.L A4,-(SP) ; push it again
MOVE.L OneOne,-(SP) ; inset by 1
_InsetRgn ; inset it
MOVE.L A4,-(SP) ; push for erase (now paint)
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor5 ; no, so erase
_PaintRgn ; paint it
BRA.S @Common5 ; and continue
@NoColor5 _EraseRgn ; erase it
@Common5
;
; hilite the title bar by filling it with specified pattern
;
DrawTheTitle
BSR DoTitleString ; draw the centered Title
;
; plot the goAway button, if necessary
;
TST.B WHilited(A3) ; if hilited window <08/22/86 DLD>
BEQ.S DisposIt ; if not, don't plot goAway <08/22/86 DLD>
TST.B WGoAway(A3) ; is there a goaway button? <08/22/86 DLD>
BEQ.S DoHilite ; if not, skip <08/22/86 DLD>
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor6 ;
MOVEQ #notSrcCopy,D1 ; plot in notsrcCopy mode <08/22/86 DLD>
BRA.S @Common6 ; continue
@NoColor6 MOVEQ #srcCopy,D1 ; default to srcCopy mode <08/22/86 DLD>
@Common6 ; since we will invert <08/22/86 DLD>
LEA GoAwaySymbol,A1 ; get the goAway symbol <08/22/86 DLD>
BSR.S PlotGoAway ; draw goAway <08/22/86 DLD>
DoHilite
TST.B IsColor(A6) ; is it B&W?
BNE.S @BW1 ;
SUBQ #1,TempRect+Bottom ; adjust bottom
PEA TEMPRECT ; push the title rect
_InverRect
@BW1 ; END OF A B&W-ONLY SECTION
DisposIt
MOVE.L A4,-(SP) ; push the region handle
_DisposRgn ; deallocate it
;
; frame the body of the window
;
DrawFrame
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor8 ;
MOVEQ #wFrameColor,D0 ; get the framecolor in Fore
BSR SetUpColor ;
_RGBForeColor
@NoColor8 ; END OF A COLOR-ONLY SECTION
MOVE.L STRUCTRGN(A3),-(SP) ; push the structure
_FrameRgn ; frame the body
RTS
;
; BuildTBarRect builds a rectangle enclosing the titleBar in TempRect
;
BuildTBarRect
LEA TEMPRECT,A0 ; get pointer to tempRect
MOVE.L STRUCTRGN(A3),A1 ; get structure region handle
MOVE.L (A1),A1 ; get strucRgn pointer
ADDQ #RGNBBOX,A1 ; point A1 at the bounding box
MOVE.L (A1)+,(A0) ; copy bounding box into tempRect
MOVE.L (A1),4(A0)
;
; make bottom := top + height
;
MOVE Top(A0),D0 ; get top
ADD.W WHeight(A6),D0 ; add in height <EHB 7Aug85>
MOVE D0,Bottom(A0) ; update bottom
SUBQ #1,Right(A0) ; inset right
RTS ; return to caller
;
; EORGoAway hilites/unhilites the goAway button. It falls through into PlotGoAway
;
EorGoAway
BSR.S BuildTBarRect ; build the bounding rect
LEA GoAwaySymbol,A1 ; get the bitMap
ADD.W #32,A1 ; bump to the EOR Mask
MOVEQ #SrcXOR,D1 ; set EOR as the plot mode
;
; PlotGoAway plots the goAway button. A1 holds the symbol, D1 the plotting mode
;
PlotGoAway
LEA TempRect,A0 ; point to temprect <7Aug85>
MOVE.W WBoxDelta(A6),D0 ; get offset from top to GABox <7Aug85>
ADD.W D0,(A0) ; add offset to top <7Aug85>
SUBQ.W #1,(A0) ; align bitmap <7Aug85>
ADDQ.W #8,2(A0) ; add margin to left <7Aug85>
MOVE.L (A0)+,(A0) ; bottom/right = top/left <7Aug85>
MOVEQ #16,D0 ; get a constant <7Aug85>
ADD.W D0,(A0)+ ; Bottom = top + 16 <7Aug85>
ADD.W D0,(A0) ; Right = Left + 16 <7Aug85>
MOVE D1,D0 ; set plotting mode
MOVE.L #$00100010,D1
BSR.S PlotSymbol ; plot it in tempRect
BSR.S BuildTBarRect ; rebuild tempRect
RTS
;
; PlotSymbol -- plot the little 16 by 16 symbol bitmap pointed to by A1 into the rectangle
; pointed held in TempRect. D0 holds the mode.
;
PlotSymbol
LEA IconBitMap,A0 ; get pointer to source bitmap
MOVE.L A1,(A0) ; update base address of bitMap
MOVE #2,4(A0) ; update rowBytes
MOVE.L #$00100010,10(A0) ; adjust boundsRect
;
; push parameters for CopyBits call to transfer arrow bitMap
;
MOVE.L A0,-(SP) ; push pointer source bitmap
MOVE.L GrafGlobals(A5),A1 ; get lisaGraf global baseaddress
MOVE.L THEPORT(A1),A1 ; get thePort
PEA PORTBITS(A1) ; that's the destination bitmap
;
PEA BOUNDS(A0) ; boundsRect of bitmap is source
PEA TempRect ; tempRect is the destination
MOVE.W D0,-(SP) ; theMode is in D0
CLR.L -(SP) ; no mask region
;
; transfer the bitMap (stretching as necessary...)
;
_CopyBits ; let Bill stretch those bits
RTS ; return to caller
;
; DoTitleString is the common code that draws the title centered in tempRect
;
DoTitleString ; on entry, temprect is title rect inset by one
BSR BuildTBarRect ; calculate title bar rect
; compute indent factor based on GoAwayButton state
@1 MOVE.W TempRect+Right,D3 ; get right
SUB.W TempRect+Left,D3 ; compute width
SUB.W WTITLEWIDTH(A3),D3 ; compute extra x
ASR.W #1,D3 ; divide by 2
;
; if there's a goAway button, make sure the margin is at least 28 pixels
;
TST.B WGoAway(A3) ; is there a go away button
BEQ.S @2 ; skip if there's not
TST D3 ; is it negative?
BMI.S @3 ; if so, pin at 28
CMP.W #28,D3 ; if goAway button, must have some margin
BGT.S @2
@3 MOVEQ #28,D3
@2 ADD TempRect+Left,D3 ; compute x position
MOVE.W D3,-(SP) ; and push for MoveTo
MOVE.W TempRect+Top,D0 ; get top <7Aug85>
ADD.W WAscent(A6),D0 ; move down to baseline <7Aug85>
ADDQ.W #2,D0 ; add a little white space <7Aug85>
MOVE.W D0,-(SP) ; push baseline <7Aug85>
_MoveTo
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor9 ; no, so skip
MOVE.W txMode(A3),-(SP) ; save the xfer mode
MOVE.W #notsrcCopy,-(SP) ; set the text mode <C407/13Nov86> DAF
_TextMode
@NoColor9 ; END OF A COLOR-ONLY SECTION
; draw the string
MOVE.L WTITLEHANDLE(A3),A0 ; get titleHandle
_HLock ; lock that puppy <C491/08Dec86> DAF
MOVE.L (A0),-(SP) ; push title pointer
_DrawString ; draw it
MOVE.L WTITLEHANDLE(A3),A0 ; get titleHandle again <C491/08Dec86> DAF
_HUnlock ; unlock it <C491/08Dec86> DAF
TST.B IsColor(A6) ; is it color?
BEQ.S @NoColor10 ; no, so skip
_TextMode ; and restore textMode <26Apr86>
@NoColor10 ; END OF A COLOR-ONLY SECTION
DoneDString
RTS ; all done drawing title...
;
; GetRadPoint returns the radius in D0 of the round rect parameter defined
; by the selector parameter
;
GetRadPoint
MOVE.L RadiusTable(D5),D0
RTS
RadiusTable
DC.L $00100010 ; (16,16)
DC.L $00040004 ; (4,4)
DC.L $00060006 ; (6,6)
DC.L $00080008 ; (8,8)
DC.L $000A000A ; (10,10)
DC.L $000C000C ; (12,12)
DC.L $00140014 ; (20,20)
DC.L $00180018 ; (24,24)
;
; MakeRoundRegion -- makes a round region given a bounding rectangle and a radius
; value. Also, half round regions (top round, bottom square) are supported
; by the topRound,botRound booleans
;
; MakeRoundRegion( theRgn:RegionHandle
; theRect: Rect
; xRad,yRad: INTEGER
; topRound,botRound: BOOLEAN)
;
MakeRoundRegion ; ???? was ...Rgn
LINK A6,#0 ; set up stack frame
MOVE.L A3,-(SP) ; save work registers
TST.L 8(A6) ; are flags both false?
BEQ.S PlainRect ; if so, its just a rectangle
TST.L 12(A6) ; is radius factor 0?
BNE.S ComplexRect ; if not, its a round one
;
; optimize for the rectangular case
;
PlainRect
MOVE.L 20(A6),-(SP) ; push region handle
MOVE.L 16(A6),-(SP) ; push rectangle pointer
_RectRgn ; make a rectangular region
BRA.S MMRDone ; all done!
;
; make a region with top and bottom corners rounded
;
ComplexRect
_HidePen ; hide the pen
_OpenRgn ; start recording the region
;
MOVE.L 16(A6),-(SP) ; push the rectangle pointer
MOVE.L 12(A6),-(SP) ; push the radius point
_FrameRoundRect ; define the region
MOVE.L 20(A6),-(SP) ; push region handle
_CloseRgn ; assign roundRect region
;
_ShowPen ; enable drawing again
;
; now square up either the top or bottom of the region (or neither)
;
MOVE.L 16(A6),A0 ; get rectangle pointer
TST.W 8(A6) ; examine 'botRound' flag
BNE.S CheckTRound ; if true, see if top needs squaring
MOVE BOTTOM(A0),D1 ; get bottom y coordinate
MOVE D1,D0
SUBQ #8,D0 ; compute top
BRA.S SquareIt
;
CheckTRound
TST.W 10(A6) ; examine 'topRound' flag
BNE.S MMRDone ; if that true, we're done
MOVE Top(A0),D0 ; get top y coordinate
MOVE D0,D1
ADDQ #8,D1 ; get bottom
;
; here we build a rect in ToolScratch that has the same X as tempRect, but centered
; around the top or bottom
;
SquareIt
LEA ToolScratch,A1 ; get pointer to dest Rect
MOVE D0,(A1)+ ; update top
MOVE Left(A0),(A1)+ ; copy left
MOVE D1,(A1)+ ; update bottom
MOVE Right(A0),(A1) ; copy right
;
; now make a region out of that rectangle
;
CLR.L -(SP) ; make space for result
_NewRgn ; allocate a new region
MOVE.L (SP),A3 ; keep a copy in A3
PEA ToolScratch ; push the rectangle pointer
_RectRgn ; make the rectangular region
;
; now union with the parameter region to square up the edges
;
MOVE.L 20(A6),-(SP) ; push destination region
MOVE.L A3,-(SP) ; push square region
MOVE.L 20(A6),-(SP) ; dest gets the result
_UnionRgn
;
; all done -- deallocate the temporary region
;
MOVE.L A3,-(SP)
_DisposRgn
;
MMRDone
MOVE.L (SP)+,A3 ; restore work reg
UNLK A6 ; unlink stack frame
MOVE.L (SP)+,A0 ; get return address
ADD #16,SP ; strip parameters
JMP (A0) ; all done!
; HitDoc -- perform a hit test on the document. On entry, D3 contains the mousePoint
; in global coordinates while A3 holds the window pointer
;
HitDoc
MOVEQ #16,D4 ; keep 16 in a register to save code
CLR.W -(SP) ; make room for function result
MOVE.L D3,-(SP) ; push the mouse point
MOVE.L CONTRGN(A3),-(SP) ; push content region handle
_PtInRgn ; is the point in the content region?
TST.B (SP)+ ; well, is it?
BEQ.S NotInContent ; if not, go check out drag region
; the point is in the content region so return a '1'
justContent
MOVEQ #wInContent,D0 ; return in content
BRA.S DoneHitDoc ; go store function result and return
; its not in the content -- see if its in the dragRgn (content extended by titleBar)
NotInContent
CLR.W -(SP)
MOVE.L D3,-(SP)
MOVE.L StructRgn(A3),-(SP)
_PtInRgn
TST.B (SP)+
BEQ.S DoneHit1
CLR.W -(SP) ; make room for function result
MOVE.L D3,-(SP) ; push the mouse point
MOVE.L ContRgn(A3),A4 ; get content region handle
MOVE.L (A4),A4 ; get region ptr
ADDQ #RgnBBox,A4 ; get bounding box ptr
MOVE.W WHeight(A6),D0 ; get height of title bar <7Aug85>
SUB.W D0,Top(A4) ; decrease by height of title bar <7Aug85>
MOVE.L A4,-(SP) ; push the rect
_PtInRect ; is the point in the title bar?
MOVE.W WHeight(A6),D0 ; get height of title bar <7Aug85>
ADD.W D0,Top(A4) ; and fix the bounding box up <7Aug85>
TST.B (SP)+ ; examine result
BEQ.S DoneHit1 ; if not, return 0 (do nothing)
; see if its in leftmost 16 of drag, which is the goAway button
TST.B WGoAway(A3) ; is there a goAway button?
BEQ.S ItsInDrag ; if not, skip
TST.B WHilited(A3) ; only draw it for the active one
BEQ.S ItsInDrag
MOVE D3,D0 ; get mousePt
MOVE.L A3,A0 ; copy the windowPtr for PortToMap <C424/18Nov86> DAF
BSR PortToMap ; convert it <C424/18Nov86> DAF
ADD Bounds+Left(A0),D0 ; convert to local <C424/18Nov86> DAF
SUB PortRect+Left(A3),D0 ; compensate for origin
CMP #18,D0 ; is it too far right?
BGT.S ItsInDrag ; if so, its in drag
SUBQ #8,D0 ; it must be at least 8
BMI.S ItsInDrag
MOVE.L D3,D0 ;; now check vertical
SWAP D0 ;; which is high word of D3
ADD.W Bounds+Top(A0),D0 ;; convert to local (A0 is still valid) <C424/18Nov86> DAF
SUB.W PortRect+Top(A3),D0 ;; compensate for origin
; D0 is aligned with 0 as the bottom of the title bar.
ADD.W WBoxDelta(A6),D0 ; below box? <7Aug85>
BPL.S ItsInDrag ; => yes <7Aug85>
ADD.W #11,D0 ; in box? <7Aug85>
BMI.S ItsInDrag ; => no <7Aug85>
; its in the goAway button so signal it
MOVEQ #wInGoAway,D0
BRA.S DoneHitDoc
ItsInDrag
MOVEQ #wInDrag,D0 ; flag in drag region
DoneHitDoc
MOVE.L D0,20(A6) ; update function result
DoneHit1 RTS
; CalcDoc -- calculate the structure and content regions for the window pointed
; to by A3.
CalcDoc
LEA TEMPRECT,A0 ; get a pointer to the work rectangle
MOVE.L A0,-(SP) ; push for later offset
MOVE.L PORTRECT(A3),(A0)+ ; copy topLeft of portRect
MOVE.L PORTRECT+4(A3),(A0) ; copy botLeft of portRect
; offset it to global coordinates
MOVE.L A3,A0 ; copy window pointer <C424/18Nov86> DAF
BSR PortToMap ; convert pointer, if necessary <C424/18Nov86> DAF
MOVE.L BOUNDS(A0),-(SP) ; push topLeft of port.portBits.bounds <C424/18Nov86> DAF
NEG 2(SP) ; negate offset
NEG (SP)
_OffsetRect ; offset tempRect to global coordinates
; make the content region square for fast updating
MOVE.L CONTRGN(A3),A0 ; A0 holds the content region
CLR D1 ; topround is false
BSR.S GOMAKERGN ; go make the region into content region
; now do the structure region. First correct the bounding rectangle (tempRect) for
; structure instead of content
PEA TEMPRECT ; push a pointer to the rect
MOVE.L MinusOne,-(SP) ; make 1 pixel bigger, all around
_InsetRect ; make it bigger
MOVE.W WHeight(A6),D0 ; move up to top of window <7Aug85>
SUBQ.W #1,D0 ; tweak it <7Aug85>
SUB.W D0,TempRect+Top ; and set top of struct region <7Aug85>
MOVEQ #1,D1 ; topRound is true
MOVE.L STRUCTRGN(A3),A0 ; A0 holds the structRgn pointer
GoMakeRgn
MOVE.L A0,-(SP) ; push the region handle
PEA TEMPRECT ; push bounding rectangle pointer
BSR GETRADPOINT ; get the radius factor
MOVE.L D0,-(SP) ; push it
MOVE.W D1,-(SP) ; topRound is in D1
ST -(SP) ; so is botRound
BSR MakeRoundRegion ; go make the region
; all done with CalcDocRgns
RTS
;
; BitMap for default GoAway button
GoAwaySymbol
DC.W $0000,$0000,$7FF0,$4010
DC.W $4010,$4010,$4010,$4010
DC.W $4010,$4010,$4010,$4010
DC.W $7FF0,$0000,$0000,$0000
; brand-new, centered mask <Cxxx/06Oct86> DAF
DC.W $0000,$0000,$7FF0,$4210
DC.W $5250,$4A90,$4010,$5DD0
DC.W $4010,$4A90,$5250,$4210
DC.W $7FF0,$0000,$0000,$0000
END
;
Reference in New Issue Copy Permalink