Specifications

Developer Technical Support May 1992
Apple IIGS
#74: Top Ten List Manager Things 3 of 4
blt skip2
brl NoDraw ; if not don't draw..
Skip2 ldy #bottom ; now see if the bottom is higher than the top
inc a ; give a little slack
lda [therect],y
ldy #rgnBounds+top
cmp [listhand],y
blt NoDraw
NoTest ANOP
PushLong theRect
_EraseRect ; erase the old rectangle
ldy #left
lda [theRect],y
tax
ldy #bottom
lda [theRect],y
dec a
phx
pha
_MoveTo
ldy #2
lda [memptr],y
pha
lda [memptr]
pha
_DrawString
ldy #4
lda [memPtr],y
and #$00C0 ; strip to the 6 and 7 bits
beq memDrawn ; if they are both 0 the member is drawn
cmp #$0080 ; member selected?
bne noSelect ; member not selectable
PushLong theRect
_InvertRect
bra memDrawn
; if we get here the member is disabled
noSelect PushLong #DimMask
_SetPenMask
PushLong theRect
_EraseRect
PushLong #NorMask
_SetPenMask
memDrawn ANOP
; exit here
pld
sep #$20
longa off
pla
ply
plx
plx
plx
plx
plx
plx
phy
pha
rep #$20
longa on
rtl