crooks@ingr.com (Steve Crooks) (02/07/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. ps - I tried to post this once before, but I think our feed got munged at the same time. Either this didn't go out, I missed the replies, or there weren't any replies. Regardless, I'm trying again. -- --Steve Crooks ...uunet!ingr!crooks!crooks (UUCP) crooks!crooks@ingr.com (Internet)
ewhac@well.UUCP (Leo 'Bols Ewhac' Schwab) (02/10/89)
In article <3806@ingr.com> crooks@ingr.com (Steve Crooks) writes: >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. What color does the block pen start out in? > moveq.l #15,d1 ;load colors to make it white ^^ This is redundant; MOVEQ implies .l You're feeding 15,15,15 to the block pen. If you're using the default WorkBench colors, the block pen (which is what the WorkBench screen's titlebar is drawn with) is *already* 15,15,15. So it would be unsurprising that you wouldn't see a change. Try different values and see what happens. _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ Leo L. Schwab -- The Guy in The Cape INET: well!ewhac@ucbvax.Berkeley.EDU \_ -_ Recumbent Bikes: UUCP: pacbell > !{well,unicom}!ewhac O----^o The Only Way To Fly. hplabs / (pronounced "AE-wack") "Work FOR? I don't work FOR anybody! I'm just having fun." -- The Doctor
crooks@ingr.com (Steve Crooks) (02/13/89)
In article <10671@well.UUCP> ewhac@well.UUCP (Leo 'Bols Ewhac' Schwab) writes: >In article <3806@ingr.com> crooks@ingr.com (Steve Crooks) writes: >>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. > > What color does the block pen start out in? > >> moveq.l #15,d1 ;load colors to make it white > ^^ This is redundant; MOVEQ implies .l > > You're feeding 15,15,15 to the block pen. If you're using the >default WorkBench colors, the block pen (which is what the WorkBench >screen's titlebar is drawn with) is *already* 15,15,15. So it would be >unsurprising that you wouldn't see a change. Try different values and see >what happens. I don't use the default colors. I picked white because it would be readily apparent when my program worked. > >_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ >Leo L. Schwab -- The Guy in The Cape INET: well!ewhac@ucbvax.Berkeley.EDU > \_ -_ Recumbent Bikes: UUCP: pacbell > !{well,unicom}!ewhac >O----^o The Only Way To Fly. hplabs / (pronounced "AE-wack") >"Work FOR? I don't work FOR anybody! I'm just having fun." -- The Doctor . . . . . . . . . . . -- --Steve Crooks ...uunet!ingr!crooks!crooks (UUCP) crooks!crooks@ingr.com (Internet)