[Hwgui-developers] Anomaly TAB class and tooltip flag. Isolated

[Itamar M. L. J. L. <ita...@gm...>]

//This example show anomaly with use of TAB class and tooltip flag.
#include "hwgui.ch"

Function main
LOCAL oDlg, cGetA:=space(50), cGetB:=space(50), cGetC:=space(50), oTab

INIT DIALOG oDlg CLIPPER AT 100,100 SIZE 400,400

@ 20,30 TAB oTab ITEMS {} SIZE 200,200 OF oDlg
BEGIN PAGE "A" OF oTAB
@ 30,40 get oGetA VAR cGetA size 80,25
END PAGE OF oTAB

BEGIN PAGE "B" OF oTAB
@ 30,40 get oGetB VAR cGetB size 80,25
END PAGE OF oTAB

BEGIN PAGE "C" OF oTAB
@ 30,40 get oGetC VAR cGetC size 80,25 tooltip "One tooltip!" //Here
disable all gets ! ;-(
END PAGE OF oTAB

ACTIVATE Dialog oDlg
return nil

Best regards,
Itamar M. Lins Jr.