Classe TWorkSpace

 #include "TOTVS.CH"

 USER FUNCTION TWorkSpace()

 DEFINE DIALOG oDlg TITLE "Exemplo TWorkSpace" FROM 180,180 TO 550,700 PIXEL
 oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)

 oWSpace1 := TWorkSpace():New( " Totvs 10-Aba 01 ", oWSpaceFolder)
 oWSpace1:SetStatusBarText("Texto da barra de status 01")

 oWSpace2 := TWorkSpace():New( " Totvs 10-Aba 02 ", oWSpaceFolder )
 oWSpace2:SetStatusBarText("Texto da barra de status 02")

 ACTIVATE DIALOG oDlg CENTERED ON INIT LoadForm()

 RETURN


 STATIC FUNCTION LoadForm()

 oDlg1 := TDialog():New(0,0,200,200,"Window",,,,,,,,oWSpace2,.T.)
 oDlg1:Activate(,,,.T.,{||.T.},,{||} )

 RETURN