TutorTabBar.prg

[pgfdz]

Hola
En el tutortabbar.prg haces referencia a recursos. Un TabBar llamado "tabbar"
He estado buscando el fichero xib y solo encontre un fichero tabbar.nib. Lo metí en recursos y me echa de la aplicacion.
Como hago para correr el programa:
<code>
function Main()

local oWnd := TWindow():New()
local oBtn


oBtn = TButton():New( oWnd, "Button " , 30, 10, 100, 40 , {|| yoyo(ownd) } )

oWnd:Activate()

return nil


Function yoyo(ownd)

local oView1, oView2, oView3
local oView:=tView():resources(ownd,"tabbar")
local oTab


oView1 = TView():New( oView,0, 0, ScreenWidth(), ScreenHeight() - 69)
oView1:SetBkgColor( 0, 255, 0, 255 )

oView2 = TView():New( oView, 0, 0, ScreenWidth(), ScreenHeight() - 69 )
oView2:SetBkgColor( 255, 0, 0, 255 )
oView2:lVisible = .F.

oView3 = TView():New( oView, 0, 0, ScreenWidth(), ScreenHeight() - 69 )
oView3:SetBkgColor( 255, 255, 0, 255 )
oView3:lVisible = .F.

oTab:=TTabBar():resources(oView, 55, { oView1, oView2, oView3 } )



// oTab:bChange = { || aeval( oTab:aView, {|o, i| o:lVisible := iif( i == oTab:nat() , .t. ,.f. ) } ) }

Return nil
</code>

[mastintin]

He hecho unos cambios y ahora funciona correctamente ....
Te cuento ... he subido nuevos archivos tabbars.m y tabbar.prg que corrigen un pequeño bug introducido en el ultimo cambio , se añade una nueva funcion que devuelve el numero de tabs .
en el nib que usas he hecho un pequeño cambio para que funcionew correctamente . Editas el nib seleciones el tab y te vas a la ultima pestaña del inspector . donde pone Class cabia UITabBar por TabBar que es como se llama la clase derivada que usamos .
El codigo del prg cambia la primera linea para adaptarlo a las plantillas de xcode despues del cambio realizado por Antonio :

local oWnd := TWindow():GetMain()