git-svn-id: http://zengl.googlecode.com/svn/branches/0.3.x@1929 6573c10b-8653-0410-9706-d32479e959fb

src/zgl_application.pas

@@ -87,6 +87,7 @@ type
     function shouldAutorotateToInterfaceOrientation( interfaceOrientation : UIInterfaceOrientation ) : Boolean; override;
     procedure didRotateFromInterfaceOrientation( fromInterfaceOrientation : UIInterfaceOrientation ); override;
     function supportedInterfaceOrientations : LongWord; message 'supportedInterfaceOrientations';
+    function shouldAutorotate : Boolean; message 'shouldAutorotate';
   end;
 
 type
@@ -1331,6 +1332,11 @@ begin
             ( 1 shl UIInterfaceOrientationLandscapeLeft + 1 shl UIInterfaceOrientationLandscapeRight ) * Byte( scrCanLandscape );
 end;
 
+function zglCiOSViewController.shouldAutorotate : Boolean;
+begin
+  Result := TRUE;
+end;
+
 procedure zglCiOSViewController.didRotateFromInterfaceOrientation( fromInterfaceOrientation : UIInterfaceOrientation );
 begin
   FillChar( touchActive[ 0 ], MAX_TOUCH, 0 );