Event dispatch loop with ObjcApplication

Author: mathk

gst-objc.m

@@ -30,8 +30,7 @@
   proxy->defineCFunc ("objc_makeSmalltalk", gst_makeSmalltalk);
   proxy->defineCFunc ("objc_retain", gst_retain);
   proxy->defineCFunc ("objc_release", gst_release);
-  proxy->defineCFunc ("objc_installSuspendLoop", gst_installSuspendLoop);
- proxy->defineCFunc ("objc_installEventLoop", gst_installEventLoop);
+  proxy->defineCFunc ("objc_installEventLoop", gst_installEventLoop);
   proxy->defineCFunc ("gstRectFill", gst_rectFill);
   pool = [[NSAutoreleasePool alloc] init];
   NSLog (@"Load complete");

gst-objc/ObjcApplication.st

@@ -21,7 +21,6 @@ Object subclass: ObjcApplication [
     ]
 
     loadNibNamed: aName [
-	nsApp inspect.
 	NSBundle loadNibNamed: aName owner: nsApp.
     ]
 
@@ -52,14 +51,6 @@ Object subclass: ObjcApplication [
     ]
 
     run [
-	|pool|
-	nsApp setRunning.
-	nsApp setLaunched.
-	pool := NSAutoreleasePool alloc init.
-	nsApp finishLaunching.
-	pool drain.
-	"dispLoop := [[self dispatchLoop] whileTrue] forkAt: Processor userSchedulingPriority."
-	loop := [[self pollEvent] whileTrue] forkAt: Processor highIOPriority.
-	[(Delay forSeconds: 10000) wait] whileTrue
+	ObjcRuntime objcInstallEventLoop
     ]
 ]