<div>Hi, guys.</div> <div>Could you people tell me why the program below does not work? Thanx in advance. I want to open a window with a tool bar; on the toolbar, there is an icon of "quit"; if I press the icon, I quit. The trouble is that I press the quit button, but nothing happens.</div> <div> </div> <div>module toolWin;<BR>import StdEnv, StdIO;</div> <div>Start world<BR> # (ok, file, world)= fopen "quit.bmp" FReadData world<BR> # (ok, osbit, file)= osReadBitmap file<BR> # (ok, world)= fclose file world<BR> # bit= toBitmap osbit<BR> # attributes= [ ProcessToolbar [ToolbarItem bit (Just "quit") closeProcess]]<BR> = startIO MDI Void Win attributes world;</div> <div> </div> <div>Win pst1= pst2<BR>where {<BR> (ok, pst2)= openWindow 0 flushWin pst1; <BR> flushWin= Window "I want to quit" NilLS []}</div> <div> </div> <div> </div><p>
<hr size=1>Make Yahoo! Canada your Homepage <a href="http://ca.yahoo.com/bin/set"><b>Yahoo! Canada Homepage</b></a>