![Smile :-)](./images/smilies/icon_smile.gif)
Saludos.
Code: Select all | Expand
int main(int argc, char *argv[]) {
NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
hb_vmInit( TRUE );
int retVal = UIApplicationMain(argc, argv, nil, nil);
[pool release];
return retVal;
}
Code: Select all | Expand
- (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(NSDictionary *)launchOptions {
SetWndMain( self.window );
// Add the view controller's view to the window and display.
[self.window addSubview:viewController.view];
[self.window makeKeyAndVisible];
PHB_SYMB symMain = hb_dynsymSymbol( hb_dynsymFindName( "MAIN" ) );
// app = self;
hb_vmPushSymbol( symMain );
hb_vmPushNil();
hb_vmDo( 0 );
return YES;
}
Code: Select all | Expand
#import <UIKit/UIKit.h>
BOOL hb_vmInit( BOOL );
int main(int argc, char *argv[])
{
// NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
// int retVal = UIApplicationMain(argc, argv, nil, nil);
// [pool release];
// return retVal;
hb_vmInit( TRUE );
return 0;
}
Code: Select all | Expand
...
- (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(NSDictionary *)launchOptions
{
// Override point for customization after application launch.
// [self.window makeKeyAndVisible];
// SetWndMain( self.window );
return YES;
}
...
Code: Select all | Expand
function Main()
local oWnd := TWindow():New(), oLabel
oLabel = TLabel():New( oWnd, "Hello world!", 120, 100, 100, 50 )
oLabel:SetColor( 255, 255, 255, 255 )
oWnd:bTouchesBegan = { || MsgInfo( Version() ) }
oWnd:Activate()
return nil
procedure HB_GT_TRM
return