[htoolkit-cvs] gio/src/Graphics/UI/GIO Canvas.hs,1.4,1.5

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv26252/src/Graphics/UI/GIO

Modified Files:
	Canvas.hs 
Log Message:
The pen attribute setter will call changeCanvasPen only when the new pen is different from the old pen.


Index: Canvas.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Canvas.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Canvas.hs	3 Feb 2003 16:53:41 -0000	1.4
--- Canvas.hs	8 Feb 2003 08:32:53 -0000	1.5
***************
*** 89,94 ****
      where
        getter c    = getVar (vpen c)
!       setter c p  = do takeVar (vpen c)
!                        Port.changeCanvasPen p (hcanvas c)
                         putVar  (vpen c) p
  
--- 89,94 ----
      where
        getter c    = getVar (vpen c)
!       setter c p  = do oldpen <- takeVar (vpen c)
!                        when (p /= oldpen) (Port.changeCanvasPen p (hcanvas c))
                         putVar  (vpen c) p