Checking equality of requested pen (back) colour and current colour causes heap to fill; why, no idea.

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}