True repentance has a distinct and constant reference to the Lord, Jesus Christ. If you repent of sin without looking to Christ, away with your repentance! If you are so lamenting your sin as to forget the Savior, you have need to begin all this work over again. Whenever we repent of sin we must have one eye upon sin and another upon the Cross. Or, better still, let us have both eyes upon Christ, seeing our sin punished in Him and by no means let us look at sin except as we look at Jesus. A man may hate sin just as a murderer hates the gallows – but this does not prove repentance. If I hate sin because of the punishment, I have not repented of sin – I merely regret that God is just. But if I can see sin as an offense against Jesus Christ and loathe myself because I have wounded Him, then I have a true brokenness of heart. If I see the Savior and believe that those thorns upon His head were plaited by my sinful words; If I believe that those wounds in His heart were pierced by my heart sins; If I believe that those wounds in His feet were made by my wandering steps and that the wounds in His hands were made by my sinful deeds – then I repent of sin after a right fashion. Only under the Cross can you repent. Repentance elsewhere is remorse which clings to the sin and only dreads the punishment. Let us then seek, under God, to have a hatred of sin caused by a sight of Christ’s love.
C.H. Spurgeon

Forums

Forum Navigation
You need to log in to create posts and topics.

Re: Button redraws & backgrnds with Jim's CDEF (revisited)

Avatar
Forum Archives
77,940 Posts
#1 · November 18, 1997, 3:19 pm

Posted by: mel <mel@...>

>OK, Mel & Staz, I tried to fix my code (mistake #1). The problem if you
>don't remember was that the buttons created with FB statements that
>utilize Jim's CDEFs (Mel knows) don't redraw properly when they're
>clobbered. Namely, they erase whatever pretty ppat is drawn for the
>window and use a white background instead. Mel, you may be of better
>help. Here's my update function that is called on the raw MacOS
>_updateEvt:
>
>LOCAL FN update (evtMessage&)
AUTOCLIP = _FALSE:'
> FN drawBackground (evtMessage&)
> CALL DRAWCONTROLS (evtMessage&)
AUTOCLIP = _TRUE
>END FN

might be one way to get around it...

You want to set the background pixel pattern :

WINDOW -Wnd2Build,temp$,(L,T)-(R,B),_docNoGrow_noGoAway_noAutoClip
FN SetBackPixelPattern(130)

LOCAL FN SetBackPixelPattern(thePixPat):' sets window background pix pat
LONG IF gcolorDepth>=4:' do we have some colours available
ppat& = FN GETPIXPAT(thePixPat)
LONG IF ppat&
CALL GETPORT(thePort&)
oldPixPat& = [thePort& + _bkPat]
LONG IF oldPixPat&
CALL DISPOSPIXPAT(oldPixPat&)
END IF
CALL BACKPIXPAT(ppat&)
END IF
END IF
END FN
'

I stopped using Jims CDefs in windows cause it was a pain to manage the
clipping. Plus I had to have two routines to handle clicks in the controls.
One low level (for trackcontrol and stuff), one normal FB style. I moved
them to dialogs.

I did manage to convert some of the controls to FB so it would handle the
control :

CLEAR LOCAL MODE
LOCAL FN UseCustomCDEF(theWndPtr&,butNum,theCNTL)
theControl&=FN GETNEWCONTROL(theCNTL,theWndPtr&):' CNTL resource
LONG IF theControl&:' did we get the required resource
rfCon&=FN GETCREFCON(theControl&):' get the reference control
rfCon&=((rfCon& AND &FFFF0000) OR (butNum<<16)):' move to hiword
CALL SETCREFCON(theControl&,rfCon&):' and set it up
' FB handles it from now on because the control number is in the highword
END IF
END FN=theControl&

That way you can use FB's BUTTON and DIALOG statements. trouble is I forget
how I forced the cdef into fb button. I think I created a button, then
called the custom cdef routine. I should have made a copy when I had it
working...

Mel Patrick - theWabbitGuy - mel@intergate.bc.ca
http://www.intergate.bc.ca/business/mel

Click for thumbs down.0Click for thumbs up.0