
BW
Code: Select all
if mess(3)=our_aeshandle then
'we got a AES message to our window
'INTERSECTION x,y,w,h,x1,y1,w1,h1,x2,y2,w2,h2
' if mess(0)=wm_redraw then CALL DM:CALL UDSCREEN
' if mess(0)=WM_TOPPED then z=wind_set(mess(3), WM_TOP, 0, 0, 0, 0) ' thorsten.otto multitasking refresh fix
end if
Code: Select all
if OB=75 then MOUSE 2:call selectObject(SYS2%) : PAUSE(1) : call CHECKBLIT :DeselectObject(SYS2%) : MOUSE 0: CALL UPDATEOBJECT(SYS2%)
Code: Select all
if mess(0)=wm_redraw then redraw mess(4),mess(5),mess(6),mess(7)
Code: Select all
' set the clipping rectangle and clear it
vs_clip 1,x2,y2,x2+w2-1,y2+h2-1
vr_recfl x2,y2,x2+w2-1,y2+h2-1
Code: Select all
junk=objc_draw(tree&,0,8,x,y,w,h)