Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv12374/src/examples/simple
Modified Files:
ByeDemo.hs
Log Message:
more comments for the demo
Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/ByeDemo.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ByeDemo.hs 31 Jan 2003 20:54:57 -0000 1.1
--- ByeDemo.hs 31 Jan 2003 23:27:09 -0000 1.2
***************
*** 11,14 ****
--- 11,15 ----
first time, it calls "bye". This function changes the text of the label
and installs another event handler on the button that closes the main window.
+ (by default, GIO exits the gui when all windows are closed).
--------------------------------------------------------------------------------}
module Main where
***************
*** 25,28 ****
--- 26,30 ----
set b [on command =: bye w l b]
where
+ -- called on the first click, with the window, label, and button as arguments.
bye w l b
= do set l [text =: "Goodbye"]
|
