<html>
<body>
Dear Philippos,<br><br>
Apparantly the toolbar does not work unless you also open menus. If you
change your Win function into:<br><br>
Win pst1= pst3<br>
where {<br>
(ok, pst2)= openWindow 0 flushWin pst1; <br>
(_, pst3) = openMenu 0 (Menu "File" NilLS [])
pst2; // add an empty menu, add items by replacing
NilLS<br>
flushWin= Window "I want to quit" NilLS []}<br><br>
then you will see that your application does respond to toolbar events.
<br><br>
I will see if this can be fixed in the near future. Thank you for your
observation.<br><br>
With kind regards,<br>
Peter Achten<br><br>
At 09:18 AM 4/6/2006, you wrote:<br>
<blockquote type=cite class=cite cite="">Hi, guys.<br>
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.<br>
<br>
module toolWin;<br>
import StdEnv, StdIO;<br>
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;<br>
<br>
Win pst1= pst2<br>
where {<br>
(ok, pst2)= openWindow 0 flushWin pst1; <br>
flushWin= Window "I want to quit" NilLS []}<br>
<br>
<br><br>
<br>
Make Yahoo! Canada your Homepage
<a href="http://ca.yahoo.com/bin/set"><b>Yahoo! Canada Homepage</a></b>
<br>
_______________________________________________<br>
clean-list mailing list<br>
clean-list@science.ru.nl<br>
<a href="http://mailman.science.ru.nl/mailman/listinfo/clean-list" eudora="autourl">http://mailman.science.ru.nl/mailman/listinfo/clean-list</a></blockquote></body>
<br>
</html>