<div>Hello,</div>
<div> </div>
<div>what you suggested worked! Im very happy with it. However another error suddenly came up. It sais the last statement in a 'do' must be an expression, he is refering to line 41:45</div>
<div> </div>
<div>I change my code to this:</div>
<div> </div>
<div> on (menu exit) := close f, <br> on (menu open) := onOpen f dt vFile ]<br> <br> return ()<br> <br> where <br> onOpen :: Frame a -> staticText c -> Var b -> IO ()<br>
onOpen frame stat var = do file <- fileOpenDialog frame False True "Open File" [("PGM bestanden (*.pgm)",["*.pgm"]),("Alle bestanden (*.*)",["*.*"])] "" ""<br>
case file of<br> Nothing -> return ()<br> Just file -> set stat [text := "HELLO"]<br>
return ()</div>
<div> </div>
<div>As far as I can tell, if the file is nothing it will return something of IO () and if the file is something it will return something of IO (). So that error is kind of strange in my opinion. Do you know what caused it?</div>
<div> </div>
<div>Thanks for your help!<br><br></div>
<div class="gmail_quote">2009/4/17 Lennart Augustsson <span dir="ltr"><<a href="mailto:lennart@augustsson.net">lennart@augustsson.net</a>></span><br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Take a look at the syntax for 'let' inside a 'do'.<br>
<div>
<div></div>
<div class="h5"><br>On Fri, Apr 17, 2009 at 12:57 AM, Tsunkiet Man <<a href="mailto:temp.tsun@gmail.com">temp.tsun@gmail.com</a>> wrote:<br>> PS: a small note, sorry for multiple mails.<br>><br>> After doing the let ... in function it did not work. =( It gave the error<br>
> that 'do' has to end with some result. I did:<br>><br>> do let <the function> in <all the code that was behind the do><br>><br>> and it still didn't work =(. I'm doing something wrong I think.<br>
><br>> Thanks for your help.<br>><br>> 2009/4/17 Tsunkiet Man <<a href="mailto:temp.tsun@gmail.com">temp.tsun@gmail.com</a>><br>>><br>>> Thank you for your response, however if I can't do that, why can the<br>
>> example of wxHaskell do that?<br>>><br>>> I refer to the following code inside<br>>> <a href="http://darcs.haskell.org/wxhaskell/samples/wx/" target="_blank">http://darcs.haskell.org/wxhaskell/samples/wx/</a> (ImageViewer.hs)<br>
>><br>>> Line 99 untill 110<br>>><br>>> openImage sw vbitmap mclose status fname<br>>> = do -- load the new bitmap<br>>> bm <- bitmapCreateFromFile fname -- can fail with exception<br>
>> closeImage vbitmap<br>>> set vbitmap [value := Just bm]<br>>> set mclose [enabled := True]<br>>> set status [text := fname]<br>>> -- reset the scrollbars<br>
>> bmsize <- get bm size<br>>> set sw [virtualSize := bmsize]<br>>> repaint sw<br>>> `catch` \err -> repaint sw<br>>><br>>> if I'm correct the openImage is also defined in the where clause. Therefor<br>
>> by what I think it should not be possible, but it is.<br>>><br>>> Thanks for everything.<br>>><br>>><br>>><br>>><br>>> 2009/4/17 Lennart Augustsson <<a href="mailto:lennart@augustsson.net">lennart@augustsson.net</a>><br>
>>><br>>>> Variables bound in the do block are not in scope in the where.<br>>>> Use a let inside the do for onOpen instead.<br>>>><br>>>> On Thu, Apr 16, 2009 at 11:53 PM, Tsunkiet Man <<a href="mailto:temp.tsun@gmail.com">temp.tsun@gmail.com</a>><br>
>>> wrote:<br>>>> > Hello,<br>>>> ><br>>>> > I'm trying to create a GUI by using wxHaskell. However I get the weird<br>>>> > error<br>>>> > message of "Not in scope "dt"", well so I sorted them so that my so<br>
>>> > called<br>>>> > "dt" was in scope, however it failed. Can someone please tell me how I<br>>>> > can<br>>>> > solve this error?<br>>>> ><br>>>> > ... A lot of code that is not relevant in my opinion, if I'm<br>
>>> > wrong please correct me and I will post my full code<br>>>> ><br>>>> > --Debug text --<br>>>> > dt <- staticText f [text := "Hello world!"]<br>
>>> ><br>>>> > imagePanel <- panel f [position := Point 2 2, clientSize :=<br>>>> > Size<br>>>> > 100 100, tooltip := "This is a drawPanel", bgcolor := rgb 255 255 255]<br>
>>> > set f [ clientSize := Size 700 500,<br>>>> > menuBar := [mFile, mHelp],<br>>>> > visible := True,<br>>>> > on (menu exit) := close f,<br>
>>> > on (menu open) := onOpen f vFile ]<br>>>> ><br>>>> ><br>>>> > return ()<br>>>> ><br>>>> > where<br>
>>> > onOpen :: Frame a -> Var b -> IO ()<br>>>> > onOpen frame var = do file <- fileOpenDialog frame<br>>>> > False<br>>>> > True "Open File" [("PGM bestanden (*.pgm)",["*.pgm"]),("Alle bestanden<br>
>>> > (*.*)",["*.*"])] "" ""<br>>>> > case file of<br>>>> > Nothing -> return ()<br>
>>> > Just file -> set dt<br>>>> > [text :=<br>>>> > "HELLO"]<br>>>> > return ()<br>
>>> ><br>>>> > Thank you for your help, I really owe haskell-cafe.<br>>>> ><br>>>> > Greetings Tsunkiet Man<br>>>> > _______________________________________________<br>
>>> > Haskell-Cafe mailing list<br>>>> > <a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>>>> > <a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
>>> ><br>>>> ><br>>><br>><br>><br></div></div></blockquote></div><br>