5043 |
5043 |
5044 ^ self subclassResponsibility |
5044 ^ self subclassResponsibility |
5045 ! |
5045 ! |
5046 |
5046 |
5047 setBackground:bgColorIndex in:aGCId |
5047 setBackground:bgColorIndex in:aGCId |
|
5048 "set background color-index to be drawn with" |
|
5049 |
|
5050 ^ self subclassResponsibility |
|
5051 ! |
|
5052 |
|
5053 setBackgroundColor:bgColor in:aGCId |
5048 "set background color to be drawn with" |
5054 "set background color to be drawn with" |
5049 |
5055 |
5050 ^ self subclassResponsibility |
5056 |colorId deviceColor| |
|
5057 |
|
5058 colorId := bgColor colorId. |
|
5059 colorId isNil ifTrue:[ |
|
5060 deviceColor := bgColor onDevice:self. |
|
5061 deviceColor notNil ifTrue:[ |
|
5062 colorId := bgColor colorId. |
|
5063 ] |
|
5064 ]. |
|
5065 colorId isNil ifTrue:[ |
|
5066 'DeviceWorkstation [warning]: could not set bg color' infoPrintCR. |
|
5067 ] ifFalse:[ |
|
5068 self setBackground:colorId in:aGCId. |
|
5069 ] |
5051 ! |
5070 ! |
5052 |
5071 |
5053 setBitmapMask:aBitmapId in:aGCId |
5072 setBitmapMask:aBitmapId in:aGCId |
5054 "set or clear the drawing mask - a bitmap mask using current fg/bg" |
5073 "set or clear the drawing mask - a bitmap mask using current fg/bg" |
5055 |
5074 |
5083 |
5102 |
5084 ^ self subclassResponsibility |
5103 ^ self subclassResponsibility |
5085 ! |
5104 ! |
5086 |
5105 |
5087 setForeground:fgColorIndex background:bgColorIndex in:aGCId |
5106 setForeground:fgColorIndex background:bgColorIndex in:aGCId |
|
5107 "set foreground and background color-indices to be drawn with" |
|
5108 |
|
5109 self setForeground:fgColorIndex in:aGCId. |
|
5110 self setBackground:bgColorIndex in:aGCId. |
|
5111 ! |
|
5112 |
|
5113 setForeground:fgColorIndex in:aGCId |
|
5114 "set the foreground color-index to be drawn with" |
|
5115 |
|
5116 ^ self subclassResponsibility |
|
5117 ! |
|
5118 |
|
5119 setForegroundColor:fgColor backgroundColor:bgColor in:aGCId |
5088 "set foreground and background colors to be drawn with" |
5120 "set foreground and background colors to be drawn with" |
5089 |
5121 |
5090 ^ self subclassResponsibility |
5122 self setForegroundColor:fgColor in:aGCId. |
5091 ! |
5123 self setBackgroundColor:bgColor in:aGCId. |
5092 |
5124 ! |
5093 setForeground:fgColorIndex in:aGCId |
5125 |
5094 "set foreground color to be drawn with" |
5126 setForegroundColor:fgColor in:aGCId |
5095 |
5127 "set the foreground color to be drawn with" |
5096 ^ self subclassResponsibility |
5128 |
|
5129 |colorId deviceColor| |
|
5130 |
|
5131 colorId := fgColor colorId. |
|
5132 colorId isNil ifTrue:[ |
|
5133 deviceColor := fgColor onDevice:self. |
|
5134 deviceColor notNil ifTrue:[ |
|
5135 colorId := fgColor colorId. |
|
5136 ] |
|
5137 ]. |
|
5138 colorId isNil ifTrue:[ |
|
5139 'DeviceWorkstation [warning]: could not set fg color' infoPrintCR. |
|
5140 ] ifFalse:[ |
|
5141 self setForeground:colorId in:aGCId. |
|
5142 ] |
5097 ! |
5143 ! |
5098 |
5144 |
5099 setFunction:aFunctionSymbol in:aGCId |
5145 setFunction:aFunctionSymbol in:aGCId |
5100 "set alu function to be drawn with" |
5146 "set alu function to be drawn with" |
5101 |
5147 |