Primera consulta sobre fiveMac

[Antonio Linares]

Manuel,

El warning que comentas se debe a un requerimiento que se ha implementado para el API del 10.6 (Snow Leopard 64) y que se denomina el "protocolo NSToolbarDelegate": http://developer.apple.com/mac/library/documentation/cocoa/reference/NSToolbarDelegate_Protocol/Reference/Reference.html

Dicho warning se soluciona facilmente con este cambio en toolbars.m:

Code: Select all  Expand view  RUN

@interface ToolBar : NSToolbar <NSToolbarDelegate>
 

lo que ocurre es que si ponemos esa claúsula entonces da error para el API del 10.5 (Leopard 32). Es preferible que tengamos un warning con el OSX 10.6 y que compile para ambos

Con esas funciones que estas implementando podemos ir añadiendo nuevos métodos a la clase TImage

Por cierto, son apreciaciones mias, ó Snow Leopard es más lento refrescando la pantalla ? He leido comentarios de otros usuarios de OSX que tambien indican una lentitud de pintado del Snow Leopard respecto al Leopard. Tal vez sea una cuestión solo de drivers y que aún no están afinados.

Tambien el iOS 4.0 (iPhone) esta dando muchos problemas por lentitud a un montón de usuarios. O tal vez sea que requiere un hardware mas potente como el que usa el iPhone 4:
http://www.applesfera.com/curiosidades/problemas-de-lentitud-con-el-ios-4-en-tu-iphone-3g-prueba-esto
Curiosidades...

[mastintin]

Por cierto, son apreciaciones mias, ó Snow Leopard es más lento refrescando la pantalla ? He leido comentarios de otros usuarios de OSX que tambien indican una lentitud de pintado del Snow Leopard respecto al Leopard. Tal vez sea una cuestión solo de drivers y que aún no están afinados.

En mi macbook blanco ( core2duo -grafica intel - 2 Gg memoria ) no noto ninguna lentitud de pintado respecto a leopard ,la "actualización" a hecho que el portatil funcione mas rápido en general y le ha dado una segunda vida .
En mi Imac de última hornada ( nunca ha tenido leopard ) la cosa cambia . Es una verguenza . Los drivers de ATI tanto para win7 ( bootcamp) como para MAcosX son de traca , poco mas que básicos .
En bootcamp se arregla colocando los de la página de ATI ,que aunque no son optimos para el equipo van mil veces mejor que la porqueria que propone apple .
En Macosx , yo he experimentado problemas de refresco de pantalla con refrescos ocasionales lentos que dejan artefactos a lo largo de todo el monitor . Se sulucionaba temporalmente limpiando la PRAM del equipo pero volvía al poco tiempo . Ha mejorado algo con la última actualización , y segun creo los drivers para nvidia van "discretamente bien " pero lejos de los de windows , pero los de ATI son para denunciar .

Respecto al ipone con iOS4 ( yo no tengo iphone ) por lo que sé ( tengo uno en estos momentos en la mano para poder hablar ), el problema radica en que la gente está haciendo una actualización "sucia" del sistema . Si se formatea el sistema y se instala el iOs 4 " de cero" y luego sincronizas los datos con el itunes , no notas diferencia alguna respecto al iphone 3.1.3 ( hablo siempre de un terminal 3GS ) .
Saludos.

[mastintin]

Otras cuantas functiones sin probar , ahora para la progressbar :

Code: Select all  Expand view  RUN

}

HB_FUNC( PROGRESSSETMAX )
{
   NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
 
  [ progressIndicator setMaxValue: hb_parnl( 2 ) ];
}

HB_FUNC( PROGRESSSETMIN )
{
   NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
 
  [ progressIndicator setMinValue: hb_parnl( 2 ) ];
}

HB_FUNC( PROGRESSINCREMEN )
{
   NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
 
  [ progressIndicator incrementBy: hb_parnl( 2 ) ];
}

HB_FUNC( PROGRESSSETSPIN )
{
   NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
 
  [ progressIndicator setStyle: NSProgressIndicatorSpinningStyle  ];
}

HB_FUNC( PROGRESSSETBAR )
{
   NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
 
  [ progressIndicator setStyle:  NSProgressIndicatorBarStyle  ];
}
 

Saludos.

----------------------- editado para ampliar -------------------------

Las funciones anteriores estan probadas y funcionando a ellas añado estas mas :

Code: Select all  Expand view  RUN

HB_FUNC( PROGRESSSETINDETERMINATE )
{
    NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
   
    [ progressIndicator setIndeterminate : YES ];
}

HB_FUNC( PROGRESSSTARTANIME )
{
    NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
   
    [ progressIndicator startAnimation :  progressIndicator  ];
}

HB_FUNC( PROGRESSSTOPANIME )
{
    NSProgressIndicator * progressIndicator = ( NSProgressIndicator * ) hb_parnl( 1 );
   
    [ progressIndicator stopAnimation : progressIndicator   ];
}

 

el testprog modificado para las pruebas :

Code: Select all  Expand view  RUN

function Main()
local nPos := 0  
local oWnd, oProg
   
   DEFINE WINDOW oWnd TITLE "TEST PROGRESS" ;
      FROM 20, 100 TO 420, 90 TEXTURED
     
   oWnd:Center()  
   
   oProg = TProgress():New( 40, 10, 400, 30, oWnd, 0 )
   
   //Progresssetspin(oProg:hWnd)

   PROGRESSSETMAX(oProg:hWnd, 10)
 
   PROGRESSSETMAX(oProg:hWnd, 5)  

   PROGRESSSETINDETERMINATE (oProg:hWnd)

   PROGRESSSTARTANIME(oProg:hWnd)  

  @ 2, 1 BUTTON "Ok" OF oWnd ACTION  PROGRESSSTopANIME(oProg:hWnd)     //oProg:Update( nPos += 1 )

  // ProgressRun( oProg, oWnd )
 
   ACTIVATE WINDOW oWnd
     
return nil

 

Las funciones de la toolbar están tambien Funcionando bien . Pero no consiguo que se ejecute la "ACTION" de sus botones , ¿ Es cosa mia , o está sin implementar ?
Saludos.

[mastintin]

posible implementacion de la clase progress :

Code: Select all  Expand view  RUN

#include "FiveMac.ch"


//----------------------------------------------------------------------------//

CLASS TProgress FROM TControl

   DATA   nMin, nMax, nPos, nStep  AS NUMERIC

   METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, nProg )
   
   METHOD Update( nProg ) INLINE ProgressUpdate( ::hWnd, nProg )

   METHOD SetStep( nStepInc ) INLINE ( PROGRESSINCREMEN ( ::hWnd, nStepInc ) , ::nStep := nStepInc )

   METHOD SetMin( nMin ) INLINE ( PROGRESSSETMIN ( ::hWnd, nMin ) , ::nMin  := nMin  )
   METHOD SetMax( nMax ) INLINE ( PROGRESSSETMAX ( ::hWnd, nMax ) , ::nMax  := nMax )
   METHOD Setindeterminate() INLINE PROGRESSSETINDETERMINATE( ::hWnd )
   METHOD SetSpinner(lspinner) INLINE  iif ( lspinner , PROGRESSSETSPIN( ::hWnd ) ,  PROGRESSSETBAR( ::hWnd ) )
   METHOD SetAnimate(lestado ) INLINE  iif ( lestado  , PROGRESSsTartAnime( ::hWnd ) ,  PROGRESSsTopAnime( ::hWnd ) )

ENDCLASS  

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, nProg ) CLASS TProgress

   DEFAULT nWidth := 100, nHeight := 100 ,nProg := 0

   ::oWnd  = oWnd
   ::hWnd = ProgressCreate( nTop, nLeft, nWidth, nHeight, oWnd:hWnd, nProg )
   ::Update( nProg )

   oWnd:AddControl( Self )
   
 

[Antonio Linares]

Manuel,

Las funciones de la toolbar están tambien Funcionando bien . Pero no consiguo que se ejecute la "ACTION" de sus botones , ¿ Es cosa mia , o está sin implementar ?

Estas usando el build más reciente de FiveMac ? Gracias a una modificación realizada por Dino Alessandri conseguimos que los botones de las barras de botones volviesen a ejecutar sus acciones.

Construye samples\osxpro.prg y pulsa el botón "New" de la barra de botones superior.

[mastintin]

Correcto , funciona perfecto . Estaba usando la versión anterior por los cambios que tenía hechos para añadir funciones .
Saludos.

[mastintin]

En el ejemplo testslid.prg , parece que el evento bchange de los sliders no funciona .
Saludos.

[mastintin]

Nueva funcion para borrar directorios , ficheros o enlaces hecha usando la clase filemanager de Macosx ( porpietaria del sistema ) :

Code: Select all  Expand view  RUN

HB_FUNC( REMOVE )
{
    NSString * string = [ [ [ NSString alloc ] initWithCString: ISCHAR( 1 ) ? hb_parc( 1 ) : "" ] autorelease ];   
    NSFileManager *filemgr = [NSFileManager defaultManager];
    hb_retl(( [filemgr removeItemAtPath: string  error: NULL]  == YES ) ); 
}

HB_FUNC( MACEXEC )
{
    NSString * string = [ [ [ NSString alloc ] initWithCString: ISCHAR( 1 ) ? hb_parc( 1 ) : "" ] autorelease ];   
    NSWorkspace *theProcess = [[[NSWorkspace alloc] init]autorelease ];
    hb_retl([theProcess launchApplication:string]);   
    }
HB_FUNC( HIDEAPPS )
{
    NSWorkspace *theProcess = [[[NSWorkspace alloc] init]autorelease ];
    [theProcess hideOtherApplications];   
}


HB_FUNC( SPOTLITE )
{
    NSString * string = [ [ [ NSString alloc ] initWithCString: ISCHAR( 1 ) ? hb_parc( 1 ) : "" ] autorelease ];   
    NSWorkspace *theProcess = [[[NSWorkspace alloc] init]autorelease ];
    hb_retl([theProcess showSearchResultsForQueryString:string]);     
}

HB_FUNC( HIDEAPPS )
{
    NSWorkspace *theProcess = [[[NSWorkspace alloc] init]autorelease ];
    [theProcess hideOtherApplications];   
}

HB_FUNC( OPENFILE )
{
    NSString * string = [ [ [ NSString alloc ] initWithCString: ISCHAR( 1 ) ? hb_parc( 1 ) : "" ] autorelease ];   
    NSWorkspace *theProcess = [[[NSWorkspace alloc] init]autorelease ];
    hb_retl([theProcess openFile:string]);   
}
 

[mastintin]

Funcion para mejora de los botones :

Code: Select all  Expand view  RUN

HB_FUNC( BTNSETBEZEL )
{
    NSButton * button = ( NSButton * ) hb_parnl( 1 );
    [ button setBezelStyle :hb_parnl( 2 )];
}
 

usado el testdlg2.prg

Code: Select all  Expand view  RUN

#include "FiveMac.ch"

#define   NSRoundedBezelStyle           = 1
#define    NSRegularSquareBezelStyle     = 2
#define    NSThickSquareBezelStyle       = 3
#define    NSThickerSquareBezelStyle     = 4
 #define   NSDisclosureBezelStyle        = 5
 #define   NSShadowlessSquareBezelStyle  = 6
#define    NSCircularBezelStyle          = 7
 #define   NSTexturedSquareBezelStyle    = 8
#define    NSHelpButtonBezelStyle        = 9
#define    NSSmallSquareBezelStyle       = 10
#define    NSTexturedRoundedBezelStyle   = 11
#define    NSRoundRectBezelStyle         = 12
#define    NSRecessedBezelStyle          = 13
#define    NSRoundedDisclosureBezelStyle = 14

function Main()

   local oDlg, cFirst := Space( 20 ), cLast := Space( 20 )
   local obtn

   DEFINE DIALOG oDlg TITLE "Testing Gets" ;
      FROM 270, 350 TO 389, 206
     
   @ 139, 50 SAY "First:" OF oDlg SIZE 50, 17
     
   @ 137, 108 GET cFirst OF oDlg SIZE 208, 22 ;
      VALID If( Empty( cFirst ), ( MsgInfo( "Please type something" ), .f. ), .t. )
   
   @  98, 50 SAY "Last:" OF oDlg SIZE 50, 17
   
   @  96, 108 GET cLast OF oDlg SIZE 208, 22
   
   @34, 83 BUTTON obtn PROMPT "OK" OF oDlg ACTION oDlg:End()

   BTNSETBEZEL(obtn:hWnd,11)  

   @ 34, 218 BUTTON "Cancel" OF oDlg ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil