New TABS bug?

[Patrick Mast]

Hello,

I can not get the new tabs working if they are NOT bind with a oWnd:oBottom:=oTab.

For example, TABS in a DIALOG:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Folder.ch"

FUNCTION Main()

   LOCAL oDlg
   
   DEFINE DIALOG oDlg FROM 0,0 TO 20,70

   @ 2,2 TABS OF oDlg ;
      PROMPTS "&Test1", "&Test2", "&Test3"

   ACTIVATE DIALOG oDlg CENTER

RETURN nil


Produces an error.

Same error for REDEFINE TABS:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Folder.ch"

FUNCTION Main()

   LOCAL oDlg
   
   DEFINE DIALOG oDlg RESOURCE "TestTabs"

   REDEFINE TABS ID 100 OF oDlg ;
      PROMPTS "&Test1", "&Test2", "&Test3"

   ACTIVATE DIALOG oDlg

RETURN nil


The RC:

Code: Select all  Expand view

TestTabs DIALOG 11, 26, 165, 110
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "TestTabs"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "TTabs", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 8, 86, 149, 14
}



Once I use oDlg:oBottom:=oTabs, it works as expected.

Is there something I do wrong? I'm puzzled..
Thanks!

Patrick

[Patrick Mast]

Antonio,

I downloaded latest FWH and Tabs.prg is newer than the one I had. So I tested again, and sample 1 works OK now. Thanks!

Sample 2, with the REDEFINE, works also almost.

The sample builds OK, and if I run the EXE, I see the TABS also OK. But if I go over the active button to go to the righter tabs (the ones not vissable), I get this error:

Code: Select all  Expand view

Error description: Error BASE/1075  Argument error: >
   Args:
     [   1] = U   
     [   2] = N   0

Stack Calls
===========
   Called from: TABS.PRG => TTABS:MOUSELEAVE(0)
   Called from: TABS.PRG => TTABS:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => DIALOGBOX(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: Testtabs9.prg => MAIN(15)


Patrick