[htoolkit-cvs] gio/src/examples/simple ByeDemo.hs,1.1,1.2

[<dl...@us...>]

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"]