![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_TRMreturn