Macintosh-SW/mac-rom
1
0
Fork 0
mirror of https://github.com/elliotnunn/mac-rom.git synced 2025-01-14 21:29:53 +00:00
Code Issues Projects Releases Wiki Activity
mac-rom/Toolbox/WindowMgr/StandardWDEF.a

2578 lines
95 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 17:09:04 +08:00
;
; File: StandardWDEF.a
;
; Contains: This file contains the window definition procedure
; "DocumentProc", the standard Mac window type.
; It is a rectangular window with a title bar.
;
; Written by: Andy Hertzfeld Aug 4, 1982; color interface by Chris Derossi
;
; Copyright: <09> 1982-1993 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <SM5> 5/27/93 SAM Rereintroduced the change made in <34>. Now after all these
; years, Paul W. can finally sleep at night.
; <SM4> 12/16/92 HI Removed the the instruction which sets ROMMapInsert to mapTrue before
; GetResource() for 'wctb'. 'wctb' resource is modified by
; programs such as Color CDEV and the StandardWDEF should read
; the modified 'wctb' instead of the unmodifiable one from the
; ROM. Previously, this prevented changing the window colors.
; (Hoon Im)
; <SM3> 11/19/92 RB Set ROMMapInsert to mapTrue before doing GetResource calls to
; look in ROM first.
; <SM1> 10/22/92 CSS Changed some short branches to regular branches as ROM direct
; trap calling expanded code.
; <37> 10/6/91 DTY #1005945: Put <34> back into the WDEF, conditionalized for
; TheFuture.
; <36> 3/26/91 KSM jdr+vl,#84033: To check for zoom flag, you MUST: (1) Decide that
; this variant is a zooming variant, and (2) Insure that the spare
; flag (showing handle allocated) is non-zero.
; <35> 3/19/91 VL Rolled out <34> as GO5 said it's post-7.0. Now the file is the
; same as <33>.
; <34> 3/18/91 VL dty, Bug.Guide/#85080: The top line of the growicon was drawn
; one pixel too low when the window is off the screen. Fixed the
; problem by converting certain arithmetics operations from .l to
; .w to avoid overflowing in the low word.
; <33> 3/4/91 dba dty: get rid of SysVers conditionals and roll out the title bar
; icon code that was accidentally left in
; <32> 3/1/91 VL DFH, #83253 rollback: Rolled out changes in <30> as the fix only
; obsures the crashing problem without solving it. The file should
; be the same as <28>.
; <31> 3/1/91 VL KSM, #KSM-004 rollback: Rolled out change <29> per Gang Of Five
; but kept change <30>.
; <30> 2/28/91 DFH VL,#83253: Made sure to use long word operations to calculate
; addresses from offsets. Was using word-sized, which caused
; intermittent crashes, since result was incorrect.
; <29> 2/27/91 KSM vl,#KSM-004: BTST.B #0 the wZoom flag rather than TST.B to keep
; from conflicting with people who call modal dialog on
; non-dBoxProc variants (like Claris<69> MacWrite IIv1.1 spell check)
; <28> 2/21/91 VL dba, #82019: Fixed the problem of the racing stripes are drawn
; over the window frame.
; <27> 2/19/91 VL csd, #83215: Do not draw to WMgrCPort and use DeviceLoop when
; drawing offscreen grow icon.
; <26> 1/14/91 VL (dba) DrawGIcon should draw a black box when inactive due to
; incompatibility with Finder and applications interface.
; <25> 1/2/91 VL (ngk) Fixed the bug of not restoring clipRgn correctly in
; DrawGIcon.
; <24> 11/9/90 VL (dc) Titles should be drawn in black in non-color windows (undo
; the changes in <21>).
; <23> 10/30/90 VL (dc) Fixed the off-by-one error in DrawGIcon by using SubPt
; instead of sub.l for the global offset.
; <22> 11/19/91 VL (dc) Title should be drawn in TrueGray or Dithered Gray when
; window is inactive. Also, System wctb should be used when an
; old-style wctb is encountered in an app. Only when the system
; wctb is not available should the default wctb in the code be
; used.
; <21> 10/8/90 VL (dc) Create a bogus color table for pmap when we do copybits. This is
; necessary since QuickDraw expects it when we are copying to a
; picture. Changed the offset to pixmap data since one more field
; (or word) is added to store the number of bits per pixel (this
; field is actually not used in this WDEF yet. But for the sake of
; consistency with CDEF, the field is added).
; <20> 10/4/90 VL Changed the color definition for WLTinge4.
; <19> 9/26/90 SAM Commented out wZoom redefinition.
; <18> 9/20/90 VL Lightened the title string gray because no one except Dean and
; Tantek likes the dark gray. (Refer to <12> for history).
; <17> 9/15/90 VL Switch to sysZone before FillRect so that the pixpat created
; will be persistent.
; <16> 9/14/90 csd Removed the local definition of _DeviceLoop.
; <15> 8/29/90 VL Fixed "long title not truncated properly" bug by adjusting the
; right indent into the title.
; <14> 8/7/90 DTY Changed forecolor in PlotSymbol so the close and zoom boxes
; highlight in gray, not color.
; <13> 8/7/90 DTY Tweaked the dark tinge color to make windows look more like
; Paulien<65>s drawings.
; <12> 8/6/90 DTY Darkened the title string gray again because Tantek didn<64>t like
; the light gray.
; <11> 8/4/90 DTY Changed gray of inactive title string to match that generated by
; DrawGrayishText.
; <10> 8/4/90 DTY Fix some glitches in the drawing that I missed because I was
; hallucinating or something. Changed some <20>'<27><>s to <20><><EFBFBD><EFBFBD>s for the
; hell of it.
; <9> 8/4/90 DTY Mutilated drawing code to implement the new color scheme. Added
; code to dim windows to gray when deactive.
; <8> 7/13/90 DVB Turned on the color code.
; <7> 5/24/90 csd Turn the code back on to always allocate a data handle.
; MultiFinder is overloading spareFlag, causing our tests to think
; there<72>s a valid data handle.
; <6> 5/17/90 csd init pen to white background and black foreground; don<6F>t
; allocate data handle if there<72>s no zoom box.
; <5> 4/13/90 csd Disabled (temporarily) the color interface by requiring 33
; bits/pixel in CheckAvailableColors.
; <4> 4/12/90 HJR Fix undefined sysvers for rom builds.
; <3> 4/11/90 csd Major rewrite to support shaded windows and _DeviceLoop. Also
; includes movable-modal (variant 5) windows.
; <1+> 2/6/90 JRM allow popup drawn to right of title, try out title icon in place
; of close box
;
; To Do:
;
;EASE$$$ READ ONLY COPY of file <20>StandardWDEF.a<>
; 1.8 JSM 11/27/1989 Support icon in title bar for 7.0 only.
; 1.7 JSM 11/04/1989 and FJS. Added one pixel to the top and bottom of title
; bars with small icons.
; 1.6 JJJ 08/29/1989 Fixed parameter setup before DisposHandle after label DisposeDoc.
; 1.5 SES 08/22/1989 Removed references to nFiles. Updated equates accordingly.
; 1.4 JRM 08/07/1989 added support for optional icon in title bar
; 1.3 DAF 07/16/1989 Updated WDEF=0's version number.
; 1.2 DAF 07/14/1989 FOR AURORA BUILD - but affects all system builds also.
; Reinstated true drop shadow on document windows on all machines.
; 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
;
; Modification History:
;
; 21-Aug-82 AJH Made DocumentProc support rectangular windows only
; 30-Aug-82 AJH Added growIcon hit detection, fixed hit to exclude perimeter drag
; 07-Sep-82 AJH Added handler for grow message
; 12-Sep-82 AJH Made it so proc doesn't have to calcRgns when not visible
; 20-Sep-82 AJH Added go-away button drawing and hit-testing
; 25-Sep-82 AJH Added cheap dialogBox window definition proc
; 28-Sep-82 AJH New GoAway button; restructured goAway drawing
; 05-Oct-82 AJH Removed Init message to save code
; 06-Oct-82 AJH Fixed dialogBox dragRgn bug
; 10-Oct-82 AJH Converted to QuickDraw trap interface
; 16-Oct-82 AJH Fixed GoAway hit-test origin bug
; 17-OCt-82 AJH Made both windowProcs preserve A1
; 07-Nov-82 AJH Changed DocumentProc hiliting to Lisa way
; 14-Nov-82 AJH Improved shape of Grow outline ala Lisa
; 16-Nov-82 AJH Made branch table offset-based to save space
; 16-Nov-82 AJH Special-cased hiliting of small windows
; 20-Dec-82 AJH Changed title bar to 20 pixels tall
; 24-Dec-82 AJH Made wProcAsm a separate assembly
; 17-Mar-83 AJH Added third variant -- shadowless dBoxProc
; 27-Apr-83 AJH only plot, hit-test goAway if window is active
; 25-Jul-83 SC Fixed third variant -- frame was incorrect, see DrawDBox
; 06-Aug-83 AJH changed hiliting to use pattern
; 09-Aug-83 AJH added draw grow icon message receiver
; 20-Aug-83 AJH made it only hit-test or draws goAway if window is active
; 29-Oct-83 AJH new dBox border
; 10-Nov-83 AJH added variant 4 -- just like variant 0, but no inGrow
; 24-Dec-83 AJH fixed structRgn calc bug in variant 1
; 24-Feb-84 AJH fixed hit-testing of go-away -- was off by 2
; 09-Jan-85 JTC modified for MDS assembly: label DocumentProc changed
; to DocProc to avoid collision.
; 15-Jan-85 EHB fixed erase of 3 pixels of content rgn in DrawFrame;
; prevented erase of top line in DoTitleString.
; 15-Jan-85 EHB eliminated title flicker in CheckHilite; gnrl cleanup
; 30-Jan-85 EHB fixed boundary testing of GoAwayBox
; 14-Feb-85 JTC named rsrc.
; 16-May-85 EHB For GrowBox hitTesting, changed D4=16 to D4=14
;v3 16-May-85 EHB Check left of window title when no grow box too
; 29-Jul-85 EHB converted back to porkshop
;v4 5-Aug-85 EHB Allow variable size titles
;v5 29-Aug-85 EHB Variant 8 knows how to zoom
; 18-Sep-85 EHB Added routine ChkPoint to allow slop on large zoom size
; 09-Oct-85 EHB Added designer zoom icon, restored old close mask
; 18-Oct-85 EHB New Zoom positioning (avoid lawsuits). Needs title fixes too
; Add tempRgn to frame to save clip, to calc window's region
; 18-Oct-85 EHB Only allow zooming on new ROMs (just in case)
; 21-Oct-85 EHB In HitDoc, use BuildTBarRect to hit-test title bar. The old
; way didn't work with null content regions.
; 03-Nov-85 EHB Zoom was one pixel too far left (fix draw and hit)
;
;-Reno World------------------------------------------------------------------
;
; <C59/30Jun86> DAF Added color support on nuMac. Dropped Krispee stuff
; <C117/25Sep86> DAF Updated defproc to use RGBForeColor/RGBBackColor
; <C203/06Oct86> DAF Updated SetUpColor to look up window part color rather
; than assume part from position. Changed textMode to
; srcOr for titleString. Made window rgn square
; conditionally.
; <A285/28Oct86> DAF Changed SquareWindows conditional to be true on nuMac only.
; <C407/16Nov86> DAF Changed textMode to srcCopy, per Cary's recommendation
; <C424/18Nov86> DAF Added portToMap to correct problems in cWindows.
; <C491/08Dec86> DAF Locked titleString handle before drawing (OLD BUG!)
; <C666/22Jan87> DAF Universal defproc (version 10). With the exception of
; Square window flag, this defproc no longer has conditional
; build sections (all system determination is dynamic)
; <C700/26Jan87> DAF Square windows now supported dynamically
;
;- Aurora and System 6.0.4 ---------------------------------------------------
;
; <1.2> DAF Removed square document windows due to popular demand.
; Two changes (one in draw, one in calc). Search for
; ';!!!'
; <1.3> DAF Upped version number by one.
;
;- 7.0 ---------------------------------------------------
; <1.4> JRM optional small icon drawn to left of window title
; icon handle stored in bigger wDataHandle (now two zoom rects and icon handle)
; re-rolled in S369 (rederef region to avoid heap scramble bug)
STRING ASIS
PRINT OFF
LOAD 'StandardEqu.d'
INCLUDE 'colorEqu.a'
PRINT ON
hasTitleBarIcon: EQU 0
; ================================================
; REGISTERS
; ================================================
; registers being used and need to be preserved
rectReg EQU A4 ; rectangle<6C>s address is kept in reg
windowReg EQU A3 ; window pointer address is kept in reg
titleHgtReg EQU D7 ; window<6F>s title bar height in reg
paramReg EQU D6 ; parameter passed in function call
varCodeReg EQU D5 ; varCode passed in funciton call
; ================================================
; CONSTANTS
; ================================================
HiliteFlagGlobal EQU $B20 ; low memory with hiliting flag
HiliteFlagBit EQU 0 ; bit 0 in HiliteFlagGlobal byte
zoomBit EQU 3 ; bit 3 is zoom bit
growBit EQU 2 ; bit 2 is grow bit
IconSize EQU 20 ; width of small icon in title
minTitleH EQU 19 ; minimum title bar height without SICN
minTitleHIcon EQU 21 ; minimum title bar height with SICN
dboxWithTitle EQU 5 ; proc ID of dBoxProc with title bar
dBoxBorderSize EQU 7 ; dBoxProc border size
proc5TopAdjust EQU 4 ; title and border share some area
proc5HitZAdjust EQU 6 ; zoom box is more to the left
scrollBarSize EQU 16 ; size of scroll bar area
wHiliteLight EQU 5
wHiliteDark EQU 6
wTitleBarLight EQU 7
wTitleBarDark EQU 8
wDialogLight EQU 9
wDialogDark EQU 10
wTingeLight EQU 11 ; For color tinges in title bar & gadgets
wTingeDark EQU 12
lowestShadeIndex EQU 16
wHiliteShade0 EQU 16
wHiliteShade7 EQU 17
wHiliteShade8 EQU 18
wHiliteShadeA EQU 19
wHiliteShadeD EQU 20
wTitleBarShade0 EQU 21
wTitleBarShade1 EQU 22
wTitleBarShade4 EQU 23
wDialogShade0w EQU 24
wDialogShade4w EQU 25
wDialogShade6w EQU 26
wDialogShadeBb EQU 27
wDialogShadeF EQU 28
wDialogShade0b EQU 30
wDialogShade4b EQU 31
wDialogShade6b EQU 32
wDialogShadeBw EQU 33
wLTinge0 EQU 34
wLTinge4 EQU 35
wDTingeF EQU 36
wZoomGadget EQU 0
wGoAwayGadget EQU 1
wZoomHilitedGadget EQU 2
wGoAwayHilitedGadget EQU 3
wGrowGadget EQU 4
kPixmapID EQU -14336
kHighlightPix EQU -14334
minWCTBDepth EQU 4
minColorDepth EQU 8
; <27> fakeDeviceFlags is used when we bypass DeviceLoop and draw the grow icon directly, and we<77>re
; on a machine that doesn<73>t have Color QuickDraw.
fakeDeviceFlags equ $A801
; ================================================
; TYPES
; ================================================
; There records are only types, they do not allocate space
; ------------- FontInfo record TYPE -------------
WInfoRec RECORD 0 ; FontInfo record type
WAscent ds.w 1
WDescent ds.w 1
WHeight ds.w 1
WBoxDelta ds.w 1
ENDR
; ------------- RGBInfo record TYPE -------------
RGBInfoRec RECORD 0 ; RGBColor record type
red ds.w 1
green ds.w 1
blue ds.w 1
ENDR
WDefDrawFrame RECORD 0 ; stack frame for DeviceLoop draw proc
retAddress ds.l 1 ; return address
StartParams EQU *
userData ds.l 1 ; long we passed to DeviceLoop
devHandle ds.l 1 ; GDevice handle
deviceFlags ds.w 1 ; flags for current device
depth ds.w 1 ; bits/pixel for this call
ParamSize EQU *-StartParams
ENDR
; ================================================
WDEF0 PROC EXPORT
; ================================================
; FUNCTION MyWindow(varCode: INTEGER; window: WindowPtr;
; message: INTEGER; param: LongInt): LongInt
; Create a stack frame recode that matches the above function.
; The parameters passed on the stack are between ParamBegin and ParamSize.
; ParamSize the number of bytes to be removed (poped) off the stack after
; the UNLINK instruction. Any local variables to be created are listed
; between A6Link and LinkSize. LinkSize is the size of the entire stack
; frame and it the number of bytes used in the LINK instruction. To add
; more local variables, insert it between A6Link and LinkSize.
StackFrame RECORD {A6Link},DECR ; build a stack frame record
ProcResult ds.l 1 ; function<6F>s result returned to caller
ParamBegin EQU * ; start parameters after this point
; parameters on stack
varCode ds.w 1 ; variation code
window ds.l 1 ; the window pointer
message ds.w 1 ; operation to perform
param ds.l 1 ; addition information based on message
ParamSize EQU ParamBegin-* ; size of all the passed parameters
RetAddr ds.l 1 ; place holder for return address
A6Link ds.l 1 ; place holder for A6 link
; local variables being allocated
SavFgCol ds RGBInfoRec ; saved WMgrCPort ForeColor (color only)
SavBkCol ds RGBInfoRec ; saved WMgrCPort BackColor (color only)
WInfo ds WInfoRec ; record for font and other info
OldPort ds.l 1 ; current port to be restored
TempRgn ds.l 1 ; temporary region handle
AuxCTab ds.l 1 ; handle to auxCTable (color only)
AuxCPtr ds.l 1 ; pointer to auxCTable (color only)
IsColor ds.b 1 ; have colorQD in toolbox? [boolean]
IsTitleIcon ds.b 1 ; do we have an icon in the title bar?
IsProcFive ds.b 1 ; dBox with title bar? [boolean]
threeDWind ds.b 1 ; conditions right for System 7 windows?
curDepth ds.l 1 ; current drawing depth for SetupColor
startRGB ds.w 3
endRGB ds.w 3
tempRGB ds.w 3
workPixMap ds.l 1
gadgetHighlight ds.w 1
tempPixels ds.l 1
globalOffset ds.l 1 ; Amount to offset when drawing grow icon in WMgrPort
curZone ds.l 1 ; temporary storage for theZone <17>
bogusCtab ds.l 1 ; handle to bogus color table <21>
hasZoom ds.b 1 ; TRUE if this window has a zoom box
align
LinkSize EQU * ; size of all the local variables
ENDR
; ================================================
; MAIN entry point in the WDEF.
; ================================================
; Jump over the defined data and get to the code.
DocProc bra.s WDEFStart ; and a way we go
; Define in the code segment necessary data. The standard header
; is first then additional data used in the WDEF.
dc.w 0 ; flags word
dc.b 'WDEF' ; resource type
dc.w 0 ; resource ID
dc.w 15 ; version number
; ================================================
WDEFStart ; start of the WDEF code
; ================================================
WITH StackFrame ; cover our local stack frame
LINK A6,#LinkSize ; set stack frame to address params
moveM.l D3-D7/A1-A4,-(SP) ; save work registers
clr.l ProcResult(A6) ; initialize funtion<6F>s result
; test if the message is in range
cmp.w #wGIconMsg,message(A6) ; compare to highest value DAF
BGT WDEFEnd ; skip it, it<69>s too high DAF
cmp.w #wDrawMsg,message(A6) ; compare to lowest value, too DAF
BMI WDEFEnd ;
move.l (A5),A0 ; get pointer to QuickDraw globals
move.l (A0),OldPort(A6) ; save current port
; ------------- fetch the parameters -------------
move.l window(A6),windowReg ; get the window pointer
lea TempRect,rectReg ; get TempRect address in a reg
move.l param(A6),paramReg ; get the param in a reg
move.w varCode(A6),varCodeReg ; get the selector integer
IsThereZoom
BTST #zoomBit,varCodeReg ; zooming variant <36>
BEQ.S IsNoZoom ; => no <36>
TST.B wZoom(A3) ; did we get the handle? <36>
IsNoZoom
sne.b hasZoom(a6) ; Set true only if both <36>
AND.w #3,varCodeReg ; ignore "inGrow" variant
; ------------- is the dBox with title? -------------
; determine if this is a dBoxProc using a title
move.w varCode(A6),D0 ; get real selector
AND.w #7,D0 ; AND off higher bits
cmp.w #dboxWithTitle,D0 ; compare against new proc
SEQ.b IsProcFive(A6) ; set if dBox with title
; ------------- 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
BLS.s @ColorSys ; this system has color QD
move.l WMgrPort,-(SP) ; B&W, set to window manager port
_SetPort ;
bra @CommonSys ; done for the B&W environment <SM1> CSS
; ------------- doin it with color -------------
; when using the WMgrCPort, it is the defproc<6F>s responsibility to reconcile
; the WMgrPort and the WMgrCPort. Also find the auxWinRec and lock it down
; This compares the pertinent fields of the WMgrPort and the WMgrCPort,
; updating the WMgrCPort as necessary to match the WMgrPort.
@ColorSys 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
_PenPat ; (which is thePort) the parameters were
_BackPat ; pushed before the copying loop above
pea SavFgCol(A6) ; push a pointer to save area
_GetForeColor ; get the current color
pea SavBkCol(A6) ;
_GetBackColor ;
move.l #blackColor, -(SP) ; set default colors
_ForeColor
move.l #whiteColor, -(SP)
_BackColor
; ------------- get auxWinRec -------------
clr.l -(SP) ; here<72>s a space for the var handle
clr.w -(SP) ; function return here
move.l windowReg,-(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<73>t matter)
move.l (SP)+,A0 ; get the auxRecHandle
move.l (A0),A0 ; handle -> ptr
move.l awCTable(A0),A0 ; get the colortable handle
move.l A0,AuxCTab(A6) ; save this handle
_HLock ; lock the table down in memory
move.l (A0),AuxCPtr(A6) ; and get a pointer too!
; ------------- setup window info -------------
; Get the font info for this window. Put the height of the title bar in
; titleHgtReg and wHeight(A6). Put distance of the top of the goaway box
; from the top of the bar in WBoxDelta(A6).
;
@CommonSys pea WInfo(A6) ; push pointer to a FontInfoRec
_GetFontInfo ; and get the font<6E>s info
move.w WInfo.wAscent(A6),titleHgtReg ; get font ascent
add.w WInfo.wDescent(A6),titleHgtReg ; add descent
addq.w #4,titleHgtReg ; get the height
BSET #0,titleHgtReg ; make height odd for symmetry
moveq #minTitleH,D1 ; get min title height for no icon
cmp.w D1,titleHgtReg ; force height to minimum
bge.s @3 ; => not a tiny font
move.w D1,-(SP) ; save min title height on stack
sub.w titleHgtReg,D1 ; how much less than minimum is it?
LSR.w #1,D1 ; used for centering tiny fonts
add.w D1,WInfo.wAscent(A6) ; make the ascent "bigger"
move.w (SP)+,titleHgtReg ; pop min title height
@3 move.w titleHgtReg,WInfo.wHeight(A6) ; WHeight=ascent+descent+2
move.w titleHgtReg,D0 ; get height
sub.w #13,D0 ; subtract height of box
LSR.w #1,D0 ; divide by 2
move.w D0,WInfo.wBoxDelta(A6) ; save delta to goAway box
; ------------- create a temp region -------------
clr.l -(SP) ; create a temp region
_NewRgn ; get a new region
move.l (SP)+,TempRgn(A6) ; and save in our frame
; ------------- get a pixmap for drawing the gadgets ------------
subq.l #4, SP ; room for a PixMapHandle
move.l #'pmap', -(SP) ; the Pixmap resource type
move.w #kPixmapID, -(SP) ; ID of working pixmap
move.w #MapTrue,RomMapInsert ; <SM3> rb
_GetResource ; look in ROM first <SM3> rb
move.l (SP)+, workPixmap(A6) ; save it for later
move.l #16,D0 ; allocate a bogus ctab <21>
_NewHandle ,SYS,CLEAR ; in sys heap with 0 entries <21>
move.l A0, bogusCtab(A6) ; store the ctab so that we can dispose of it <21>
move.l workPixmap(A6),A0 ; get the pixmap <21>
move.l (A0),A0 ; get ptr to pixmap <21>
move.l bogusCtab(A6),pmTable(A0) ; put the bogus ctab in our pixmap <21>
clr.l tempPixels(A6) ; init this to NIL
; ------------- go handle the message -------------
move.w message(A6),D0 ; get message
ADD D0,D0 ; double for word index
lea GoDocProc,A0 ; get jump table address
add.w GoDocProc(D0),A0 ; compute dispatch address
jsr (A0)
; ------------- prepare to exit WDEF -------------
; Dispose of all data allocated and restore port
move.l bogusCtab(A6),A0 ; Dispose the bogus Color table <21>
_DisposHandle ;
move.l TempRgn(A6),-(SP) ; dispose of temp region
_DisposRgn ;
tst.b IsColor(A6) ; are we on a color system?
beq.s @NoColor2 ; if on B&W, then skip
; ------------- color clean up -------------
; unlock the color table and restore the fore- and backColors DAF
move.l AuxCTab(A6),A0 ; get the colortable handle
_HUnlock ; release it
pea SavBkCol(A6) ; pointer to RGBColor
_RGBBackColor ;
pea SavFgCol(A6) ; pointer to RGBColor
_RGBForeColor ;
@NoColor2 ; END OF A COLOR-ONLY SECTION
move.l OldPort(A6),-(SP) ; restore previous port
_SetPort
; ------------- End of WDEF -------------
WDEFEnd ; <20>Out Of Range, of course<73>
moveM.l (SP)+,D3-D7/A1-A4 ; restore work registers
UNLK A6 ; unlink stack frame
move.l (SP)+,A0 ; get return address
ADD #ParamSize,SP ; strip parameters
jmp (A0) ; return to caller
; ------------- WDEF message jump table -------------
; dispatch table -- entries must be long branches!
GoDocProc dc.w DrawDoc-GoDocProc ; draw is message #0
dc.w HitDoc-GoDocProc ; hit test is message #1
dc.w CalcDoc-GoDocProc ; calc test is message #2
dc.w InitDoc-GoDocProc ; init is message #3
dc.w DisposeDoc-GoDocProc ; dispose is message #4
dc.w GrowDoc-GoDocProc ; grow message is #5
dc.w DrawGIcon-GoDocProc ; draw grow icon is #6
; ================================================
; wNew message
; ================================================
; InitDoc is used to initialize our zoom size and title icon handle
; Need to make sure the goAway is ignored if the application tried to
; set this flag. Changing this here will change the window record.
; The application could set the goAway flag after creating the window,
; but that doesn<73>t seem likely to happen.
InitDoc
tst.b IsProcFive(A6) ; dBoxProc with title bar?
beq.s @KeepGoAway ; no, don<6F>t touch goAway flag
clr.w wGoAway(windowReg) ; yes, then clear the flag out
@KeepGoAway
moveq #8+8,D0 ; space for 2 rects
_NewHandle ,clear ; allocate the space
move.l A0,wDataHandle(windowReg) ; save handle to data
beq.s InitDone ; => not able to get space
move.w varCode(A6),D0
Btst #zoomBit,D0 ; does it want a zoom box?
beq.s InitDone ; no, then we<77>re done
; ------------- initialize userState and stdState -------------
; set default zoom data. Consists of 2 rects: SmallSize, BigSize
; get the size of the zoomed out window in global coordinates. To do this,
; pull the screen size from screenbits.bounds and indent a little.
addq.b #1,wZoom(windowReg) ; set zoom flag to TRUE
move.l (A0),A2 ; point to data
addq.w #8,A2 ; point to bigSize
move.l GrafGlobals(A5),A1 ; point to QuickDraw globals
move.l screenBits+bounds(A1),(A2)+ ; get topLeft
move.l screenBits+bounds+4(A1),(A2)+ ; get botRight
moveq #3,D0 ; get indent
; Zooming the dBoxProc with a title. Here I set the alternate size to be
; further inset of the screen. This doesn<73>t take into account the
; normal zoomable windows have a shadow and this causes the proc=5 to be
; zoomed out one pixel short on the right edge. Also, since proc=5 shares
; a portion of the title area with the fancy border of the content this
; makes the title bar zoom a few pixels lower than normal window.
; Applications using this window are suppose to manually set the alternate
; size anyway, so I<>m not too concerned about this.
tst.b IsProcFive(A6) ; dBoxProc with title bar?
beq.s @1 ; no, use normal sizing
addq.w #dBoxBorderSize,D0 ; add fancy border to sizing
; ------------- inset stdState based on indentation -------------
@1
sub.w D0,-(A2) ; indent right
sub.w D0,-(A2) ; indent bottom
add.w D0,-(A2) ; indent left
add.w D0,-(A2) ; indent top
move.w MBarHeight,D0 ; get menu bar height
add.w D0,(A2) ; past menu bar height
add.w titleHgtReg,(A2) ; and past window title
move.l (A0),rectReg ; point at userState
bsr GetRect ; convert rect to global
InitDone rts
; ================================================
; wDispose message
; ================================================
; DisposeDoc is called when the window is being closed. All we need to do is
; give back the handle we borrowed.
DisposeDoc
move.l wDataHandle(windowReg),D0 ; a data handle?
beq.s DisposeDone ; no, then we<77>re done
move.l D0, A0 ; get data handle
_DisposHandle ; release it, ignoring errors
DisposeDone rts
; ================================================
; wDraw message
; ================================================
; DrawDoc -- draw the document window. The windowPtr is in windowReg
; First test for a EORGoAway call and special case it
; Put shadowing about into D4.
DrawDoc tst.b wVisible(windowReg) ; is it visible?
beq @exitDrawDoc ; if not, don<6F>t do anything
; ------------- set up shadow -------------
_PenNormal ; we want the normal pen
move.l OneOne,D4 ; get shadow factor, assume 1,1
tst.w varCodeReg ; documentProc?
beq.s @1 ; if so, we<77>re cool
add.l D4,D4 ; double the shadow to 2,2
cmp.w #3,varCodeReg ; does it have shadow?
beq.s @1 ; if so, we<77>re cool
moveq #0,D4 ; otherwise no shadow
@1
move.l structRgn(windowReg), -(SP)
pea WDefDrawWindow ; address of devloop drawing proc
clr.l -(SP) ; no unusual activities
clr.l -(SP) ; and no user data
_DeviceLoop
cmp.w #wInGoAway,paramReg ; was it an XOR call?
blt @exitDrawDoc ; if not, don<6F>t invert state bit
eor.b #1<<HiliteFlagBit, HiliteFlagGlobal
@exitDrawDoc
rts
WDefDrawWindow
with WDefDrawFrame
move.w depth(SP), curDepth(A6) ; save this for SetupColor magic
move.l devHandle(SP), D1 ; pass this drawing device
bsr CheckAvailableColors ; see if we have enough colors
cmp.w #wInGoAway,paramReg ; is it a goAway call?
bge EORStuff ; if so, go handle it
bclr #HiliteFlagBit, HiliteFlagGlobal ; otherwise, init hilite flag
; ------------- frame the window<6F>s body -------------
tst.b wHilited(windowReg) ; Is window highlighted?
bz.s @inactiveFrame ; don<6F>t draw shaded title bar
moveq #wFrameColor,D0 ; get fore color
bra.s @frameShadeCorrect
@inactiveFrame
moveq #wHiliteShadeA,D0 ; Get fore color
@frameShadeCorrect
moveq #wContentColor,D1 ; get back color
bsr SetupColors ; set <20>em up
bsr StructInTemp ; get StrucRgn.rgnBBox in rectReg
sub.l D4,botRight(rectReg) ; inset botRight to ignore shadow
move.l rectReg,-(SP) ; push rect address
_FrameRect ; frame the body
cmp.l #0,D4 ; any drop shadow?
beq.s NoDrop ; if not, skip
; ------------- draw the drop shadow -------------
; paint the drop shadow, shadow amount in D4
moveq #wFrameColor,D0 ; Draw drop shadow with frame color always
bsr SetupForeColor
move.l D4,-(SP) ; push shadow factor
_PenSize ; make penSize = shadow factor
move.w right(rectReg),-(SP) ; push right
move.w top(rectReg),-(SP) ; push top
add.w D4,(SP) ; add shadow factor
_MoveTo ; MoveTo(right,top+shadow)
move.w right(rectReg),-(SP) ; push right
move.w bottom(rectReg),-(SP) ; push bottom
_LineTo ; LineTo(right,bottom)
move.w left(rectReg),-(SP) ; push left
add.w D4,(SP) ; add shadow factor
move.w bottom(rectReg),-(SP) ; push bottom
_LineTo ; LineTo(left+shadow,bottom)
_PenNormal ; restore normal pen
NoDrop cmp.w #1,varCodeReg ; dBoxProc?
bne NotFancy ; if not, skip
; ------------- draw fancy border -------------
; draw fancy for dialog box ( only for variant 1). The code is a little
; difficult to follow, but it saved some bytes this way. New feature
; for a dBoxProc that<61>s deactive is that it get a gray frame. Also, I
; removed the flicker that used to happen when a dBoxProc went deactive.
; In the case of the dBoxProc with title bar, the fancy border needs to
; consider the title area, and that the bottom of the title area is shared
; with the fancy border by a few pixels.
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s @1 ; no, then don<6F>t adjust framing
add.w titleHgtReg,top(rectReg) ; TempRect still in rectReg
subq.w #proc5TopAdjust,top(rectReg) ; tweak it
@1
move.l rectReg,-(SP) ; push the window<6F>s structure rect
move.l OneOne,-(SP) ;
_InsetRect ; inset TempRect
lea borderShades,a2 ; Get shades for fancy border
tst.b wHilited(windowReg) ; Is window highlighted?
bnz.s @drawBorders ; Yes. Go draw the borders
add.w #$10,a2 ; Use gray shades for inactive windows
tst.b threeDWind(a6) ; Are we using System 7 windows?
bnz.s @drawBorders ; Yes, start drawing
move.l GrafGlobals(a5),a0 ; No. Use dithered gray
pea gray(a0)
_PenPat
@drawBorders
move.w (a2)+, -(SP) ; lower right shade
move.w (a2)+, -(SP) ; upper left shade
move.w (a2)+, -(SP) ; shade for corners
bsr DrawShadedRect ; _FrameRect with shades
move.l rectReg,-(SP) ; push the window<6F>s structure rect
move.l OneOne,-(SP) ;
_InsetRect ; inset TempRect
move.w (a2)+, D0 ; shade for rect
bsr SetupForeColor
move.l rectReg,-(SP) ; push the window<6F>s structure rect
_FrameRect
move.l rectReg,-(SP) ; push the window<6F>s structure rect
move.l OneOne,-(SP) ;
_InsetRect ; inset TempRect
move.w (a2)+, -(SP) ; lower right shade
move.w (a2)+, -(SP) ; upper left shade
move.w (a2)+, -(SP) ; shade for corners
bsr DrawShadedRect ; _FrameRect with shades
move.l rectReg,-(SP) ; push the window<6F>s structure rect
move.l OneOne,-(SP) ;
_InsetRect ; inset TempRect
move.w (a2)+, D0 ; shade for rect
bsr SetupForeColor
move.l rectReg,-(SP) ; push the window<6F>s structure rect
_FrameRect
move.l rectReg,-(SP) ; push the window<6F>s structure rect
move.l OneOne,-(SP) ;
_InsetRect ; inset TempRect
move.l #$00030003,-(SP) ; erase to edge of content rgn
_PenSize ; get a thick pen
move.l (A5), A2 ; get graphic globals
pea white(A2) ; white for erasing
_PenPat ; set pen pattern
move.l rectReg,-(SP) ; push TempRect
_FrameRect ; and frame TempRect
_PenNormal ; back to normal pen
NotFancy tst.b IsProcFive(A6) ; dBox with a title bar?
bne.s DrawTitleBar ; yes, then draw it
tst.w varCodeReg ; test for dialog windows
bne WDefDrawDone ; yes, dialogs have no title bar
; ------------- draw the title bar -------------
; Derive the titleBar rect from the structRgn and keep it in TempRect. Keep
; rectReg preserved since it now points at TempRect.
DrawTitleBar
bsr BuildTBarRect ; title rect in TempRect and rectReg
clr.b -(SP) ; room for Boolean
move.l rectReg, -(SP) ; test the title bar rect for
move.l (A5), A0 ; quickdraw globals
move.l thePort(A0), A0 ; point at current (Wmgr) port
move.l visRgn(A0), -(SP) ; intersection with the visRgn
_RectInRgn
tst.b (SP)+ ; test the result
bz WDefDrawDone ; if not, skip all this work
tst.b wHilited(windowReg) ; do we have a white background?
bz.s @inactiveTitle ; don<6F>t draw shaded title bar
moveq #wFrameColor,D0 ; get fore color
moveq #wTitleBarShade1, D1 ; get back color
bra.s @titleShadeCorrect
@inactiveTitle
moveq #wHiliteShadeA,D0 ; Get fore color
moveq #wContentColor, D1 ; get back color
@titleShadeCorrect
bsr SetupColors ; set <20>em up
tst.b isProcFive(A6) ; dBoxProc with title?
bnz.s @1 ; don<6F>t frame title if so
move.l rectReg, -(SP) ; rect of title bar
_FrameRect
@1
move.l rectReg, -(SP) ; rect of title bar
move.l (SP), -(SP) ; also for _EraseRect
move.l OneOne, -(SP) ; inset factor of 1, 1
_InsetRect ; exclude the actual frame
_EraseRect ; erase the contents
tst.b wHilited(windowReg) ; do we have a white background?
bz.s @doTitle ; don<6F>t draw 3-d title bar
moveq #wLTinge0, D0 ; fore color
bsr SetupForeColor ; do the right thing
move.w left(rectReg), -(SP) ; left of tb interior
move.w bottom(rectReg), -(SP) ; bottom of tb interior
sub.w #1, (SP) ; pen falls to lower right
_MoveTo
clr.w -(SP) ; no horiz delta
move.w bottom(rectReg), D0 ; vertical delta is bottom-top
sub.w top(rectReg), D0
subq.w #1, D0
neg.w D0 ; going -v, not +v
move.w D0, -(SP)
_Line ; draw left hilite
move.w right(rectReg), D0 ; horiz delta is right
sub.w left(rectReg), D0 ; minus left
subq.w #1, D0
move.w D0, -(SP)
clr.w -(SP) ; no v delta
_Line ; draw top hilite
moveq #wLTinge4, D0 ; fore color
bsr SetupForeColor ; do the right thing
clr.w -(SP) ; no h delta
move.w bottom(rectReg), D0 ; vertical delta is bottom-top
sub.w top(rectReg), D0
subq.w #1, D0
move.w D0, -(SP)
_Line ; draw left hilite
move.w right(rectReg), D0 ; horiz delta is right
sub.w left(rectReg), D0 ; minus left
subq.w #1, D0
neg.w D0 ; going -h, not +h
move.w D0, -(SP)
clr.w -(SP) ; no v delta
_Line ; draw top hilite
@doTitle
; ------------- DoTitleString -------------
; To prevent title flicker, DoTitleString leaves the left edge of the
; title in D3 and the right edge in D4. If the title bar needs to be
; highlighted, the highlighting is done in 2 sections, one on each side
; of the title. DoTitleString draws the title centered in tempRect.
; Warning -- it trashes D3 and D4.
; compute indent factor based on GoAwayButton state
move.w right(rectReg),D4 ; get right into D4
move.w D4,D3 ;
sub.w left(rectReg),D3 ; compute width
sub.w wTitleWidth(windowReg),D3 ; compute extra x
asr.w #1,D3 ; divide by 2
; if the string is too long, position left edge
moveq #2,D0 ; start title at x = 2
tst.b wGoAway(windowReg) ; is there a go away button
beq.s @2 ; skip if there<72>s not
moveq #32,D0 ; start title at x = 32
@2 cmp.w D0,D3 ; to left of x?
bge.s @3 ; => no, D3 is ok
move.w D0,D3
@3
move.w D3,D0 ; save left indent in D0 <15>
add.w left(rectReg),D3 ; compute x position
move.w D4,-(SP) ; save right across clip
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s @4 ; => no, edge ok
sub.w #32,D4 ; get default right edge
bra.s @doneAdjustRight ; <15>
@4 ; set clip to d3..d4
sub.w D0,D4 ; adjust right to have the same indent as left <15>
@doneAdjustRight
move.l TempRgn(A6),-(SP) ; get our temp region
move.l (SP),-(SP) ; copy for SectRgn
_GetClip ; and save for restore
move.w D4,right(rectReg) ; set right for clipping
move.l rectReg,-(SP) ; push tempRect
_ClipRect ; set clipping to it
move.l (A5),A0 ; get globals
move.l (A0),A0 ; get port
move.l clipRgn(A0),-(SP) ; and the rect region
move.l (SP),-(SP) ; and use clip as dest
_SectRgn ; get the intersection
move.w (SP)+,right(rectReg); restore tempRect
move.w D3,-(SP) ; push left for MoveTo
; ------------- draw title string -------------
move.w top(rectReg),D0 ; get top
add.w WInfo.wAscent(A6),D0 ; move down to baseline
addq.w #1,D0 ; leave 2 pixels white space
move.w D0,-(SP) ; push baseline
_MoveTo
tst.b wHilited(windowReg) ; Is it highlighted?
beq.s @noHighlight ; No
moveq #wTextColor,D0 ; get fore color for highlighted title
bra.s @drawTitle
@noHighlight
moveq #wHiliteShade7,D0 ; Use a gray shade to dim title string if not highlighted. <18>
@drawTitle
moveq #wTitleBarShade1,D1 ; get back color
bsr SetupColors ; set <20>em up
move.w #srcOr,-(SP) ; set the mode to source OR
_TextMode ;
move.l wTitleHandle(windowReg),A0 ; get titleHandle
_HLock ; lock the title down
move.l (A0),-(SP) ; push title pointer
_DrawString ; draw it
move.l wTitleHandle(windowReg),A0 ; get the handle again
_HUnlock ; release it
move.l TempRgn(A6),-(SP) ; push the old clip
_SetClip ; and restore it
; ------------- calculate highlite rects -------------
; Now calculate the size of the clear area needed for the title
; (only used if the window is highlighted). The two registers D3 and
; D4 are used to supply the left and right edges of the gap in the title
; area for occupied by the string. If no title is supplied, then there
; isn<73>t a gap. If there is a title, then there is an extra indentation
; of a few pixels added.
move.w D3,D1 ; left in D3, calc right in D1
add.w wTitleWidth(windowReg),D1 ; add in the length
cmp.w D4,D1 ; was title longer than space?
bge.s @5 ; => yes, use D4
move.w D1,D4 ;
@5
tst.w wTitleWidth(windowReg) ; is there a title?
beq.s @NoIndent ; no, then don<6F>t include indent
addq.w #6,D4 ; indent on right
subq #6,D3 ; indent to the left
@NoIndent ; no indentation
; Left in D3, right in D4
; ------------- draw title bar highliting -------------
tst.b wHilited(windowReg) ; is it hilited?
bne.s DoHilite ; yes, then draw it
bra.w WDefDrawDone ; no, done with all drawing
DoHilite
moveq #wHiliteShade8, D0 ; get fore color
bsr SetupForeColor ; set <20>em up
move.l rectReg,-(SP) ; push the title rect
move.w #1,-(SP) ; push dh
move.w WInfo.wBoxDelta(A6),-(SP) ; push dv
_InsetRect ; inset it some
; The dBoxProc with title has a two pixel fancy border around the entire
; window. When drawing the highlited pattern, I need to allow for this.
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s @NoAdjust ; no, then skip adjustment
addq.w #1,left(rectReg) ; yes, adjust title bar left
subq.w #1,right(rectReg) ; and right
@NoAdjust
; This WDEF tries to put at least 32 pixels on the left of the title if there is a go-away box.
; However, if the title bar is less than 32 pixels wide, we will have a problem in which the
; "racing" stripes will be drawn outside the title bar.
; The following check is to make sure that the lines will be drawn within the title bar area.
move.w right(rectReg),d0 ; get right <28>
cmp.w d0,d3 ; Does lines fit in the title bar? <28>
ble.s @linesFitOnRight ; yes => continue <28>
move.w d0,d3 ; no => use the right of rect instead of the calculated value <28>
@linesFitOnRight ; <28>
move.w right(rectReg),-(SP) ; save right of TempRect
move.w D3,right(rectReg) ; new right = title left
move.l topLeft(rectReg),D0 ; get topLeft
and.l #$00070007,D0 ; only use mod 8
move.l (A5),A2 ; get globals, save in A2
move.l D0,patAlign(A2) ; set up patAlign
move.l theZone,curZone(A6) ; save the current zone <17>
move.l sysZone,theZone ; going to create the pixpat in sysZone <17>
move.l rectReg,-(SP) ; fill this rect
pea HilitePattern ; push the pattern address
_FillRect ; fill left half with the pattern
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s @1 ; => no, use current d4
move.w (SP),D0 ; else get right edge of box
sub.w #26,D0 ; how much room is there?
cmp.w D4,D0 ; need at least 26 pixels
bge.s @1 ; => got <20>em, use current d4
move.w D0,D4 ; else use right-26
@1 move.w (SP)+,right(rectReg) ; restore right of title box
; This WDEF tries to put at least 26 pixels on the right if there is a zoom box or matches the indent
; from the left. This may cause a problem in which the "racing stripes" will be drawn outside the title
; bar area if the title bar is too small. The following check makes sure that the lines will be drawn
; within the title bar area.
move.w left(rectReg),d0 ; get left of rect <28>
cmp.w d0,d4 ; Does lines fit in the title bar? <28>
bge.s @linesFitOnLeft ; yes => continue <28>
move.w d0,d4 ; no => use left instead of the calculated value <28>
@linesFitOnLeft ; <28>
move.w D4,left(rectReg) ; set new left of title box
move.l rectReg,-(SP) ; fill this rect
pea HilitePattern ; push the pattern address
_FillRect
move.l curZone(A6),theZone ; restore the zone <17>
clr.l patAlign(A2)
; ------------- DoGoAway -------------
tst.b wGoAway(windowReg) ; is there a goaway button?
beq.s DoZoom ; => if not, try for zoom
moveq #wGoAwayGadget, D0
bsr SetupColorPict
pea TingeGoAway ; Address of tinge routine
bsr PlotGoAway
; ------------- DoZoom -------------
DoZoom
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s WDefDrawDone ; no, then done drawing
moveq #wZoomGadget, D0
bsr SetupColorPict
pea TingeZoom ; Address of tinge routine
bsr PlotZoom ; and plot the symbol
bra.s WDefDrawDone ; done drawing
; ------------- goAway and zoom box highliting -------------
; decide which icon needs hiliting
EORStuff
beq.s EORGoAway ; => it<69>s the goAway
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s WDefDrawDone ; => no
btst #HiliteFlagBit, HiliteFlagGlobal
bz.s @drawHilitedZoom
moveq #wZoomGadget, D0
pea TingeZoom
bra.s @zoomCommon
@drawHilitedZoom
moveq #wZoomHilitedGadget, D0
clr.l -(sp) ; No tinge routine
@zoomCommon
bsr SetupColorPict
bsr PlotZoom ; and plot the symbol
bra.s WDefDrawDone
EORGoAway ; hilites/unhilites the goAway
btst #HiliteFlagBit, HiliteFlagGlobal
bz.s @drawHilitedGoAway
moveq #wGoAwayGadget, D0
pea TingeGoAway
bra.s @goAwayCommon
@drawHilitedGoAway
moveq #wGoAwayHilitedGadget, D0
clr.l -(sp) ; Highlighted state needs no tinging
@goAwayCommon
bsr SetupColorPict
bsr PlotGoAway
WDefDrawDone
move.l (SP)+, A0 ; return address
lea WDefDrawFrame.ParamSize(SP), SP ; pop params
jmp (A0)
DrawShadedRect
ShadedRectFrame RECORD 0
retAddr ds.l 1
StartParams EQU *
cornerColor ds.w 1
ulColor ds.w 1
lrColor ds.w 1
ParamSize EQU *-StartParams
ENDR
with ShadedRectFrame
move.w cornerColor(SP), D0 ; shade/color of corner
bsr SetupForeColor ; make it the pen color
move.w left(rectReg), -(SP) ; start at lower left
move.w bottom(rectReg), -(SP)
subq.w #1, (SP)
_MoveTo
move.l #$FFFF0000, -(SP) ; h=0, v=-1
_Line ; draw 1 pixel corner
move.w ulColor(SP), D0 ; get shade for left and top
bsr SetupForeColor ; make it the pen color
move.l top(rectReg), -(SP) ; top AND left
_LineTo ; draw line on left side
move.w right(rectReg), -(SP)
subq.w #1, (SP)
move.w top(rectReg), -(SP)
_LineTo ; draw line across top
move.w cornerColor(SP), D0 ; need corner color again
bsr SetupForeColor ; make it the pen color
move.w right(rectReg), -(SP) ; start in upper right
subq.w #1, (SP)
move.w top(rectReg), -(SP)
_MoveTo
move.l #$00010000, -(SP) ; h = 0, v = 1
_Line ; draw one pixel corner
move.w lrColor(SP), D0 ; get shade for right and bottom
bsr SetupForeColor
move.l bottom(rectReg), -(SP) ; bottom AND right
subq.w #1, (SP)
subq.w #1, 2(SP)
_LineTo ; draw line on right
move.w left(rectReg), -(SP)
addq.w #1, (SP)
move.w bottom(rectReg), -(SP)
subq.w #1, (SP)
_LineTo ; draw line across bottom
move.l (SP)+, A0
addq.l #ShadedRectFrame.ParamSize, SP
jmp (A0)
endwith
endwith
; ================================================
; wHit message
; ================================================
; The hit test is to look for a click in the window<6F>s content region.
; The problem with this is that the WDEF extends the window<6F>s contect to
; include areas such as the fancy border, title bar, and drop shadow. If
; the user clicks in the fancy border or shadow it is outside of the content
; but still within the window. The reason for the inContent result in the
; first place was to let the application know the user clicked any where
; within the window excluding the drag area. So, we check for a click
; within the structRgn<67>s rect but remove the title bar is it has one.
; This solved a few problems that hitherto were unknown, or at least not
; reported. ModalDialog no longers reports an error when clicking in the
; dBoxProc<6F>s fancy border. Clicking in the drop shadow is a click in the
; window. Since a dBoxProc with title bar allows switching in MultiFinder,
; clicking in the fancy border *must* be considered a click in the window.
; paramReg holds the mousePoint in global coordinates .
; windowReg holds the window pointer
HitDoc clr.w -(SP) ; make room for function result
move.l paramReg,-(SP) ; push the mouse point
bsr StructInTemp ; structRgn.rgnBBox in TempRect
tst.w varCodeReg ; dialog window?
beq.s @1 ; no, they have a title bar
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s @2 ; no, then no title bar
@1 add.w titleHgtReg,top(rectReg) ; remove title bar area
@2 move.l rectReg,-(SP) ; point at TempRect
_PtInRect ; pt in window area less title bar?
tst.b (SP)+ ; well, is it?
beq.s NotInContent ; if not, go check out drag region
; see if its in the grow icon area
tst.w varCodeReg ; is it a dialogBox?
bne.s JustContent ; if so, its only in the content
; ------------- hit in grow? -------------
tst.b wHilited(windowReg) ; is it active? <JDR 20-FEB-90
beq.s JustContent ; if not, it cant be in grow
move.w varCode(A6),D0
Btst #growBit,D0 ; inGrow enabled?
BGT.s JustContent ; if not, skip
move.l contRgn(windowReg),A0 ; get region handle <JDR 20-FEB-90
move.l (A0),A0 ; get region ptr
move.l rgnBBox+botRight(A0),D0 ; get bottom left of content
; first consider the x coordinate
moveq #14,D4 ; keep 14 in a register to save code
sub D4,D0 ; offset x by 14
cmp D0,paramReg ; if <, just in content
BLT.s JustContent
SWAP D0 ; its within range on x so try y
sub D4,D0 ; check out y dimension
SWAP paramReg
cmp D0,paramReg ; compare y coordinates
BLT.s JustContent
moveq #wInGrow,D0 ; flag in grow Icon
bra DoneHitDoc
; the point is in the content region so return a <20>1<EFBFBD>
JustContent
moveq #wInContent,D0 ; return in content
bra DoneHitDoc ; go store function result and return
; ------------- hit not in content -------------
; Not in the content. see if its in the dragRgn (content extended by
; titleBar) dBoxProc may have tile higher above content than normal.
NotInContent
bsr BuildTBarRect ; title bar rect into rectReg
clr.w -(SP) ; make room for function result
move.l paramReg,-(SP) ; push the mouse point
move.l rectReg,-(SP) ; and push the rect
_PtInRect ; is the point in the title bar?
tst.b (SP)+ ; examine result
beq DoneHitDoc2 ; if not, return already = 0
tst.b wHilited(windowReg) ; is it hilited?
beq.s ItsInDrag ; if not, can<61>t be in GoAway
; ------------- hit in goAway or Zoom? -------------
; test vertical first for goAway and Zoom since they<65>re the same
move.l paramReg,D0 ; check vertical
SWAP D0 ; which is high word of mousePoint
move.l windowReg,A0 ; convert pointer if its a pixmap
bsr PortToMap ; convert DAF
add.w bounds+top(A0),D0 ; convert to local
sub.w portRect+top(windowReg),D0 ; compensate for origin
; The vertical hit test assumes the zoom is offset from the portRect.
; The dBoxProc with title has the title area sharing a portion of the fancy
; border surrounding the content. So, an adjustment is needed to locate
; the zoom box<6F>s vertical position.
tst.b IsProcFive(A6) ; dBoxProc with title bar?
beq.s @OldVert ; no, use normal vertical test
addq.w #proc5TopAdjust,D0 ; yes, then tweak it
@OldVert ; continue with normal testing
add.w WInfo.wBoxDelta(A6),D0 ; below box?
bpl.s ItsInDrag ; => yes
add.w #11,D0 ; in box?
BMI.s ItsInDrag ; => no
tst.b wGoAway(windowReg) ; is there a goAway button?
beq.s HitZoom ; => no, hit-test zoom
move.l paramReg,D0 ; get mousePt
ADD bounds+left(A0),D0 ; convert to local (A0 still valid) DAF
sub portRect+left(windowReg),D0 ; compensate for origin
cmp #18,D0 ; is it too far right?
BGT.s HitZoom ; if so, its in drag
subq.w #8,D0 ; it must be at least 7
BMI.s ItsInDrag
moveq #wInGoAway,D0 ; its in the goAway button so signal it
bra.s DoneHitDoc
HitZoom
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s ItsInDrag ; => not in these here parts
move.w paramReg,D0 ; get mousePt
move.l windowReg,A0 ; convert pointer if its a pixmap
bsr PortToMap ; convert DAF
add.w bounds+left(A0),D0 ; convert to local
sub.w portRect+right(windowReg),D0 ; make right edge = 0
; The dBoxProc with title has moved the zoom box in towards the left due to
; the fancy border. Need to adjust horizontal hit test for this case.
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s @OldZoomHit ; no, then normal position
subq.w #proc5HitZAdjust,D0 ; tweak it
@OldZoomHit ; continue with testing
cmp.w #-19,D0 ; too far left?
BLT.s ItsInDrag ; => if so, it<69>s in drag
cmp.w #-9,D0 ; too far right?
BGT.s ItsInDrag ; => if so, it<69>s in drag
bsr IsItSmall ; is window big?
beq.s @1 ; => oh boy, right again
moveq #wInZoomOut,D0 ; say window small
bra.s DoneHitDoc ; und scram-muller
@1 moveq #wInZoomIn,D0 ; say window big
bra.s DoneHitDoc ; and muller out of here
ItsInDrag moveq #wInDrag,D0 ; flag in drag region
DoneHitDoc move.l D0,ProcResult(A6) ; update function result
DoneHitDoc2 rts
; ================================================
; wCalcRgns message
; ================================================
; CalcDoc -- calculate the structure and content regions for the window pointed
; to by windowReg. First update size for zooming if necessary
CalcDoc
tst.b hasZoom(a6) ; zoom flag set? <36>
beq.s @1 ; => no
bsr IsItSmall ; update window size
; ------------- calc ContRgn -------------
@1
bsr GetRect ; make a rectangular content region
move.l contRgn(windowReg),-(SP) ; content region gets result
move.l rectReg,-(SP) ; tempRect is the rectangle
_RectRgn ; go make the region into content region
; ------------- calc structRgn -------------
; now do the structure region. First correct the bounding rectangle (tempRect) for
; structure instead of content
move.l #$00020002,D4 ; get the shadow factor for DBox
move.l structRgn(windowReg),-(SP) ; push the structRgn for later
move.l rectReg,-(SP) ; tempRect is the rect in rectReg
move.l rectReg,-(SP) ; make two copies
move.l MinusOne,-(SP) ; make 1 pixel bigger, all around
_InsetRect ; make it bigger
tst.w varCodeReg ; is it dBox?
bne.s DoDBoxCalc ; skip if it is
move.w titleHgtReg,D0 ; move up to top of window
subq.w #1,D0 ; tweak it
sub.w D0,top(rectReg) ; and set top of struct region
LSR.l #1,D4 ; adjust shadow factor
bra.s CalcCommon ; use common code for the rest
; ------------- calc structRgn for dialogs -------------
DoDBoxCalc
cmp #1,varCodeReg ; is it variant 1?
bne.s CalcCommon
move.l rectReg,-(SP) ; tempRect is the rect in rectReg
move.l #$FFF9FFF9,-(SP) ; push (-7,-7)
_InsetRect ; inset it
; The dBoxProc with title needs a larger structRgn. Also, a portion of this
; title area is shared with the fancy border that surrounds the content.
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s CalcCommon ; skip if without title bar
move.w titleHgtReg,D0 ; move up to top of window
subq.w #proc5TopAdjust,D0 ; tweak it
sub.w D0,top(rectReg) ; and set top of struct region
CalcCommon ; create the structRgn for all windows.
_RectRgn ; RectRgn(structRgn,tempRect)
tst varCodeReg
beq.s @1 ; if so, it has shadow
cmp #3,varCodeReg ; is it variant 3?
bne.s CalcDone ; if not, no shadow
@1
; ------------- include drop shadow -------------
; now add in the 1 or 2 pixel drop shadow
move.l TempRgn(A6),-(SP) ; get temp region
move.l rectReg,-(SP) ; tempRect is the rect in rectReg
move.l (SP),-(SP) ; save another copy
move.l D4,-(SP) ; push shadow factor
_OffsetRect ; offset it
_RectRgn
move.l structRgn(windowReg),-(SP) ;
move.l TempRgn(A6),-(SP) ; get temp region
move.l structRgn(windowReg),-(SP) ; structure gets the result
_UnionRgn ; add it in
CalcDone rts ; all done with CalcDocRgns
; ================================================
; wGrow message
; ================================================
; GrowDoc handles the grow message by drawing a grow outline based on
; the rectangle held in paramReg. First make it one pixel bigger to
; jibe with the structure then frame the entire window.
GrowDoc move.l paramReg,-(SP) ; push the rect
move.l MinusOne,-(SP) ; push (-1,-1)
_InsetRect
move.l paramReg,A3 ; get rect ptr
move.l topLeft(A3),-(SP) ; save topleft for below
move.w titleHgtReg,D0 ; adjust for title
subq.w #1,D0 ; and tweak it
sub.w D0,top(A3) ; and save it
move.l paramReg,-(SP) ; push the rectangle
_FrameRect ; frame it
; ------------- draw the lower horizontal -------------
; line at the top of the horizontal scroll bar area
move.w left(A3),-(SP) ; push left
move.w bottom(A3),-(SP) ; push bottom
sub #scrollBarSize,(SP) ; a few pixels above bottom
move.l (SP),-(SP) ; make a copy of this point
_MoveTo ; move to it
move.w right(A3),2(SP) ; now go to the right edge
_LineTo ; draw the horizontal line
; ------------- draw the upper horizontal -------------
; line below the title bar area
move.l (SP),topLeft(A3) ; restore topLeft, leave on stack
move.l (SP),-(SP) ; make a copy of this point
_MoveTo ; move to it
move.w right(A3),2(SP) ; now go to the right edge
_LineTo ; draw the horizontal line
; ------------- draw the vertical line -------------
; line along left edge of the vertical scroll bar
move.w right(A3),-(SP) ; push right
sub #scrollBarSize,(SP) ; few pixels to the left
move.w top(A3),-(SP) ; push top
move.l (SP),-(SP) ; make a copy of this point
_MoveTo ; and move to it
move.w bottom(A3),(SP) ; now go to bottom edge
_LineTo ; draw the vertical line
; restore the rect back to
; how it was when we got it
move.l paramReg,-(SP) ; push the rect
move.l OneOne,-(SP) ; push (1,1)
_InsetRect
GrowDone rts
; ================================================
; wDrawGIcon message
; ================================================
; Draw the grow icon. First make this window the current grafPort
DrawGIcon
move.l GrafGlobals(A5),A0 ; get the current port and save it DAF
move.l thePort(A0),-(SP) ; DAF
move.l windowReg,-(SP) ; push the window<6F>s port
_SetPort ; make that the port
clr.l globalOffset(a6) ; No offset for BW systems.
tst.b IsColor(A6) ; is this a color system?
beq @NoColor8 ; Nope. Skip color stuff <27>
; ------------- do color window -------------
; The region passed to _DeviceLoop has to be offset into global coordinates on
; color systems since we<77>re drawing into the window manager port.
move.l GrafGlobals(a5),a0 ; get the port <27>
move.l thePort(a0),a0 ; <27>
lea portBits(a0),a0 ; point to <20>bitmap<61> in the port <27>
tst.w rowBytes(a0) ; is this a color port? <27>
bpl.s @bitmap ; <27>
move.l baseAddr(a0),a0 ; pixmap handle <27>
move.l (a0),a0 ; pixmap ptr <27>
@bitmap ; <27>
move.l ScrnBase,d0 ; get base address of screen <27>
cmp.l baseAddr(a0),d0 ; is it the same as thePort<72>s ? <27>
beq.s @drawToScreen ; yes => we are drawing to screen <27>
move.w #1, -(SP) ; no => assume old-port, depth equals 1 <27>
tst.w rowBytes(A0) ; is this an old-style port? <27>
bpl.s @depthOk ; yes. depth of 1 on stack is okay <27>
move.w pmPixelSize(A0),(SP) ; fix depth on stack <27>
@depthOk ; <27>
move.w #fakeDeviceFlags, -(SP) ; assume non-CQD case <27>
clr.l -(SP) ; NIL gDeviceHandle for non-CQD machines <27>
btst #6,ROM85 ; Color QuickDraw available? <27>
bnz @deviceAndFlagsOk ; of not, fake versions on stack are correct <27>
move.l theGDevice, A1 ; current device GDHandle <27>
move.l A1,(SP) ; fix gdHandle on stack <27>
move.l (A1), A1 ; point to the device <27>
move.w gdFlags(A1),4(SP) ; fix gdFlags on stack <27>
@deviceAndFlagsOk ; <27>
clr.l -(SP) ; flag clear (not drawing to screen) <27>
bsr WDefDrawGIcon ; <27>
bra @exitDrawGIcon ; <27>
@drawToScreen ; <27>
lea globalOffset(a6),a2
move.l portRect(windowReg),d4
move.l d4,(a2)
move.l a2,-(sp)
_LocalToGlobal ; Convert topLeft to global coordinates
move.l d4,-(SP) ; push src point <23>
move.l a2,-(SP) ; push ptr to dest point <23>
_SubPt ; get local to global offset <23>
; save the foreground and background of the WMgr port & set new colors
subq #6,SP ; make room for rgbColor on stack DAF
move.l SP,-(SP) ; push pointer to placeholder DAF
_GetForeColor ; get the window port<72>s foreColor DAF
subq #6,SP ; make room for the backColor too DAF
move.l SP,-(SP) ; push pointer to placeholder DAF
_GetBackColor ; get the window port<72>s backColor DAF
; Get the intersection of the clipRgn and visRgn of the window to use as the
; clipping region for drawing the grow icon.
move.l clipRgn(windowReg),-(sp)
move.l visRgn(windowReg),-(sp)
move.l tempRgn(a6),-(sp)
_SectRgn ; Get intersection of portRect & visRgn
move.l tempRgn(a6),-(sp)
move.l (a2),-(sp)
_OfsetRgn ; Move the clipRgn into global coordinates
move.l WMgrCPort,-(sp)
_SetPort ; Set port back to WMgrPort
subq #4,sp ; <25>
_NewRgn ; Allocate new region<6F> <25>
move.l (sp),-(sp) ; <25>
_GetClip ; to save WMgrPort<72>s clipRgn in. <25>
move.l tempRgn(A6),-(sp)
move.l (SP), -(SP) ; once more for DeviceLoop
_SetClip ; Clip to the window<6F>s clipRgn
bra.s @isColor ; Fill in the other _DeviceLoop parameters
@NoColor8 ; END OF COLOR-ONLY SECTION
move.l tempRgn(A6), -(SP) ; rgn handle
move.l (SP), -(SP) ; once more for DeviceLoop
pea portRect(windowReg) ; local coord rect
_RectRgn
@isColor
pea WDefDrawGIcon ; address of devloop drawing proc
clr.l -(SP) ; no unusual activities
clr.l -(SP) ; and no user data
_DeviceLoop
tst.b IsColor(A6) ; is it a color system?
beq.s @exitDrawGIcon ; no, so skip this restore
move.l (sp),-(sp)
_SetClip ; Restore WMgrPort clipRgn
_DisposRgn ; Get rid of saved region
move.l SP,-(SP) ; push ptr to rgbColor previously saved on top of stack DAF
_RGBBackColor ; DAF
addq #6,SP ; trash backcolor DAF
move.l SP,-(SP) ; DAF
_RGBForeColor ; DAF
addq #6,SP ; DAF
@exitDrawGIcon
_SetPort ; restore the incoming port (saved above) DAF
rts
WDefDrawGIcon
with WDefDrawFrame
move.w depth(SP), curDepth(A6) ; save this for SetupColor magic
move.l devHandle(SP), D1 ; pass this drawing device
bsr CheckAvailableColors
moveq #wFrameColor,D0 ; get fore color
moveq #wContentColor,D1 ; get back color
bsr SetupColors ; set <20>em up
; ------------- plot grow icon -------------
; compute the grow icon rectangle in tempRect which is inside the lower
; left corner of the scroll bar area.
move.l globalOffset(a6),d4 ; Get offset amount
move.l portRect+botRight(windowReg),(rectReg) ; botRight=topLeft
move.l (rectReg),botRight(rectReg) ; copy into botRight, too
add.w d4,left(rectReg) ; <SM5> reintroduced from <34>
add.w d4,right(rectReg) ; <SM5>
swap d4 ; <SM5>
add.w d4,top(rectReg) ; <SM5>
add.w d4,bottom(rectReg) ; <SM5>
sub.w #scrollBarSize-2,top(rectReg) ; remove scroll area
sub.w #scrollBarSize-2,left(rectReg)
tst.b wHilited(windowReg) ; is it hilited?
bne.s @1 ; yes, plot it
move.l rectReg,-(SP) ; TempRect still in rectReg
_EraseRect ;
subi.l #$00010001,(rectReg) ; Move topLeft back out
bra.s PlotBoundary ;
@1 ;
moveq #wGrowGadget, D0
bsr SetupColorPict ; Get the grow gadget
beq.s @2 ; Don<6F>t to extra stuff for black and white gadget
; On color systems, the grow gadget is on a gray background; do the gray.
move.w d2,-(sp) ; PlotSymbol will need D2, so save it in case _EraseRect trashes it
moveq #wTitleBarShade1, D0 ; Use title bar gray for gray of grow icon
bsr SetupBackColor
move.l rectReg, -(SP)
_EraseRect ; Gray shade
move.w (sp)+,d2
; The inside of the grow gadget it a darker gray. Set the rectangle to the area
; to darken
move.l #$00030003,d3 ; Save ourselves 6 bytes by using a register
move.l #$00040004,d4
add.l d4,(rectReg)
sub.l d3,botRight(rectReg)
@2
subi.l #$00010001,(rectReg) ; We subtracted one pixel less to avoid some flickering,
pea TingeGrow ; Tinging routine for grow gadget
bsr PlotSymbol ; so we have to put those pixels back before
; Set colors for plotting boundary
moveq #wFrameColor, D0 ; get fore color
moveq #wContentColor,D1 ; get back color
bsr SetupColors ; set it up
; ------------- plot the boundary lines -------------
; plot the left edge of the vertical scroll bar area and the top edge
; of the horizontal scroll bar area.
PlotBoundary
move.w portRect+left(windowReg),-(SP) ; push portRect.left
move.l globalOffset(a6),d4
add.w d4,(sp) ; Adjust for global case
move.w top(rectReg),-(SP) ; push tempRect.top
_MoveTo
move.w portRect+right(windowReg),-(SP) ; push portRect.right
add.w d4,(sp) ; Adjust for global case
move.w top(rectReg),-(SP) ; push tempRect.top
_LineTo ; draw the horizontal line
swap d4 ; Get vertical offset into low word
move.w left(rectReg),-(SP) ; push tempRect.left
move.w (SP),-(SP) ; copy it again for later
move.w portRect+top(windowReg),-(SP) ; push portRect.top
add.w d4,(sp) ; Adjust for global case
_MoveTo ; move to it
move.w portRect+bottom(windowReg),-(SP) ; push portRect.bottom
add.w d4,(sp) ; Adjust for global case
_LineTo ; draw the vertical line
; ------------- done with grow drawing -------------
; don<6F>t forget to take care of colors saved on stack
DrawGrowDone
move.l (SP)+, A0 ; return address
lea WDefDrawFrame.ParamSize(SP), SP ; pop params
jmp (A0)
endwith
; ================================================
; Plotters
; ================================================
; common code to draw little things like the goAway, zoom, and grow boxes
; A1 holds the symbol
; rectReg is the rectangle<6C>s address
; D2 the plotting mode
; A2 points at bitmap or pixmap rect info
; ------------- Apply color tinge to the zoom box -------------
TingeZoom
move.l #$00040004,d3
sub.l d3,botRight(rectReg)
move.l rectReg,-(sp)
_FrameRect ; Draw little box in zoom box first
add.l d3,botRight(rectReg) ; Restore full rectangle
; ------------- Apply color tinge to the goAway box -------------
TingeGoAway
move.l rectReg,-(sp)
_FrameRect ; Draw upper part of shade
move.l OneOne,d3
sub.l d3,botRight(rectReg)
move.l rectReg,-(sp)
_FrameRect ; Draw lower shade
move.l rectReg,-(sp)
move.l d3,-(sp)
_OffsetRect ; Position rectangle for light shade
moveq #wLTinge0, D0
bsr SetupForeColor ; Do light tinge
move.l rectReg,-(sp)
_FrameRect ; Draw light tinge
sub.l d3,(rectReg) ; Restore rectangle
rts
; ------------- Apply color tinge to the grow box -------------
TingeGrow
movem.l d3/d4,-(sp) ; Save these registers
move.l #$00010001,d4
add.l d4,botRight(rectReg)
bsr.s DrawGrowBoxPart ; Draw a section of the grow icon
moveq #wDTingeF, D0 ; Reset tinge for smaller box
bsr SetupForeColor
move.l rectReg,-(sp)
move.l #-1,-(sp) ; Move rectangle up and to the left
_OffsetRect ; Set up position of smaller box
sub.l #$00030003,botRight(rectReg)
bsr.s DrawGrowBoxPart ; Draw smaller box
move.l rectReg,-(sp)
move.l d4,-(sp)
_InsetRect
add.l d4,(rectReg)
moveq #wTitleBarShade4,d0
bsr SetupBackColor
move.l rectReg,-(sp)
_EraseRect ; Refresh the dark gray inside small box
sub.l d4,(rectReg)
asl.l #2,d4
add.l d4,botRight(rectReg) ; Restore rectangle
movem.l (sp)+,d3/d4 ; Restore registers
; The main body of the wDrawGIcon routine shifted the rectangle. Shift it back
; to its original position here to save a check back in the mainstream.
sub.l d4,(rectReg)
add.l d3,botRight(rectReg)
rts
; The grow box is made of two boxes that look like this:
;
; @@@@@
; @oooo DrawGrowBoxPart will draw this part based on the rectangle
; @o**@ in rectReg. If we REALLY want to save some code, call TingeGoAway
; @o**@ instead of DrawGrowBoxPart. The resulting gadget looks a little
; @o@@@ strange, but it<69>s passable in a pinch.
;
DrawGrowBoxPart
move.l rectReg,-(sp)
_FrameRect ; Draw dark frame
moveq #wLTinge0,D0
bsr SetupForeColor
move.l (rectReg),d3 ; Get topLeft
add.l OneOne,d3
move.w d3,-(sp)
move.w bottom(rectReg),-(sp)
sub.w #1,(sp)
_MoveTo
move.l d3,-(sp)
_LineTo ; Draw one light line
move.w right(rectReg),-(sp)
sub.w #1,(sp)
swap d3
move.w d3,-(sp)
_LineTo
rts
; ------------- plot the goAway box -------------
PlotGoAway
bsr BuildTBarRect ; build a title bar rect in rectReg
moveq #9,D1 ; add margin to left
bra.s PlotIt ; use common code to plot it
; ------------- plot the zoom box -------------
PlotZoom
bsr BuildTBarRect ; build a title bar rect in rectReg
move right(rectReg),left(rectReg) ; left := right-22
moveq #-20,D1 ;
; The dBoxProc with title has a fancy border around it<69>s structure.
; This has to be taken into consideration when plotting the zoom box.
tst.b IsProcFive(A6) ; dBoxProc with title?
beq.s @1 ; skip if standard title bar
subq.w #1,D1 ; inset zoom to the left
@1 ; don<6F>t tweak it
; ------------- plot the little dude face -------------
; make Temprect into a 16x16 square for our little bitmap
; dest rect top = rectReg.top + WInfo.wBoxDelta - 1
; dest rect bot = dest rect top + (A2).bottom - (A2).top
; dest rect left = rectReg.left + D1
; dest rect right = dest rect left + (A2).right - (A2).left
PlotIt
move.w d2,-(sp)
add.w D1,left(rectReg) ; add offset to left
move.w WInfo.wBoxDelta(A6), D1
add.w D1, top(rectReg) ; add offset to top
addq.w #1, top(rectReg) ; align bitmap
move.l topLeft(rectReg),botRight(rectReg) ; topLeft = botRight
move.w 2+bottom(A2), D0
sub.w 2+top(A2), D0
add.w D0, bottom(rectReg);
move.w 2+right(A2), D0
sub.w 2+left(A2), D0
add.w D0, right(rectReg);
move.l rectReg, -(SP)
move.l #$FFFFFFFF, -(SP)
_InsetRect
moveq #wTitleBarShade1, D0
bsr SetupBackColor
move.l rectReg, -(SP)
_EraseRect
move.l rectReg, -(SP)
move.l OneOne, -(SP)
_InsetRect
move.w (sp)+,d2
; ------------- plot the little dude<64>s face -------------
; PlotSymbol -- A2 contains a PicHandle. rectReg holds the address of
; the destination rectangle.
; D2 is non-zero for pixmap, zero for bitmap
; A2 points to bounds/rect/bits
; rectReg holds destination rect
PlotSymbol
move.w D2,-(sp) ; Save color/BW flag
tst.b D2 ; use picture or bits?
bz.s PlotBW ; if zero, use CopyBits
tst.b gadgetHighlight(a6)
bz.s @notHighlighted
moveq #wTitleBarDark, D0
moveq #wTingeLight, D1
bra.s plotSetupCommon
@notHighlighted
moveq #wTitleBarLight, D0
moveq #wTitleBarDark, D1
plotSetupCommon
bsr SetupColors
move.l workPixmap(A6), A0
move.l (A0), A0
move.l A0, -(SP)
bra.s copyBitsPixCommon
PlotBW
lea IconBitmap,A0 ; get pointer to source bitmap
move.w (A2)+, rowBytes(A0)
move.l (A2)+, bounds(A0)
move.l (A2)+, bounds+4(A0)
move.l A2, baseAddr(A0)
pea IconBitmap ; push pointer source bitmap
copyBitsPixCommon
move.l (SP),A0 ; remember in A0, too
move.l GrafGlobals(A5),A1 ; get lisaGraf global baseaddress
move.l thePort(A1),A1 ; get thePort
pea portBits(A1) ; that<61>s the destination bitmap
pea bounds(A0) ; boundsRect of bitmap is source
move.l rectReg,-(SP) ; tempRect is the destination
clr.w -(SP)
clr.l -(SP) ; no mask region
; the colors should be OK here
; transfer the bitMap (stretching as necessary...)
_CopyBits ; let Bill stretch those bits
move.l tempPixels(A6), A0 ; get the locked pixels (if any)
_HUnlock ; and unlock them
move.w (sp)+,D2
bz.s @noTingeRoutine ; Don<6F>t tinge for black & white case
; All the tinge routines do the dark tinge first, so set it up for them
moveq #wDTingeF, D0
bsr SetupForeColor
move.l 4(sp),d0 ; Get address of tinging routine
bz.s @noTingeRoutine ; No; get out of here.
move.l (sp)+,(sp) ; Push down return address
move.l d0,a0
jmp (a0) ; Tinge the gadget
@noTingeRoutine
move.l (sp)+,a0 ; Get return address
addq #4,sp ; Remove tinge routine from stack
jmp (a0) ; Return to caller
; ================================================
BuildTBarRect
; ================================================
; BuildTBarRect builds a rectangle enclosing the titleBar in TempRect
; leave rectReg pointing at TempRect, which is nice.
; WARNING -- Trashes D0,A0,A1,rectReg
bsr.s StructInTemp ; structRgn.rgnBBox in rectReg
; make bottom := top + WHeight
move top(rectReg),D0 ; get top
add.w titleHgtReg,D0 ; add precomputed height
move D0,bottom(rectReg) ; update bottom
; The dBoxProc with title has no shadow, don<6F>t subtract off right edge.
tst.b IsProcFive(A6) ; dBoxProc with title?
bne.s @NoInset ; no, then standard title bar
subq #1,right(rectReg) ; inset right
@NoInset ; needed another entry point
rts ; return to caller
; ================================================
StructInTemp
; ================================================
; Get structRgn.rgnBBox into TempRect and keep TempRect address in rectReg
; WARNING - trashes A0
move.l structRgn(windowReg),A0 ; get region handle
move.l (A0),A0 ; get region ptr
addq #rgnBBox,A0 ; point A0 at the bounding box
move.l (A0)+,(rectReg) ; copy rgnBox to TempRect
move.l (A0)+,botRight(rectReg) ;
rts
; ================================================
IsItSmall
; ================================================
; IsItSmall returns NE if the window has been resized or moved (NE if window "small")
; It updates smallsize if it has. (If tab, only move small window).
; WARNING -- Trashes A0,A2 and TempRect
bsr.s GetRect ; rectReg = curSize
move.l wDataHandle(windowReg),A0 ; get data handle
move.l (A0),A2 ; A2 = bigSize
addq #8,A2
; the window is large if all corners
; are within 7 of their default positions
bsr.s ChkPoint ; compare topleft
bne.s IsSmall ; => not close enough
bsr.s ChkPoint ; compare botRight
beq.s NotSmall ; => it<69>s close enough
IsSmall move.l wDataHandle(windowReg),A0 ; get data handle
move.l (A0),rectReg ; save window<6F>s current size
bsr.s GetRect ; get current size into rectReg
moveq #1,D0 ; return NE!
NotSmall lea TempRect,rectReg ; restore rectReg
rts ; we<77>re done
; ================================================
ChkPoint
; ================================================
; This routine is called in sequence. First time it checks topLeft,
; the next time is will check botRight. It compares the rect in
; TempRect against the rect pointed at in A2.
; WARNING - increments rectReg
move.l (A2),-(SP) ; make point into a rect
move.l (A2)+,-(SP) ; by pushing twice
move.l SP,-(SP) ; and insetting by 7
move.l #$FFF9FFF9,-(SP) ;
_InsetRect ;
clr.w -(SP) ; is cursize within 7 of
move.l (rectReg)+,-(SP) ; that point?
pea 6(SP) ;
_PtInRect ;
subq.b #1,(SP) ; reverse sign of result
move.b (SP)+,D0 ;
addq #8,SP ; strip off the rect
rts ; exit w/EQ if "Big"
; ================================================
GetRect
; ================================================
; Returns the rect in rectReg converted to global coordinates
move.l portRect(windowReg),topLeft(rectReg) ; get locals
move.l portRect+botRight(windowReg),botRight(rectReg) ; get locals
move.l windowReg,A0 ; copy portPtr for PortToMap
bsr PortToMap ; get the rect pointer
move.l rectReg,-(SP) ; push address of rect
move.l bounds(A0),-(SP) ; push offset locToGlob
NEG.w (SP) ; make offset positive
NEG.w 2(SP)
_OffsetRect ; convert rect to global
GetRectDone rts
;----------------------------------------------------------------------------
;
; These routines are the heart of the WDEF<45>s ability to draw the right thing
; on the right device based on the depth of the device. There are three kinds
; of window color types we can draw:
;
; Black and White Drawn on non-CQD Macs, and on devices that have less
; than 8 bits per pixel. 8 bits per pixel is a high,
; arbitrary limit that we may be able to relax if we
; can integrate use of the Palette Manager into the
; WDEF.
; Custom wctbs If there is a custom color table associated with
; this window, then its colors are used. This may
; change in the future if we find a way to customize
; the colors of the System 7 three-d windows.
; System 7.0 & later Our new default for color environments.
;----------------------------------------------------------------------------
MakeRatioRGB
movem.l D7/A2, -(SP)
lea endRGB(A6), A0
lea startRGB(A6), A1
lea tempRGB(A6), A2
mulu #$1111, D2
move.w #2, D0
@nextChannel
MOVEQ #0, D1 ; clear high word
MOVE (A0)+, D1 ; background color component
SUB (A1), D1 ; change from foreground
SLO D7 ; remember if it was negated
BHS.S @orderedOK
NEG D1 ; flip if subtraction would overflow
@orderedOK
mulu D2, D1 ; multiply times scale factor
SWAP D1 ; divide by 65K
TST.B D7
BEQ.S @notFlipped
NEG.L D1 ; flip it
@notFlipped
add.w (A1)+, D1
move.w D1, (A2)+
dbra D0, @nextChannel
movem.l (SP)+, D7/A2
rts
CheckAvailableColors
;----------------------------------------------------------------------------
; This routine is called just as we enter the _DeviceLoop drawing proc, after
; the current depth has been stored in curDepth(A6). If the depth is 8 bits
; per pixel or greater, and the wctb for this window is the default, then
; we<77>re going to draw the System 7 three-d windows instead (threeDWind gets
; set to TRUE). Otherwise, threeDWind gets set to FALSE.
;----------------------------------------------------------------------------
movem.l D3-D4/A2, -(SP) ; these should be saved
move.w curDepth(A6), D0 ; how deep is the current device?
cmp.w #2, D0 ; must be 2 bits/pixel or better
sge threeDWind(A6) ; set prelim answer
blt.s @exit ; get out if already no good
move.l TheGDevice, -(SP) ; save this
move.l D1, TheGDevice ; set our device for color mapping
tst.b varCodeReg ; what kind of window is this?
bz.s @doCheckHilite
tst.b IsProcFive(A6) ; is it moveable modal?
bne.s @doneCheckHilite
@doCheckHilite
lea HiliteShades, A2 ; point at shades we need
bsr.s CheckShadesAvailable ; see if all these shades are here
tst.b threeDWind(A6) ; did we fail to get the shades?
bz.s @colorExit ; get out if so
lea TitleBarShades, A2 ; point at shades we need
bsr.s CheckShadesAvailable ; see if all these shades are here
tst.b threeDWind(A6) ; did we fail to get the shades?
bz.s @colorExit ; get out if so
lea TingeShades, A2 ; point at shades we need
bsr.s CheckShadesAvailable ; see if all these shades are here
tst.b threeDWind(A6) ; did we fail to get the shades?
bz.s @colorExit ; get out if so
@doneCheckHilite
cmp.b #dBoxProc, varCodeReg ; do we need the thick dialog border?
bne.s @colorExit ; if not, we<77>re done checking
lea DialogShades, A2 ; point at shades we need
bsr.s CheckShadesAvailable ; see if all these shades are here
@colorExit
move.l (SP)+, TheGDevice ; restore device
@exit
movem.l (SP)+, D3-D4/A2
rts
CheckShadesAvailable
move.w (A2), D3 ; get next <20>light<68> color
move.l #'csd ', D4 ; an unlikely pixel value
@rampLoop
cmp (A2), D3 ; get the next shade<64>s light color
bne.s @exit ; if new, reinit for new ramp
move.l A2, A0 ; point to shade entry
bsr SetupRatioColor ; get shade in tempRGB
subq.l #4, SP ; room for pixel index
pea tempRGB(A6) ; the shade RGB we want
_Color2Index ; what does it map to?
move.l (SP)+, D0 ; get the pixel index
cmp.l D0, D4 ; is it the same as last time?
beq.s @failure ; if so, not enough colors
move.l D0, D4 ; update <20>last<73> shade index
addq.l #6, A2 ; point to next shade
bra.s @rampLoop ; and test it
@failure
sf threeDWind(A6) ; use the old kind
@exit
rts
DefaultWCTB
;----------------------------------------------------------
; This table of bytes represents the colors in the default
; wctb. It uses bytes because we know that the default
; table only has black and white.
;----------------------------------------------------------
dc.b $FF, $00, $00, $00, $FF, $00, $00, $FF
dc.b $FF, $00, $00, $00, $00, $00, $00, $00
dc.b $00, $00, $00, $00, $00, $FF, $FF, $FF
dc.b $FF, $FF, $FF, $00, $00, $00, $00, $00
dc.b $00, $FF, $FF, $FF, $FF
align
SetupRatioColor
move.w 4(A0), -(SP) ; push shade percent
move.w 2(A0), -(SP) ; push dark (to/fore) end of shade
move.w (A0), D0 ; get light shade color number
bsr.s SetUpColor ; get the color of the light (from/back) end
move.l (SP)+, A0 ; get pointer to light color
move.l (A0)+, startRGB(A6) ; copy red and green
move.w (A0), startRGB+4(A6) ; copy blue
move.w (SP)+, D0 ; get dark color number
bsr.s SetUpColor ; get the color of the light end
move.l (SP)+, A0 ; get pointer to light color
move.l (A0)+, endRGB(A6) ; copy red and green
move.w (A0), endRGB+4(A6) ; copy blue
move.w (SP)+, D2 ; get shade percentage
bsr.s MakeRatioRGB ; create a shade between the two
rts
; ================================================
SetupColors
; ================================================
; Added this routine to help setup fore- and back color and save code.
; SetUpColor takes a fore color in D0, and a back color in D1.
; It then calls SetUpColor with both of them (which likes its
; parameter in D0), and calls RGBForeColor and RGBBackColor
; where appropriate.
move.w D1,-(SP) ; save part identifier of back color
bsr.s SetupForeColor
move.w (SP)+,D0 ; get saved part
bsr.s SetupBackColor
rts ; all done
; ================================================
SetupForeColor
; ================================================
bsr.s SetUpColor ; D0 has forecolor part identifier
bz.s @setClassicFore ; if non-CQD answer, branch
_RGBForeColor
bra.s @exit
@setClassicFore
_ForeColor
@exit
rts ; all done
; ================================================
SetupBackColor
; ================================================
bsr.s SetUpColor ; D0 has forecolor part identifier
bz.s @setClassicBack ; if non-CQD answer, branch
_RGBBackColor
bra.s @exit
@setClassicBack
_BackColor
@exit
rts ; all done
; ================================================
SetUpColor
; ================================================
; 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 old black and white color for that part is used.
tst.b threeDWind(A6) ; can we use System 7 windows?
bz.s @useBlackAndWhite ; nope? Try other cases
cmp.w #lowestShadeIndex, D0 ; is this a shade color?
blt.s @notShade ; not a shade color
sub.w #lowestShadeIndex, D0 ; normalize to shade colors
mulu #6, D0 ; x6 for table index
lea ShadeTable, A0 ; point at table of shade colors
add.w D0, A0 ; point to correct entry
bsr.s SetupRatioColor ; get color in tempRGB
move.l (SP)+, A0 ; pop the return address
pea tempRGB(A6) ; point to rgb color
moveq #1, D0 ; indicate color answer
jmp (A0) ; get outa here
@notShade
move.l AuxCPtr(A6), A0 ; get the color table pointer
bsr GoodColorTable ; does ctb contain the index (in D0)? <22>
beq.s @foundIt ; yes => go return corresponding color <22>
move.w D0,-(SP) ; save the index to color table on stack<22>
subq.l #4,SP ; leave space for results <22>
move.l #'wctb',-(SP) ; try to get the system wctb <22>
clr.w -(SP) ; <22>
_GetResource ; look in ROM first <22><SM3> rb
move.l (SP)+,A0 ; get the wctb resource <22>
move.w (SP)+,D0 ; retrieve the index <22>
cmp.l #0,A0 ; did we really get the wctb resource <22>
beq.s @useDefaultCTab ; no => go use the default ctab <22>
move.l (A0),A0 ; yes => deference to get ptr to wctb <22>
bsr GoodColorTable ; does wctb contain the index (in D0)? <22>
beq.s @foundIt ; yes => go return corresponding color <22>
@useDefaultCTab ; no => use the default ctab <22>
mulu #6,D0 ; (x6) index into rgb specs
lea ThreeDColors, A0 ; point at standard colors
@getCorrectColor ; <22>
move.l (SP)+,D1 ; get return address <22>
pea (A0, D0.w) ; point at correct color
move.l D1, A0 ; get return address
bra.s @exitColor
@foundIt
lea ctTable+rgb(A0, D1), A0 ; get the address of the color to use
move.l A0, D0 ; we<77>ll need A0 in a second
move.l (SP)+, A0 ; get the return address
move.l D0, -(SP) ; push the rgb addr on the stack
@exitColor
moveq #1, D0 ; indicate color answer
jmp (A0) ; return to caller
@useBlackAndWhite
lea DefaultWCTB, A0 ; point to cheesy color table
move.b (A0, D0.w), D0 ; get white or black (as a byte)
bnz.s @simpleWhite ; branch if we want white
moveq #blackColor, D0 ; get the old-style color
bra.s @classicExit ; get outa here
@simpleWhite
moveq #whiteColor, D0 ; get old-style white
@classicExit
move.l (SP)+, A0 ; return address
move.l D0, -(SP) ; classic color
moveq #0, D0 ; indicate classic answer
jmp (A0)
SetupColorPict
add.w d0, D0 ; (x2) index into words
tst.b threeDWind(A6) ; are we using pictures?
bz.s @blackAndWhiteBits ; if not, use bits instead
lea PixelRsrcIDs, A2 ; point to pixel IDs
subq.l #4, SP ; room for the PicHandle
move.l #'pixs', -(SP)
move.w (A2, D0.w), -(SP) ; push the resource ID
cmpi.w #kHighlightPix,(sp)
seq gadgetHighlight(a6) ; Set if we<77>re highlighting
move.w #MapTrue,RomMapInsert ; <SM3> rb
_GetResource ; look in ROM first <SM3> rb
move.l (SP)+, A0 ; pixels handle
_HLock ; don<6F>t want it to move
move.l A0, tempPixels(A6) ; save for dispose
move.l (A0), A2 ; point to pixels info
move.l workPixmap(A6), A1 ; get pixmap handle
move.l (A1), A1 ; point to pixmap
move.w (A2), pmRowBytes(A1) ; copy rowbytes for this image
move.l 2(A2), pmBounds(A1) ; copy top/left
move.l 6(A2), pmBounds+4(A1) ; copy bottom/right
lea 12(A2), A0 ; <21>
move.l A0, pmBaseAddr(A1)
moveq #1, D2 ; indicate color solution
bra.s @exit
@blackAndWhiteBits
lea BitmapOffsets, A2 ; point to offset table
adda.w (A2, D0.w), A2 ; add offset to correct bitmap
moveq #0, D2 ; indicate b&w bits
@exit
rts
GoodColorTable
move.w ctSize(A0), D1 ; get the color table size
asl.w #3, D1 ; (x8) convert to color table index
@legalIndex
cmp.w ctTable+value(A0,D1), D0 ; is this the one?
beq.s @done ; if equal, then done
subq.w #8, D1 ; try the previous one
bge.s @legalIndex ; loop while index positive
@done
rts
; ================================================
PortToMap ; 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<52>S PIXMAP HANDLE
move.l (A0),A0 ;GET PIXMAP POINTER
GotBitMap rts
; ================================================
; CONSTANTS
; ================================================
; some data used in the WDEF
; ------------- HilitePattern used in the title bar -------------
HilitePattern
dc.w $FF00,$FF00,$FF00,$FF00
PixelRsrcIDs
;----------------------------------------------------------
; This is a table of resource IDs for the PICTs which are
; used to draw the small pieces of the System 7 windows.
;----------------------------------------------------------
dc.w -14335 ; wZoomGadget
dc.w -14335 ; wGoAwayGadget
dc.w -14334 ; wZoomGadgetHighlight
dc.w -14334 ; wGoAwayGadgetHighlight
dc.w -14335 ; wGrowGadget
ThreeDColors
;-----------------------------------------------------------
; These are the RGB colors which are used to draw the shaded
; windows.
;-----------------------------------------------------------
dc.w $FFFF, $FFFF, $FFFF ; wContentColor
dc.w $0000, $0000, $0000 ; wFrameColor
dc.w $0000, $0000, $0000 ; wTextColor
dc.w $0000, $0000, $0000 ; wHiliteColor (not used)
dc.w $FFFF, $FFFF, $FFFF ; wTitleBarColor (not used)
dc.w $FFFF, $FFFF, $FFFF ; wHiliteLight
dc.w $0000, $0000, $0000 ; wHiliteDark
dc.w $FFFF, $FFFF, $FFFF ; wTitleBarLight
dc.w $0000, $0000, $0000 ; wTitleBarDark
dc.w $CCCC, $CCCC, $FFFF ; wDialogLight
dc.w $0000, $0000, $0000 ; wDialogDark
dc.w $CCCC, $CCCC, $FFFF ; wTingeLight
dc.w $3333, $3333, $6666 ; wTingeDark
ShadeTable
HiliteShades
dc.w wHiliteLight, wHiliteDark, $0 ; wHiliteShade0
dc.w wHiliteLight, wHiliteDark, $7 ; wHiliteShade7
dc.w wHiliteLight, wHiliteDark, $8 ; wHiliteShade8
dc.w wHiliteLight, wHiliteDark, $A ; wHiliteShadeA
dc.w wHiliteLight, wHiliteDark, $D ; wHiliteShadeD
TitleBarShades
dc.w wTitleBarLight, wTitleBarDark, $0 ; wTitleBarShade0
dc.w wTitleBarLight, wTitleBarDark, $1 ; wTitleBarShade1
dc.w wTitleBarLight, wTitleBarDark, $4 ; wTitleBarShade4
DialogShades
dc.w wDialogLight, wDialogDark, $0 ; wDialogShade0w
dc.w wDialogLight, wDialogDark, $4 ; wDialogShade4w
dc.w wDialogLight, wDialogDark, $6 ; wDialogShade6w
dc.w wDialogLight, wDialogDark, $B ; wDialogShadeBb
dc.w wDialogLight, wDialogDark, $F ; wDialogShadeF
dc.w 0, 0, 0 ; stop checking shades
dc.w wDialogLight, wDialogDark, $0 ; wDialogShade0b
dc.w wDialogLight, wDialogDark, $4 ; wDialogShade4b
dc.w wDialogLight, wDialogDark, $6 ; wDialogShade6b
dc.w wDialogLight, wDialogDark, $B ; wDialogShadeBw
TingeShades
dc.w wTingeLight, wTitleBarDark, $0 ; wLTinge0
dc.w wTingeLight, wTingeDark, $4 ; wLTinge4 <20>
dc.w wTitleBarLight, wTingeDark, $F ; wDTingeF
EndOfShades
dc.w 0
BorderShades
dc.w wDialogShade6w, wDialogShade0w ; Border colors for active windows
dc.w wDialogShade6w, wTitleBarShade4
dc.w wDialogShade0b, wDialogShade6b
dc.w wDialogShade6b, wDialogShadeF
dc.w wTitleBarShade0, wTitleBarShade0 ; Border colors for inactive windows
dc.w wTitleBarShade0, wTitleBarShade0
dc.w wHiliteShade8, wHiliteShade8
dc.w wHiliteShade8, wHiliteShade8
BitmapOffsets
;----------------------------------------------------------
; This is a table of words which represent the offsets
; from WDEFBitmaps to the beginning of each bitmap
;----------------------------------------------------------
dc.w ZoomData-BitmapOffsets
dc.w GoAwayData-BitmapOffsets
dc.w ZoomHiliteData-BitmapOffsets
dc.w GoAwayHiliteData-BitmapOffsets
dc.w GrowBits-BitmapOffsets
WDEFBitmaps
;----------------------------------------------------------
; These bitmaps are used when drawing on classic QD
; machines, or when the bit depth is too low to draw in
; color.
;----------------------------------------------------------
; ------------- ZoomData used in the zoom box -------------
ZoomData
dc.w $0002 ; rowBytes
dc.w $0000, $0000, $000B, $000B ; bounds
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
dc.w $8220 ; <20>.....<2E>...<2E>.....
dc.w $8220 ; <20>.....<2E>...<2E>.....
dc.w $8220 ; <20>.....<2E>...<2E>.....
dc.w $8220 ; <20>.....<2E>...<2E>.....
dc.w $8220 ; <20>.....<2E>...<2E>.....
dc.w $FE20 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
ZoomHiliteData
GoAwayHiliteData
dc.w $0002 ; rowBytes
dc.w $0000, $0000, $000B, $000B ; bounds
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
dc.w $8420 ; <20>....<2E>....<2E>.....
dc.w $A4A0 ; <20>.<2E>..<2E>..<2E>.<2E>.....
dc.w $9520 ; <20>..<2E>.<2E>.<2E>..<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $F1E0 ; <20><><EFBFBD><EFBFBD>...<2E><><EFBFBD><EFBFBD>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $9520 ; <20>..<2E>.<2E>.<2E>..<2E>.....
dc.w $A4A0 ; <20>.<2E>..<2E>..<2E>.<2E>.....
dc.w $8420 ; <20>....<2E>....<2E>.....
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
; ------------- BitMap for default GoAway button -------------
GoAwayData
dc.w $0002 ; rowBytes
dc.w $0000, $0000, $000B, $000B ; bounds
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $8020 ; <20>.........<2E>.....
dc.w $FFE0 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.....
; ------------- BitMap for GrowIcon -------------
GrowBits
dc.w $0002 ; rowBytes
dc.w $0000, $0000, $000F, $000F ; bounds
dc.w $0000 ; ................
dc.w $0000 ; ................
dc.w $0000 ; ................
dc.w $1FC0 ; ...<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>......
dc.w $1040 ; ...<2E>.....<2E>......
dc.w $107C ; ...<2E>.....<2E><><EFBFBD><EFBFBD><EFBFBD>..
dc.w $1044 ; ...<2E>.....<2E>...<2E>..
dc.w $1044 ; ...<2E>.....<2E>...<2E>..
dc.w $1044 ; ...<2E>.....<2E>...<2E>..
dc.w $1FC4 ; ...<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...<2E>..
dc.w $0404 ; .....<2E>.......<2E>..
dc.w $0404 ; .....<2E>.......<2E>..
dc.w $0404 ; .....<2E>.......<2E>..
dc.w $07FC ; .....<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>..
dc.w $0000 ; ................
END
Reference in New Issue Copy Permalink