crooks@ingr.com (Steve Crooks) (01/29/89)
Help! The following code should change the Workbench screen's block pen to white. It doesn't work. It doesn't change any of the colors at all. It has no effect. It's driving me crazy. Would someone please tell me what I'm doing wrong? The CALL and PRINT macros are, I hope, obvious in their function. CALL Forbid,_SysBase move.l WBScreen,a5 move.l sc_Title(a5),a4 PRINT _stderr,a4 ;prints "Workbench Screen" moveq.l #15,d1 ;load colors to make it white moveq.l #15,d2 moveq.l #15,d3 lea sc_ViewPort(a5),a0 ;get the viewport moveq.l #0,d0 move.b sc_BlockPen(a5),d0 ;use the block pen CALL SetRGB4,_GfxBase ;this does nothing!!!!!!!! CALL Permit,_SysBase rts Any help would be *greatly* appreciated. -- --Steve Crooks ...uunet!ingr!crooks!crooks (UUCP) crooks!crooks@ingr.com (Internet)