htoolkit-cvs

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

Update of /cvsroot/htoolkit/port/src/cbits/GTK
In directory sc8-pr-cvs1:/tmp/cvs-serv30128/src/cbits/GTK

Modified Files:
	Util.c 
Log Message:
The multithreading stuff was tricky and as side effect the package cannot be loaded into GHCi. For that reason the stuff is removed.


Index: Util.c
===================================================================
RCS file: /cvsroot/htoolkit/port/src/cbits/GTK/Util.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Util.c	14 Mar 2003 15:23:34 -0000	1.6
--- Util.c	14 Mar 2003 18:37:20 -0000	1.7
***************
*** 55,61 ****
  void osStart()
  {
- 	HaskellObj ret;
- 	SchedulerStatus rc;
- 
  	while (gActiveObjects > 0)
  	{
--- 55,58 ----
***************
*** 69,80 ****
  		}
  
- 		rc=rts_evalIO(rts_apply((HaskellObj)runIO_closure,&GHCziConc_yield_closure) ,&ret);
- 		rts_checkSchedStatus("yield",rc);
- 
  		if (gActiveObjects <= 0)
  			return;
  
! 		if (howManyThreadsAvail() < 1)
! 			gtk_main_iteration();
  	}
  
--- 66,73 ----
  		}
  
  		if (gActiveObjects <= 0)
  			return;
  
! 		gtk_main_iteration();
  	}