I tried this so far
which is copied from the basic Paint.hs from the sample.

- it compiles , run and break at run time if I omit Line [1]
gr <- graphicsContextCreate dc -- 1. this break for now

and it does not compile when I leave it on.

My sources are  [1] and [2]

[1]: http://docs.wxwidgets.org/trunk/classwx_graphics_context.html
[2]: http://chandlerproject.org/Projects/WxPythonGraphicsContext  

Ill keep you posted
----------

module Main where

import Graphics.UI.WXCore
import Graphics.UI.WX

main :: IO ()
main
  = start gui

gui :: IO ()
gui
  = do f  <- frame [text := "Paint demo", fullRepaintOnResize := False]
       sw <- scrolledWindow f [ on paint := onpaint
                              , virtualSize := sz 500 500, scrollRate := sz 10 10
                              , fullRepaintOnResize := False]
       
       set f [clientSize := sz 150 150, layout := fill $ widget sw]
       return ()
  where
    onpaint dc viewArea
      = do 
          gr <- graphicsContextCreate dc -- 1. this break for now
 
          pa <-graphicsPathCreate 
          graphicsPathAddCircle pa (pt 30 30) 20
          graphicsPathCloseSubpath pa
          --circle dc (pt 30 30) 20 [penKind := PenSolid]


Paint.hs:13:45:
    Couldn't match expected type `()' with actual type `CWindowDC a0'
    Expected type: DC () -> Rect -> IO ()
      Actual type: WindowDC a0 -> t0 -> IO ()
    In the second argument of `(:=)', namely `onpaint'
    In the expression: on paint := on paint


void MyCanvas::OnPaint(wxPaintEvent &event)
{
// Create paint DC
wxPaintDC dc(this);
// Create graphics context from it
if (gc)
{
// make a path that contains a circle and some lines
gc->SetPen( *wxRED_PEN );
wxGraphicsPath path = gc->CreatePath();
path.AddCircle( 50.0, 50.0, 50.0 );
path.MoveToPoint(0.0, 50.0);
path.AddLineToPoint(100.0, 50.0);
path.MoveToPoint(50.0, 0.0);
path.AddLineToPoint(50.0, 100.0 );
path.CloseSubpath();
path.AddRectangle(25.0, 25.0, 50.0, 50.0);
gc->StrokePath(path);
delete gc;
}
}

--------------
Luc
be.linkedin.com/in/luctaesch/
Envoyé avec Sparrow

Le lundi 25 mars 2013 à 22:52, Henk-Jan van Tuyl a écrit :

On Mon, 25 Mar 2013 19:00:58 +0100, Luc TAESCH <luc.taesch@gmail.com>
wrote:

ah many thanks ! I understand better now ( change quite a bit since
2003 :-)
I indeed can see the classes .

are these new renderers already mapped into wx, or should we use them as
such , directly ?
any sample / test available , out of chance ?

Many thanks for your patience, anyway :-)

Luc

I can't find any renderer functions in wx, or any samples/tests; I suppose
the best thing to do is to try to translate C++ sample programs to Haskell.

Regards,
Henk-Jan van Tuyl


--
http://Van.Tuyl.eu/
http://members.chello.nl/hjgtuyl/tourdemonad.html
Haskell programming
--