[htoolkit-cvs] gio/src/examples/simple BitmapViewer.hs,1.1.1.1,1.2 BouncingBalls.hs,1.1.1.1,1.2 ByeDemo.hs,1.2,1.3 Calculator.hs,1.2,1.3 ConfirmQuit.hs,1.1.1.1,1.2 SimpleDrawing.hs,1.2,1.3 SimpleHello.hs,1.1.1.1,1.2 SimpleMenu.hs,1.1.1.1,1.2 SimpleQuitButton.hs,1.1,1.2

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv3332/src/examples/simple

Modified Files:
	BitmapViewer.hs BouncingBalls.hs ByeDemo.hs Calculator.hs 
	ConfirmQuit.hs SimpleDrawing.hs SimpleHello.hs SimpleMenu.hs 
	SimpleQuitButton.hs 
Log Message:
Implement the document interface in the GIO


Index: BitmapViewer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BitmapViewer.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** BitmapViewer.hs	26 Jan 2003 12:41:38 -0000	1.1.1.1
--- BitmapViewer.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 4,8 ****
  
  main
!   = start $
      do image  <- newVar Nothing
         w      <- window [title  =: "Bitmap viewer", view =: sz 300 300, on paint =: paintImage image]
--- 4,8 ----
  
  main
!   = start SDI $
      do image  <- newVar Nothing
         w      <- window [title  =: "Bitmap viewer", view =: sz 300 300, on paint =: paintImage image]

Index: BouncingBalls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BouncingBalls.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** BouncingBalls.hs	26 Jan 2003 12:41:39 -0000	1.1.1.1
--- BouncingBalls.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 4,8 ****
  
  main
!   = start balls
    
  balls
--- 4,8 ----
  
  main
!   = start SDI balls
    
  balls

Index: ByeDemo.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/ByeDemo.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ByeDemo.hs	31 Jan 2003 23:27:09 -0000	1.2
--- ByeDemo.hs	24 Mar 2003 17:19:51 -0000	1.3
***************
*** 17,21 ****
  import Graphics.UI.GIO
  
! main = start demo     -- "start" initializes the GUI.
   
  demo :: IO ()
--- 17,21 ----
  import Graphics.UI.GIO
  
! main = start SDI demo     -- "start" initializes the GUI.
   
  demo :: IO ()

Index: Calculator.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/Calculator.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Calculator.hs	31 Jan 2003 15:33:14 -0000	1.2
--- Calculator.hs	24 Mar 2003 17:19:51 -0000	1.3
***************
*** 6,10 ****
  
  main
!   = start calculator
  
  calculator
--- 6,10 ----
  
  main
!   = start SDI calculator
  
  calculator

Index: ConfirmQuit.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/ConfirmQuit.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** ConfirmQuit.hs	26 Jan 2003 12:41:39 -0000	1.1.1.1
--- ConfirmQuit.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 4,8 ****
  
  main
!   = start $
      do w <- window [title =: "hello world"
                     ,view =: sz 200 200]
--- 4,8 ----
  
  main
!   = start SDI $
      do w <- window [title =: "hello world"
                     ,view =: sz 200 200]

Index: SimpleDrawing.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleDrawing.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SimpleDrawing.hs	30 Jan 2003 21:54:49 -0000	1.2
--- SimpleDrawing.hs	24 Mar 2003 17:19:51 -0000	1.3
***************
*** 4,8 ****
  
  main
!   = start $
      do w <- window [title =: "Hello world", width =: 600, height =: 600
                     ,on paint =: mypaint
--- 4,8 ----
  
  main
!   = start SDI $
      do w <- window [title =: "Hello world", width =: 600, height =: 600
                     ,on paint =: mypaint

Index: SimpleHello.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleHello.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** SimpleHello.hs	26 Jan 2003 12:41:39 -0000	1.1.1.1
--- SimpleHello.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 4,7 ****
  
  main
!   = start $
      do window [title =: "hello world", view =: sz 200 200]
--- 4,7 ----
  
  main
!   = start SDI $
      do window [title =: "hello world", view =: sz 200 200]

Index: SimpleMenu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleMenu.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** SimpleMenu.hs	26 Jan 2003 12:41:39 -0000	1.1.1.1
--- SimpleMenu.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 4,8 ****
  
  main
!   = start $
      do w <- window [title =: "Hello world", view =: sz 200 200]
     
--- 4,8 ----
  
  main
!   = start SDI $
      do w <- window [title =: "Hello world", view =: sz 200 200]
     

Index: SimpleQuitButton.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/SimpleQuitButton.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SimpleQuitButton.hs	30 Jan 2003 11:55:40 -0000	1.1
--- SimpleQuitButton.hs	24 Mar 2003 17:19:51 -0000	1.2
***************
*** 3,7 ****
  import Graphics.UI.GIO
  
! main = start demo
   
  demo :: IO ()
--- 3,7 ----
  import Graphics.UI.GIO
  
! main = start SDI demo
   
  demo :: IO ()