diff options
Diffstat (limited to 'ospicture.icl')
| -rw-r--r-- | ospicture.icl | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/ospicture.icl b/ospicture.icl index ddc236f..e76aa6c 100644 --- a/ospicture.icl +++ b/ospicture.icl @@ -229,9 +229,9 @@ getpictpensize picture=:{pictPen={penSize}} // Change the PenColour:
setpictpencolour :: !Colour !*Picture -> *Picture
setpictpencolour colour picture=:{pictToolbox,pictPen,pictContext}
- | reqRGB==curRGB
- = picture
- | otherwise
+ //| reqRGB==curRGB
+ // = picture
+ //| otherwise
# (context,tb) = winSetPenColor reqRGB (pictContext,pictToolbox)
pen = {pictPen & penForeColour=colour}
= {picture & pictPen=pen,pictToolbox=tb,pictContext=context}
@@ -239,11 +239,12 @@ where reqRGB = toRGBtriple colour
curRGB = toRGBtriple pictPen.penForeColour
+from StdMisc import abort
setpictbackcolour :: !Colour !*Picture -> *Picture
setpictbackcolour colour picture=:{pictToolbox,pictPen,pictContext}
- | reqRGB==curRGB
- = picture
- | otherwise
+ //| reqRGB==curRGB
+ // = picture
+ //| otherwise
# (context,tb) = winSetBackColor (toRGBtriple colour) (pictContext,pictToolbox)
pen = {pictPen & penBackColour=colour}
= {picture & pictPen=pen,pictToolbox=tb,pictContext=context}
|